首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
考生文件夹下的工程文件sjt5.vbp中有一个初始内容为空的文本框Text1,两个标题分别是“读数据”和“计算”的命令按钮;请画一个标题为“各行平均数的最大值为”的标签Labe12,再画一个初始内容为空的文本框Text2,如图3—106所示。 程
考生文件夹下的工程文件sjt5.vbp中有一个初始内容为空的文本框Text1,两个标题分别是“读数据”和“计算”的命令按钮;请画一个标题为“各行平均数的最大值为”的标签Labe12,再画一个初始内容为空的文本框Text2,如图3—106所示。 程
admin
2019-05-14
18
问题
考生文件夹下的工程文件sjt5.vbp中有一个初始内容为空的文本框Text1,两个标题分别是“读数据”和“计算”的命令按钮;请画一个标题为“各行平均数的最大值为”的标签Labe12,再画一个初始内容为空的文本框Text2,如图3—106所示。
程序功能:①单击“读数据”按钮,则将考生文件夹下in5.dat文件的内容读入20行5列的二维数组a中,并同时显示在Text1文本框内;
②单击“计算”按钮,则自动统计二维数组a中各行的平均数,并将这些平均数中的最大值显示在Text2文本框内。
“读数据”按钮的Click事件过程已经给出,请编写“计算”按钮的Click事件过程实现上述功能。注意:考生不得修改窗体文件中已经存在的控件和程序,在结束程序运行之前,必须用“计算”按钮进行计算,且必须用窗体右上角的关闭按钮结束程序,否则无成绩。最后,程序按原文件名存盘。
选项
答案
【操作步骤】 步骤1:打开考生文件夹中的本题工程文件sjt5.vbp,在窗体Form1中画一个标签和一个文本框,其属性及值如表4—64所示。 [*] 步骤2:打开代码编辑窗口,在指定位置编写以下代码。参考代码: For i=1 To 20 Sum=0 For j=1 To 5 Sum=Sum+a(i,j) Next Avg=Sum/5 If i=1 Then Max=Avg ElseIf Max<Avg Then Max=Avg End If Next
解析
转载请注明原文地址:https://kaotiyun.com/show/SHUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列关于工程的叙述中错误的是()。
阅读程序:PrivateSubForm_Click()DimxAsInteger,yAsIntegerx=32:y=42CallPCS(x,y)Printx;yEndSubSubPCS(ByValnAsIntege
下面描述中不属于数据库系统特点的是
下面属于白盒测试方法的是
在考生文件夹下有一个工程文件sjt4.vbp,其窗体如图所示。该程序用来对在上面的文本框中输入的英文字母串(称为“明文”)加密,加密结果(称为“密文”)显示在下面的文本框中。加密的方法为:选中一个单选按钮,单击“加密”按钮后,根据选中的单选按钮后面的数字n
编写如下程序:PrivateSubCommand1_Click()DimxAsInteger,yAsIntegerx=1:y=1Doy=x*yIfy>10ThenPrintx,yExitDoElsex=x+3En
设有下面程序代码:PrivateSubCommand1_Cliek()DimaAsVairanta=Array(22,43,23,56,87,45,67,12,98,98,56,34,23,75,64)m=a(0)n=mFork=1
考生文件夹下有一个工程文件sjt3.vbp。程序的功能是:通过键盘向文本框中输入数字,如果输入的是非数字字符,则提示输入错误,且文本框中不显示输入的字符。单击名称为Command1、标题为“添加”的命令按钮,则将文本框中的数字添加到名称为Combo1的组合
随机试题
美国历史上实施“祖父条款”的目的是()
急性肾衰竭的恢复期每日尿量为
计算L1D2/LD2的比值,对于提高下列哪种疾病诊断的敏感性和特异性有帮助
男,19岁,患病1周,牙龈乳头坏死,前牙唇侧明显,坏死形成溃疡处凹陷,表面灰白色假膜,触之;出血明显,口腔有腐性口臭。体温37.8℃,颊下淋巴结肿痛,既往未出现全身明显异常现象。预计检查后异常表现在
患者,胁痛隐隐,绵绵不休,口干咽燥,舌红少苔,脉细弦而数。方选
我国轻纺工业已形成了相当规模和一定的国际竞争力,轻纺工业产值、出口额占全国工业总产值、工业产品出口额的()和()、()、()、()、()、服装等产品产量已居世界前列。
焊接质检人员的职责包括()。
下列()不属于民事法律的基本原则。
巴尔干战争
I’vealwaysbeenanoptimistandIsupposethatisrootedinmybeliefthatthepowerofcreativityandintelligencecanmaketh
最新回复
(
0
)