首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生文件夹下有一个上程文件sjt3.vbp,在程序运行时。单击“输入整数”按钮,输入一个整数,并在窗体上显示此整数的所有不同因子和因予个数。图1是输入53后的结果,图2是输入100后的结果。已经给出了全部榨件和程序,但程序不完整。 要求:请
(1)在考生文件夹下有一个上程文件sjt3.vbp,在程序运行时。单击“输入整数”按钮,输入一个整数,并在窗体上显示此整数的所有不同因子和因予个数。图1是输入53后的结果,图2是输入100后的结果。已经给出了全部榨件和程序,但程序不完整。 要求:请
admin
2016-09-06
71
问题
(1)在考生文件夹下有一个上程文件sjt3.vbp,在程序运行时。单击“输入整数”按钮,输入一个整数,并在窗体上显示此整数的所有不同因子和因予个数。图1是输入53后的结果,图2是输入100后的结果。已经给出了全部榨件和程序,但程序不完整。
要求:请去掉程序中的注释符,把程序中的?改为正确的内容。不能修改程序中的其他部分,也不能修改控件的属性。最后用原来的文件名保存工程文件和窗体文件。
(2)在考生文件夹下有一个工程文件sjt4.vbp。在其窗体中“待选城市”下的List1列表框中有若干个城市名称。程序运行时,选中List1中若干个列表项(如图1所示),单击“选中”按钮则把选中的项目移到List2中,单击“显示”,则在Text1文本框中显示这些选中的城市(如图2所示)。已经给出了所有控件和程序,但程序小完整。
要求:请去掉程序中的注释符,把程序中的?改为正确的内容,使其能正确运行,但不能修改程序中的其他部分和控件属性。最后用原来的文件名保存工程文件和窗体文件。
选项
答案
(1)【操作步骤】 步骤1:打开本题工程文件。 步骤2:打开代码编辑窗口,去掉程序中的注释符,将问号改为正确的内容。 参考答案 Private Sub Commandl 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:调试并运行程序,关闭程序后按题目要求存盘。 (2)【操作步骤】 步骤1:打开本题工程文件。 步骤2:打开代码编辑窗口,去掉程序中的注释符,将问号改为正确的内容。 参考答案 Private Sub Command1_C1ick() Dim k% For k=List1.ListCount-1 To 0 Step-1 ’k从最大到0,则步长应为-1 If LiSt1.Selected(k)=True Then Li s t2.AddItem List1.List’添加项到List2中 List1.RemoveItem k ’通过下标删除List1中的项目 End If Next k End SUb Private Sub Command2 C1ick() Dim k% Text1="已经选中的城市有:" For k=0 To LiSt2.LiStCount-1 Step 1 Text1=Text1.Text&""&List2.List(k) ’将List2中的项目连接在Text1中的内容之后 Next k End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/0ZLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个文本框(其Name属性为Text1),然后编写如下事件过程:PrivateSubForm_Load()Text1.Text=""Text1.SetFocusFori=1To9Sum=Sum+i
下面程序的功能是产生10个小于100(不含100)的随机正整数,并统计其中5的倍数所占比例,但程序不完整,请补充完整。SubPR() Randomize Dima(10) Forj=1To10 a(i)=In
下面的程序运行时,为了在窗体上输出“VB6.0”,应在窗体上执行的操作是()。PrivateSubForm_MouseDown(BuRonAsInteger,shiftAsInteger,xAsSingle,YAsSin
下面程序的运行结果是______。程序的功能是_______。PublicFunctionmyfun(m,n)Dowhilem>n Dowhilem>n:m=m-n:Loop DoWhilen
下列叙述中,不符合良好程序设计风格要求的是
下列程序运行时,若输入123,输入对话框的提示信息是______。PrivateSubCommand1_Click()X1=InputBox("请输入") MsgBox(X1)EndSub
设a=“VisualBasic”,下面语句中可使b=“Basic”的是()。
循环链表的主要优点是
符合结构化原则的三种基本控制结构是顺序结构、____________和循环结构。
在VisualBasic中,下列运算符中优先级最高的是______。
随机试题
对营销环境机会可以从哪两方面分析?()
下列选项中不属于文化的社会功能的是()。
我们所吃的食物中最主要的必需脂肪酸是
所有来自中国的留学生,都住在校园内;所有住在校园内的学生,都必须参加运动会;有些中国留学生加入了学生会;有些心理学专业的学生也加入了学生会;所有心理学专业的学生都没有参加运动会。由这些不能推出以下哪项结论?
JTT,又称准时制生产,其基本原理是以需求决定供应,即供给方根据需方的要求,按照需方需求的()等要求,将物品配送到指定的地点。
毫无疑问,采用多媒体课件进行教学能够提高教学效果。即使课件做得过于简单,只是传统的板书的“搬家”,未能真正实现多媒体的功效,也可以起到节省时间的作用。以下哪一项陈述是上面的论证所依赖的假设?()
运用实验说明影响知觉大小恒常性的因素有哪些?[东北师范大学2016]
以非法占有为目的,下列行为可以成立集资诈骗罪的有()
操作系统中,对信号量S的P原语操作定义中,使进程进入相应等待队列等待的条件是()。
实体是信息世界中广泛使用的一个术语,它用于表示______。
最新回复
(
0
)