诸位快来看看我的新作品吧，高分挑毛病，务必进！

Question

Private Sub Command5_Click()
int5 = Text4.Text
int4 = int5 * int5
int4 = Text1.Text  <------------------------看看
End Sub

Answer 1

这是一个简单的计算机的源代码,看看吧
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 ClearData()Num1 = 0
Num2 = 0
StrNum1 = ""
StrNum2 = ""
FirstNum = True
PointFlag = False
Runsign = 0
SignFlag = False
Text1.Text = "0."End Sub
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 = StrNum1
End Sub
Private Sub Command1_Click(Index As Integer)Select Case Index
Case 0 To 9
If FirstNum Then
   StrNum1 = Str(Index)
   FirstNum = False
Else
   StrNum1 = StrNum1 + Str(Index)
End If
Text1.Text = StrNum1
Case 10
If Not PointFlag Then
   If FirstNum Then
      StrNum1 = "0."
      FirstNum = False
   Else
      StrNum1 = StrNum1 + "."
   End If
Else
   Exit Sub
End If
   PointFlag = True
   Text1.Text = 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
If Not SignFlag Then
   Text1.Text = StrNum1
   equal = Val(StrNum1)
   FirstNum = True
   PointFlag = False
Else
   Call Run
   SignFlag = False
End If
Case 16
Call ClearData
End Select
End Sub
Private Sub Form_Load()Call ClearDataEnd Sub