2. 计算机
  3. 有一个工程文件ylc6.vbp。请在窗体上画一个文本框，其名称为Text1；画一个命令按钮，名称为Command1，标题为“确定”。再画5个单选按钮，名称分别为option1、Option2、 Option3、Option4和Option5，标题分别为“飞

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

admin2009-03-17  40
问题 有一个工程文件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．操作步骤 (1)在Visual Basic集成环境选择“文件”→“打开工程”命令，在对话框中选择ylc6.vbp工程文件，单击“确定”按钮打开。 (2)在工具箱中选择TextBox控件，在窗体中创建命名为Text1。在属性窗口分别设置属性为空。 (3)从工具箱中选择选项控件，在窗体中拖动创建，在属性窗口分别命名为Option1、 Option2、Option3、Option4和Option5，标题分别为“飞机”、“火车”、“汽车”、“自行车”和“步行”。 (4)通过工具箱创建命令按钮，命名为Command1，标题为“确定”。 2．行为编码 补充后Command1对象的Click事件的完整代码如下： Private Sub Command1_Click() If Option1.Value Then Text1.Text="需要1小时" End If If Option2. Value Then Text1.Text="需要10小时" End If If Option3.Value Then Text1.Text="需要20小时" End If If Option4.Value Then Text1.Text="需要100小时" End If If Option5.Value Then Text1.Text="需要500小时" End If End Sub 3．存盘保存 执行“文件”→“保存工程”命令，工程文件名为yle6.vbp，窗体文件名为ylc6.frm。
解析 (1)这是一道简单的应用题，主要考查OptionButton控件的应用能力。在编程中使用判定的控制流程，显示出不同的结果信息。(2)上面的控制流程使用3个If，．．Then．．．End If，分别判断3个单选按钮是否被选中。判断后在文本框中显示相应的信息。
转载请注明原文地址:https://www.kaotiyun.com/show/bj1p777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)