您的位置：首页 > 理论基础

用vb实现计算机功能

2010-02-19 23:16 337 查看
报告书
名称
实验10-1 实现计算器的功能
姓名
指导教师
学号
日期
任务清单
在本练习中，你将使绘制的计算器完成简单的四则运算。
1) 启动Visual Studio 2005。
2) 新建一个VB Windows应用程序，在名称处输入“Calculator”,在位置处选择程序存放地址，点击确定。
3) 拖拽相应的TextBox控件和Button控件到窗体设计器中，绘制出一个计算器的界面
4) 转到代码设计器，在Button的Click事件中添加如下代码，以实现简单的四则运算功能
5) 运行程序：[调试]—>[启动调试]，进入界面
6) 点击按钮来测试你的计算器
7) 关闭程序
8) 程序的运行截图如下所示：

9） 参考代码：
Public Class Calculator

Dim a, b As Double
Dim strCalKind As String

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text += Button1.Text
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox1.Text += Button2.Text
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
TextBox1.Text += Button3.Text
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
TextBox1.Text += Button4.Text
End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
TextBox1.Text += Button5.Text
End Sub

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
TextBox1.Text += Button6.Text
End Sub

Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
TextBox1.Text += Button7.Text
End Sub

Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
TextBox1.Text += Button8.Text
End Sub

Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
TextBox1.Text += Button9.Text
End Sub

Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
If Not (TextBox1.Text = "0") Then
TextBox1.Text += Button10.Text

End If
End Sub

Private Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.Click
If Not (TextBox1.Text.Contains(".")) Then
TextBox1.Text += Button17.Text
End If
End Sub

Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
a = Convert.ToDouble(TextBox1.Text)
TextBox1.Text = ""
strCalKind = "+"
End Sub

Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
a = Convert.ToDouble(TextBox1.Text)
TextBox1.Text = ""
strCalKind = "-"
End Sub

Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click
a = Convert.ToDouble(TextBox1.Text)
TextBox1.Text = ""
strCalKind = "*"
End Sub

Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click
a = Convert.ToDouble(TextBox1.Text)
TextBox1.Text = ""
strCalKind = "/"
End Sub

Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click
b = Convert.ToDouble(TextBox1.Text)
Try
If (strCalKind = "+") Then
TextBox1.Text = (a + b).ToString()
ElseIf (strCalKind = "-") Then
TextBox1.Text = (a - b).ToString()
ElseIf (strCalKind = "*") Then
TextBox1.Text = (a * b).ToString()
ElseIf (strCalKind = "/") Then
TextBox1.Text = (a / b).ToString()
End If
Catch ex As Exception
MessageBox.Show(ex.ToString())
End Try

strCalKind = ""
End Sub

Private Sub Button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button18.Click
Dim length As Integer
length = TextBox1.Text.Length
TextBox1.Text = TextBox1.Text.Remove(length - 1, 1)
End Sub
End Class

内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理 点击这里给我发消息
标签： 
相关文章推荐
新的分享
章节导航