首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt4.vbp。请在窗体上画一个组合框,名称为Cbl,并输入三个列表项:”3”、”7”、”11”(列表项的顺序不限,但必须是这三个数字);画一个名为Textl的文本框;再画一个标题为”计算”、名称为Cl的命令按钮,如图2-16
在考生文件夹下有一个工程文件sjt4.vbp。请在窗体上画一个组合框,名称为Cbl,并输入三个列表项:”3”、”7”、”11”(列表项的顺序不限,但必须是这三个数字);画一个名为Textl的文本框;再画一个标题为”计算”、名称为Cl的命令按钮,如图2-16
admin
2013-10-18
22
问题
在考生文件夹下有一个工程文件sjt4.vbp。请在窗体上画一个组合框,名称为Cbl,并输入三个列表项:”3”、”7”、”11”(列表项的顺序不限,但必须是这三个数字);画一个名为Textl的文本框;再画一个标题为”计算”、名称为Cl的命令按钮,如图2-169所示。请编写适当的事件过程,使得程序运行时,在组合框中选定一个数字后,单击”计算”按钮,则计算5000以内能够被该数整除的所有数之和,并放入Textl中。最后,按原文件名存盘。
提示:由于计算结果较大,应使用长整型变量。
注意:考生不得修改窗体文件中已经存在的程序,在结束程序运行之前,必须至少进行一次计算。必须用窗体右上角的关闭按钮结束程序,否则无成绩。
选项
答案
步骤1:打开考生文件夹下的本题工程文件sjt4.vbp。步骤2:在窗体Forml中加入一个组合框、一个文本框和一个命令按钮,分别设置它们的相关属性,其属性及值如表3-96所示。 [*] 步骤3:双击窗体Forml中的”计算”按钮,打开代码编辑窗口,输入如下代码: 参考代码: Private Sub Cl_Click( ) Dim n As Integer,k As Integer,s As Long n=Val(Cbl.Text) s=0 For k=n To 50 00 If k/n= Int(k/n)Then s = s + k End If Next k Textl.Text=s End Sub 步骤4:按要求将文件保存至考生文件夹中。 步骤5:按<F5>键键运行程序,从列表框中选择一项,单击”计算”按钮,单击程序右上角的关闭按钮结束程序。
解析
转载请注明原文地址:https://kaotiyun.com/show/VHQp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
对长度为n的线性表排序,在最坏情况下,比较次数不是n(n-1)/2的排序方法是()。
(1)在名称为Forml的窗体上画一个框架、一个文本框、一个命令按钮。框架的名称为Framel,标题为“框架”。文本框在Frame1框架中,名称为Text1、标题为“模拟试题”。命令按钮的名称为Commandl、标题为“屏蔽”。编写适当的事件过程,当程序运
(1)在窗体上设置两个标签,名称分别为Labell与Label2、标题分别为“当前时间为:”和空;要求当单击窗体时,Label2显示当前时间。请编写相应的程序代码来完成这个功能。程序运行时的窗体界面如图21—3所示。注意:要求考生在编写完程序后,
在考生文件夹下有一个工程文件sj5.vbp,在Form1的窗体中有一个标签,3个命令按钮和一个计时器。程序的功能是:运行时,单击“开始计数”按钮,就开始计数,每隔1秒,标签中的数加l,且该按钮不可用,“倒数计数”按钮可用;单击“倒数计数”按钮时,则倒数计数
在窗体上画一个命令按钮和一个文本框(名称分别为Command1和Text1),并把窗体的KeyPreview属性设置为True,然后编写如下代码:DimSaveAllAsStringPrivateSubForm_Load()Show
软件工程是计算机科学中的一个分支,其主要思想是在软件生产中用【】的方法替代传统手工方法。
下面不属于软件工程的3个要素的是______。
设有以下循环结构:Do循环体LoopWhile<条件>则以下叙述中错误的是______。
以下叙述中错误的是
下列对于软件测试的描述中正确的是
随机试题
如图所示的带权无向图的最小生成树的权为()
企业持有长期股权投资的目的是_______________。
下列属于急性重型肝炎病理特点的是
货物残损单(broken&damagedcargolist)
商业银行开展个人理财业务应遵守的基本原则是()。
对成人前期个体的事业来说,非智力因素产生哪几个方面的作用?()
下列命题中的假命题是[].
甲、乙、丙三人共同盗窃某文物机构的文物。甲负责放风,乙负责窃取文物,丙负责运输销售赃物。甲、乙、丙三人的共同犯罪属于()。
假设关系R(A1,A2,A3)上的一个分解为ρ={(A1,A2),(A1,A3)},下表是关系R上的一个实例,根据实例推出只的函数依赖集F为(1),分解ρ(2)。(2)
Acarismadeupofmorethan30000parts.Eachpartinanewcarisasweakasababy.Soanewcarrequirespropercareands
最新回复
(
0
)