首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sj5.vbp,在该工程中为考生提供了一个通用过程,考生可以直接调用。请在窗体上画一个名称为Textl的文本框;画一个名称为Commandl、标题为“计算显示”的命令按钮;再画两个单选按钮,名称分别为Optionl和Option
在考生文件夹下有一个工程文件sj5.vbp,在该工程中为考生提供了一个通用过程,考生可以直接调用。请在窗体上画一个名称为Textl的文本框;画一个名称为Commandl、标题为“计算显示”的命令按钮;再画两个单选按钮,名称分别为Optionl和Option
admin
2012-10-09
19
问题
在考生文件夹下有一个工程文件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全国计算机二级
相关试题推荐
关系操作的特点是【】操作。
在软件生产过程中,需求信息的给出是
Jackson结构化程序设计方法是英国的M.Jackson提出的,它是—种面向【】的设计方法。
窗体上有两个名称分别为Text1、Text2的文本框,一个名称为Command1的命令按钮。运行后的窗体外观如图所示。设有如下的类型声明TyPePersonnameASString*8majorASString
在窗体上画一个名称为TxtA的文本框,然后编写如下的事件过程:PrivateSubTxtA_KeyPress(keyaseiiasinteger)……EndSub若焦点位于文本框中,则能够触
下列程序段的执行结果为 I=4 x=5 Do I=I+1 X=K^2 LoopUntilI>=7 Print"I=";I Print"x=";x
以下语句的输出结果是【】。S$="China"S$="Beijing"printS$
设有语句Open"c:\Test.Dat"ForOutputAs#1则以下错误的叙述是_________。
Print方法可以在对象上输出数据,这些对象包括
算法执行过程中所需要的存储空间称为算法的
随机试题
大量耳漏带臭味,鼓膜大穿孔,可见鼓岬裸露的白色骨质,耳漏细菌培养为溶血性链球菌感染。多见于
患者孕2月余,阴道出血逐渐增多,腹痛逐渐加重,并有胎块排出。可诊为
根据《建设工程设计合同(示范文本)》,关于设计费的说法,正确的是()。
上市公司并购重组项目的财务顾问主办人发生变化的,财务顾问应当在()个工作日内向中国证监会报告。
依法行政是指行政机关应当依据法律规定,在法定权限内,按照法定程序作出证据确凿充分的行为。根据上述定义,下列行为符合依法行政要求的是()。
一般保证人与债权人未约定保证期间的,保证期间为()
AnewbookbyaformerlawyeratKirkland&Ellis,oneofthenation’slargestlawfirms,hasdeliveredathrilltothealready
以下TCP/IP中,哪个是应用层协议?
假定有如下语句:answers=MsgBox(“String1”,“String2”,“String3”,2)执行该语句后,将显示一个信息框,单击其中的“确定”按钮,则answers的值为
Intoday’sjobmarketplace,youcanexpecttheinterviewtobea"structured"event—eachcandidatewillbeaskedthesameprede
最新回复
(
0
)