Visual Basic简单易学，深受广大编程爱好者的喜好。现在我们就来试着编写的一个计算器。
第一，创建一个Visual Basic应用程序，接着在窗体创建了一个文本框和苦干个按钮（当然，也可以用控件数组，这种方法我会在后面讲到）。
第二，声明变量
接下来在通用部分声明变量：
Dim a, b, result As Double
Dim c As Boolean
其中a为第一个操作数，b为第二个操作数，result为计算后的结果。这样三个用于存诸不同数值的变量，被定义为double，即双精度。
接下来的“Dim c As Boolean”用于声明一个布尔型变量，即用于判断是否按下了“＋”号。
第三， 在0-9十个按钮中添加代码：
Private Sub Command1_Click()
If c = True Then
b = Val(Str(b) & "1")
Text1 = b
Else
a = Val(Str(a) & "1")
Text1 = a
End If
End Sub
Private Sub Command2_Click()
If c = True Then
b = Val(Str(b) & "2")
Text1 = b
Else
a = Val(Str(a) & "2")
Text1 = a
End If
End Sub
Private Sub Command3_Click()
If c = True Then
b = Val(Str(b) & "3")
Text1 = b
Else
a = Val(Str(a) & "3")
Text1 = a
End If
End Sub
Private Sub Command4_Click()
If c = True Then
b = Val(Str(b) & "4")
Text1 = b
Else
a = Val(Str(a) & "4")
Text1 = a
End If
End Sub
Private Sub Command5_Click()
If c = True Then
b = Val(Str(b) & "5")
Text1 = b
Else
a = Val(Str(a) & "5")
Text1 = a
End If
End Sub
Private Sub Command6_Click()
If c = True Then
b = Val(Str(b) & "6")
Text1 = b
Else
a = Val(Str(a) & "6")
Text1 = a
End If
End Sub
Private Sub Command7_Click()
If c = True Then
b = Val(Str(b) & "7")
Text1 = b
Else
a = Val(Str(a) & "7")
Text1 = a
End If
End Sub
Private Sub Command8_Click()
If c = True Then
b = Val(Str(b) & "8")
Text1 = b
Else
a = Val(Str(a) & "8")
Text1 = a
End If
End Sub
Private Sub Command9_Click()
If c = True Then
b = Val(Str(b) & "9")
Text1 = b
Else
a = Val(Str(a) & "9")
Text1 = a
End If
End Sub
Private Sub Command10_Click()
If c = True Then
b = Val(Str(b) & "0")
Text1 = b
Else
a = Val(Str(a) & "0")
Text1 = a
End If
End Sub
以上是十个按钮中各自的代码，这里就是以第一个按钮为例解释一下：
Private Sub Command1_Click()
If c = True Then
b = Val(Str(b) & "1")
Text1 = b
Else
a = Val(Str(a) & "1")
Text1 = a
End If
End Sub
首先，用if语句来判断“c”这个变量是否等于“true”，如果等于“true”的话，就说明用户已经按下了“+”号按钮，如果等于“false”就说明没有按下“+”号按钮。当没有按下“+”号按钮时,将为第一个变量赋值，即a变量等于原有的值加上当前按钮所标示的数值，这里的“加上”指的是连接，即“a”变量原来存诸的数值转换成字符串之后，再与当前按钮所代表的数值字符串相连接。即
a = Val(Str(a) & "1")
这里是把a变量原有的值转换成字符串，再与当前按钮所代表的数值字符串相连接。如当单击“１”这个按钮时，原来a这个变量中存诸的如果是“2”，那么转成字符串之后，再与“1”这个字符相连接，其字符串将是“21”，再转换成数值就是21了。这里的“val（字符串）”函数用于将字符串转成数值，而“str(数值)”函数用于将数值转成字符串。接下来的任务就是将这些转换好的数值重新赋给a变量。至于，对于c变量等true时的代码操作，其原理与之相同。
这些代码分别用于其它9个按钮，只是连接时的数字不一样罢了。
第四， 在“＋”这个按钮中添加代码：
Private Sub Command11_Click()
c = True
End Sub
其作用是于将“c”变量赋值为“true” ，即表示已经按下了“＋”号按钮。
第五， 在“＝”这个按钮中添加代码：
Private Sub Command12_Click()
result = a + b
Text1 = result
c = False
a = 0
b = 0
End Sub
其中“result = a + b”将a和b值相加的结果赋值给“result”这个变量；“Text1 = result”用于将计算后的结果显于文本框中。至于
c = False
a = 0
b = 0
用于将c、a和b三个变量恢复初始值，以便下一次继续运算。
可以看到这只是用于进行加法运算，那么可不可以进行乘、除等运算呢？当然可以。
责任编辑：小草
