首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt4.vbp。请在窗体上添加一个组合框,名称为cb1,并输入三个列表项:“3”、“7”、“11”(列表项的顺序不限,但必须是这三个数字);添加一个名为Text1的文本框;再添加一个标题为“计算”、名称为C1的命令按钮,如图所
在考生文件夹下有一个工程文件sjt4.vbp。请在窗体上添加一个组合框,名称为cb1,并输入三个列表项:“3”、“7”、“11”(列表项的顺序不限,但必须是这三个数字);添加一个名为Text1的文本框;再添加一个标题为“计算”、名称为C1的命令按钮,如图所
admin
2019-06-11
51
问题
在考生文件夹下有一个工程文件sjt4.vbp。请在窗体上添加一个组合框,名称为cb1,并输入三个列表项:“3”、“7”、“11”(列表项的顺序不限,但必须是这三个数字);添加一个名为Text1的文本框;再添加一个标题为“计算”、名称为C1的命令按钮,如图所示。请编写适当的事件过程,使得在程序运行时,在组合框中选定一个数字后,单击“计算”按钮,则计算5000以内能够被该数整除的所有数之和,并放入Text1中。最后,按原文件名存盘。
提示:由于计算结果较大,应使用长整型变量。
注意:考生不得修改窗体文件中已经存在的程序,在结束程序运行之前,必须至少进行一次计算。并且必须用窗体右上角的关闭按钮结束程序,否则无成绩。
选项
答案
[操作步骤] 步骤1:打开本题工程文件,按照题目要求建立控件并设置组合框控件属性,如图3.19所示。程序中用到的控件及属性见表3.11。 [*] 步骤2:打开代码编辑窗口,在代码编辑窗口指定位置编写以下代码。 参考代码 Private Sub C1 Click() Dim sum As Long Dim n As Integer Dim i As Integer n=Val(cb1.Text)’读取选中的数字并通过函数Val转换为数值 For i=n To 5000’从本身开始循环查找 If i Mod n=0 Then sum=sum+i’断是否能被该数整除并求和 End If Next i Text1.Text=sum’在Text1中显示 End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/RNUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个命令按钮(名称为Command1),并编写如下代码:FunctionFun1(ByValaAsInteger,bAsInteger)AsIntegerDimtAsIntegert=a-b:b=t+a:Fun1=t+b
在窗体上画一个组合框,其名称为Combo1,然后编写如下事件过程:PrivateSubForm_Load()Combo1.Text="1"Fori=1To10Sum=Sum+iNextiCombo1.Text=SumEndSub程
某人为计算n!(0<n<=12)编写了下面的函数过程:PrivateFunctionfun(nAsInteger)AsLongDimpAsLongp=1Fork=n-1To2Step-1p=p*kNextkfun=pEn
窗体上有1个名称为Text1的文本框,1个名称为Label1的标签。程序运行后,如果在文本框中输入信息,则立即在标签中显示相同的内容。以下可以实现上述操作的事件过程为
命令按钮Command1的MouseUp事件过程结构如下:PrivateSubCommand1_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)EndSub则
下列事件的事件过程中,参数是输入字符ASCII码的是
下面不属于软件工程的3个要素是
设程序中有以下语句:MsgBox"Visual",,"Basic","等级考试",2执行该语句后,显示一个信息框,以下关于该信息框的叙述中,正确的是
已知:x=-6y=39则表达式"y\x*Sgn(x)"的值为
能正确表述“x为大于等于5并且小于20的数”的VisualBasic表达式是
随机试题
QSC&Vhasbeenthefoundationthat【36】McDonald’ssuccess.QSC&V【37】theMcDonald’s【38】ofQuality,Service,Cleanliness,andValue
某工业园区,主营化工、新能源材料和装备制造三大主导产业,面积27km2。园区内电气自动化厂房的某电缆夹层采用点型感烟火灾探测器,西北角的柴油储罐采用缆式线型感温火灾探测器,各楼层配电房及园区变电站配电柜采用线型光束感烟火灾探测器,园区所有办公大楼设置的是点
企业生产的下列消费品,无需缴纳消费税的是()。
下列关于风险管理有效性标准的作用,说法中正确的有()。
物业服务收费实行酬金制的,物业服务支出应当全部用于物业服务合同约定的支出,物业服务支出年度结算亏损的,由()承担。
已知某五金公司生产的100件螺丝中有95件合格品,5件不合格品,现从中任意抽取5件进行检查。抽出的5件全是不合格品的抽法有()种。
()可以观察数据在超负荷环境中运行,程序是否能够承担。
关系表中的每一横行称为一个
Studentscanchoosefromabouttenessaystitlesfortheirfirstassignment.
A、Shetookcareofit.B、Shereportedittoothers.C、Shedidnothingaboutit.D、Shehaditrepaired.C女士说,洗碗机坏了,她们向房东太太(Ms.Com
最新回复
(
0
)