[问答题] 有一个工程文件ylc6.vbp。请在窗体上画一个文本框，其名称为Text1；画一个命令按钮，名称为Command1，标题为“确定”。再画5个单选按钮，名称分别为option1、Option

16 查阅

[问答题] 有一个工程文件ylc6.vbp。请在窗体上画一个文本框，其名称为Text1；画一个命令按钮，名称为Command1，标题为“确定”。再画5个单选按钮，名称分别为option1、Option2、 Option3、Option4和Option5，标题分别为“飞机”、“火车”、“汽车”、“自行车”和“步行”，如图26所示。

编写适当事件过程。选中一个单选按钮，并单击“确定”按钮，按照表3-1在文本框中显示相应的内容。

提供Command1对象的Click事件源代码如下，请补充完整。

Private Sub Command1_Click()

If Then

Text1.Text="需要1小时"

End If

If Then

Text1. Text="需要10小时"

End If

If Then

Text1. Text="需要20小时"

End If

If Then

Text1. Text="需要100小时"

End If

If Then

Text1.Text ="需要500小时"

End If

End Sub

注意：不得修改已经给出的程序。在结束程序运行之前，必须选择进行上面的一种操作．退出程序时必须通过单击窗体右上角的关闭按钮．存盘时必须存放在考生丈件夹下，工程文件名为ylc6.vbp，窗体文件名为ylc6.frm．

参考答案:

操作步骤 (1)在Visual Basic集成环境选择“文件”→“打开工程”命令，在对话框中选择ylc6.vbp工程文件，单击“确定”按钮打开。 (2)在工具箱中选择TextBox控件，在窗体中创建命名为Text1。在属性窗口分别设置属性为空。 (3)从工具箱中选择选项控件，在窗体中拖动创建，在属性窗口分别命名为Option1、 Option2、Option3、Option4和Option5，标题分别为“飞机”、“火车”、“汽车”、“自行车”和“步行”。 (4)通过工具箱创建命令按钮，命名为Com

(1)这是一道简单的应用题，主要考查OptionButton控件的应用能力。在编程中使用判定的控制流程，显示出不同的结果信息。 (2)上面的控制流程使用3个If...Then...End If，分别判断3个单选按钮是否被选中。判断后在文本框中显示相应的信息。

计算机考试