首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上命令按钮Commandl的事件过程如下: Option Base1 Private Sub Commandl_Click() Dim a(4,4)As Variant For i=1 To 4 For j=1 To 4 a(i,j)=
窗体上命令按钮Commandl的事件过程如下: Option Base1 Private Sub Commandl_Click() Dim a(4,4)As Variant For i=1 To 4 For j=1 To 4 a(i,j)=
admin
2020-06-30
48
问题
窗体上命令按钮Commandl的事件过程如下:
Option Base1
Private Sub Commandl_Click()
Dim a(4,4)As Variant
For i=1 To 4
For j=1 To 4
a(i,j)=(i-1)*3+j
Next i
Next i
For i=3 To 4
For j=3 To 4
Print a(i,j)
Next i
Next i
End Sub
该程序执行后,输出结果是( )。
选项
A、9
10
12
13
B、7
10
12
13
C、9
12
10
13
D、8
11
9
12
答案
A
解析
本题考查二维数组元素的赋值。二维数组中a中第i行i列元素为(i-1)*3+j,i、j分别从3变化到4,因此,输出a(3,3)、a(3,4)、a(4,3)、a(4,4)的元为:9 10 12 13。
转载请注明原文地址:https://kaotiyun.com/show/jbHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Form1的窗体上画一个水平滚动条,其名称为HScroll1,然后通过属性窗口设置窗体和滚动条的属性,实现如下功能:①窗体标题为“设置滚动条属性
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Form1的窗体上画一个名称为Text1的文本框,其高、宽分别为400、2000。运行后的窗体如图3-112所示。请在属性框中设置适当的属性满足以下要求:
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Form1的窗体上用名称为Shape1的形状控件画一个长、宽均为1200的正方形。请设置适当的属性满足以下要求:①窗体的标题为“正方形”,窗
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Form1的窗体上画一个名称为L1的标签,标题为“请确认”;再画两个命令按钮,名称分别为C1、C2,标题分别为“是”、“否”,高均为300、宽均为8
假定编写了如下的Sub过程:PublicSubProc(a()AsInteger)StaticiAsIntegerDoa(i)=a(i)+a(i+1)i=i+1LoopWhilei<2EndSub编写如下事件过程:Priv
要使得文件列表框File1中只显示文件扩展名为jpg的图片文件,则下列正确的语句是
某二叉树中度为2的结点有10个,则该二叉树中有()个叶子结点。
一棵二叉树中共有80个叶子结点与70个度为1的结点,则该二叉树中的总结点数为
在E-R图中,用来表示实体的图形是
由高中数学可知,对于连续函数f(x),若f(x1)与f(x2)值的符号相反,则在x1和x2之间必存在x0,使得f(x0)=0(该点称为“零点”)。设有VB函数:PrivateFunctionf(xAsSingle)AsSingle可以返回f(x)
随机试题
下列哪项不是气虚证的表现
A、边缘扩展阳性B、尼氏征(Nikotsdy)阳性C、雷诺征阳性D、针刺反应阳性E、Wickham纹天疱疮的皮肤损害特点为
酒精拭浴
如图6-41所示,垂直放置的矩形平板挡水,水深3m,静水总压力P的作用点到水面的距离yD为()m。
背景资料:某公路桥梁,下部构造为桩柱式桥墩,重力式桥台。施工单位工程部门在编制工程质量控制体系实施细则时,对墩柱施工中规定质量控制关键点如下:(1)柱身钢筋骨架质量控制;(2)柱身平面位置控制;(3)柱身模板强度、刚
通过许振超的“一钩净”,你认可下列说法中的()。许振超发明“二次停钩”的做法表明()。
学生运用知识的主要目的在于()
对并行数据库_________的研究是研究如何对数据库中的关系进行划分,并把它们分布到多个处理器或多个磁盘。
以下程序执行后,在窗体上输出的图案是()。Form1.ClsFora=1To5PrintSpace(5-a);String(a,"*")Nexta
Notuntilthatday_____theimportanceofgoodmannersinajobinterview.
最新回复
(
0
)