level 1
a89397202
楼主
软文：Private Sub Option1_Click()
Option1.Visible = False
Option2.Visible = False
Option3.Visible = False
Option4.Visible = False
Text1.Visible = True
Text1.Text = "对不起，你答错啦 "
Label1.Visible = False
Label2.Visible = False
Label3.Visible = False
Label4.Visible = False
End Sub Private Sub Option3_Click()
Option1.Visible = False
Option2.Visible = False
Option3.Visible = False Option4.Visible = False
Text1.Text = "对不起，你答错啦 "
Label1.Visible = False
Label2.Visible = False
Label3.Visible = False
Label4.Visible = False
End Sub
Private Sub Option2_Click()
Option1.Visible = False
Option2.Visible = False
Option3.Visible = False
Option4.Visible = False
Text1.Visible = True
Text1.Text = "恭喜你答对啦 "
Label1.Visible = False
Label2.Visible = False
Label3.Visible = False
Label4.Visible = False End Sub
Private Sub Option4_Click()
Option1.Visible = False
Option2.Visible = False
Option3.Visible = False
Option4.Visible = False
Text1.Visible = True
Text1.Text = "对不起 你答错啦"
Label1.Visible = False
Label2.Visible = False
Label3.Visible = False
Label4.Visible = False
End Sub
运行后：我选择B 居然出现这个
我刚学VB 求高手解答
