Question

vb运行时显示缺少函数或变量，一直调试一直没解决。求大神帮助，拜托!

Private Sub Check1_Click()
If Check1.Value = True Then
Text3.fontcolor = red
If Check2.Value = True Then
Text3.BackColor = blue
End Sub

Private Sub Command1_Click()
Dim a As Single
Dim b As Single
Dim c As Single
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
If Option1.Value = True Then
c = Str(a + b)
ElseIf Option2.Value = True Then
c = Str(a - b)
ElseIf Option3.Value = True Then
c = Str(a * b)
ElseIf Option4.Value = True Then
c = Str(a \ b)
ElseIf Option5.Value = True Then
c = Str(a / b)
ElseIf Option6.Value = True Then
c = Str(a Mod b)
ElseIf Option7.Value = True Then
c = Str(a ^ b)
End If
If Option5.Value = True And b = 0 Then
MsgBox "输入有误！", vbCritical, "提示" And Text3.Text = "" And Text3.SetFocus
End If
End Sub

Private Sub Option1_Click()
If Option1.Value = True Then
c = Val(Text1.Text) + Val(Text2.Text)
End If
End Sub

Answer 1

哪句出错？调试时截个图