首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
阅读程序: Option Base 1 Private Sub Form_Click() Dim Arr(3, 3) As Integer For i = 1 To 3 For j = 1 To 3
阅读程序: Option Base 1 Private Sub Form_Click() Dim Arr(3, 3) As Integer For i = 1 To 3 For j = 1 To 3
admin
2015-08-28
50
问题
阅读程序:
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/m6Lp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
执行语句Open"C:\SDat.dat"ForInputAs#2后,系统()。
若有如下程序:PrivateSubCommand1_Click()DimiAsInteger,kAsIntegerk=2Fori=1To3PrintH(k)
只能用来显示文本信息的控件是()。
文本框TextBox中的内容若要设置为用户不能修改,应设置()属性。
用Print方法在Form1窗体中显示出4个#号的正确代码为()。
Text文本框接受的最长字符数由文本框的______属性确定。
在文本框中输入字符时,通过()事件过程可以得到字符的ASCII码值。
设有以下循环结构:Do循环体LoopWhile<条件>则以下叙述中错误的是______。
下列叙述中正确的是______。
随机试题
请简述柔性的含义。
为下列句子中划线的词释义外面下雨了,好在下得不大,下课你们回宿舍也不会淋湿的。
具有降气祛痰平喘、温肾纳气功效的方是
当工程规模较大或分期建设时,为方便工程施工和验收使用,现场施工控制测量应设()。
在完全竞争的情况下,价格曲线与平均成本曲线相切是()。
小朱担任技术开发部门主管之后,预见到今后5年IT业的技术开发业务会持续增长,他建议董事长派几名年轻技术人员到国外学习新的技术。指示人力资源部进行详细的决策分析之后,董事长最后采纳了他的建议。根据以上资料,回答下列问题:董事长采纳了小朱的建议是因为(
下面所述正确的是()。
()对于四边形相当于整数对于()
蓝星航线上所有货轮的长度都大于100米,该航线上所有客轮的长度都小于100米。蓝星航线上的大多数轮船都是1990年以前下水的。金星航线上的所有货轮和客轮都是1990年以后下水的,其长度都小于100米。大通港一号码头只对上述两条航线的轮船开放,该码头设施只适
Averyimportantworldproblemistheincreasingnumberofpeoplewhoactuallyinhabitthisplanet.Thelimitedamountoflanda
最新回复
(
0
)