vb编辑的简单的代码，但是无法执行command2，Help！

Private Sub Command1_Click()
Text3.Text = "X"
Randomize
Text1.Text = Val(Int(Rnd * 50))
Text2.Text = Val(Int(Rnd * 50))
Text3.Text = Val(InputBox(" Please Input result"))
End Sub

Private Sub Command2_Click()
If Text3.Text = Val(Text1.Text) + Val(Text2.Text) Then
Select Case Val(Text3.Text) //*当Text3.text正确时在进行情况选择*//
Case Val(Text3.Text) > 80 //如果result>80时label显示相映的字符，下列雷同//
Label1.Caption = "80 Good"
Case Val(Text3.Text) > 60
Label1.Caption = "60 Good"
Case Val(Text3.Text) > 20
Label1.Caption = "20 Good"
Case Val(Text3.Text) > 0
Label1.Caption = "0 good"
End Select
Else
Label1.Caption = "Wrony,again"
End If
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Form_Load()
Command1.Caption = &quo

vb编辑的简单的代码，但是无法执行command2，Help！ VB简单小程序~求详细的编辑代码! 简单的VB代码 vb的最简单代码 简单的VB实现代码！ vb编辑的简单的代码，执行时有点问题，Help！ vb编辑的代码是.html吗？ 一个VB编辑简单文本的简单问题 求一个简单的VB代码 VB中button的一个简单代码