首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生文件夹下有一个工程文件sjt3.vbp.程序的功能是通过键盘输入正整数到文本框中。在“除数”框架中选择一个单选按钮,然后单击“处理数据”命令按钮,将大于文本框中的正整数,并且能够被所选除数整除的5个数添加到列表框List1中,如图所示。在窗体文
(1)在考生文件夹下有一个工程文件sjt3.vbp.程序的功能是通过键盘输入正整数到文本框中。在“除数”框架中选择一个单选按钮,然后单击“处理数据”命令按钮,将大于文本框中的正整数,并且能够被所选除数整除的5个数添加到列表框List1中,如图所示。在窗体文
admin
2017-09-20
20
问题
(1)在考生文件夹下有一个工程文件sjt3.vbp.程序的功能是通过键盘输入正整数到文本框中。在“除数”框架中选择一个单选按钮,然后单击“处理数据”命令按钮,将大于文本框中的正整数,并且能够被所选除数整除的5个数添加到列表框List1中,如图所示。在窗体文件中已经给出了全部控件,但程序不完整。
要求:请去掉程序中的注释符,把程序中的?改为正确的内容,使其实现上述功能,但不能修改程序的其他部分和控件属性,最后将修改后的文件按原文件名进行存盘。
(2)在考生文件夹下有一个工程文件sjt4.vbp。程序运行后,单击“开始”按钮,图片自上而下移动,同时滚动条的滑块随之移动。每隔0.5秒移动一次,当图片顶端移动到距窗体下边界的距离少于200时,则再回到窗体的顶部,重新向下移动,如图所示。在窗体文件中已经给出了全部控件,但程序不完整。
要求:请去掉程序中的注释符,把程序中的?改为正确的内容,使其实现上述功能,但不能修改程序的其他部分和控件属性,最后将修改后的文件按原文件名进行存盘。
选项
答案
(1) 【操作步骤】 步骤1:打开本题工程文件。 步骤2:打开代码编辑窗口中,去掉程序中的注释符“’”,将问号改为正确的内容。 Private Sub Commandl_Click() Dim Y As Integer For i=0 To 2.循环三个单选按钮 If option1(i).Value=True Then’当某个按钮被选 Y=Val(Optionl(i). Caption)’提取按钮名并转换为数值 End If Next Call calc(y)’调用子函数 End Sub Private Sub calc(Y As Integer) ClearList.执行子函数 i=1 x=Val(Textl.Text)+1 Do While i<=5’只需要显示5个数 If x Mod y=0 Then’判断x是否能被y整除 List1.AddItemx’添加满足条件的数至表 i=i+1’统计 End If x=x+1’自加,判断下次循环 Loop End Sub Private Sub ClearList()’清空列表框的项目 For k=Listl.ListCount一1 To 0 Step-1 List1.RemoveItem k Next k End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。 (2) 【操作步骤】 步骤1:打开本题工程文件。 步骤2:打开代码编辑窗口,去掉程序中的注释符“’”,将问号改为正确的内容。 Private Sub Commandl_Click() Timerl.Enabled=True End Sub Private Sub Command2_Click() Timerl.Enabled=FalSe End Sub Private Sub Form_Load() Timerl.Interval=500’设置Timer1执行间隔数,以毫秒计算 End Sub Private Sub Timerl_Timer() Picture1.Top=Picturel.Top+200’顶端位置保持一致 VScroll1.Value=Picturel.Top’ 滚动条滑块的位置与图片顶端位置保持一致 If VScroll1.Value + 200 >= Forml.Height一200 Then Picturel.Top=0’当图片顶端移动到距窗体下边界距离少于200时,则图片重新向下移动 End If End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/HkGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
以下关于保存工程的说法正确的是
编写如下事件过程:PrivateSubForm_KeyDown(KeyCodeAsInteger,ShiftAsInteger)If(ButtonAnd3)=3ThenPrint"AAAA
要获取当前驱动器,应使用驱动器列表框的()属性。
对长度为N的线性表进行顺序查找,在最坏情况下所需要的比较次数为______。
假定有如下程序代码,程序运行后,把鼠标光标移到窗体内,每单击一次,变换一种鼠标光标的形状,依次显示鼠标光标的15个属性。请在划线处将程序补充完整。PrivateSubForm_Click()StaticxAsIntegerClsPri
设窗体上有一个标签Label1和一个计时器Timer1,Timer1的Interval属性被设置为1000,Enabled属性被设置为True。要求程序运行时每秒在标签中显示一次系统当前时间。下列可以实现上述要求的事件过程是()。
单击一次命令按钮后,下列程序的执行结果为 PrivateSubCommand1_Click() DimmAsInteger,IAsInteger,x(10)AsInteger ForI=0To4:x(I)=I+1
在窗体上有一个命令按钮,然后编写如下事件过程 PrivateSubCommand1_cickc() a=InputBox("enterthefirstinteger") b=InputBox("enterthesecon
程序执行结果s的值是【】。PrivateSubsub1(ByvalpAsInteger)p=p*2EndSubPrivateSubCommand1_Click()DimiAsIntegeri=3Callsub1(i
在窗体上画一个名称为Filel的文件列表框,并编写如下程序:PrivateSubFilel_DblClick()x=Shell(Filel.FileName,1)EndSub以下关于该程序的叙述中,错误的是__
随机试题
1)______theOralApproach2)______theAudiolingualApproach3)______theCognitiveApproach4)______theNa
切除的子宫标本行病理检查,光镜下见子宫壁深肌层内有大量异型的滋养层细胞浸润,并有绒毛结构,应诊断为
关于外展型外科颈骨折的叙述错误的是:
女性,40岁,便秘10余年,加重半年,排便需要刺激性泻药,且伴左下腹腹胀,排出粪便后可缓解,进食量较前减少,体重有所下降,结肠镜未见异常,考虑肠易激综合征,但还需除外
某银行被盗,侦查机关将沈某确定为犯罪嫌疑人。在进行警犬辨认时,一“功勋警犬”在发案银行四处闻了闻后,猛地扑向沈某。随后,侦查人员又对沈某进行心理测试,测试结论显示,只要犯罪嫌疑人说没偷,测谎仪就显示其撒谎。关于可否作为认定案件事实的根据,下列哪一选项是正确
由DK触发器组成的应用电路如图所示,设触发器的初值为0,经分析可知这是一个:
某国有资金投资办公楼建设项目,业主委托某具有相应招标代理和造价咨询资质的招标代理机构编制该项目的招标控制价,并采用公开招标方式进行项目施工招标。招标投标过程中发生以下事件。事件1:招标代理人确定的自招标文件出售之日起至停止出售之日止的时
11338×25593的值为()。
Theenergycrisis,whichisbeingfeltaroundtheworld,hasdramatizedhowthecarelessuseoftheearth’sresourceshasbrough
StudentsofUnitedStateshistory,seekingtoidentifythecircumstancesthatencouragedtheemergenceoffeministmovements,ha
最新回复
(
0
)