
3个回答
展开全部
Private Sub Form_Load()
Option1(0).Caption = "男"
Option1(1).Caption = "女"
Option2(0).Caption = "学生"
Option2(1).Caption = "老师"
Option1(0).Value = True
Option2(0).Value = True
Command1.Caption = "确定"
End Sub
Private Sub Command1_Click() '确定键
If Option1(0).Value = True Then
If Option2(0).Value = True Then
'事件一:男学生
Text1 = Option1(0).Caption & Option2(0).Caption
Else
'事件二:男老师
Text1 = Option1(0).Caption & Option2(1).Caption
End If
Else
If Option2(0).Value = True Then
'事件三:女学生
Text1 = Option1(1).Caption & Option2(0).Caption
Else
'事件四:女老师
Text1 = Option1(1).Caption & Option2(1).Caption
End If
End If
End Sub
'请参考采纳!谢谢!
展开全部
按照你这里所说的组合只有四种情况,在事件过程中直接使用性别和身份的组合,
采用If……ElseIf……ElseIf……Else……End If判断即可完成。
采用If……ElseIf……ElseIf……Else……End If判断即可完成。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
题目不多的话就写在确定按钮的事件里就成了 如果很多的话就要读取数据库了
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询