用VB编写单选题.docVIP

单选题 Private Sub Form_Load() End Sub Private Sub Label1_Click() End Sub Private Sub Option1_Click() Label2.Caption =20 End Sub Private Sub Option2_Click() Label2.Caption = 0 End Sub Private Sub Option3_Click() Label2.Caption = 0 End Sub Private Sub Option4_Click() Label2.Caption = 0 End Sub 单选题 Private Sub Option1_Click()Option1.Value = FalseLabel6.Caption = 错误 正确答案是DEnd SubPrivate Sub Option2_Click()Option2.Value = FalseLabel6.Caption = 错误 正确答案是DEnd SubPrivate Sub Option3_Click()Option3.Value = FalseLabel6.Caption = 错误 正确答案是DEnd SubPrivate Sub Option4_Click()Option4.Value =