VisualBasic程序设计教程第版实验答案)

Label3.FontItalic = False End If

If Check3.Value Then Label3.FontUnderline = True Else

Label3.FontUnderline = False End If End Sub

实验3-10

表2.3.2 票 价 目 的 地 南京 北京 高 铁 140 555 动 车 93 410 快 车 47 179 图2.3.7 实验3.10运行界面 提示： Command1_Click事件采用一个双分支（目的地）结构分别嵌套一个多分支（车速类型）来实现；显示的内容通过各单选按钮的Caption属性来获得。 Private Sub Command1_Click() If Option1.Value = True Then If Option3.Value = True Then

Label1.Caption = \从上海到南京 高铁价格 140元\ ElseIf Option4.Value = True Then

Label1.Caption = \从上海到南京 动车价格 93元\ Else

Label1.Caption = \从上海到南京 快车价格 47元\ End If Else

If Option3.Value = True Then

Label1.Caption = \从上海到北京 高铁价格 555元\ ElseIf Option4.Value = True Then

Label1.Caption = \从上海到北京 动车价格 410元\ Else

Label1.Caption = \从上海到北京 快车价格 179元\ End If End If End Sub

实验3-11

编写一个“个人简历表”程序。该程序运行后，用户在文本框中输入姓名和年龄，选择性别、职业、学历和个人兴趣等个人信息。单击“递交”按钮运行后，在右侧Label1控件显示具体个人信息；单击“重置”

图2.3.8 个人简历表

提示：

利用xb，xl，zy，ah字符串变量分别保存性别、学历、职业和爱好的选择信息。 Dim xm, xb, xl, zy, ah As String Private Sub command1_Click() If Text1.Text = \ Text1.SetFocus

MsgBox \姓名未填\提示\ Else

xm = Text1.Text End If

If Not IsNumeric(Text2.Text) Or Val(Text2.Text) < 18 Or Val(Text2.Text) >= 60 Then Text2.Text = \ Text2.SetFocus

MsgBox \年龄输入错误\提示\ Else

nl = Val(Text2.Text) End If

If Option1.Value Then xb = Label4.Caption ElseIf Option2.Value Then xb = Label5.Caption Else

MsgBox \性别未选\提示\ End If

If Option3.Value Then xl = Label6.Caption ElseIf Option4.Value Then xl = Label7.Caption ElseIf Option5.Value Then xl = Label8.Caption Else

MsgBox \学历未选\提示\ End If

If Option6.Value Then zy = Label9.Caption ElseIf Option7.Value Then zy = Label10.Caption ElseIf Option8.Value Then