首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim a(1 To 3, 1 To 3), x x=Array(1,2,3,4,5,6,7,8
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim a(1 To 3, 1 To 3), x x=Array(1,2,3,4,5,6,7,8
admin
2013-01-23
73
问题
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim a(1 To 3, 1 To 3), x x=Array(1,2,3,4,5,6,7,8,9) For i=1 To 3 For i-1 To 3 a(i,j)=x(i*j-1) Next j Next i Call sub1(i,j,a()) End Sub Private Sub sub1(m,n,t) For m=1 To 3 For n=1 To 3 Print t(m,n); Next n Print Next m End Sub 程序运行后,单击命令按钮,则窗体上显示的内容是
选项
A、1 2 3 2 5 8 3 6 9
B、1 2 3 2 4 6 3 6 9
C、3 6 9 2 5 8 1 2 3
D、3 6 9 2 4 6 1 2 3
答案
2
解析
本题程序的主要功能是将一维数组部分元素读入到二维数组然后调用函数输出,注意语句a(i,j)-x(i*j-1),结果是d(i,j)和。(j,i)的值相同,而不是顺序地将一维数组读入到二维数组。
转载请注明原文地址:https://www.kaotiyun.com/show/brhp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画了两个按钮控件Command1和Command2,有如下程序:PrivateSubCommand1_Click()Print"Visual";EndSubPrivateSubCommand2
在数据结构中,用—组地址连续的存储单元一次存储数据元素的方式是【】结构。
下列()数据类型占8个字节。
在窗体中添加一个命令按钮,名称为Command1;添加一个文本框,名称为Textl,然后编写如下程序:PrivateSubCommand1_Click()Dima(5),b(5)Forj:1
在数据库的三级模式体系结构中,模式与内模式之间的映像(模式/内模式)实现了数据库的【】独立性。
启动窗体在“工程属性”对话框中指定,为了打开该对话框,应执行【】菜单中的【】命令。
已知通用对话框名为Cd1g,则执行下列的()语句,将弹出“颜色”对话框对话框。
在窗体模块的通用部分有一条语句"PublicAAsInteger",则变量A的作用域是()。
以下叙述中错误的是
在窗体上有若干控件,其中有一个名称为Text1的文本框。影响Text1的Tab顺序的属性是______。
随机试题
轻度肺炎患儿出现呼吸困难时,进食时应()。
动机具有引发、______和______的功能。
层厚是指扫描后一幅图像对应的断面厚度。层厚与图像分辨率的关系是
李某驾驶载员30人的大客车以正常速度沿公路驶向码头,行至离江边29米的斜坡上时,总泵皮碗突然破裂、刹车失灵(行为人在开车前已按照规定全面对汽车作了检查,未发现任何问题),李某连踩了3下脚闸,并立即拉了手闸,均不能把车刹住。李某想到,如果驾驶汽车左拐就要坠落
某公司共有员工160人,其构成的饼图如图2—1所示,则中级管理人员数为()人。
不涉及现金收支的投资和筹资活动的项目有()。
辛某到县公安机关报案称其被陈某强奸,公安机关传讯了陈某,陈某称他与辛某是恋爱关系。公安机关遂作出不立案决定,并向辛某送达了不立案通知书。辛某对不立案决定不服而采取的哪一项措施不符合法律规定?()
Youaregoingtoreadalistofheadingsandatextaboutplagiarismintheacademiccommunity.Choosethemostsuitableheading
Longtimeago,everyoneknewthatregularbedtimeswereimportant."Dreamon!"mostmodernparentsmightreply.Butresearchby
AskanAmericanschoolchildwhatheorsheislearninginschoolthesedaysandyoumightevengetareply,providedyouaskit
最新回复
(
0
)