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

　　下面是其余的代码：（在Command1_Click事件里，接着写)

Case 11

If Not SignFlag Then

Text1.Text = StrNum1
equal = Val(StrNum1)
FirstNum = True
PointFlag = False

Else

Call Run
SignFlag = False

End If

Case Else’清除按钮

Call ClearData

　　里面又用到了一个ClearData过程，实际上就是Form_Load里的变量初赋值，代码如下：

Sub ClearData()

Num1 = 0
Num2 = 0
StrNum1 = ""
StrNum2 = ""
FirstNum = True
PointFlag = False
Runsign = 0
SignFlag = False
Text1.Text = "0."

End Sub

　　这样完整的程序就完成了，本章介绍了VB的第一个控件――按钮，并且举例，希望你继续看下一章――菜单。