首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生文件夹下有一个工程文件sjt3.vbp。程序的功能是通过键盘输入正整数到文本框中。在“除数”框架中选择一个单选按钮,然后单击“处理数据”命令按钮,将大于文本框中的正整数,并且能够被所选除数整除的5个数添加到列表框List1中,如图所示。在窗体文
(1)在考生文件夹下有一个工程文件sjt3.vbp。程序的功能是通过键盘输入正整数到文本框中。在“除数”框架中选择一个单选按钮,然后单击“处理数据”命令按钮,将大于文本框中的正整数,并且能够被所选除数整除的5个数添加到列表框List1中,如图所示。在窗体文
admin
2018-03-20
20
问题
(1)在考生文件夹下有一个工程文件sjt3.vbp。程序的功能是通过键盘输入正整数到文本框中。在“除数”框架中选择一个单选按钮,然后单击“处理数据”命令按钮,将大于文本框中的正整数,并且能够被所选除数整除的5个数添加到列表框List1中,如图所示。在窗体文件中已经给出了全部控件,但程序不完整。
要求:请去掉程序中的注释符,把程序中的?改为正确的内容,使其实现上述功能,但不能修改程序的其他部分和控件属性,最后将修改后的文件按原文件名进行存盘。
(2)在考生文件夹下有一个工程文件sjt4.vbp。程序运行后,单击“开始”按钮,图片自上而下移动,同时滚动条的滑块随之移动。每隔0.5秒移动一次,当图片顶端移动到距窗体下边界的距离少于200时,则再回到窗体的顶部,重新向下移动,如图所示。在窗体文件中已经给出了全部控件,但程序不完整。
要求:请去掉程序中的注释符,把程序中的?改为正确的内容,使其实现上述功能,但不能修改程序的其他部分和控件属性,最后将修改后的文件按原文件名进行存盘。
选项
答案
(1)【操作步骤】 步骤1:打开本题工程文件。 步骤2:打开代码编辑窗口中,去掉程序中的注释符“’”,将问号改为正确的内容。 参考答案 Private Sub Command1_Click() Dim Y As Integer For j=0 To 2 ’循环三个单选按钮 If Option1(i).Value=TrueThen ’当某个按钮被选 y=Val (Option1 (i).Caption) ’提取按钮名并转换为数值 End If Next Call calc(y) ’调用子函数 End Sub Private Sub calc(y As Integer) ClearList ’执行子函数 i=1 x=Val(Text1.Text)+1 Do While i<=5 ’只需要显示5个数 If x Mod y=0 Then ’判断x是否能被y整除 List1.AddItem x ’添加满足条件的数至表 i=i+1 ’统计 End If x=x+1 ’自加,判断下次循环 Loop End Sub Private Sub ClearList() ’清空列表框的项目 For k=List1.ListCount-1 To 0 Step-1 List1.RemoveItem k Next k End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。 (2)【操作步骤】 步骤1:打开本题工程文件。 步骤2:打开代码编辑窗口,去掉程序中的注释符“’”,将问号改为正确的内容。 参考答案 Private Sub Command1_Click() Timer1.Enabled=True End Sub Private Sub Command2_Click() Timer1.Enabled=False End Sub Private Sub Form Load()Timer1.Interval=500 ’设置Timer1执行间隔数,以毫秒计算 End Sub Private Sub Timer1_Timer() Picture1.Top=Picture1.Top+200 ’顶端位置保持一致 VScro111.Value=Picturel.Top ’滚动条滑块的位置与图片顶端位置保持一致 If VScro111.Value+200>=Form1.Height-200 Then Picture1.Top=0 ’当图片顶端移动到距窗体下边界距离少于200时,则图片重新向下移动 End If End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://jikaoti.com/ti/Q1y0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列事件过程的功能是:建立一个名为Datal的随机文件,存放角度值及这些角度的正弦函数值和余弦函数值,角度为1,2,3,…,90。请在空白处填入适当的内容,将程序补充完整。PrivateTypeAng KAsInteger
在窗体上画一个命令按钮,名称为Command1。单击命令按钮时,执行如下事件过程:PrivateSubCommand1_Click()a$="softwareandhardware"
以下程序的功能是:从键盘上输入若干个数字,当输入负数时结束输入,统计出若干数字的平均值,输出结果。请填空。PrivateSubForm_click()Dimx,yAsSingleDimzAsIntegerx=InputBox("E
在窗体上有一个名为Text1的文本框和一个名为Commandl的命令按钮,并编写有如下事件过程:PrivateSubCommandlClick()DimiAsInteger,nAsIntegerFor
表达式Abs(-5)+Len("ABCDE")的值是
设树T的深度为4,其中度为1,2,3,4的结点个数分别为4,2,1,1。则T中的叶子结点数为
将E-R图转换为关系模式时,实体和联系都可以表示为
有两个关系R和T如下:则由关系R得到关系T的操作是
下列叙述中正确的是
(1)请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。在名称为Forml的窗体上画一个名称为Picturel的图片框(PictureBox),高、宽均为1000。在图片框内再画一个有边框的名称为Imagel的图像框(Imag
随机试题
突起路标工程验收实测非关键项目有()。
简叙更换元器件(如电阻、电容、电感、二极管、三极管等)时,分别应注意哪些问题
慢性滤泡性结膜炎病变主要位于()
大脑镰位居左右半球之间,其前、后端仍可见上矢状窦的断面。大脑半球断面内的髓质形成半卵圆中心,髓质和皮质分界明显。半卵圆中心的髓质成自三种纤维。连接两大脑半球的相应皮质区的是
劳动生产率指标中,劳动力不均衡系数指()。
下列关于耐火极限判定条件的说法中,错误的是()。
从自营账户中提取现金必须以公司名义进行,禁止以个人名义从自营账户中调入调出资金。()
下列选项中,属于发生信息披露违法行为而认定为应当从重处罚情形的是()。
宽大也不是宽大无边,而是按《刑法》规定,对那些危害不大,能够认罪悔改的犯罪分子,实行宽大处理。()
Iwasaddressingasmallgatheringinawomen’sgroupthathadinvitedmentojointhem.Throughouttheeveningonemanhadbeen
最新回复
(
0
)