首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
考生文件夹下有工程文件sjt5.vbp和数据文件in5.txt。in5.txt中有多条记录,每条记录占一行,含4个数据项,数据项的含义依次是:姓名、数学成绩、语文成绩、英语成绩。程序运行时,会把in5.txt中的所有记录读入数组a中(每个数组元素是一条记录
考生文件夹下有工程文件sjt5.vbp和数据文件in5.txt。in5.txt中有多条记录,每条记录占一行,含4个数据项,数据项的含义依次是:姓名、数学成绩、语文成绩、英语成绩。程序运行时,会把in5.txt中的所有记录读入数组a中(每个数组元素是一条记录
admin
2020-07-22
50
问题
考生文件夹下有工程文件sjt5.vbp和数据文件in5.txt。in5.txt中有多条记录,每条记录占一行,含4个数据项,数据项的含义依次是:姓名、数学成绩、语文成绩、英语成绩。程序运行时,会把in5.txt中的所有记录读入数组a中(每个数组元素是一条记录),并在窗体上显示第1条记录(如图所示)。单击“首记录”“下一记录”“上一记录”“尾记录”等按钮,可显示相应记录,并且当显示第1条记录时,“首记录”“上一记录”按钮不可用,如图3—5所示;当显示最后1条记录时,“尾记录”“下一记录”按钮不可用;其他情况,所有按钮均可用。请将事件过程中的注释符去掉,把“?”改为正确的内容,以实现上述程序功能。
注意:考生不得修改窗体文件中已经存在的控件和程序,最后将程序按原文件名存盘。
选项
答案
步骤1:打开考生文件夹中的工程文件sjt5.vbp,在代码编辑窗口中,去掉程序中的注释符“’”,将问号“?”改为正确的内容。 参考代码: num=k-1 n=n-1 Private Sub putdata(k As Integer) SettEnabled k Command4.Enabled=IIf(m=num,False,True) 步骤2:按<F5>键运行程序,单击各个按钮测试验证。 步骤3:按要求将文件保存至考生文件夹中。
解析
分析题目可知,在窗体的Load事件处理过程中,调用了readdata过程把in5.txt文件里面的内容读出放到数组a里面。putdata过程将某条记录信息显示在节目上,四个按钮控件的事件响应过程中首先给变量n赋值,然后调用“putdata n”来显示记录。
第一个“?”处是给变量num赋值,由于程序在显示第一条记录的时候“上一个”按钮不可用,因此需要知道总的记录条数,根据“尾记录”按钮的事件响应过程代码“n=hum”可知,hum变量用于记录总的记录条数。在Do While循环结束之后,k的值为记录条数+1,因此第一个“?”处是k-1:第二个“?”处的Sub过程是显示上一个记录,因此n应该减1;第三个“?”处是补充Sub过程的入参,根据Sub过程内部代码可知,如参数为k;第四个“?”处是补充调用SetEnabled过程的参数,SetEnabled过程根据当前是第几条记录来控制按钮是否可用,在putdata过程中,当前记录数为k,因此第四个“?”处为k;最后一个“?”是设置Command4按钮是否可用,如果当前记录m是最后一条,则Command4按钮不可用,否则可用,如果当前记录m和总的记录数num相等则表示当前是最后一条。
转载请注明原文地址:https://kaotiyun.com/show/CDHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下面程序计算并输出的是PrivatevSubCommand1_Click()a=10:s=0Dos=s+a*a*a:a=a-1LoopUntila<=0PrintsEndSub
编写如下程序:PrivateSubCommand1_Click()DimiAsInteger,jAsIntegern=InputBox("输入一个大于1的正整数")Fori=2TonForj=2ToSqr(i)
在一个有若干个整数的顺序文件中查找一个数(这个数从文本框中输入),找到后在标签Label1中显示该数是文件中第几个数;如果没找到,则显示文件中没有该数的信息PrivateSubCommand1_Click()DimxAsInteger
设Label1、Command1、Text1、Check1分别为标签、命令按钮、文本框、复选框的名称,则以下属性设置语句中,运行时不会出错的是
在窗体上画一个命令按钮,其名称为Command1,然后编写如下代码:OptionBase1PrivateSubCommand1_Click()Dimaa=Array(1,2,3,4)j=1Fori=4To1Step-1s=s+a(i)
以下不属于单选按钮的属性是
下列叙述中正确的是
通用对话框Filter属性的作用是
设有如下函数:FunctionDelSpace(chAsString)AsIntegerDimn%,st$,c$st:"":n=0Fork=1ToLen(ch)C=Mid(ch,k,1)Ifc""ThenSt=st&cEl
设a、b都是自然数,为求a除以b的余数,某人编写了以下函数:Functionfun(aAsInteger,bAsInteger)Whilea>ba=a-bWendfun=aEndFunction在调试时发现函数是错误的。为
随机试题
A.红粉B.雄黄C.斑蝥D.蟾酥E.轻粉根据《中国药典》,孕妇慎用的毒性中药是
A.咯铁锈色痰B.咯粉红色泡沫痰C.咯血D.咯脓痰E.咯鲜红血丝痰肺炎球菌肺炎,常伴有
下列哪项不属于建设项目的环境影响报告书必备内容:
为保证机械设备的安全运行和操作人员的安全和健康,所采取的()是在机械设备上采用和安装各种安全防护装置,克服在使用过程中产生的不安全因素。
质量保证计划实施的目的是确保施工质量满足工程()的要求。
常用的热轧圆盘条牌号主要有()。
下列关于抵押财产的说法,正确的有
设f(x)在[0,a]二次可导且f(0)=0,f"(x)<0.求证:f(x)/x在(0,a]单调下降.
ThestabilityoftheU.S.bankingsystemismaintainedbymeansofsupervisionandregulation,inspections,depositinsurance,a
Areyouworriedbytherisingcrimerate?Ifyouarethenyouprobablyknowthatyourhouse,possessionsandpersonareincreasi
最新回复
(
0
)