首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
考生文件夹下的工程文件sjt5.vbp中有1个初始内容为空的文本框Text1,2个标题分别是“读数据”和“计算”的命令按钮。请画1个名称为Labe12、标题为“各行平均值的最小值为”的标签,再画1个名称为Text2、初始内容为空的文本框。效果如图3—18所
考生文件夹下的工程文件sjt5.vbp中有1个初始内容为空的文本框Text1,2个标题分别是“读数据”和“计算”的命令按钮。请画1个名称为Labe12、标题为“各行平均值的最小值为”的标签,再画1个名称为Text2、初始内容为空的文本框。效果如图3—18所
admin
2017-11-27
68
问题
考生文件夹下的工程文件sjt5.vbp中有1个初始内容为空的文本框Text1,2个标题分别是“读数据”和“计算”的命令按钮。请画1个名称为Labe12、标题为“各行平均值的最小值为”的标签,再画1个名称为Text2、初始内容为空的文本框。效果如图3—18所示。
程序功能如下:
1)单击“读数据”按钮,则将考生文件夹下in5.dat文件的内容读入到20行6列的二维数组a中,并同时显示在Text1文本框内。
2)单击“计算”按钮,则自动统计二维数组a中各行的平均值,并将这些平均值中的最小值显示在Text2文本框内。“读数据”按钮的Click事件过程已经给出,请编写“计算”按钮的Click事件过程实现上述功能。
注意:考生不得修改窗体文件中已经存在的控件和程序,结束程序运行之前,必须进行“计算”,且必须用窗体右上角的关闭按钮结束程序,否则无成绩。最后,程序按原文件名存盘。
选项
答案
【操作步骤】 步骤1:打开考生文件夹中的工程文件sjt5.vbp,在窗体上加入一个标签和文本框,并设置其属性如表4—12所示。 [*] 步骤2:在代码编辑窗口中,去掉程序中的注释符“’”,将问号“?”改为正确的内容。参考代码: Private Sub Command2 Click() ’=========以下由考生编写========= Dim b(20)As Integer For i=1 TO 2 0 b(i)=0 For j=1 To 6 b(i)=b(i)+a(i,j) Next j b(i)=b(i)/6 Next i j=10000 For i=1 To 20 If b(i)<j Then j=b(i) Next Text2.Text=j ’=========考生编写程序结束========= End Sub 步骤3:按<F5>运行程序,单击各按钮测试验证。 步骤4:按要求将文件保存至考生文件夹中。
解析
转载请注明原文地址:https://kaotiyun.com/show/75Gp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列程序段的执行结果为______。I=0ForG=10To19Step3I=I+1NextGPrintI
假定有一个名为pic2.gif的图形文件,要在运行期间把该文件装入一个图片框(Picture1),应执行的语句是【】。
下列数据结构中,能用二分法进行查找的是______。
在窗体上画一个名称为Commandl的命令按钮,然后编写如下通用过程和命令按钮的事件过程:PrivateFunctionfun(ByValmAsInteger)IfmMod2=0Thenf
信息隐蔽的概念与下述哪一种概念直接相关______。
文件列表框控件的______属性用来确定在列表框中显示的文件类型。
设有下列语句:x=5Ifx>0Theny=1Y=5程序运行后,则下列叙述中正确的是()。
为了在运行时能显示窗体左上角的控制菜单框,必须______。
8.6787E+8写成普通的十进制数是()。
随机试题
遇前方道路上有机动车掉头时,应在其停车换挡的过程中迅速超越。
葫芦巴的入药部位是()(1998年第38题)
家庭评估的主要适应证包括
患者,男,19岁。患病1周,牙龈乳头坏死,前牙唇侧明显,坏死形成溃疡处凹陷,表面灰白色假膜,触之出血明显,口腔有腐性口臭。体温37.8℃,颏下淋巴结肿痛,既往未出现全身明显异常现象。有辅助诊断意义的检查是
健康促进的核心策略是()
按票面是否记载投资者姓名,股票可以分为国家股、法人股和社会公众股。()
在寿险、健康险和人身意外伤害险中,有几类险种在2013年5月的保险赔付支出额占全行业保险赔付支出总额的比重高于上年同期水平?()
从所给的四个选项中,选择最合适的一个填入问号处,使之呈现一定的规律性:
在考生文件夹下SORRY文件夹中新建一个文件夹WINBJ。
Thebestestimateofhumanity’secologicalfootprintsuggeststhatitnowexceedstheEarth’sregenerativecapacitybyaround20
最新回复
(
0
)