VB怎么编写四则运算

Dim Num1, Num2 As Single '（下面是用来处理数字的）

Dim StrNum1, StrNum2 As String

Dim FirstNum As Boolean '判断是否是数字开头

Dim PointFlag As Boolean '判断是否已有小数点'（这是处理小数点的）

Dim Runsign As Integer '储存运算符号（下面是处理四则运算的）

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

Sub Run() ' 建立过程

Num1 = Val(StrNum2)

Num2 = Val(StrNum1)

Select Case Runsign

       Case 1 '加

           equal = Num1 + Num2

       Case 2 '减

           equal = Num1 - Num2

       Case 3 &