首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt3.vbp,在程序运行时,单击“输入整数”按钮,输入一个整数,并在窗体上显示此整数的所有不同因子和因子个数。图1是输入53后的结果,图2是输入100后的结果。已经给出了全部控件和程序,但程序不完整。 要求:请去掉程序中的注
在考生文件夹下有一个工程文件sjt3.vbp,在程序运行时,单击“输入整数”按钮,输入一个整数,并在窗体上显示此整数的所有不同因子和因子个数。图1是输入53后的结果,图2是输入100后的结果。已经给出了全部控件和程序,但程序不完整。 要求:请去掉程序中的注
admin
2019-06-11
58
问题
在考生文件夹下有一个工程文件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全国计算机二级
相关试题推荐
窗体上有一个名称为Option1的单选按钮数组,程序运行时,当单击某个单选按钮时,会调用下面的事件过程PrivateSubOption1_Click(IndexAsInteger)EndSub下面关于此过程的参数Index的叙述中正确的是
下面关于菜单的叙述中正确的是
以下关于事件、事件驱动的叙述中,错误的是
VB中有这样一类文件:该文件不属于任何一个窗体,而且仅包含程序代码,这类文件的扩展名是
如果在VisualBasic集成环境中没有打开属性窗口,下列可以打开属性窗口的操作是
某人编写了下面的程序PrivateSubCommand1_Click()DimaAsInteger,bAsIntegera=InputBox("请输入整数"):b=InputBox("请输入整数")proa:probCallp
对长度为n的线性表排序,在最坏情况下,比较次数不是n(n-1)/2的排序方法是
对长度为n的线性表作快速排序,在最坏情况下,比较次数为
以下关于图片框控件的说法中,错误的是
随机试题
公司计划在“创新产品展示及说明会”会议茶歇期间,在大屏幕投影上向来宾自动播放会议的日程和主题,因此需要市场部助理小王完善Powerpoint.pptx文件中的演示内容。现在,请你按照如下需求,在PowerPoint中完成制作工作并保存。删除演示文档中
能直接执行微指令的是()
患儿,男,1岁2个月。高热来院就诊中突然出现惊厥,抗惊厥首选
患者,女,42岁。双手部皮肤肥厚粗糙,苔藓样变,触之较硬,冬季皲裂,疼痛,瘙痒,间有糜烂和流滋,发病已3年。苔薄白,舌淡红,脉濡细无力。治疗应首选
依据《劳动合同法》的规定,对于从事接触职业危害作业的劳动者,下列情形中用人单位不得解除或终止劳动合同的是()。
如果Excel工作表中某单元格的格式为000.00,值为23.885,则显示内容为()。
下列关于商业银行“三性四自”的经营原则,说法错误的是()。
研究者按照预先确定的研究目的,合理地控制或创设一定条件,人为地变革研究对象,从而验证假设探讨教育现象因果关系的研究方法属于()。
【尼西亚大会】安徽师范大学2016年世界史真题
网络适配器完成(36)的功能。
最新回复
(
0
)