首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
考生文件夹下的工程文件sjt5.vbp中有一个初始内容为空的文本框Text1,两个标题分别是“读数据”和“计算”的命令按钮;请画一个标题为“各行平均数的最大值为”的标签Label2,再画一个初始内容为空的文本框Text2,如图3-106所示。 程
考生文件夹下的工程文件sjt5.vbp中有一个初始内容为空的文本框Text1,两个标题分别是“读数据”和“计算”的命令按钮;请画一个标题为“各行平均数的最大值为”的标签Label2,再画一个初始内容为空的文本框Text2,如图3-106所示。 程
admin
2018-10-29
36
问题
考生文件夹下的工程文件sjt5.vbp中有一个初始内容为空的文本框Text1,两个标题分别是“读数据”和“计算”的命令按钮;请画一个标题为“各行平均数的最大值为”的标签Label2,再画一个初始内容为空的文本框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 Else If Max<Avg Then Max=Avg End If Next 步骤3:按<F5>键运行程序,先单击“读数据”按钮,接着单击“计算”按钮,然后单击窗体右上角的关闭按钮结束程序。按要求将文件保存至考生文件夹中。
解析
转载请注明原文地址:https://kaotiyun.com/show/f3Fp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设有如下事件过程:PrivateSubForm_Click() Sum=0 Fork=1To3 Ifk
在窗体上画一个命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click() a$=InputBox("请输入一个二进制数") n=Len(a$) Fori=1Ton Dec=Dec*2+
在窗体上添加"控件"的正确的操作方式是( )。
如果要在窗体上使用2组单选按钮,每组都可以有一个被选中,则应该做的是( )。
以下选项中,不合法的VisualBasic的变量名是( )。
下列针对框架控件的叙述中,错误的是( )。
下面不是键盘事件的是( )。
VB中有这样一类文件:该文件不属于任何一个窗体,而且仅包含程序代码,这类文件的扩展名是( )。
数据库设计中反映用户对数据要求的模式是( )。
随机试题
菲德勒在领导方式测评的基础上,将领导工作所面临的环境具体分解为以下情景因素( )
下列哪种情况下应用抗生素是合理的
肺心病与慢性支气管炎、肺气肿的临床征象有很多相似点,但不同点是肺心病具有
女,45岁,近2年来食欲增强,伴多尿,多饮,消瘦,尿糖(+++),应考虑的诊断是
在圆弧顶(底)形成的过程中,表现出的特征有()。
甲公司要求借用乙公司的会计档案,乙公司予以拒绝。检察机关因办案取证的需要,要求借用乙公司的会计档案,经乙公司会计机构负责人批准,供检察机关查阅或复制并办理登记手续。乙公司的行为符合会计档案管理办法的规定。()
一般能力又称为智力。()
“共同富裕”并不是“均富”,“共同富裕”战略的实施不是依靠简单的________,不是进行简单的平均主义,不是去限制合法的、________的致富活动而是要从劳资和谐、利润共享、代际平衡、公共服务的均等化、行业进入公平化和自由化、规范和发展慈善事业等方面来
SupposeyouareLiMing.Duringtheweek-longholiday,youjoinedapackagetourorganizedbyatravelagencytothecityofBei
Ittakesjustacoupleoflittletwiststoturnthesematchsticksintoamessage.Canyoufindtheword?
最新回复
(
0
)