首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt3.vbp,在程序运行时,单击“输入整数”按钮,输入一个整数,并在窗体上显示此整数的所有不同因子和因子个数。图1是输入53后的结果,图2是输入100后的结果。已经给出了全部控件和程序,但程序不完整。 要求:请去掉程序中的注
在考生文件夹下有一个工程文件sjt3.vbp,在程序运行时,单击“输入整数”按钮,输入一个整数,并在窗体上显示此整数的所有不同因子和因子个数。图1是输入53后的结果,图2是输入100后的结果。已经给出了全部控件和程序,但程序不完整。 要求:请去掉程序中的注
admin
2019-06-11
64
问题
在考生文件夹下有一个工程文件sjt3.vbp,在程序运行时,单击“输入整数”按钮,输入一个整数,并在窗体上显示此整数的所有不同因子和因子个数。图1是输入53后的结果,图2是输入100后的结果。已经给出了全部控件和程序,但程序不完整。
要求:请去掉程序中的注释符,把程序中的?改为正确的内容。不能修改程序中的其他部分,也不能修改控件的属性。最后用原来的文件名保存工程文件和窗体文件。
选项
答案
[操作步骤] 步骤1:打开本题工程文件。 步骤2:打开代码编辑窗口,去掉程序中的注释符,将问号改为正确的内容。 参考代码(画下划线部分是需填入的内容) Private Sub Command1 Click() Dim n AS Integer Cls’清空窗体
n
=InputBox("请输入一个整数")’InputBox返回值赋给n Print"因子数=";fun(n)’调用fun函数并打印结果 End Sub Function fun(m As Integer) Dim S As Integer S=0 For k=1 To Abs(m)/2 If m Mod k=
0
Then’当整除余数为0时则一定是它的因子 S=S+1 Print k End If Next k
fun=s
’返回因子总数 End Function 程序结束 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/xAUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
可以产生30~50(含30和50)之间的随机整数的表达式是
工程文件中包含一个模块文件和一个窗体文件。模块文件的程序代码是:PublicxAsIntegerPrivateyAsInteger窗体文件的程序代码是:DimaAsIntegerPrivateSubCommand1_Clic
在标准模块中用Public关键字定义的变量,其作用域为
某人编写了下面的程序,希望能把Textl文本框中的内容写到out.txt文件中PPrivateSubCommand1_Click()Open"out.txt"ForOutputAs#2Print"Text1"Close#2EndSub
下面关于VB数据文件的叙述中错误的是
要使两个单选按钮属于同一个框架,下面三种操作方法中正确的是①先画一个框架,再在框架中画两个单选按钮②先画一个框架,再在框架外画两个单选按钮,然后把单选按钮拖到框架中③先画两个单选按钮,再画框架将单选按钮框起来
下列说法中,错误的是
在考生文件夹下有一个工程文件sjt5.vbp,其窗体上有两个标题分别为“读数据”和“统计”的命令按钮。请画两个标签,其名称分别足Label1和Label2,标题分别为“单词的平均长度为”和“最长单词的长度为”;再画两个名称分别为Textl和Text2、初始
以下说法中正确的是
以下说法中正确的是
随机试题
A、Twodays.B、Thewholeafternoon.C、Awholeclay.D、Thewholemorning.C
腹部CT扫描技术不适用于
在室温下于2~3天即可失去传染性的是( )。在含有新鲜血液的培养基中能够生长良好的是( )。
痰结核菌检查由阳性转为阴性表示病人
双代号时标网络计划中,若波形线起点和终点所对应的时标值分别为3,7,则表示( )。
混凝土浇筑前,要检查模板支架的()以及检查钢筋及预埋件的位置,规格数量,并做记录。
关于保险组织的终止,我国《保险法》有明确规定,以下说法正确的是()。[2005年真题]
蛛丝马迹:鸟迹虫丝
模因指在语言、观念、信仰、行为方式等的传递过程中,与基因在生物进化过程中所起作用类似的那个东西,即通过非遗传方式一代一代传承下来的文化单元。根据上述定义,下列不属于模因的是:
Evenastheeconomyimproves,ajoblessexecutivemayfaceuptoayearormoreofunemployment.Thisisalotoftime,especial
最新回复
(
0
)