我的计算器分析和总结.docxVIP

你编程的思路非常混乱，简直不知道你的程序在干什么。要进行计算，你必须先使用 Val 函数将字符型的Text 属性转换为数字型，否则你进行“+运”算只能是字符串加法而不是你想要的数学运算。 下面是葡萄提供的一个例子： 1、建立 14 个按钮，按钮的名字都要Command1，设置 Index 属性，0~9 分别对应数字 0~9，10 为小数点，11 为等号，12~14 分别对应+、-、*和/。 2、输入如下代码： 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 Private Sub Command1_Click(Index As Integer) Select Case Index Case 0 To 9 If FirstNum Then StrNum1 = Str(Index) FirstNum = False Else StrNum1 = LTrim(StrNum1) + LTrim(Str(Index)) End If Text1.Text = Val(StrNum1) Case 10 If Not PointFlag Then If FirstNum Then StrNum1 = 0. FirstNum = False Else StrNum1 = LTrim(StrNum1) + LTrim(.) End If Else Exit Sub End If PointFlag = True Text1.Text = Val(StrNum1) Case 12 To 15 FirstNum = True PointFlag = False If SignFlag Then Call Run Else SignFlag = True StrNum2 = StrNum1 StrNum1 = End If Runsign = Index - 11 Case 11 On Error Resume Next 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 End Select End Sub Private Sub Form_Load() If App.PrevInstance Then MsgBox 请不要多次运行此程序，谢谢！, vbAbortRetryIgnore: Unload Me Num1 = 0 Num2 = 0 StrNum1 = StrNum2 = FirstNum = True PointFlag = False Runsign = 0 SignFlag = False End Sub Sub Run() On Error Resume Next Dim equal As Single Dim equal2 As Double Num1 = Val(StrNum2) Num2 = Val(StrNum1) Select Case Runsign Case 1 equal = Num1 + Num2 If Num1 = 65536 Or Num2 = 65536 Or equal = 65536 Then equal = 0 equal2 = Num1 + Num2 End If Case 2 equal = Num1 - Num2 If Num1 = 65536 Or Num2 = 65536 Or equal = 65536 Then equal = 0 equal2 = Num1 - Num2 End If Case 3 equal = Num1 * Num2 If Num1 = 65536 Or Num2 = 65536 Or equal = 65536 Then equal = 0 equal2 = Num1 * Num2 End If Case 4 equal = Num1 / Num2 If Num1 = 65536 Or Num2 = 65536 Or equal = 65536 Then equal = 0 equal2 = Num1 / Num2 End If End Select If equal = 0 Then a = equal2 Else a = equal Str