首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生文件夹下有工程文件sj3.vbp及窗体文件sj3.frm,该程序是不完整的。在名称为Forml的窗体上有两个名称分别为Labell和Label2的标签,两个名称分别为Textl和Text2的文本框控件和两个名称分别为Commandl和Comma
(1)在考生文件夹下有工程文件sj3.vbp及窗体文件sj3.frm,该程序是不完整的。在名称为Forml的窗体上有两个名称分别为Labell和Label2的标签,两个名称分别为Textl和Text2的文本框控件和两个名称分别为Commandl和Comma
admin
2009-03-26
47
问题
(1)在考生文件夹下有工程文件sj3.vbp及窗体文件sj3.frm,该程序是不完整的。在名称为Forml的窗体上有两个名称分别为Labell和Label2的标签,两个名称分别为Textl和Text2的文本框控件和两个名称分别为Commandl和Command2的命令按钮。该程序的主要功能是求从1到用户输入的任意自然数n的偶数的累加和。本题要求刚启动工程时,“计算”和“清空”按钮均为灰色,可以在Textl文本框内输入任意自然数(n值太大时,运算时间将很长,建议不超过9位)。在输入数的同时“计算”变为可用;当计算完成后.“计算”变为不可用;当输人为非数值时,累加结果为0。单击“计算”可以在Text2中显示累加和,且该框内的文字不可修改;同时“计算”变灰。“清空”变为可用。单击“清空”,输入框和显示框均被清空,同时“计算”和“清空”变为不可用。如图56—3所示。
注意:请在有“?”号的地方填入正确内容,然后删除“?”及代码前的所有注释符(即“’”号),但不能修改其他部分。存盘时不得改变文件名和文件夹。
(2)在考生文件夹中有文件sj4.vbp及其窗体文件sj4.frm,窗体已经设计好,要求考生用If语句编写程序,使得程序运行。窗体上有两个复选框,名称分别为Checkl和Check2。标题分别为“ItelTll”和“Itern2”;两个单选按钮,名称分别为Optionl和Option2。标题分别为“选择”和“其他”;一个名称为Labell、Caption属性为空的标签;一个名称为Commandl、标题为“显示”的命令按钮,一个名称为Textl的文本框,Text属性为空。要求程序运行后,对选中Optionl时checkl和Check2可用,Textl也可用,当选中Option2的时候,Textl可用,Checkl和claeck2不可用,然后单击显示按钮.可在窗体上显示相应的信息,如选中Optionl,则显示选中复选框的信息,选择Option2则显示Textl中的信息。程序运行时的界面如图56—4所示。
注意:不得使用任何变量。存盘时不得改变文件夹和文件名。
选项
答案
(1)根据题意,将一个Label控件、两个Text控件和两个Command控件添加到窗体上,Label的Caption属性为“求1到用户输入数之间的所有偶数之和,并将结果显示出来。”,Text的名称分别为Textl和Text2、Text属性分别为空和Text2,Text2的Enable属性为False,Command的名称分别为Commandl和Command2、Caption属性分别为“计算”和“清空”。双击Commandl命令按钮,编写如下代码: Private Sub Commandl_Click() Dim a As Integer Dim total As Long Dim i As Integer a=Val(Textl.
Text
) ’将Textl中的数据读入,放到a中 total=0 For i=1 To a’利用For循环逐个判断 If i Mod 2=0 Then’当判断是偶数时 total=total+i’则相加 End If Next i Text2.Text=total’将结果写入Text2中 Commandl.Enabled=False ’Commandl不可用 End Sub Private Sub Command2一Click() Textl.Text="" ’Textl清空 Text2.Text="" ’Text2清空 Commandl.Enabl ed=False ’Commandl不可用 Command2.Enabled=False ’Command2不可用 End Sub Priyate Sub Text1_Change() Commandl.Enabled=True’Commandl可用 Command2.Enabled=True ’Command2可用 End Sub 单击[*]按钮运行程序,并按要求保存。 (2)按要求设计好窗体后,双击Commandl命令按钮打开代码窗口,补充完整后的代码如下: Private Sub Commandl_Click() Dim str As String str="" If Optionl.Value=True Then’如果选择的是Optionl If Checkl.Value=1 Then’则判断选中的复选按钮 str=str+Checkl.
Caption
’如果选中Checkl,则显示Iteml End If If Check2.Value=1 Then’如果选中Check2 str=str+Check2.
Caption
’则显示Item2 End If C1s Print str’在窗体上打印出来 Else,’如果选择的是Option2 Cls Print Textl.Text’则显示Textl的内容 End If End Sub Private Sub Optionl_Click() ’单击Optionl Textl.Enabled=
False
’Textl不可用 Checkl.Enabled=True’Checkl可用 Check2.Enabled=True ’Check2可用 End Sub Private Sub Option2_Click() Textl.Enabled=True Checkl.Enabled=False Check2.Ena bled=False End Sub 单击[*]按钮运行程序,并按要求保存。
解析
转载请注明原文地址:https://kaotiyun.com/show/UV1p777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
以下内容属于存储在计算机内有结构的数据集合的是()。
下列属于Applet运行过程中的是()。
下列语句段将输出字符’*’的个数为()。inti=100;while(1){i--;if(i==0)break;cout<<’*’;}
执行下面的程序段后,x的值为()。publicclassSun{publicstaticvoidmain(Stringargs[]){intx=5;for(inti=
执行下列程序时,会产生什么异常publicclassTest{publicstaticvoidmain(Stringargs[]{intd=101;intb=220;longa=
下列不属于虚拟机执行过程的特点的是
下列有关Java源代码文件三要素的说法正确的是______。
设有n元关系R及m元关系S,则关系R与S经笛卡儿积后所得新关系是一个()元关系。
下列不属于J2SDK命令的是()
关于文件名的处理中,测试当前文件是否目录用【】函数。
随机试题
数字局和数字局之间,采用数字二线传输方式。
患者饮食过量,脘腹胀满疼痛,最宜选用
休克的发生和发展中,常被累及的因素是
A.增溶剂B.防腐剂C.矫味剂D.着色剂E.潜溶剂液体制剂中,苯甲酸属于()
数理统计研究证明,在下面()情况下,质量特性检测数据趋于正态分布。
消除外部性的方法包括()。
A公司因不能清偿到期债务,且明显缺乏清偿能力,主动向人民法院申请破产。2016年4月1日,人民法院裁定受理A公司破产申请,并指定某会计师事务所为管理人。管理人在清理公司资产过程中发现,A公司的股东甲于2014年3月认缴增资200万元,根据公司章程规定,甲
钙在人体内有哪些生理功能()。
根据现行宪法,下列关于我国行政区域划分的表述,正确的有()(2016年非法学综合课多选第58题)
Inthefollowingtext,somesentenceshavebeenremoved.ForQuestions41-45,choosethemostsuitableonefromthelist(A、B、C、
最新回复
(
0
)