VB的,不晓得哪错了

来源：百度知道 编辑：UC知道 时间：2024/06/07 19:58:34
Private Sub Command4_Click()
a = Int(Rnd * 3 + 1)
If a = 1 Then Text1 = "拳头"
ElseIf a = 2 Then Text1 = "剪刀"
ElseIf a = 3 Then Text1 = "布"
End If

End Sub
能不能告诉我哪错了

Private Sub Command4_Click()

a = Int(Rnd * 3 + 1)

If a = 1 Then
Text1.Text = "拳头"
ElseIf a = 2 Then
Text1.Text = "剪刀"
ElseIf a = 3 Then
Text1.Text = "布"
End If

End Sub

'少了 .text

a = Int(Rnd * 3 + 1)
If a = 1 Then
Text1 = "拳头"
ElseIf a = 2 Then Text1 = "剪刀"
Else: If a = 3 Then Text1 = "布"
End If

这都看不出来
“愚”！

语法错误

只要将elseif 改为 if 同时将end if 删除就可以了