首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(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
27
问题
(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://jikaoti.com/ti/NLq0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下面程序的输出结果是()。publicclassSun{publicstaticvoidmain(Stringargs[]){intn=4,sum=0;
下面几种调试方法中不适合调试大规模程序的是()。
下列关于线程调度的叙述中,错误的是()。
下列赋值语句中错误的是()。
对表进行水平方向和垂直方向的分割,分别对应的关系运算是()
在软件工程中,白箱测试法可用于测试程序的内部结构。此方法将程序看做是()
在AWT组件中,【】类可以实现带标题和边界的窗口,通常用于接收用户附加信息或发布通知,它是Window类的子类。
数组arr经过下面的操作后结果为()。int[]arr={1,2,3};for(inti=0;i<2;i++)arr[i]=0;
若有以下定义inta[]={1,2,3,4,5,6,7};charc1=’b’,c2=’2’;则数值不为2的表达式是()。
若x、a、b和c均是int型变量,则执行表达式x=(a=1,b=2)后的结果是()。
随机试题
脑电图
A.假膜性炎B.增生性炎C.卡他性炎D.坏死性炎急性细菌性痢疾的特征性病变是
Cancerisconsideredamoderndisease,thoughitwasnotunknowninancienttimes.(TheconditionwasnamedbytheGreeksfromth
单采浓缩血小板的数量每袋为
A.大气压力B.吸附力C.牵张力D.附着力E.粘着力不同分子之间的吸引力被称为
下列管理职能中,具有主体广泛性特点的是()。
根据《招投标法》,由建设单位指定的5名行政领导和1名技术专家组成的评标委员会,存在的错误有()。
人民警察的义务来源于()。
目前,我国正在进行文化体制改革与经济结构调整,发展文化经济有助于经济结构调整。换言之,_______。文化发展了,经济也就转型升级了,文化份额的增加和文化产品质量的提高对一个国家和地区经济的转型升级有巨大的直接作用。填入画横线部分最恰当的一句是:
Theprovisionofpositiveincentivestoworkinthenewsocietywillnotbeaneasytask.【F1】Butthemostdifficulttaskofall
最新回复
(
0
)