首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)考生文件夹下的工程文件sjt3.vbp中有一个初始内容为空、且带有垂直滚动条的文本框,其名称为Text1;两个标题分别为“读数据”和“查找"的命令按钮,其名称分别为Cmdl、Cmd2。请画一个标题为“查找结果”的标签Label1,再画一个名称为Tex
(1)考生文件夹下的工程文件sjt3.vbp中有一个初始内容为空、且带有垂直滚动条的文本框,其名称为Text1;两个标题分别为“读数据”和“查找"的命令按钮,其名称分别为Cmdl、Cmd2。请画一个标题为“查找结果”的标签Label1,再画一个名称为Tex
admin
2017-09-22
53
问题
(1)考生文件夹下的工程文件sjt3.vbp中有一个初始内容为空、且带有垂直滚动条的文本框,其名称为Text1;两个标题分别为“读数据”和“查找"的命令按钮,其名称分别为Cmdl、Cmd2。请画一个标题为“查找结果”的标签Label1,再画一个名称为Text2,其初始内容为空的文本框,如图3.104所示。程序功能如下:
①单击“读数据”按钮,则将考生文件夹下in3.dat文件中已按升序排列的30个整数读入一维数组a中,并同时显示在Text1文本框内;
②单击“查找”按钮,将弹出输入框接收用户输入的任意一个偶数,若接收的数为奇数,则提示重新输入。如果接收的偶数超出一维数组a的数值范围,则无须进行相应查找工作,直接在Text2内给出结果;否则,在一维数组a中查找该数,并根据查找结果在Text2文本框内显示相应信息。命令按钮的Click事件过程已给出,但“查找”按钮的Click事件过程不完整,请将其中的注释符去掉,把“?”改为正确的内容,以实现上述程序功能。
注意:考生不得修改窗体文件中已经存在的控件和程序,最后程序按原文件名存盘。
(2)考生文件夹下的工程文件sjt4.vbp中有一个初始内容为空的文本框Text1,一个包含三个元素的文本框控件数组Text2,两个标题分别是“读数据"和“统计”的命令按钮,两个分别含有三个元素的标签控件数组Label1和Label2,如图3.105所示。程序功能如下:
①考生文件夹下jal4.dat文件中存有20个考生的考号及数学和语文单科考试成绩。单击“读数据”按钮,可以将in4.dat文件内容读入到20行3列的二维数组a中,并同时显示在Text1文本框内;
②单击“统计”按钮,则对考生数学和语文的平均分在“优秀”、“通过"和“不通过”三个分数段的人数进行统计,并将人数统计结果显示在控件数组Text2中相应位置。其中,平均分在85分以上(含85分)为“优秀”,平均分在60~85分之间(含60分)为“通过”,平均分在60分以下为“不通过"。
命令按钮的Click事件过程已经给出,但“统计”按钮的Click事件过程不完整,请将其中的注释符去掉,把“?”改为正确的内容,以实现上述程序功能。
注意:考生不得修改窗体文件中已经存在的控件和程序,最后程序按原文件名存盘。
选项
答案
(1)步骤1:打开考生文件夹下的工程文件sjt3.vbp,打开代码编辑窗口,去掉程序中的注释符“’”,将问号“?”改为正确的内容。参考代码: If num/2 <> Fix(num/2) Then If num < a(1) Or num > a(30) Then If a(n) =num Then If n>30 Then 步骤2:按要求将文件保存至考生文件夹中。 (2)步骤1:打开考生文件夹中的本题工程文件sjt4.vbp,打开代码编辑窗口,去掉程序中的注释符“’”,将问号“?”改为正确的内容。参考代码: Avg=(a(i,2)+a(i,3))/2 Case Is>=85 Case 60 To 84 End Select Text2(n-1)=x(n) 步骤2:按要求将文件保存至考生文件夹中。
解析
(1)在“查找”按钮的单击事件中,首先使用变量hum接收输入框的值,然后判断num是否为偶数,如果为奇数(num/2<>Fix(num/2))则提示错误信息;由于数组a是升序排列的,因此如果num的值小于a(1)或者大于a(30)则意味着超出范围;接下来使用For循环遍历整个数组,如果某次循环中数组元素等于hum的值则意味着找到,可以退出循环;当循环结束后如果n的值大于30则表明循环是正常结束的,没有找到这个元素。
(2)本题要求编写“统计”按钮的单击事件过程。程序设计思路:在一个For循环中逐一取出存于数组a中的各学生成绩,将同一行的两个成绩取平均值后用Select Case语句对平均值进行判断,根据成绩所属情况,使对应的x数组元素中的数增1,最后显示在文本框数组中。
转载请注明原文地址:https://kaotiyun.com/show/QjGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
关系R和S进行自然连接时,要求R和S含有一个或多个公共______。
结构化程序设计主要强调的是()。
设窗体上有一个标签Label1和一个计时器Timer1,Timer1的Interval属性被设置为1000,Enabled属性被设置为True。要求程序运行时每秒在标签中显示一次系统当前时间。下列可以实现上述要求的事件过程是()。
滚动条控件中,用来设置鼠标单击滚动箭头时滚动条移动的大小的属性是_______。
编写如下事件过程:PrivateSubForm_keyDown(KeyCodeAsInteger,ShiftAsInteger)PrintChr(KeyCode)EndSubPrivateSubForm_Keypress(
下列语句的输出结果是【】。PrintFormat(Int(12345.6789*100+0.5)/100,"0000,0.00")
程序执行结果s的值是【】。PrivateSubsub1(ByvalpAsInteger)p=p*2EndSubPrivateSubCommand1_Click()DimiAsIntegeri=3Callsub1(i
在窗体上画一个名称为Filel的文件列表框,并编写如下程序:PrivateSubFilel_DblClick()x=Shell(Filel.FileName,1)EndSub以下关于该程序的叙述中,错误的是__
决定一个窗体有无控制菜单的属性是______。
随机试题
女,30岁,G1P0。平素月经规律。月经增多、经期延长1年余。妇科检查:外阴阴道无异常,宫颈散在潴留囊肿,子宫近11周妊娠大小,表面有多个质硬突起,最大直径约6cm,附件未触及异常。辅助检查:Hb90g/L。首先考虑的诊断是
A.钠型阳离子交换树脂B.氢氧化铝凝胶C.叶酸D.碳酸氢钠E.血液透析慢性肾功能不全并发代谢性酸中毒最好用
A.肺大疱B.肺脓肿C.浸润型肺结核空洞形成D.慢性纤维空洞型肺结核E.周围型肺癌空洞形成X线下见右上肺有多发的厚壁空洞,周围有较广泛的纤维条索影。应首先考虑的是()
中毒后能引起肾功能衰竭的中药是
患者,女,24岁。患系统性红斑狼疮入院,面部蝶形红斑明显。对该患者进行健康指导时,错误的是
根据我国《突发事件应对法》的有关规定,制定国家突发事件总体应急预案,组织制定国家突发事件专项应急预案的分别是()。
Europeisnotagender-equalityheaven.Inparticular,thecorporateworkplacewillneverbecompletelyfamily-friendlyuntilwo
Severalmonthsago,planningtovisitafriendhospitalizedwithAIDS,IaskedadoctorwhetherIshouldtakeanyprecautions."
若有以下程序#includevoidsp(int*a){intb=2:*a=*a*2:printf("%d,",*a);a=&b;*a=*a*2;printf("%d
AsheisgoingtoworkinHollandfortwoyears,hewillbepartedfromhistwochildren.
最新回复
(
0
)