首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件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
2020-06-30
24
问题
在考生文件夹下有一个工程文件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 ’Ope.App.Path&"\"&"datain.txt"?As #1 For i=1 To N For j=1 To M ’? Next j Next i 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 Printl.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:调试并运行程序,关闭程序后按题目要求存盘。
解析
本题须先定义一个数组,然后以输入方式打开文件in5.仅t,并在一个嵌套的For循环中用Input# 读入数据并赋值给每个数组元素。然后再通过一个嵌套的For循环将数组arr中的数据在窗体上按5行、5列的矩阵形式显示出来,最后将数组arr中第1维下标与第2维下标之和为6的数组元素显示在窗体上。
转载请注明原文地址:https://jikaoti.com/ti/AgS0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设有如下通用过程:PublicFunctionf(xAsInteger) DimyAsInteger x=20 y=2 f=x*yEndFunction在窗体上画一个命令按钮,其名称为Command1,然后编写如下
下列程序的执行结果为()。A=“5”:B=“6”A=Val(A)+Val(B)B=VaI(“56”)IfA◇BThenPrintA-BElsePrintB.A
以下叙述中正确的是
在窗体上画一个命令按钮,其名称为Command1,然后编写如下代码:OptionBase1PrivateSubCommand1_Click() Dima a=Array(1,2,3,4) j=1 Fori=4To1
以下程序执行后,在窗体上输出的图案是()。Form1.ClsFora=1To5PrintSpace(5-A);String(a,"*") Nexta
窗体上有1个名称为Text1的文本框,1个名称为Label1的标签。程序运行后,如果在文本框中输入信息,则立即在标签中显示相同的内容。以下可以实现上述操作的事件过程为
软件生命周期可分为定义阶段、开发阶段和维护阶段,下面不属于开发阶段任务的是
数据库中对概念模式内容进行说明的语言是()。
某二叉树有5个度为2的结点,则该二叉树中的叶子结点数是
在设计阶段,假定在图片框Picturel中装入了一个图形,为了删除该图片框控件,应采用的正确操作是
随机试题
设z=xF’(y,x/y),其中函数f具有一阶连续偏导数,求全微分dz.
当使用硬膜外麻醉时,能加速局麻药起效和延长作用持续时间,并提供最大的感觉和运动阻滞深度的做法是
关于流行性脑脊髓膜炎的叙述,错误的是
社会主义的根本目的是()。
甲公司是一家提供社交媒体服务的互联网公司,乙公司是一家著名的电子商务公司。2015年,甲公司和乙公司签署交换彼此30%股份的战略合作协议。根据协议,双方将在网络支付服务方面进行合作,同时,甲公司将向乙公司提供社交媒体客户端的一级入口位置及其他主要平台的支持
(2014年)甲公司20×3年财务报表于20×4年4月10日对外报出。假定其20×4年发生的下列有关事项均具有重要性,甲公司应当据以调整20×3年财务报表的是()。
Sociologistsusethetermpowertorefertothecapacityofpeopleorgroupstocontrolorinfluencetheactionsofothers,whet
DothefollowingstatementsagreewiththeinformationgiveninReadingPassage2?Inboxes20-26onyouranswersheet,writeT
WhatisthenumberofurbanpopulationinChina?
Theylikedto______aroundtheblazedfirewhenitisbitterlycoldinthehouse.
最新回复
(
0
)