首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
考生文件夹下的工程文件sjt5.vbp中有一个初始内容为空的文本框Text1,两个标题分别是“读数据”和“计算”的命令按钮:请画一个标题为“各行平均数的最大值为”的标签Label2,再画一个初始内容为空的文本框Text2,如图3-97所示。 程序功
考生文件夹下的工程文件sjt5.vbp中有一个初始内容为空的文本框Text1,两个标题分别是“读数据”和“计算”的命令按钮:请画一个标题为“各行平均数的最大值为”的标签Label2,再画一个初始内容为空的文本框Text2,如图3-97所示。 程序功
admin
2016-01-31
51
问题
考生文件夹下的工程文件sjt5.vbp中有一个初始内容为空的文本框Text1,两个标题分别是“读数据”和“计算”的命令按钮:请画一个标题为“各行平均数的最大值为”的标签Label2,再画一个初始内容为空的文本框Text2,如图3-97所示。
程序功能如下:
①单击“读数据”按钮,则将考生文件夹下in5.dat文件的内容读入20行5列的二维数组a中,并同时显示在Text1文本框内;
②单击“计算”按钮,则自动统计二维数组a中各行的平均数,并将这些平均数中的最大值显示在Text2文本框内。
“读数据”按钮的Click事件过程已经给出,请编写“计算”按钮的Click事件过程实现上述功能。
注意:考生不得修改窗体文件中已经存在的控件和程序,在结束程序运行之前,必须用“计算”按钮进行计算,且必须用窗体右上角的关闭按钮结束程序,否则无成绩。最后,程序按原文件名存盘。
选项
答案
审题分析 本题可利用一个嵌套的For循环来完成计算工作:在外循环(循环变量的取值为1~20)体中,先初始设置记录每行数据之和的变量Sum的初值为0,接着通过内循环(循环变量的取值为1~5)体完成对每行数据的累加工作。内循环结束后,用表达式Avg=Sum/5计算出该行的平均值。如果是第一次执行外循环的循环体,则将当前Avg的值记录在变量Max中,否则仅在其他行Avg值大于Max的值时,才将其记录在变量Max中。嵌套For循环结束时,变量Max的值即为每行平均数中的最大值,将其显示在文本框Text2中。 操作步骤 步骤1:打开考生文件夹中的本题工程文件sjt5.vbp,在窗体Form1中画一个标签和一个文本框,其属性及值如表4-54所示。 [*] 步骤2:打开代码编辑窗口,在指定位置编写以下代码: 参考代码: For i=1 To 20 Sum=0 For j=1 To 5 sum=Sum+a(i,j) Next Avq=Sum/5 If i=1 Then Max=Avg ElseIf Max<Ava Then Max=AVg End If Next Text2.Text=Max 步骤3:按
键运行程序,先单击“读数据”按钮,接着单击“计算”按钮,然后单击窗体右上角的关闭按钮结束程序。 步骤4:按要求将文件保存至考生文件夹中。 考点链接 多重循环。
解析
转载请注明原文地址:https://kaotiyun.com/show/DuLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
“商品”与“顾客”两个实体集之间的联系一般是()。
假定窗体的名称(Narne属性)为Forml,则把窗体的标题设置为"VBTest"的语句为()。
下列操作不能向工程中添加宙体的是()。
语句DimArr(-3To5)AsInteger定义的数组的元素个数是()。
可以用做其他控件容器的控件是
要获得文件列表框中当前被选中的文件的文件名,则应使用哪个属性
如果在C盘当前文件夹下已存在名称为studata.dat的顺序文件,那么执行语句Open"C:\studata.dat"ForAppendAs#1之后,将
假定有一个菜单项,名为Menuhem,为了在运行时使该菜单项失效(变灰),应使用的语句为
在窗体上画一个命令按钮,名称为Command1。然后编写如下程序:PrivateSubCommand1_Click()ForI=1To2ForJ=1ToIPrintString(I,"Hello");NextJPrintN
设置组合框的风格,可用的属性是
随机试题
天王补心丹的配伍配伍特点
阴阳之间的何种关系失调会出现“阴胜则阳病,阳胜则阴病”
关于踝关节正位,错误的是
A.腺癌B.鳞状细胞癌C.印戎细胞癌D.黏液腺癌E.髓样癌食管癌大多是
A国汽车制造商甲将其产品出口到B国,B国公民乙从代销商丙处购得一部汽车,后来由于汽车设计缺陷使乙受伤。乙以甲违约提起诉讼,B国法院根据该国法律认为此问题属于侵权,而非违约,遂决定适用有关侵权的法律规定。法院此行为属于:
当脚手板采用竹笆板时,纵向水平杆的间距应满足要求()。
发行()融资是一种融债券和股票于一体的融资方式。
根据公式可以看出:在腾起初速V0一定时,腾起角α越接近90°,其身体重心腾空的高度值()。
只有被告人供述,没有其他证据的不能认定被告人有罪和处以刑罚;没有被告人供述,证据充分确实的,可以认定被告人有罪和处以刑罚。()
已知向量组(I):α1,α2,α3;(Ⅱ):α1,α2,α3,α4;(Ⅲ):α1,α2,α3,α4,α5.如果各向量组的秩分别为r(I)=r(II)=3,r(Ⅲ)=4.证明向量组α1,α2,α3,α5-α4的秩为4.
最新回复
(
0
)