VB基础教程第四章：VB程序设计（第5页）

　　下面会复杂一些，我们先跳过等号，而来处理四则运算：

先在General里声明新变量：

Dim Runsign As Integer ’储存运算符号

Dim SignFlag As Boolean ’判断是否已有运算符号

然后在Form_Load中进行初赋值：

Runsign = 0

SignFlag = False

在接下的Command1_Click中继续输入代码：

Case 12 To 15

FirstNum = True’使下一次可以输入新数据
PointFlag = False
’还原标记值

If SignFlag Then’前面已有运算符未运算

Call Run

Else

SignFlag = True
StrNum2 = StrNum1’把字符串1复制给字符串2
StrNum1 = ""’字符串1清空

End If

Runsign = Index - 11 ‘储存键入的运算符

　　里面运算的部分我用了一个过程，是因为在按下等号时还会调用到运算过程，这样可以减少代码的输入，也使程序便于浏览。建立过程（Procedure），可以在General部分直接输入，也可以通过菜单里的“Add Procedure”添加。Run的代码如下：

Sub Run()

Num1 = Val(StrNum2)
Num2 = Val(StrNum1)

Select Case Runsign

Case 1’加

equal = Num1 + Num2

Case 2’减

equal = Num1 - Num2

Case 3’乘

equal = Num1 * Num2

Case 4’除

equal = Num1 / Num2

End Select

StrNum2 = Str(equal)
StrNum1 = StrNum2
Text1.Text = StrNum2

End Sub