2011年度计算机等级考试二级VB复习指导(55)

　　Private Sub OKButton_Click()

　　显示姓名

　　If TextName.Text=“”Then

　　如果姓名为空，则弹出消息框提示用户

　　Msg=MsgBox(“请您输入姓名”，48，“填写”)

　　Exit Sub “退出事件过程

　　Else

　　MainForm.LabName.Caption TextName.Text

　　End If

　　判断性别

　　If OpMan = True Then

　　MainForm.LabSex.Caption=“男”

　　Else

　　MainForm.LabSex.Caption=“女”

　　End If

　　显示年龄

　　MainForm.LabAge.Caption=CombAge.Text

　　判断语句的爱好

　　It h1.Value=1 Then

　　MainForm.L1.Caption=“书法”

　　Else

　　MainForm.L1.Caption=“//”

　　End If

　　If h2.Value=1 Then

　　MainForm.L2.Caption=“摄影”

　　Else

　　MainForm.L2.Caption=“//”

　　End If

　　If h3.Value=1 Then

　　MainForm.L3.Caption=“钓鱼”

　　Else

　　MainForm.L3.Caption=“//”

　　End If

　　If h4.Value=1 Then

　　MainForm.L4.Caption=“旅游”

　　Else

　　MainForm.L4.Caption=“//”

　　End If

　　Unload Dialog “卸载对话框

　　End Sub