首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
阅读程序: 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
20
问题
阅读程序:
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://jikaoti.com/ti/g5J0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
决定一个窗体有无控制菜单的属性是______。
下列是一个体操评分程序。设满分为10分,20位评委,除去一个最高分和一个最低分,计算平均分。PrivateSubCommandl_Click()Max=0Min=10Fori=1To20
下列程序的运行结果是()。PrivateFunctionmyfun(m,n)DoWhilem>nDoWhilem>n:m=m-n:LoopDo
下列控件属性中,属性值的类型不相同的一项是()。
在文本框控件中,将Text的内容全部显示为用户所定义的字符的属性是()。
下列关于栈的叙述中正确的是______。
在窗体上画4个文本框(如图16-8所示),并用这4个文本框建立一个控件数组,名称为Text1(下标从0开始,自左至右顺序增大),然后编写如下事件过程:PrivateSubCommand1_Click()ForEachT
排序是计算机程序设计中的一种重要操作,常见的排序方法有插入排序、______和选择排序。
希尔排序法属于哪一种类型的排序法?______。
随机试题
MassStrandingsofWhales1.Thetidegoesoutsuddenly,【T1】________thewhales2.Massstrandingslinkedtoparasites
骑士教育
哪种情形无需注销执业医师注册
最能反映医患关系性质描述的是()
《治安管理处罚法》加强了对被处罚人的保护,主要体现在以下几个方面:()
耕作权的特点有()。
下列不属于应急预案演练组织单位策划部组成部分的是()。
甲公司拟在厂区内建造—幢新厂房,有关资料如下:(1)2011年1月1日向银行专门借款5000万元.期限为3年,年利率为6%,每年1月1日付息。(2)除专门借款外,公司只有两项—般借款。分别为公司于2010年12月1日借人的长期借款1000万元,期限为5
下述数据库系统属于第一代数据库系统的是
Readthearticlebelowandchoosethebestsentencefromthelistonthenextpagetofilleachofthegaps.Foreachgap(1-
最新回复
(
0
)