首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt3.vbp,在程序运行时,单击“输入整数”按钮,输入一个整数,并在窗体上显示此整数的所有不同因子和因子个数。图1是输入53后的结果,图2是输入100后的结果。已经给出了全部控件和程序,但程序不完整。 要求:请去掉程序中的注
在考生文件夹下有一个工程文件sjt3.vbp,在程序运行时,单击“输入整数”按钮,输入一个整数,并在窗体上显示此整数的所有不同因子和因子个数。图1是输入53后的结果,图2是输入100后的结果。已经给出了全部控件和程序,但程序不完整。 要求:请去掉程序中的注
admin
2019-06-11
55
问题
在考生文件夹下有一个工程文件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全国计算机二级
相关试题推荐
在窗体上画一个名称为Text1的文本框,并编写如下程序:OptionBase1PrivateSubForm_Click()DimarrDimStartAsInteger,FinishAsIntegerSumAsInteger
以下关于菜单的叙述中,错误的是
如果要定义一个窗体级变量,定义变量语句的位置应该是
有如下过程代码:Subvar_dim()StaticnumaAsIntegerDimnumbAsIntegernuma=nurna+2:numb=numb+1:printnuma;numbEndSub连续3次调用vardim过
下列说法中,错误的是
为了使每秒钟发生一次计时器事件,可以将其Interval属性设置为
判断复选框是否被选中的属性为
以下关于变量作用域的叙述中错误的是
在窗体上有一个名称为Drivel的驱动器列表框,一个名称为Dirl的目录列表框,一个名称为Filel的文件列表框,两个名称分别为Label1、Label2的标签(标题分别为空白和“共有文件”)。要使得驱动器列表框与目录列表框、目录列表框与文件列表框同步变化
以下说法中正确的是
随机试题
简述刑罚与其他法律制裁方法的区别。
根据《建筑法》规定,建设单位在领取施工许可证后,应当在()个月内开工。
在生产经营单位的生产场所中,生产设备存有9.5t10%的甲醛溶液,管道系统存有0.5t10%的甲醛溶液,储存区内,储存设备存有25t12%的甲醛溶液,甲醛的临界量是50t。该生产经营单位属于()。
纯公共物品具有()。
企业收回的委托加工的应税消费品,如果用于连续生产应税消费品,按税法规定已交纳的消费税可以抵扣应纳消费税。( )
各类测评方法在效度、公平程度、实用性和成本四项指标上使用的方法包括()。
真正美的东西,都是充满感情的。面对美的东西,我们常常一往情深,或者一见钟情。而感情这个东西很奇怪,一方面,它是个人的,富有极端强烈的个性色彩,只有达到高度个性化的时候,它才是最真挚的,正是因为这样,感情这个东西,常常是隐秘的。人与人之间,难于传达,所谓父不
根据相对市场占有率和市场增长率,把企业产品或业务划分为明星、现金牛、问题和瘦狗四种基本类型,分析企业相关经营业务之间现金流量的平衡问题,从而决定资源配置方向和重点的方法的是()。
某公司的网络地址为202.117.1.0,耍划分成5个子网,每个子网最少20台主机,则可用的子网掩码是________________。
ImaginationThedecayofsenseinmenwakingisnotthedecayofthemotionmadeinsense,butanobscuringofitinsuchman
最新回复
(
0
)