首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
阅读程序: 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
2020-07-22
93
问题
阅读程序:
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/i8Hp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
耦合性和内聚性是对模块独立性度量的两个标准。下列叙述中正确的是( )。
设窗体上有一个名称为Text1的文本框,并有下面的程序代码:PrivateSubForm_Load()KeyPreview=TrueEndSubPrivateSubForm_KeyPress(KeyAsciiAsInteger)Pr
某人编写了如下程序,用来求10个整数(整数从键盘输入)中的最大值:PrivateSubCommandl—Click()Dima(10)AsInteger,maxAsIntegerFork=lTo10
以下关于VB文件的叙述中,正确的是
为了声明一个长度为128个字符的定长字符串变量StrD,以下语句中正确的是( )。
下列关于通用对话框CommonDialog1的叙述中,错误的是( )。
在E-R图中.用来表示属性的图形是()。
窗体上有名称为Command1的命令按钮和名称为Text1的文本框PrivateSubCommand1_Click()Text1.Text="程序设计"Text1.SetFocusEndSubPrivateSubText1_GotF
数据库系统的三级模式不包括()。
随机试题
出版业要在出版物国际贸易中积极进口那些先进、科学、有益的出版物,坚决抵制落后、愚昧、有害的出版物,更要努力地把展示和弘扬我国文化建设成就的出版物出口到海外,积极传播与时俱进的中华民族优秀文化。()
在选择零件间的配合时,有相对运动的,应选择间隙配合,反之就选过盈配合()
韵味
患者,男,20岁。右下颌中位水平阻生第三磨牙拔除术后4小时,伤口仍出血。否认全身疾病史。分析出血原因。不包括
城市机场的选址应()为宜。
某食品厂为增值税一般纳税人,5月份的购销情况如下:(1)填开增值税专用发票销售应税货物,不含税销售额达到850000元;(2)填开普通发票销售应税货物,销售收入42120元;(3)购进生产用原料的免税农业产品,农产品收购发票注明买价580000元;
已知{an}为各项均为正数的数列,且其前n项和Sn满足等式:Sn2—(n2—2n+1)Sn+(n2—2n)=0.求数列{an}的通项公式an和前n项和Sn.
航天技术脱胎于二战时发展起来的弹道导弹技术,靠人力计算弹道十分困难.由此促成世界上第一台计算机的诞生,使人类进入信息时代;美国为了扩大空间优势,适应空间飞行的需要.促使集成电路的诞生和发展;如今,超市中货物编码随处可见,这项技术脱胎于阿波罗登月时用条形码对
Whatdoesthemanwanttobuy?
Theyallturnedadeafeartoheradvice,______theyknewitwouldbehelpfultoreducerisk.
最新回复
(
0
)