首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp,相应的窗体文件为sjt5.frm,此外还有一个名为datain.txt的文本文件,其内容如下: 32 43 76 58 28 12 98 57 31 42 53 64 75 86 97 13 2
在考生文件夹下有一个工程文件sjt5.vbp,相应的窗体文件为sjt5.frm,此外还有一个名为datain.txt的文本文件,其内容如下: 32 43 76 58 28 12 98 57 31 42 53 64 75 86 97 13 2
admin
2020-08-10
38
问题
在考生文件夹下有一个工程文件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列的矩阵形式在窗体上显示出来,并输出矩阵右上一左下对角线上的数据,如图所示。在窗体的代码窗口中,已给出了部分程序,这个程序不完整,请把它补充完整,并能正确运行。
要求:去掉程序中的注释符,把程序中的?改为正确的内容使其实现上述功能,但不能修改程序中的其他部分。最后将修改后的文件按原文件名存盘。
选项
答案
本题须先定义一个数组,然后以输入方式打开文件in5.txt,并在一个嵌套的For循环中用Input#读入数据并赋值给每个数组元素。然后再通过一个嵌套的For循环将数组arr中的数据在窗体上按5行、5列的矩阵形式显示出来最后将数组arr中第1维下标与第2维下标之和为6的数组元素显示在窗体上。 步骤1:打开本题工程文件。 步骤2:分析并编写程序代码。 程序提供代码 Option Base 1 Private Sub Form_Crick( ) 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 Nexti Close#1 Print Print“初始矩阵为:” Print For i=1 To N For j=1 To M Print Tub(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)AsInteger 第2个?处填入:For Input 第3个?处填入:Input#1,Mat(i,j) 第4个?处填入:i+j=6 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/cqHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
编写如下程序:PrivateSubCommand1Click0DimnumAsInteger,kAsInteger,nAsIntegernum=InputBox("请输入一个正整数:")k=numn=2DoD
下列关于栈的描述中错误的是
下列叙述中正确的是
窗体上有一个名称为Commandl的命令按钮,单击该按钮时所实现的功能是产生10个随机整数,然后从键盘输入一个整数,查找该数在数组中的位置。若找到,输出该数的位置;若没有找到,给出相应的提示。该命令按钮的单击事件过程如下:PrivateSub
以下关于单选按钮和复选框的叙述中,正确的是
以下关于事件、事件驱动的叙述中,错误的是
下面能够将某个变量声明为局部变量的是
每所学校都有一名校长,而每个校长只在一所学校任职,则实体学校和实体校长之间的联系是()。
某人编写了如下程序,用来求10个整数(整数从键盘输入)中的最大值:PrivateSubCommand1_Click()Dima(10)AsInteger,maxAsIntegerFork=1To10
软件测试的目的是
随机试题
下列哪项CT表现是诊断主动脉瓣狭窄的特征性征象
Rh血型抗原属于
典型的沙门菌属硫化氢、靛基质、尿素、氰化钾、赖氨酸脱羧酶的生化反应是
医疗机构未制定有关防范和处理医疗事故,应给予
治疗风寒感冒,脾胃气滞,气滞胎动,鱼蟹中毒的药是
符合室内配线保护要求的是()。
某鞋业公司几十年一直生产和经营各种皮鞋,产品质量卓越,顾客信誉好,使得公司经营规模不断扩大,并在最近十几年里一直处于国内皮鞋市场的领先地位。在2003年下半年,公司领导层通过环境分析,认为随着人们收入水平的提高和生活方式的改变,人们对运动鞋的需求将不断增长
乙公司2014年12月有关资料如下表:注:(1)期初的未分配利润130万元中有80万元是年初未分配利润,其余50万元是2014年1月至11月的未分配利润。至11月末,2014年没有进行利润分配。(2)投资收益30万元是购买国库券的利息收入。(3)营
学校教育对人的发展的作用是无条件的,万能的。
A.tofindjobsB.todolow-skilljobsC.tofeeditspeopleD.tohandledisputesE.tomakeaprofitF.to
最新回复
(
0
)