首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生文件夹下有一个工程文件sjt3.vbp,请在窗体上画两个框架,其名称分别为F1和 F2,标 题分别为“交通工具”和“到达目标”。在F1中画两个单选按钮,名称分别为Op1和 Op2,标题分别为“汽车”和“轮船”。在F2 中画两个单选按钮,名称分别
(1)在考生文件夹下有一个工程文件sjt3.vbp,请在窗体上画两个框架,其名称分别为F1和 F2,标 题分别为“交通工具”和“到达目标”。在F1中画两个单选按钮,名称分别为Op1和 Op2,标题分别为“汽车”和“轮船”。在F2 中画两个单选按钮,名称分别
admin
2018-10-29
35
问题
(1)在考生文件夹下有一个工程文件sjt3.vbp,请在窗体上画两个框架,其名称分别为F1和 F2,标 题分别为“交通工具”和“到达目标”。在F1中画两个单选按钮,名称分别为Op1和 Op2,标题分别为“汽车”和“轮船”。在F2 中画两个单选按钮,名称分别为Op3和Op4,标题分别为“青岛”和“大连”。画一个文本框,其名称为Text1。编写适当事件过程。程序运行后,选择不同单选按钮并单击文本框后在文本框内显示结果见表1-6。
程序的运行情况如图1-166所示。存盘时,工程文件名为sjt3.vbp,窗体文件名为sjt3.frm。
注意:考生不得修改窗体文件中已经存在的程序,在结束程序运行之前,必须至少进行上面的一种操作。退出程序时必须通过单击窗体右上角的关闭按钮的方式。
(2)在考生文件夹下有一个工程文件sjt4.vbp,请在窗体上画两个文本框,其名称分别为Text1、Text2,文本框内容分别设置为“计算机”、“等级考试”。然后画一个标签,其名称为Lab1,高度为375,宽度为2000。再画两个单选按钮,名称分别为Op1和Op2,标题分别为“交换”和“连接”,编写适当的事件程序。程序运行后,如果选中“交换”单选按钮并单击窗体,则Text1文本框中的内容与Text2文本框中的内容进行交换,并在标签中显示“交换成功”(如图1-167所示);如果选中“连接”单选按钮并单击窗体,则把Text1和Text2的内容按Text1在前、Text2在后的顺序连接起来并在标签中显示。存盘时,工程文件名为sjt4.vbp,窗体文件名为sjt4.frm。
注意:不得修改已经给出的程序。在结束程序运行之前,必须选中一个单选按钮,并单击窗体。退出程序时必须通过单击窗体右上角的关闭按钮,否则无成绩。
选项
答案
第1小题 【操作步骤】 步骤1:打开考生文件夹下的本题工程文件sjt3.vbp。 步骤2:在窗体Form1中加入两个框架和一个文本框,然后在每个框架中各加入两个单选按钮,分别设置它们的相关属性,其属性及值如表2-72所示。 [*] 步骤3:打开代码编辑窗口输入如下代码: 参考代码: Private Sub Text1_Click() If Op1 And Op3 Then Text1.Text = "坐汽车去青岛" ElseIf Op1 And Op4 Then Text1.Text = "坐汽车去大连" ElseIf Op2 And Op3 Then Text1.Text = "坐轮船去青岛" ElseIf Op2 And Op4 Then Text1.Text = "坐轮船去大连" End If End Sub 步骤4:按要求将文件保存至考生文件夹中。 步骤5:按<F5>键运行程序,选择一种交通工具和一个到达目标,并单击文本框,最后单击窗体右上角的关闭按钮退出程序。 第2小题 【操作步骤】 步骤1:打开考生文件夹下的本题工程文件sjt4.vbp。 步骤2:在窗体Form1中加入两个文本框、一个标签和两个单选按钮,分别设置它们的相关属性,其属性及值如表2-73所示。 [*] 步骤3:打开代码编辑窗口输入如下代码: 参考代码: Private Sub Form_Click() If Op1 Then Lab1.Caption = Text1.Text Text1.Text = Text2.Text Text2.Text = Lab1.Caption Lab1.Caption = "交换成功" ElseIf Op2 Then Lab1.Caption = Text1.Text & Text2.Text End If End Sub 步骤4:按要求将文件保存至考生文件夹中。 步骤5:按<F5>键运行程序,选择一个单选按钮,并单击窗体,最后单击窗体右上角的关闭按钮退出程序。
解析
转载请注明原文地址:https://kaotiyun.com/show/9tFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
某人编写了下面的程序,希望能把Text1文本框中的内容写到out.txt文件中:PrivateSubCommand1_Click() Open"out.txt"ForOutputAs#2 Print"Text1" Close
支持子程序调用的数据结构是( )。
阅读程序:OptionBase1PrivateSubForm_Click()Dima(3,3)AsIntegerFori=1To3Forj=1To3a(
假定有如下程序:PrivateSubForm_Click()DimNAsInteger,JAsIntegerN=0J=1DoUntilN>2N=N+1
要使标签中的文本靠右显示,应将其Aligment属性设置为
在窗体上画一个名称为Command1的命令按钮,并编写如下事件过程:PrivateSubCommand1_Click() x=1 s=0 Fori=1To5 x=x/i s=s+x Next Print
设有如下事件过程:PrivateSubForm_Click() Sum=0 Fork=1To3 Ifk
工程中有Form1、Form2两个窗体(Forml中有文本框Text1,Form2中有Text1文本框和command1命令按钮)。Form1是启动窗体。在这些模块中编写下面的程序代码:Form1中的代码如下:PrivateS
下面关于VB数据文件的叙述中错误的是()。
随机试题
简述议会一经理制的基本特征。
下列概念中哪项是错误的
下列资料属等级资料的是
病势急剧者,不可能是虚证。()
在城市规划工作中,科学、系统的调查,其作用不是为了:
甲、乙、丙三人的月收入分别是5000元、4000元、1000元。如果保持三人月收入比值不变且使平均月收入达到5000元,则丙的月收入增加了()。
图2是A、B两个家庭的色盲遗传系谱图,A家庭的母亲是色盲患者(图中●),这两个家庭由于某种原因调换了一个孩子,请确定调换的两个孩子是()。
某原料供应商对其顾客实行如下优惠措施:①一次购买金额不超过1万元,不予优惠;②一次购买金额超过1.1万元,但不超过3万元,给九折优惠;③一次购买金额超过3万元,其中3万元九折优惠,超过3万元的部分八折优惠。某厂因库容原因,第一次在该供应商处购买原料付
PeopleofBurlingtonarebeingdisturbedbythesoundofbells.FourstudentsfromBurlingtonCollegeofHigherEducationarein
Althoughherefusedtoactonmysuggestion,hehadtoadmitthat______whatIsaid.
最新回复
(
0
)