该程序运行后,用户在文本框中输入姓名和年龄,选择性别、职业、学历和个人兴趣等个人信息。单击“递交”按钮运行后,在右侧Label1控件显示具体个人信息;单击“重置”按钮则清除输入的信息和所做的选择。运行界面如图2.3.8所示。
先将各option控件name属性依次改成a1、a2; b1、b2......Private Sub Command1_Click()
Label3.Caption = "姓名:" & Text1.Text & vbCrLf
Label3.Caption = Label3.Caption & "年龄:" & Text2.Text & vbCrLf
If a1 Then
Label3.Caption = Label3.Caption & "性别:男" & vbCrLf
ElseIf a2 Then
Label3.Caption = Label3.Caption & "性别:女" & vbCrLf
End If
If b1 Then
Label3.Caption = Label3.Caption & "学历:大专" & vbCrLf
ElseIf b2 Then
Label3.Caption = Label3.Caption & "学历:本科" & vbCrLf
ElseIf b3 Then
Label3.Caption = Label3.Caption & "学历:研究生" & vbCrLf
End If
If c1 Then
Label3.Caption = Label3.Caption & "职业:教师" & vbCrLf
ElseIf c2 Then
Label3.Caption = Label3.Caption & "职业:医生" & vbCrLf
ElseIf c3 Then
Label3.Caption = Label3.Caption & "职业:公务员" & vbCrLf
End If
If d1 Then
Label3.Caption = Label3.Caption & "爱好:旅游" & vbCrLf
ElseIf d2 Then
Label3.Caption = Label3.Caption & "爱好:体育" & vbCrLf
ElseIf d3 Then
Label3.Caption = Label3.Caption & "爱好:音乐" & vbCrLf
ElseIf d4 Then
Label3.Caption = Label3.Caption & "爱好:集邮" & vbCrLf
End If
End Sub
Private Sub Command2_Click()
Label3.Caption = ""
End Sub