首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生文件夹下有一个工程文件sjt3.vbp,在程序运行时,单击“输入整数”按钮,输入一个整数,并在窗体上显示此整数的所有不同因子和因子个数。图1是输入53后的结果,图2是输入100后的结果。已经给出了全部控件和程序,但程序不完整。 要求:请
(1)在考生文件夹下有一个工程文件sjt3.vbp,在程序运行时,单击“输入整数”按钮,输入一个整数,并在窗体上显示此整数的所有不同因子和因子个数。图1是输入53后的结果,图2是输入100后的结果。已经给出了全部控件和程序,但程序不完整。 要求:请
admin
2017-09-20
52
问题
(1)在考生文件夹下有一个工程文件sjt3.vbp,在程序运行时,单击“输入整数”按钮,输入一个整数,并在窗体上显示此整数的所有不同因子和因子个数。图1是输入53后的结果,图2是输入100后的结果。已经给出了全部控件和程序,但程序不完整。
要求:请去掉程序中的注释符,把程序中的?改为正确的内容。不能修改程序中的其他部分,也不能修改控件的属性。最后用原来的文件名保存工程文件和窗体文件。
(2)在考生文件夹下有一个工程文件sjt4.vbp。在其窗体中“待选城市”下的List1列表框中有若干个城市名称。程序运行时,选中List1中若干个列表项(如图1所示),单击“选中”按钮则把选中的项目移到List2中,单击“显示”,则在Text1文本框中显示这些选中的城市(如图2所示)。已经给出了所有控件和程序,但程序不完整。
要求:请去掉程序中的注释符,把程序中的?改为正确的内容,使其能正确运行,但不能修改程序中的其他部分和控件属性。最后用原来的文件名保存工程文件和窗体文件。
选项
答案
(1) 【操作步骤】 步骤1:打开本题工程文件。 步骤2:打开代码编辑窗口,去掉程序中的注释符,将问号改为正确的内容。 Private Sub Command1_Click() Dim n As Integer ClS’清空窗体 n=InputBox(”请输入一个整数”)’In-putBox返回值赋给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=n Then’当整除余数为0时则一定是它的因子 s=s+1 Print k End If Next k fun =a’返回因子总数 End Function 程序结束 步骤3:调试并运行程序,关闭程序后按题目要求存盘。 (2) 【操作步骤】 步骤1:打开本题工程文件。 步骤2:打开代码编辑窗口,去掉程序中的注释符,将问号改为正确的内容。 Private Sub Command1_Click() Dim k% For k=List1.ListCount一1 To 0 step-1 ’k从最大到0,则步长应为一1 If List1.Selected(k)=True Then List2. AddItem List1.List(k)’添加项到List2中 List1.RemoveItem k ’通过下标删除List1中的项目 End If Next k End Sub Private Sub Command2 Click() 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/GkGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
软件是程序、数据和______的集合。
以下叙述中错误的是
单击窗体上的命令按钮Command1,程序的输出为【】。PrivateSubCommand1_Click()a="AbC"b="dEF"c=UCase(A)+LCase(B)PrintAsc(C)End
在窗体上有一个文本框控件,名称为TextTime;一个计时器控件,名称为Timed。要求每一秒在文本框中显示一次当前的时间。程序为:PrivateSubTimerl_______TextTime.text=TimeEndSu
以下程序用随机函数模拟掷骰子,统计掷50次骰子出现各点的次数。阅读该程序,并在【】和【】处填上正确的内容。PrivateSubCommand1_Click()Dimd(6)fori=1To50n=【】d(n)=【
下面的程序执行时,将把当前目录下的顺序文件smtext1.txt的内容读入内存,并在文本框Text1中显示出来。请填空。PrivateSubCommandl_Click()DiminDataAsString
在链表的运算过程中,能够使空表与非空表的运算统一的结构是______。
窗体上画一个文本框(其名称为Text1)和一个标签(其名称为Label1)。要求程序运行后,如果在文本框中输入字符,则立即在标签中显示相同的内容。以下可以实现上述操作的事件过程是______。
在窗体上画一个命令按钮Command1,然后编写如下程序:PrivateSubCommand1_Click()Dimarr()AsIntegerReDimarr(3)Fori=0To3al
随机试题
在Windows的资源管理器中,利用“编辑”菜单中的“重命名”既可以对文件改名,也可以文件夹改名。
既能清热解暑,又能收湿敛疮的药物是
管理方格法中的任务管理是指()
患者赵某,女,37岁,患慢性胆囊炎,入院择期行腹腔镜下胆囊摘除术。胆囊造影前一日晚上,患者饮食应为
中药提取液精制方法有
企业采用公允价值模式对投资性房地产进行后续计量,下列说法中正确的有()。
野生动物保护组织:没有买卖就没有杀戮;没有杀戮,人与自然才能和谐相处。如果以上陈述为真,以下哪一项陈述一定为真?
小张夫妇想买套房子,经过一番挑选,目标锁定某座楼的3套房。已知:这三套房子中有一套是B户型,另一套位于25楼,第三套面积为156平方米。A户型不在19楼,C户型也不在32楼。150平方米的房子不在19楼。145平方米的不是A户型。150平方米的不是C户型。
ManyforeignerswhohavenotvisitedBritaincallalltheinhabitantsEnglish,fortheyareusedtothinkingoftheBritishIsle
It’sHardtoCleanBigDataA)KarimKeshayjee,aTorontophysiciananddigitalhealthconsultant,crunchesmountainsofdatafro
最新回复
(
0
)