关键技术
本案例中采用了VBScript脚本中的eval方法，利用这个方法可以极大的简化计算流程，减少代码复杂度。
在使用eval方法前，我们需要先定义一个对象。具体方法详见下方“=”按键的代码。
使用效果见以下视频：
设计过程
1，建立程序界面，按照下图添加控件到窗体中。
控件包含：一个文本控件，0-9数字键共10个按钮，+、-、×、÷、小数点、=、AC、退格键，共8个按钮。
其中0-9数字键按钮，需要设置数组控件，将每个按钮的index属性设置为其对应的数字。
并将按钮的caption属性全部按照下图设置好。
2，编写数字键0-9的代码
Private Sub Command1_Click(Index As Integer) Text1 = Text1 & IndexEnd Sub
3，编写小数点按键的代码
Private Sub Command2_Click() Text1 = Text1 & "."End Sub
4，编写+-×÷四个按键的代码
Private Sub Command4_Click() Text1 = Text1 & "/"End SubPrivate Sub Command5_Click() Text1 = Text1 & "*"End Sub'加号Private Sub Command6_Click() Text1 = Text1 & "+"End Sub'减号Private Sub Command7_Click() Text1 = Text1 & "-"End Sub
5，编写=计算按键的代码
Private Sub Command3_Click() Dim s As Object On Error GoTo err Set s = CreateObject("MSScriptControl.ScriptControl") s.Language = "VBScript" Text1 = s.eval(Text1) Exit Suberr: Text1 = "Err" '计算出错时显示ErrEnd Sub
6，编写AC按键(清空文本框)的代码
Private Sub Command8_Click() Text1 = ""End Sub
7，最后编写退格按键的代码
Private Sub Command9_Click() If Len(Text1) > 0 Then Text1 = Left(Text1, Len(Text1) - 1) End IfEnd Sub
8，完成全部代码后，运行程序，进行测试
