vb二级考试试题下载 VB上机试题内容及答案分析(2)

第6题： 
在考生文件夹下有一个工程文件sjt5.vbp，请在窗体上画两个框架，其名 称分别为F1和F2，标题分别为"交通工具"和"到达目标"。在F1中画两 个单选按钮，名称分别为Op1和Op2，标题分别为"飞机"和"火车"。在 F2中画两个单选按钮，名称分别为Op3和Op4，标题分别为"广州"和"昆 明"。画一个文本框，其名称为Text1。编写适当事件过程。程序运行后， 选择不同单选按钮时产生的显示结果见下表
 程序的运行情况如图所示。存盘时，工程文件名为sjt5.vbp，窗体文件名 为sjt5.frm。
单选按钮的Value属性：
Value属性用来表示单选按钮的状态，可以取True和False两种值，取值为True时，单选按钮是"打开"的，按钮中心有一个圆点；取值为False时，单选按钮是"关闭"的，按钮是一个圆圈。
设置单选按钮Value属性的语法是：
单选按钮名.Value = True（-1)或False（0)
由于Value属性是单选按钮的缺省属性，因此在设置该属性的值的时候，可以省略属性名。
解题方法：
打开工程文件sjt5.vbp，点击工具箱中的Frame控件图标，然后在窗体上拖拉出两个框架，通过属性窗口分别设置其Name属性为"F1"和"F2"，Caption属性为"交通工具"和"到达目标"。
点击工具箱中的OptionButton控件图标，然后在F1中拖拉出两个单选按钮，通过属性窗口分别设置其Name属性为"Op1"和"Op2"，Caption属性为"飞机"和"火车"。
点击工具箱中的OptionButton控件图标，然后在F2中拖拉出两个单选按钮，通过属性窗口分别设置其Name属性为"Op3"和"Op4"，Caption属性为"广州"和"昆明"。
点击工具箱中的TextBox控件图标，然后在窗体上拖拉出一个文本框。
打开代码窗口，输入如下的代码：
Private Sub Form_Click（)
If Op1.Value = True Then
 If Op3.Value = True Then
 Text1.Text = "坐飞机去广州"
 ElseIf Op4.Value = True Then
 Text1.Text = "坐飞机去昆明"
 End If
 ElseIf Op2.Value = True Then
 If Op3.Value = True Then
 Text1.Text = "坐火车去广州"
 ElseIf Op4.Value = True Then
 Text1.Text = "坐火车去昆明"
 End If
 End If
End Sub

第7题：
在考生文件夹下有一个工程文件sjt6.vbp，请在窗体上画三个文本框，其 名称分别为Text1、Text2和Text3，文本框内容分别设置为"等级考试"、 "计算机"和空白。然后画两个单选按钮，其名称分别为Op1和Op2，标题 分别为"交换"和"连接"（如图所示），编写适当的事件程序。程序运 行后，如果选中"交换"单选按钮并单击Text3文本框，则Text1文本框中 内容与Text2文本框中内容进行交换，并在Text3文本框中显示"交换成 功"；如果选中"连接"单选按钮并单击 Text3 文本框，则把 Text1 和 Text2的内容按Text1、Text2的顺序连接起来，并在Text3文本框中显示连 接后的内容。存盘时，工程文件名为sjt6.vbp，窗体文件名为sjt6.frm。 
解题方法：
打开工程文件sjt6.vbp，点击工具箱中的TextBox控件图标，然后在窗体上拖拉出三个文本框，通过属性窗口分别设置其Text属性为"等级考试"、"计算机"和""。
点击工具箱中的OptionButton控件图标，然后在窗体中拖拉出两个单选按钮，通过属性窗口分别设置其Name属性为"Op1"和"Op2"，Caption属性为"交换"和"连接"。
打开代码窗口，输入如下的代码：
Private Sub Text3_Click() 
 If Op1.Value Then
 Text1.Text = "计算机"
 Text2.Text = "等级考试"
 Text3.Text = "交换成功"
 Else
 Text3.Text = Text1.Text + Text2.Text
 End If
End Sub

第8题：
在Form1的窗体上画一个文本框，其名称为Text1；再画两个命令按钮，
其名称分别为C1和C2，标题分别为"显示"和"退出"，编写适当的事件 过程。程序运行后，在窗体加载时使"退出"按钮不可用，如果单击"显 示"按钮，则在文本框中显示"等级考试"，并使"退出"按钮可用，此 时如果单击"退出"按钮，则结束程序，程序运行情况如图所示。
  解题方法：
新建一个名为Form1的窗体，点击工具箱中的CommandButton控件图标，然后在窗体上拖拉出两个命令按钮，通过属性窗口分别设置其Name属性为"C1"和"C2",Caption属性为"显示"和"退出"。
点击工具箱中的TextBox控件图标，然后在窗体上拖拉出一个文本框。
打开代码窗口，输入如下的代码：
Private Sub C1_Click（)
C2.Enabled = True
Text1.Text = "等级考试"
End Sub
Private Sub C2_Click（)
End
End Sub

第9题：
在Form1的窗体上画一个命令按钮，其名称为C1，标题为"显示"；再画
 一个文本框，其名称为Text1，编写适当的事件过程。程序运行后，在窗 体加载时使文本框不可见，如果双击窗体，则文本框出现；此时如果单击 命令按钮，则在文本框中显示"等级考试"。程序运行情况如图所示。
解题方法：
新建一个名为Form1的窗体，点击工具箱中的CommandButton控件图标，然后在窗体上拖拉出一个命令按钮，通过属性窗口设置其Name属性为"C1"，Caption属性为"显示"。
点击工具箱中的TextBox控件图标，然后在窗体上拖拉出一个文本框。
打开代码窗口，输入如下的代码：
Private Sub C1_Click（)
Text1.Text = "等级考试"
End Sub
Private Sub Form_DblClick（)
Text1.Visible = True
End Sub
Private Sub Form_Load（)
Text1.Visible = False
End Sub

第10题：
在窗体上画一个文本框，其名称为Text1，Text属性为空白。再画一个命 令按钮，其名称为C1，Visible属性为False。编写适当的事件过程。程序 运行后，如果在文本框中输入字符，则命令按钮出现。程序运行情况如图 所示。
解题方法：
新建一个窗体，点击工具箱中的TextBox控件图标，然后在窗体上拖拉出一个文本框，通过属性窗口设置其Text属性为""。
点击工具箱中的CommandButton控件图标，然后在窗体上拖拉出一个命令按钮，通过属性窗口设置其Name属性为"C1",Visible属性为False。
打开代码窗口，输入如下的代码：
Private Sub Text1_Change（)
C1.Visible = True
End Sub
按要求保存文件即完成本题。