首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生文件夹下有一个工程文件sjt3.vbp,在程序运行时,单击“输入整数”按钮,输入一个整数,并在窗体上显示此整数的所有不同因子和因子个数。图1是输入53后的结果,图2是输入100后的结果。已经给出了全部控件和程序,但程序不完整。 要求:请
(1)在考生文件夹下有一个工程文件sjt3.vbp,在程序运行时,单击“输入整数”按钮,输入一个整数,并在窗体上显示此整数的所有不同因子和因子个数。图1是输入53后的结果,图2是输入100后的结果。已经给出了全部控件和程序,但程序不完整。 要求:请
admin
2017-09-20
26
问题
(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全国计算机二级
相关试题推荐
下列程序是将两个文本框(text1和text2)的内容进行组合,组合后的结果在图片框(Pic1)显示出来。PrivateSubCommand1_Click()DimslAsString,s2AsStringS1
滚动条控件中,用来设置鼠标单击滚动箭头时滚动条移动的大小的属性是______。
如果A为整数且|A|>=10,则打印“OK”,否则打印“Error”,表示这个条件的单行格式If语句是()。
列表框的______属性代表着列表框中项目的数目。
建立打开文件、保存文件、颜色、字体、打印对话框所使用的方法分别为【】、【】、ShowColor、ShowFont和ShowPrinter。
在窗体上画一个名称为Text1的文本框,并编写如下程序:PrivateSubForm_Load()ShowText1.Text=""Text1.SetFocusEndSub
CommonDialog控件可以显示______种对话框。
以下程序计算自然数e的值,要求精确到1015,阅读下列程序。已知e的计算公式为:e=1+1/1!+1/2!+…+1/n!。请在【】和【】处填上正确内容。PrivateSubCommandl_Click()【】n=0:term
一个完整的程序必须完成3个层次的过程,它们分别是编码、测试和【】。
假定建立了一个工程,该工程包括两个窗体,其名称(Name属性)分别为Forml和Form2,启动窗体为Forml。在Forml上画一个命令按钮Commandl,程序运行后,要求当单击该命令按钮时,Forml窗体消失,显示窗体Form2,请在横线处将程序补充
随机试题
商标的作用有()
对没收财产的判决,《刑事诉讼法》规定的执行机关是
N5N10-CH2-FH4参与下列哪种代谢合成?
历史唯物主义充分肯定人民群众在社会历史发展中的地位和作用。它强调人民群众是历史的()。
频率为100Hz,传播速度为300m/s的平面简谐波,波线上两点振动的相位差为,则此两点相距为()m。
监察机关是人民政府行使监察职能的机关,依法对国家行政机关、国家公务员和国家行政机关任命的其他人员实施监察,这是在()中规定的。
某企业2001年5月计提折旧额为70万元。6月增加了一项固定资金A,A入账价值为12万元,预计使用4年,残值为05同时6月减少了固定资产B,B原来每月应提0.6万元,则6月份该企业应提折旧为()万元。
某公司2013年度销售收入为4800万元,年初流动资产为800万元,年末流动资产为600万元;年初净资产为2000万元,年末净资产为2800万元,净利润300万元;年初的资产总额为6000万元,年末的资产总额为7500万元;年初应收账款为500万元,年末应
企业董事会或经理办公会根据企业发展战略和预算期经济形势的初步预测,在决策的基础上,提出下一年度企业预算目标,确定预算编制的政策,并下达给各预算执行单位。()
刘明活泼好动,善于交际,思维敏捷,易接受新事物,兴趣广泛,注意力容易转移,他的气质类型属于()。
最新回复
(
0
)