vb if then 语句

Private Sub Text1_KeyPress(KeyAscii As Integer)

Dim right As Integer, wrong As Integer
If KeyAscii = 13 Then
If d = Val(Text1.Text) Then
Text2.Text = Label1.Caption & Text1.Text & "√"
right = right + 1
Else
Text2.Text = Label1.Caption & Text1.Text & "×"
wrong = wrong + 1
End If
Text1.Text = ""
Text1.SetFocus
Form_Load

上面代码中像then后面跟了多条语句的该怎么办？

没关系，每个if和end if 配对使用，then后的语句到end if结束，不像C++,IF语句后的多条语句要用{}。

少一个End If吧

每一个IF 对应一个End If

用elseif ....then