首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt3.vbp。程序的功能是通过键盘输入正整数到文本框中。在“除数”框架中选择一个单选按钮,然后单击“处理数据”命令按钮,将大于文本框中的正整数,并且能够被所选除数整除的5个数添加到列表框List1中,如图所示。在窗体文件中已
在考生文件夹下有一个工程文件sjt3.vbp。程序的功能是通过键盘输入正整数到文本框中。在“除数”框架中选择一个单选按钮,然后单击“处理数据”命令按钮,将大于文本框中的正整数,并且能够被所选除数整除的5个数添加到列表框List1中,如图所示。在窗体文件中已
admin
2019-06-11
52
问题
在考生文件夹下有一个工程文件sjt3.vbp。程序的功能是通过键盘输入正整数到文本框中。在“除数”框架中选择一个单选按钮,然后单击“处理数据”命令按钮,将大于文本框中的正整数,并且能够被所选除数整除的5个数添加到列表框List1中,如图所示。在窗体文件中已经给出了全部控件,但程序不完整。
要求:请去掉程序中的注释符,把程序中的?改为正确的内容,使其实现上述功能,但不能修改程序的其他部分和控件属性,最后将修改后的文件按原文件名进行存盘。
选项
答案
[操作步骤] 步骤1:打开本题工程文件。 步骤2:打开代码编辑窗口中,去掉程序中的注释符“’”,将问号改为正确的内容。 参考代码(画下划线部分是需填入的内容) Private Sub Command1_Click() Dim y As Integer For i=0 To 2’循环三个单选按钮 If
Option1(i).Value
=True Then’当某个按钮被选 y=Val(Optionl(i).
Captiion
)’提取按钮名并转换为数值 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=Xx+1’自加,判断下次循环 Loop End Sub Private Sub ClearList()’清空列表框的项目 For k=List1.ListCount-1 To 0 Step-1 LiSt1.RemoveItem k Next k End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/xtUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
如果在窗体模块中所有程序代码的前面有语句:Dimx,则x是()。
下面关于数据库三级模式结构的叙述中,正确的是()。
满足下列条件之一的年份是闰年:1)年份能被4整除但不能被100整除2)年份能被400整除若y代表年份,下面判断闰年的正确表达式是
窗体上有一个名称为Shape1并显示为圆的形状控件(其Width和Height属性值相等),一个名称为Timer1的计时器,并有下面程序代码:DimrAsSingle,flagAsIntegerPrivateSubTimer1_Time
已知列表框控件List1中已放入若干表项,下列关于List1的叙述中错误的是
三角形的构成条件是:任意2边之和大于第3边。设变量a、b、c是3条直线的长度,要求判断这3条直线能否构成一个三角形。下面有3个程序段可以正确判断,另…个不能正确判断的是
计算下面分段函数的正确语句是
顺序文件在一次打开期间
如果在VisualBasic集成环境中没有打开属性窗口,下列可以打开属性窗口的操作是
以下能从字符串“VisualBasic”中直接取出子字符串“Basic”的函数:是()。
随机试题
不宜选用口服补液的是
玻璃板液位计原理是()。
下列疾病中,不属于非特异性感染的是
A.阴阜B.大阴唇C.小阴唇D.阴道口E.阴道前庭发生学相当于男性阴囊
患者,男,66岁。3年前患急性前壁心肌梗死,1年前诊断为慢性心力衰竭,左室射血分数33%。患者平时无症状,应当长期服用的药物不包括
注射剂中加入焦亚硫酸钠的作用为
与肝相表里的是
下列句子中,加下划线的词语的意义解释错误的一项是()。
应该看到,进入新时代的中国特色社会主义,首要的障碍就是跨越发展方式、经济结构、增长动力的转型关口,创新驱动全面转型、开放促进进步不仅是中国走向现代化强国的重要手段,更是根本出路。尽管建设创新型国家和营造全面开放新格局的目标不可能一蹴而就,但能否成为世界科技
SportsManyanimalsengageinplay,buthomosapiensistheonlyanimaltohaveinventedsports.Sincesportsareaninventi
最新回复
(
0
)