首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
阅读程序: Option Base 1 Private Sub Form_Click() Dim Arr(3, 3) As Integer For i = 1 To 3 For j = 1 To 3 If j =
阅读程序: Option Base 1 Private Sub Form_Click() Dim Arr(3, 3) As Integer For i = 1 To 3 For j = 1 To 3 If j =
admin
2018-09-19
49
问题
阅读程序:
Option Base 1
Private Sub Form_Click()
Dim Arr(3, 3) As Integer
For i = 1 To 3
For j = 1 To 3
If j = i Or j = 3 - i + 1 Then
Arr(i, j) = 1
Else
Arr(i, j) = 0
End If
Next j
Next i
For i = 1 To 3
For j = 1 To 3
Print Arr(i, j);
Next j
Print
Next i
End Sub
程序运行后,如果单击窗体,则输出结果为
选项
A、1 1 1 1 1 1 1 1 1
B、0 0 0 0 0 0 0 0 0
C、1 0 0 0 1 0 0 0 1
D、1 0 1 0 1 0 1 0 1
答案
D
解析
第一个For循环给数组Arr赋值。第二个For循环打印数组各元素的值。在第一个For循环中,数组的下标用变量i表示,上标用变量j表示。If…Else语句对两种情况进行判断,在i等于j的时候或者i和j满足j = 3 - i + 1关系的时候,Arr数组元素被赋值为1,其它情况被赋值为0。可以根据循环语句的执行,代入各变量值算得各元素的值。选D。
转载请注明原文地址:https://kaotiyun.com/show/FnFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
编写如下程序:DimxAsInteger,yAsInteger,zAsIntegerPrivateSubCommand1_Click()DimxAsIntegerx=2:y=3:z=10
在考生文件夹下有一个工程文件sjt5.vbp,其功能是:①单击“读数据”命令按钮,则将考生文件夹下in5.dat文件中的100个正整数读人数组a中,同时显示在文本框Text1中。②单击“素数”按钮,则将数组a中所有素数(只能被1和自身整除的
设窗体上有一个列表框控件List1,含有若干列表项。以下能表示当前被选中的列表项内容的是( )。
有如下程序代码:PrivateSubForm_Click()DimflagAsBooleanDimNumAsIntegerflag=TrueNum=0DoDoW
下面关于数组声明:Dimarr()AsInteger的叙述中正确的是
如果把程序的启动对象设置为:SubMain,则SubMain过程
以下关系表达式中,其值为True的是( )。
下面不属于软件设计阶段任务的是
某二叉树共有12个节点,其中叶子节点只有1个。则该二叉树的深度为(根节点在第1层)()。
下面不属于软件工程的3个要素是
随机试题
简述解决组织摩擦的方法。
下列记账凭证中,可以不附原始凭证的是()。
lO.孔子说:“学而时习之”。这体现了下列哪一教学原则?()
A.葡萄糖B.Na+C.K+D.球蛋白E.白蛋白血浆晶体渗透压主要来自
A、肝俞B、心俞C、脾俞D、肺俞E、肾俞第2腰椎棘突下旁开1.5寸的腧穴是
设三阶方阵A的特征值为1,2,-2,它们所对应的特征向量分别为α1,α2,α3,令P=(α1,α2,α3),则P-1AP=()。
下列记录中,属于监理服务“产品”的有()。
路面的使用要求指标有()。
我国会计法对会计机构负责人的任职资格是如何规定的?
抵押期限应小于或等于贷款期限。()
最新回复
(
0
)