首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp,相应的窗体文件为sjt5.frm,此外还有一个名为datain.txt的文本文件,其内容如下: 32 43 76 58 28 12 98 57 31 42 53 64 75
在考生文件夹下有一个工程文件sjt5.vbp,相应的窗体文件为sjt5.frm,此外还有一个名为datain.txt的文本文件,其内容如下: 32 43 76 58 28 12 98 57 31 42 53 64 75
admin
2017-07-28
83
问题
在考生文件夹下有一个工程文件sjt5.vbp,相应的窗体文件为sjt5.frm,此外还有一个名为datain.txt的文本文件,其内容如下:
32 43 76 58 28 12 98 57 31 42 53 64
75 86 97 13 24 35 46 57 68 79 80 59 37
程序运行后,单击窗体,将把文件datain.txt中的数据输入到二维数组Mat中,按5行、5列的矩阵形式在窗体上显示出来,并输出矩阵右上一左下对角线上的数据,如图所示。在窗体的代码窗口中,已给出了部分程序,这个程序不完整,请把它补充完整,并能正确运行。
要求:去掉程序中的注释符,把程序中的?改为正确的内容,使其实现上述功能,但不能修改程序中的其他部分。最后将修改后的文件按原文件名存盘。
选项
答案
步骤1:打开本题工程文件。 步骤2:分析并编写程序代码。 程序提供代码 Option Base 1 Private Sub Form_Click() Const N:5 Const M=5 ’Dim? Dim i,j ’Open App.Path&"\"&"datain.txt"?As #1 For i=1 To N For j=1 To M ’? Next j Next 1 Close #1 Print Print"初始矩阵为:" Print For i=1 To N For j=1 To M Print Tab(5*j);Mat(i,j); Next j Print Next i Print:Print Print"右上一左下对角线上的数为:" For i=1 To N For j=1 To M ’If?Then Print Tab(5*i);Mat(i,j); End If Next j Next i End Sub 程序结束 参考答案 第1个?处填入:Mat(N,M)As Integer 第2个?处填入:Fox Input 第3个?处填入:Input #1,Mat(i,j) 第4个?处填入:i+j=6 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
本题须先定义一个数组,然后以输入方式打开文件in6.txt,并在一个嵌套的For循环中用Input#读入数据并赋值给每个数组元素。然后再通过一个嵌套的For循环将数组aft中的数据在窗体上按5行、5列的矩阵形式显示出来,最后将数组arr中第1维下标与第2维下标之和为6的数组元素显示在窗体上。
转载请注明原文地址:https://kaotiyun.com/show/8xGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
关系模型允许定义3类数据约束,它们是【】约束、参照完整性约束以及用户定义的完整性约束。
在窗体上画一个名称为CommonDialogl的通用对话框,一个名称为Commandl的命令按钮。然后编写如下事件过程:PrivateCommand1_Click()CommonDialogl.FileName=""C
下列叙述中不正确的是______。
详细设计的结果基本决定了最终程序的
如果准备读文件,打开顺序文件"text.dat"的正确语句是
以下叙述中错误的是
若有一个动态数组a有两个元素a(0)和a(1),现要令数组a有三个元素a(0)、a(1)和a(2),则应当使用【】语句。
下列可作为VisualBasic变量名的是______。
数据库的逻辑模型设计阶段的任务是将______转换成关系模式。
数据字典是软件需求分析阶段的最重要的工具之一,其最基苯的功能是______。
随机试题
SQL语句:DELETEFROMJZGlWHEREXB=‘男’执行后的作用是______________。
鉴别是指
A、易复性疝B、难复性疝C、嵌顿性疝D、绞窄性疝E、滑动性疝疝块突然增大,不能回纳。伴有疼痛并引起肠瘘
下列各项中,最终会引起所有者权益总额发生增减变化的有()。
《旅游投诉处理办法》规定,需要立即制止、纠正被投诉人的损害行为的,应当由()旅游投诉处理机构管辖。
直角三角形ABC,∠A=30°,AC=20厘米,BC=10厘米,以C为定点将三角形旋转到AC与BC成一直线,求图中阴影部分面积。()
行政机关为牟取本单位私利,对应当依法移交司法机关追究刑事责任的不移交,以行政处罚代替刑罚。上级行政机关责令其纠正,拒不纠正的,应()处理。
109,254,345,454,680,()。
周初大分封的情况和对分封制的评议。(北京大学2006年中国古代史真题)
设则B等于().
最新回复
(
0
)