(1)在考生文件夹下有一个工程文件sjt3.vbp,请在窗体上画两个框架,其名称分别为Fl和F2,标题分别为“交通工具”和“到达目标”。在Fl中画两个单选按钮,名称分别为Opl和Op2,标题分别为“飞机”和“火车”。在F2中画两个单选按钮,名称分别为op3

admin2010-09-02  50

问题 (1)在考生文件夹下有一个工程文件sjt3.vbp,请在窗体上画两个框架,其名称分别为Fl和F2,标题分别为“交通工具”和“到达目标”。在Fl中画两个单选按钮,名称分别为Opl和Op2,标题分别为“飞机”和“火车”。在F2中画两个单选按钮,名称分别为op3和004,标题分别为“广州”和“昆明”。画一个文本框,其名称为Textl。编写适当事件过程。程序运行后,选择不同单选按钮并单击窗体后在文本框中显示结果见表1-3。程序的运行情况如图1-153所示。存盘时以原文件名存盘。注意:考生不得修改窗体文件中已经存在的程序,在结束程序运行之前,必须至少进行上面的一种操作。退出程序时必须通过单击窗体右上角的关闭按钮。

(2)在考生文件夹下有一个工程文件sjt4.vbp,请在窗体上画三个文本框,其名称分别为Textl、Text2和Text3,文本框内容分别设置为“计算机”、“等级考试”和空白。然后画两个单选按钮,其名称分别为Opl和Op2,标题分别为“交换”和“连接”(如图1-154所示),编写适当的事件程序。程序运行后,如果选中“交换”单选按钮并单击Text3文本框,则Textl文本框中的内容与Text2文本框中的内容进行交换,并在Text3文本框中显示“交换成功”;如果选中“连接”单选按钮并单击Text3文本框,则把Textl和Text2的内容按Textl、Text2的顺序连接起来,并在Text3文本框中显示连接后的内容。存盘时,按原文件名存盘。
注意:不得修改已经给出的程序。在结束程序运行之前,必须选中一个单选按钮,然后单击Text3。退出程序时必须通过单击窗体右上角的关闭按钮,否则无成绩。

选项

答案 第1小题 【操作步骤】 步骤1:打开考生文件夹卞的本题工程文件sjt3.vbp。 步骤2:在窗体Forml中加入两个框架和一个文本框,然后在每个框架中各加入两个单选按钮,分别设置它们的相关属性,其属性及值如表2-85所示。 [*] 步骤3:打开代码编辑窗口输入如下代码: 参考代码: PriVate Sub Form_Click() If Opl And Op3 Then Textl.Text="坐飞机去广州" ElseIf Opl And Op4 Then Textl.Text="坐飞机去昆明" ElseIf Op2 And Op3 Then Textl.Text="坐火车去广州" ElseIf Op2 And Op4 Then Textl.Text="坐火车去昆明" End If End Sub 步骤4:按要求将文件保存至考生文件夹中。 步骤5:按键运行程序,选择一种交通工具和一个到达目标,并单击窗体,最后单击窗体右上角的关闭按钮退出程序。 第2小题 【操作步骤】 步骤1:打开考生文件夹下的本题工程文件sit4.vbpo 步骤2:在窗体FormI中加入三个文本框和两个单选按钮;分别设置它们的相关属性,其属性及值如表2-86所示。 [*] 步骤3:打开代码编辑窗口输入如下代码: 参考代码: Private Sub Text3_Click() If Opl Then Text3.Text=Textl.Text Textl.Text=Text2.Text Text2.Text=Text3.Text Text3.Text="交换成功" E1seIf Op2 Then Text3.Text=Textl.Text&Text2.Text End If End Sub 步骤4:按要求将文件保存至考生文件夹中。 步骤5:按键运行程序,选择一个单选按钮,并单击Text3,最后单击窗体右上角的关闭按钮退出程序。

解析  第1小题
    根据题目要求,在窗体的单击事件过程中,先用If语句判断框架F1中的opl是否选中(即以opl.Value=Tree为条件表达式),如果条件为真,那么再继续判断框架F2中的Op3是否选中(即以op3.Value=True为条件表达式),当Op3被选中时,文本框中显示“坐飞机去广州”,否则显示“坐飞机去昆明”;同理在外层If语句条件为假(即Op2被选中)时,也作类似处理。这样一共就有四种可能:Opl和Op3被选中、Opl和Op4被选中、op2和Op3被选中、op2和Op4被选中,对于可能出现的不同选择对照题目中表的规定,在标签中显示不同内容。以上判断和显示操作均在cl的Click事件中完成。
    第2小题
    根据题目要求,设计本题程序的思路:在Text3的Click事件过程中分别以Opl和Op2是否选中作为If语句的条件,当Opl被选中时,将两个文本框中的内容通过一个中间变量进行交换;当Op2被选中时,将两个文本框中的内容连接起来。
转载请注明原文地址:https://jikaoti.com/ti/Xxg0FFFM
0

最新回复(0)