首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sj5.vbp,在该工程中为考生提供了一个通用过程,考生可以直接调用。请在窗体上画一个名称为Textl的文本框;画一个名称为Commandl、标题为“计算显示”的命令按钮;再画两个单选按钮,名称分别为Optionl和Option
在考生文件夹下有一个工程文件sj5.vbp,在该工程中为考生提供了一个通用过程,考生可以直接调用。请在窗体上画一个名称为Textl的文本框;画一个名称为Commandl、标题为“计算显示”的命令按钮;再画两个单选按钮,名称分别为Optionl和Option
admin
2012-10-09
22
问题
在考生文件夹下有一个工程文件sj5.vbp,在该工程中为考生提供了一个通用过程,考生可以直接调用。请在窗体上画一个名称为Textl的文本框;画一个名称为Commandl、标题为“计算显示”的命令按钮;再画两个单选按钮,名称分别为Optionl和Option2、标题分别为“求100到250之间能被5整除的数的个数”和“求300到400之间能被6整除的数的个数”,如图62—5所示。
请编写适当的事件过程,使得在运行时,选中一个单选按钮,再单击“计算显示”按钮,就可以按照单选按钮后的文字要求计算,并把计算结果放入文本框中,最后把已经修改的工程文件和窗体文件以原来的文件名存盘。
注意:考生不得修改窗体文件中已经存在的程序,退出程序时必须通过单击窗体右上角的关闭按钮来完成。在结束程序运行之前,必须至少要进行一种计算,否则不得分。
选项
答案
根据题意,将一个文本框控件,两个单选按钮控件和一个命令按钮添加到窗体中,文本框的名称为Textl,单选按钮的名称:分别为Optionl和Option2,Caption分别为“求100到250之间能被5整除的数的个数”和“求300到400之间能被6整除的数的个数”,命令按钮的名称为Commandl,Caption属性为“计算显示”,设置完成后,双击Commandl进入代码窗口,补充后的具体代码如下: Private Sub Commandl_Click() Dim rain As Integer’下限 Dim max As Integer’上限 Dim i As Integer’循环计数 Dim mum As Integer’个数 Dim tmp As Integer’除数 If Optionl.
Value
=True Then ’选中Optionl时 min=100 max=250 tmp=5 Else’选中Option2时 rain=300 max=400 tmp=3 End If num=0 For i=min To max’利用循环来逐个判断 If i
Mod tmp=0
Then num=num+1 ’如果能被除数整除,则个数加1 End If Next i Textl.
Text
=hum’在Textl文本框中显示出来 Open"App.Path&\out5.txt"For Output As#1 Print#1,Textl.Text Close#1 End Sub 单击[*]按钮运行程序,并按要求保存。
解析
转载请注明原文地址:https://kaotiyun.com/show/J3hp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
一个类可以从直接或间接的祖先中继承所有属性和方法。采用这个方法提高了软件的【】。
单击命令按钮时,下列程序的运行结果为PrivateSubCommand1_Click() PrintMyBM(23,18)EndSubPublicFunctionMyBM(mAsInteger,nAsInteger)AsIntege
在窗体上画三个单选按钮,组成—个名为chkOption的控件数组。用于标识各个控件数组元素的参数是
下面程序的功能是统计字符串中“广的个数,请填空。 SubCOU( ) a$="BeijingUniversityofTechnology" DimnASInteger n=Len(a$) Fori=1T
以下属于VisualBasic中合法的数组元素的是
下面语句正确的是
下面的属性中,用于自动调整图像框中图形内容的大小的是
下列说法有错误的是
下列可作为VisualBasic变量名的是_________。
随机试题
行政诉讼参加人不包括()。
Johnresignedand__________hispowertoayoungcolleague.
患者女性,24岁,近1年低热、盗汗,恶心、呕吐,腹胀、腹痛,查体腹部柔韧感,移动性浊音阳性,李凡他实验阳性。可确诊该病的检查为
实行开工报告审批制度的建设工程,必须符合()的规定。
泡沫灭火系统按照所产生泡沫的倍数不同,可分为低倍数泡沫灭火系统、中倍数泡沫灭火系统和高倍数泡沫灭火系统。其中高倍数泡沫灭火系统是指产生的灭火泡沫倍数高于()的系统。
通过实地盘存制,可以直接得到的是()。
西安长安区某高校,一个男生裸体穿过半个校园为庆祝大学毕业。该男生裸奔时的视频截图被发网上,引起热议。你怎么看?
(北京社招2009—19)从一块正方形木板上锯下宽5cm一个木条后,剩下的长方形面积是750cm2,锯下的木条面积是多cm2?()
ForTonyBlair,homeisamessysortofplace,wheretheprimeminister’sjobisnottoupholdeternalvaluesbuttoforcethrou
Exactlywherewewillstandinthelongwaragainstdiseasebytheyear2050isimpossibletosay.(111)Butifdevelopmentsin
最新回复
(
0
)