首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp,相应的窗体文件为sjt5.frm,此外还有一个名为datain.txt的文本文件,其内容如下: 32 43 76 58 28 12 98 57 31 42 53 64 75 86
在考生文件夹下有一个工程文件sjt5.vbp,相应的窗体文件为sjt5.frm,此外还有一个名为datain.txt的文本文件,其内容如下: 32 43 76 58 28 12 98 57 31 42 53 64 75 86
admin
2015-06-30
31
问题
在考生文件夹下有一个工程文件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 Sum, i, j ’ Open 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 ’ Sum = ? For j = 1 To M ’ ? Next j Print Print "第三行各项的和为:"; Print Sum End Sub 程序结束 参考答案 第1个?处填入:Mat(5,5)As Integer 或Mat(N, M)As Integer 第2个?处填入:For Input 第3个?处填入:Input#1,Mat(i,j) 第4个?处填入:0 第5个?处填入:Sum=Sum+Mat(3,j) 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/NjQp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
窗体上有一个命令按钮Commalld1和一个列表框List1。先选择列表框中的某一个项目,然后单击命令按钮,将该项目从列表框删除。程序如下:PrivateSubCommand1_Click()DimInAsInteger
只能用来显示文本信息的控件是()。
文本框TextBox中的内容若要设置为用户不能修改,应设置()属性。
在窗体上画一个名称为Commandl的命令按钮和一个名称为Text1的文本框。程序运行后,Command1为禁用(灰色)。当向文本框中输入任何字符时,命令按钮Command1变为可用。请在______处填入适当的内容,将程序补充完整。Private
VisualBasic应用程序中标准模块文件的扩展名是______。
下列说明中,不属于随机文件特点的是()。
下列程序的执行结果是()。FunctionP(NAsInteger)Fori=1ToNSum=Sum+iNextiP=SumEndFunctio
下列关于图像框控件和图片框控件的说法错误的是()。
下列程序的功能是:找出给定的12个数中最大的一个数,然后输出这个数以及它在原来12个数中的位置。请填空。OptionBase1PrivateSubForm_Click()Dimxx=Array(57,-9,
随机试题
弹性式压力表主要分为单圈弹簧管压力表、多圈弹簧管压力表、波纹管式压力计、电接点压力表等。输气站常用的是()。
A.高颈段损害B.颈膨大损害C.胸髓损害D.腰膨大损害E.脊髓圆锥损害
强直收缩中,关于肌肉的动作电位描述不正确的是()。
资产负债表日,交易性金融资产的公允价值高于其账面余额的差额,借记“交易性金融资产”科目,贷记()。
()不属于劳动争议的标的。
“把一切事物教给一切人类的全部艺术”的提出者是
Heisbutachild.
Generallyspeaking,aBritishiswidelyregardedasaquiet,shyandconservativepersonwhois【C1】______onlyamongthosewithw
Doctor:_________Patient:I’vecaughtabadcoldandgotasourthroat.
WhydidJim’sparentshaveaserioustalkwithhimoneyearago?BecauseJimhadspentalotoftimeon______.
最新回复
(
0
)