首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt3.vbp。程序的功能是通过键盘输入正整数到文本框中。在“除数”框架中选择一个单选按钮,然后单击“处理数据”命令按钮,将大于文本框中的正整数,并且能够被所选除数整除的5个数添加到列表框Listl中,如图所示。在窗体文件中已
在考生文件夹下有一个工程文件sjt3.vbp。程序的功能是通过键盘输入正整数到文本框中。在“除数”框架中选择一个单选按钮,然后单击“处理数据”命令按钮,将大于文本框中的正整数,并且能够被所选除数整除的5个数添加到列表框Listl中,如图所示。在窗体文件中已
admin
2020-04-08
58
问题
在考生文件夹下有一个工程文件sjt3.vbp。程序的功能是通过键盘输入正整数到文本框中。在“除数”框架中选择一个单选按钮,然后单击“处理数据”命令按钮,将大于文本框中的正整数,并且能够被所选除数整除的5个数添加到列表框Listl中,如图所示。在窗体文件中已经给出了全部控件,但程序不完整。
要求:请去掉程序中的注释符,把程序中的?改为正确的内容,使其实现上述功能,但不能修改程序的其他部分和控件属性,最后将修改后的文件按原文件名进行存盘。
选项
答案
【操作步骤】 步骤l:打开本题工程文件。 步骤2:打开代码编辑窗口中,去掉程序中的注释符“.”,将问号改为正确的内容。 参考答案(阴影部分是需考生填入的内容) Private Sub Commandl_Click() Dim Y As Integer For i=0 To 2′循环三个单选按钮 If
Optionl(i).Value
=True Then′当某个按粗被选 y=Val(Optionl(i).
Cation
)′提取按钮名并转换为数值 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整除 Listl.AddItem
x
′添加满足条件的数至表 i=i+1′统计 End If x=x+1′自加,判断下次循环 Loop End Sub Private Sub ClearList()′清空列表框的项目 For k=Listl.ListCount-1 To 0 Step-1 Listl.RemoveItem k Next k End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
calc()函数实现将大于文本框中的正整数,并且能够被所选除数整除的5个数添加到列表框Listl中,首先调用ClearList()函数清空列表框,运用Val()函数使Textl的值由字符转化为数值,Do While语句控制产生整数的个数为5个,通过Mod()函数和If语句判断是否能被所选数整除。并用列表框的Addhem方法,把能被整除的数添入列表框中。在Commandl_Click事件过程中,向文本框中输入正整数,并运用Val(Optionl(i).Caption)语句提取单选按钮数组中所选的数值,再通过调用talc()函数实现数据的处理过程。
转载请注明原文地址:https://kaotiyun.com/show/6ATp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
窗体如图所示。要求程序运行时,在文本框Text1中输入一个姓氏,单击“删除”按钮(名称为Command1),则可删除列表框List1中所有该姓氏的项目。若编写以下程序来实现此功能:PrivateSubCommand1_Click()Dimn%,
设有表示学生选课的三张表,学生S(学号,姓名,性别,年龄,身份证号),课程C(课号,课名),选课SC(学号,课号,成绩),则表SC的关键字(键或码)为( )。
以下关于窗体的叙述中错误的是( )。
关于MDI窗体下列说法正确的是()。
下面是求最大公约数的函数的首部:Functiongcd(ByValxAsInteger,ByValyAsInteger)AsInteger若要输出8、12、16这3个数的最大公约数,下面正确的语句是()。
设窗体上有一个列表框控件List1,含有若干列表项。以下能表示当前被选中的列表项内容的是()。
支持子程序调用的数据结构是( )。
窗体上有一个名称为Command1的命令按钮,其单击事件过程如下:PrivateSubCommand1_Click()DimsAsDoubles=0:i=1DoWhilei<6s
随机试题
目标是争取执政以解决公共问题的是______。
下列关于胆囊的描述正确的是
混凝土发生碳化后,对结构耐久性的不利影响主要是()。
定中公司在某县建立了一家生鸡养殖场,通过暗管的方式违法排污,县环保局对其罚款50万元。定中公司不服,向县政府申请行政复议。县政府事后审查发现,定中公司申请材料不齐全。本案的下列做法违反法律规定的有?
请认真阅读下列材料,并按要求作答。动作方法:两腿弯曲,上体前倾,重心落在两脚之间,五指自然分开手心空出,用手指和指根以上部位控球,肘关节自然弯曲,以肘关节为轴上下摆动,手腕下压将球控制在身体的左右侧。请根据上述材料完成下列任务:简
特别适合用于与不易见面的家长联系的书面联系形式是()。
下列选项中.可以构成单位犯罪主体的有()。
大卫是一位资深CEO,他打定主意去一家待遇最好的公司。惠众公司和康拓公司有意聘用他,这两个公司在其他方面的待遇均相同,只有工资待遇略有差别。惠众公司提供的条件是:半年工资50万美元,工资每半年增加5万美元。康拓公司的条件是:年工资100万美元,每年加薪20
求解下列函数的定义域.
OfficeWorks544HudsonStreetBoston,MA34602Tel:
最新回复
(
0
)