level 5
界面设计:建议用控件数组,方便写代码;如果所有控件都用默认名称,那么文本框名称为Text1,4个单选按钮名称均为Option1(Index属性依次为0~3),4个复选框名称均为Check1(Index属性依次为0~3),按钮名称为Command1
代码:只需要写单击按钮的事件过程Command1_Click,如下:
Dim msg As String, i As Integer
msg = "姓名:" & Text1.Text & " 学历:"
For i = 0 To 3
If Option1(i).Value Then msg = msg & Option1(i).Caption
Next i
msg = msg & " 特长:"
For i = 0 To 3
If Check1(i).Value Then msg = msg & Check1(i).Caption
Next i
MsgBox msg, , "个人信息"
2021年10月21日 08点10分


