首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生文件夹下有工程文件sj3.vbp及窗体文件sj3.frm,该程序是不完整的。在名称为Forml的窗体上有3个Text控件及5个命令按钮,功能为:开始启动工程时,界面上除“读取数据”及“关闭”按钮有效之外,其他按钮均不可用(灰色显示);单击“读取
(1)在考生文件夹下有工程文件sj3.vbp及窗体文件sj3.frm,该程序是不完整的。在名称为Forml的窗体上有3个Text控件及5个命令按钮,功能为:开始启动工程时,界面上除“读取数据”及“关闭”按钮有效之外,其他按钮均不可用(灰色显示);单击“读取
admin
2009-03-26
69
问题
(1)在考生文件夹下有工程文件sj3.vbp及窗体文件sj3.frm,该程序是不完整的。在名称为Forml的窗体上有3个Text控件及5个命令按钮,功能为:开始启动工程时,界面上除“读取数据”及“关闭”按钮有效之外,其他按钮均不可用(灰色显示);单击“读取数据”按钮之后,利用InputBox让用户连续且必须输入8个数。若录人为非数字符号,则给出提示“输人数据无效,请重新输入:”;输入完毕后,“读取数据”变灰,其他变为可用状态;按相应的按钮可分别求出所输入数据的升序排列及平均值,并在右侧对应的文本框中显示(注意用A(8)存放最大数,A(1)存放最小数);单击“清空”按钮将所有文本框清空。如图10一3所示。
注意:请在有“?”的地方填入正确内容,然后删除“?”及代码前的所有注释符(即“’”号),但不能修改其他部分。存盘时不得改变文件名和文件夹。
(2)在考生文件夹下有工程文件sj4.vbp及窗体文件sj4.frm,该程序是不完整的。在名称为Forml,窗体上有3个Label控件、2个Text控件和2个命令按钮。该程序的主要功能是求从1到Textl中用户输入的任意自然数n的累加和。刚启动工程时,可以在输入框内输入任意自然数(n值太大时,运算时间将很长,建议不超过4位)。当输入为非数值时,累加结果为0;单击“开始”可以在,I?ext2中显示累加和,同时“开始”变为“完成”并变灰;单击“关闭”按钮结束程序的运行。如图10—4所示
注意:请在有“?”的地方填入正确内容,然后删除“?”及代码前的所有注释符(即“’”号),但不能修改其他部分。存盘时不得改变文件名和文件夹。
选项
答案
(1)用数组str(8)来接收InputBox输入的8个数,InPutB。x的格式为:InputBOX(提示[,标题][,默认][,x坐标位置][,Y坐标位置]);Enabled属性可设置控件是否可用,当该值为True时可用,为False时不可用(灰色);Val()函数将字符转换成数值。 根据题意,将5个命令按钮和3个文本框控件添加到窗体中,命令按钮的名称分别为Commandl、command2.Command3、Command4和Command5,Caption属性分别为“读取数据”、“升序显示”、“平均值”、“清空”和“关闭”,文本框的名称分别为Textl、Text2和Text3,Text属性都为空。双击Cornmandl进入代码窗口,补充后的代码如下: Dim a(8)As Long Dim str(8)As String Private Sub Commandl_Click() Dim strl AS String Dim str2 As String Dim str3 As String Dim i AS Integer str3="" For i=i To 8 str2==i strl="输入第" strl=strl+str2 strl=str1+"个数" str(i)=
InputBox
(strl) lf str(i)=""Then’如果按“取消则重新初始化”对话框 Form_Load End If Whiie Asc(str(i))>Asc("9")
Or
Asc(str(i))
Exit For End If Next j Next i For i=1 To 8 tmp=a(i) str=str+tmp+"" Next i Text2.Text=str End Sub Private Sub Command3_Click() ’求平均数 Dim i As Integer Dim total As Long total=0 For i=l To 8 total=total+a(i) Next i total=total\8 Text3.Text=total Commandl.Enabled=False Command2.Enabled=True Command 3.Ena bled=False Command4.Enabled=True End Sub Private Sub Command4_Click()’清空所有文本框 Textl.Text="" Text2.Text="" Text3.Text="" Commandl.Enabled=True Command2.Enabled=False Command3.Enabled=False Command4.Enabled=False End Sub Private Sub Command5_Click()’关闭对话框
Unload Me
End Sub Private Sub Form_Load() ’初始化对话框 Commandl.Enabled=True Command2.Enabled=False Command3.Enabled=False Command4.Enabled=False Command5.Enabled=True End Sub 单击[*] 按钮运行程序,并按要求保存。 (2)要计算累加和通常利用for循环来完成。文本框巾的内容(包括数字)默认都是当做字符串来处理的,如果要参与数据运算则需先用Val()函数将其转化为数字。 根据题意,将3个标签、2个命令按钮和2个文本框控件添加到窗体中.标签的Caption属性分别为“要求:程序能得到结果total,total=1+2+3+…+n”、“输入n(0
Text) ’获得n total=0 For i=1 To n total=total+i’累加 Next i Text2.Text=total Commandl.
Enabled
=False’完成后Commandl不可用 Commandl.
Caption
="完成" ’名称改为完成 End Sub Private Sub Command2_Click() ’关闭命令按键
Unload Me
End Sub 单击[*] 按钮运行程序,并按要求保存。
解析
转载请注明原文地址:https://kaotiyun.com/show/EN1p777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
Java源文件中最多只能有一个【】类,其他类的个数不限。
设执行下面的赋值语句a=Float.valueOf("34").floatValue()之后,a的值是()。
下列叙述中正确的是()。
在传递给实现了java.awt.event.MouseMotionListener接口的类中,mouseDragged()方法的事件对象是【】类。
当一个应用程序的所有非守护线程终止运行时,但仍然有守护线程在运行,应用程序将
下列关于JDK目录结构的说法,错误的是
下列关于队列的叙述中正确的是
Java程序的执行过程中用到一套JDK工具,其中javadoc.exe是指()
设有n元关系R及m元关系S,则关系R与S经笛卡儿积后所得新关系是一个()元关系。
int类型的取值范围为()。
随机试题
王某为中国公民,其2020年取得的收入如下:(1)每月从中国境内任职企业取得工资收入19800元,自己负担的“三险一金”为2000元。(2)2020年7月1日将境内一处门面房出租,租赁期限1年,月不含税租金8000元,当月发生修缮费1200元(不考虑其
微型计算机硬件系统主要包括存储器、输入设备、输出设备和________________。
会导致剥夺继承人的继承权的情况是()。A.篡改遗嘱内容,取消了没有劳动能力,又无生活来源的人的继承权B.伪造一份代书遗嘱,要否定原订立的公证遗嘱内容C.由于正当防卫而杀死被继承人的D.虐待被继承人的
Theappealofadvertisingtobuyingmotivescanbothnegativeandpositiveeffects.Consumersmaybeconvincedtobuyaproduct
住院诊断符合率的计算方法为
有下列情形中()的,法院应当裁定中止执行。[2007年真题]
根据以下资料,回答下列问题。开学之初,小王选择了两门课程,这两门课程课时不同,学分相同,一门大班教学一门小班教学。以下哪项可能是小王所选?
Themanagerspokehighlyofsuch______asloyalty,courageandtruthfulnessshownbyhisemployees.
若将一幅图片以不同的文件格式保存,占用空间最大的图形文件格式是()。
A、isthepresidentoftheKhartoumgovernmentB、isthevicepresidentoftheKhartoumgovernmentC、isthevicepresidentofthe
最新回复
(
0
)