首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
考生文件夹下的工程文件sjt5.vbp中有一个初始为空的文本框Text1,两个标题分别是“读数据”和“计算”的命令按钮;请添加一个标题为“各行最小数的平均值为”的标签Lahel2,再添加一个初始为空的文本框Text2,如图所示。 程序功能如下: ①
考生文件夹下的工程文件sjt5.vbp中有一个初始为空的文本框Text1,两个标题分别是“读数据”和“计算”的命令按钮;请添加一个标题为“各行最小数的平均值为”的标签Lahel2,再添加一个初始为空的文本框Text2,如图所示。 程序功能如下: ①
admin
2020-06-30
41
问题
考生文件夹下的工程文件sjt5.vbp中有一个初始为空的文本框Text1,两个标题分别是“读数据”和“计算”的命令按钮;请添加一个标题为“各行最小数的平均值为”的标签Lahel2,再添加一个初始为空的文本框Text2,如图所示。
程序功能如下:
①单击“读数据”按钮,则将考生文件夹下in5.dat文件的内容读入20行5列的二维数组a中,同时在Text1文本框内显示。
②单击“计算”按钮,程序则自动统计二维数组中各行的最小数,并将这些最小数的平均值显示在Text2文本框内。
“读数据”按钮的Click事件过程已经给出,请编写“计算”按钮的Click事件过程实现上述的功能。
注意:考生不得修改窗体文件中已经存在的控件和程序,在结束程序运行之前,必须进行“计算”,且必须用窗体右上角的关闭按钮结束程序,否则无成绩。最后,程序按原文件名进行存盘。
选项
答案
【操作步骤】 步骤1:打开本题工程文件,添加一个标题为"各行最小数的平均值为"的标签Label2,再添加一个初始内容为空的文本框Text2。 步骤2:分析并编写程序代码。 程序提供代码 Option Base 1 Dim a(20, 5) As Integer Private Sub Command1_Click() Open App.Path & "\in5.dat" For Input As #1 For i = 1 To 20 For j = 1 To 5 Input #1, a(i, j) Text1 = Text1 + Str(a(i, j)) + Space(2) Next j Text1 = Text1 + Chr(13) + Chr(10) Next i Close #1 End Sub Private Sub Command2_Click() ’考生编写 End Sub Private Sub Form_Unload(Cancel As Integer) Open App.Path & "\out5.dat" For Output As #1 Print #1, Text2.Text Close #1 End Sub 程序结束 参考答案 Private Sub Command2_Click() ’考生编写 Dim sum As Long Dim min As Long Dim b(20) As Integer For i = 1 To 20 min = a(i, 1) For j = 1 To 5 If a(i, j) < min Then min = a(i, j) End If Next j b(i) = min Next i sum = 0 For i = 1 To 20 sum = sum + b(i) Next Text2 = sum / 20 End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/unHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
假定有如下语句:answer$=MsgBox(“Stringl”,“String2”,“String3”,2)执行该语句后,将显示一个信息框,单击其中的“确定”按钮,则answer$的值为()。
假定通过复制、粘贴操作建立了一个命令按钮数组Command1,以下说法中错误的是( )。
有下面程序代码:PrivateSubCommand1_Click()a=3s=0Fork=1To5s=s+aModka=a+kNext
下面正确使用动态数组的是()。
窗体上有一个名称为HScroll1的滚动条,程序运行后,当单击滚动条两端的箭头时,立即在窗体上显示滚动框的位置(即刻度值)。下面能够实现上述操作的事件过程是()。
在标准模块中,将a定义为全局整型变量的语句是
设窗体上有1个垂直滚动条,已经通过属性窗口把它的Max属性设置为1,Min属性设置为100。下面叙述中正确的是()。
设有语句:Open"c:\Test.Dat"ForOutputAs#1则以下叙述中错误的是( )。
为了通过传值方式来传送过程参数,在函数声明部分应使用的关键字为( )。
在窗体模块的声明部分声明变量时,不能使用的关键字是
随机试题
男性55岁,2天前发生急性心肌梗死,一小时前突发喘憋,略有粉红泡沫痰,不能平卧,既往体检时心脏听诊无异常发现。体检:BP90/60mmHg,心尖部可闻及4/6级粗糙的收缩期杂音,双肺满布中小水泡音及哮鸣音。该患者喘憋最可能的原因是
患者,男性,16岁,2天前有进不洁水果史。现出现发热38.5℃,腹痛、腹泻,里急后重,每天大便次数逾10次,已用过氯霉素、卡那霉素未见效果,仍有脓血便。选用下列何种抗菌药物较有针对性
关于高血压患者的护理措施应除外()
甲、乙、丙等人购买了丁公司开发的月桂小区中的商品房,丁公司在售楼广告中明确表示,保证每一户都能拥有至少一个车位。入住后,丁公司将小区地下车位以及地面部分道路和绿地改造的车位全部出售,被业主一抢而光。等到甲、乙、丙等人购买了汽车后,发现已经没有车位可供停车了
连接于Intemet网上的计算机遵守的是()协议。
下列关于风险和风险量的说法,错误的是()。
【2013上】对童年期的学生,在教学内容上应多讲一些比较具体的知识和浅显的道理;在教学方法上,应多采用直观教具。这体现了教育要适应儿童身心发展的哪一个特点?()
应用数据库的主要目的是______。
下面是求最大公约数的函数的首部()。Functionfun(ByValxAsInteger,ByValyAsInteger)AsInteger若要输出8、12、16这3个数的最大公约数,下面正确的语句是
Worriedaboutprescriptiondrugs?Howtoweighyourrisk?[A]WhenthepainrelieverVioxxwaswithdrawnfromtheworldwidemark
最新回复
(
0
)