首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp,相应的窗体文件为sjt5.frm,此外还有一个名为datain.txt的文本文件,其内容如下: 32437658281298573142536475869713243546576879805937 程序运行后单
在考生文件夹下有一个工程文件sjt5.vbp,相应的窗体文件为sjt5.frm,此外还有一个名为datain.txt的文本文件,其内容如下: 32437658281298573142536475869713243546576879805937 程序运行后单
admin
2020-02-27
103
问题
在考生文件夹下有一个工程文件sjt5.vbp,相应的窗体文件为sjt5.frm,此外还有一个名为datain.txt的文本文件,其内容如下:
32437658281298573142536475869713243546576879805937
程序运行后单击窗体,将把文件datain.txt中的数据输入到二维数组Mat中,在窗体上按5行、5列的矩阵形式显示出来,然后交换矩阵第二列和第四列的数据,并在窗体上输出交换后的矩阵,如图2-15所示。在窗体的代码窗口中,己给出了部分程序,这个程序不完整,请把它补充完整,并能正确运行。
要求:去掉程序中的注释符,把程序中的?改为正确的内容(可以是多行),使其实现上述功能,但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。
选项
答案
步骤1:打开本题对应工程文件件sjt5.vbp。 步骤2:打开代码编辑窗口,去掉程序中的注释符”’“,将问号”?”改为正确的内容。 参考代码: Dim Mat (M, N) As Integer Open App.Path& “\” & “datain.txt” For_ Input As # 1 Input #1,Mat(i,j) Mat(i,4)=t 步骤3:按要求将文件保存在考生文件夹中。
解析
转载请注明原文地址:https://kaotiyun.com/show/2HTp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
编写如下程序:PrivateSubCommand1_Click()Dima(3,3)AsIntegerDimiAsInteger,jAsIntegerFori=1To3Forj=
有以下通用过程:Functionfun(NAsInteger) s=0 Fork=1ToN s=s+k*(k+1) Nextk fun=sEndFunction该过程的功能是( )。
把一个名称为mnuOpen的菜单项设置为不可用(呈灰色显示)的语句是()。
下列叙述中正确的是( )。
下列关于水平滚动条的叙述中,错误的是
满足下列条件之一的年份是闰年:1)年份能被4整除但不能被100整除2)年份能被400整除若y代表年份,下面判断闰年的正确表达式是( )。
下面是求最大公约数的函数的首部:Functiongcd(ByValxAsInteger,ByValyAsInteger)AsInteger若要输出8、12、16这3个数的最大公约数,下面正确的语句是( )。
表达式Int(-15.8)+Fix(-15.8)+Int(15.8)+Fix(15.8)的运算结果是()。
下列选项中属于面向对象设计方法主要特征的是( )。
检查软件产品是否符合需求定义的过程称为
随机试题
简述劳动卫生制度的法律特征。
4岁患儿,夏季高热8小时,抽搐2小时,呕吐一次,体温40℃,血压56/28mmHg,昏睡状,面色苍白,腮腺不大,四肢紧张,肢冷,腱反射亢进,皮肤花纹状,心肺腹未见异常,周围血象WBC17×109/L,粪便镜检:WBC7/HP,应首选考虑
双胎的处理下列哪项是正确的
男性,22岁。手枪子弹射中左股根部2天。体检发现伤口红肿,有少许脓性分泌物,且子弹只有入口没有出口。应采取的治疗措施是
关于级配碎石基层,下列说法中不正确的是()。
某商业银行托管部的段某每天都能看到某证券投资基金股市资金的投向组合,他把这些信息翻译成一套数字谐音符号通过QQ发给股友参考,段某的做法()。
从承租人的角度来看,杠杆租赁与售后租回或直接租赁并无区别。()
邓小平曾经指出,毛泽东最伟大的功绩是建设了一个无产阶级的革命政党。()
Uptothebeginningofthetwentiethcentury,thenervoussystemwasthoughttocontrolallcommunicationwithinthebodyandth
Youwillfindit______youradvantagetolearnsomeFrenchbeforeyouvisitFrance.
最新回复
(
0
)