首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
考生文件夹下的工程文件sjt5.vbp中有一个初始为空的文本框Text1,两个标题分别是“读数据”和“计算”的命令按钮;请添加一个标题为“各行最小数的平均值为”的标签Lahel2,再添加一个初始为空的文本框Text2,如图所示。 程序功能如下: ①
考生文件夹下的工程文件sjt5.vbp中有一个初始为空的文本框Text1,两个标题分别是“读数据”和“计算”的命令按钮;请添加一个标题为“各行最小数的平均值为”的标签Lahel2,再添加一个初始为空的文本框Text2,如图所示。 程序功能如下: ①
admin
2020-06-30
38
问题
考生文件夹下的工程文件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全国计算机二级
相关试题推荐
以下关于VB文件的叙述中,正确的是
假定通过复制、粘贴操作建立了一个命令按钮数组Command1,以下说法中错误的是( )。
有下面程序代码:PrivateSubCommand1_Click()a=3s=0Fork=1To5s=s+aModka=a+kNext
窗体上有Text1、Text2两个文本框及一个命令按钮Command1,编写下列程序:DimyAsIntegerPrivateSubCommand1_Click()DimxAsIntegerx=2Text1.Text=p2(p1(
下列关于通用对话框CD1的叙述中,错误的是()。
下列关于算法复杂度叙述正确的是
窗体上有2个名称分别为Text1和Text2的文本框,1个名称为Command1的命令按钮。单击Command1时,Text1中选中的文本将显示在Text2中。下列能实现上述操作的事件过程是
下面不是键盘事件的是()。
设有语句:Open"c:\Test.Dat"ForOutputAs#1则以下叙述中错误的是( )。
设有如下数组定义语句:Dima(一1To4,3)AsInteger以下叙述中正确的是()。
随机试题
甲、乙是同事,因工作争执甲对乙不满,写了一份丑化乙的短文发布在丙网站。乙发现后要求丙网站删除,丙网站不予理会,致使乙遭受的损害扩大。关于扩大损害部分的责任承担,下列说法中正确的是()。
A、playsB、daysC、saysD、paysC
急性胰腺炎患者,下列指标中最易升高的是()
甲因虐待罪被判2年有期徒刑,缓期2年执行。2年考验期满后公安机关才发现甲在考验期间又犯故意伤害罪。那么对甲应当怎么处理?()
关于“临界点”叙述不正确的是( )。
质量审核过程的主要工作包括________。
党政机关公文划分文种的本质在于,一个文种就意味着一种()。
如图所示,在卫星通信过程中,当太阳光线把太阳、卫星、地面接收站连成一线时,会出现日凌现象,被人们称为“日凌中断通信”。下列日期中,我国可能出现“日凌中断通信”的是()。
中国特色社会主义思想道德与中国特色社会主义法律相辅相成、密不可分。二者的相辅相成关系主要体现在
HowPsychologyCanHelpthePlanetStayCool"I’mnotconvincedit’sasbadastheexpertsmakeout...It’severyoneelse’s
最新回复
(
0
)