首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
阅读程序: Option Base 1 Private Sub Form—Click() Dim Arr(3,3)As Integer For i=1 To 3 For j=1 To 3 Ⅱj=i Or j=3一i+1 Then Arr(i,j)=1 El
阅读程序: Option Base 1 Private Sub Form—Click() Dim Arr(3,3)As Integer For i=1 To 3 For j=1 To 3 Ⅱj=i Or j=3一i+1 Then Arr(i,j)=1 El
admin
2017-12-13
59
问题
阅读程序:
Option Base 1
Private Sub Form—Click()
Dim Arr(3,3)As Integer
For i=1 To 3
For j=1 To 3
Ⅱ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/VuGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
有如下过程:SubSS(ByValX,ByRefY,Z)X=X+1Y=Y+1Z=Z+1EndSub执行该过程的事件过程如下:PrivateSubCommand1_Click()A=
窗体上有三个按钮Command1、Command2和Command3,如以下代码所示,该程序的功能是______。PrivateSubCommand1_Click()CommandEnabled=FalseCommandVisible
要获得文件列表框中当前被选中的文件的文件名,则应使用哪个属性______。
在窗体上添加一个命令按钮,名为Command1,其单击事件中有下列程序段,则事件过程执行后,文本框中输出()。Fori=1To4Forj=1To3x=3Fork=1To2K=x+3NextkNextjNext
下面程序段中正确的是()。
为了执行自动拖放,必须把_____属性设置为1。
某二叉树共有60个叶子结点与50个度为1的结点,则该二叉树中的总结点数为()。
执行下面的程序段,x的值为【】。 PrivateSubCommand1_Click() Fori=1To9 a=a+i Nexti x=Val(i) MsgBoxx EndSub
假定建立了一个名为Command1的命令按钮数组,则下列说法中错误的是()。
下列叙述菜单设计的语句正确的是()。
随机试题
在Excel中,要清除选定单元格中的内容,最快捷的操作是()。
WhatwillRebeccadoonJune12?
CulturalDifferencesinEnglandandFranceCulturaldifferencescantakemanyforms.IhavenoticedmanydifferencesinFren
关于抗凝血酶(AT)的临床意义,正确的是()。
房地产项目的定价策略,是指开发商为了在目标市场上实现自己的定价目标,所规定的定价指导思想和定价原则。房地产总体定价策略一般可分为()。
背景A施工单位承担了某航站楼民航专业弱电系统工程施工任务,系统的机柜与服务器由业主提供。该工程4月1日开始施工,在施工过程中遇到以下情况:情况一:4月3日起,因业主原因停工3d。情况二:4月3日上午上班时,项目经理乙被告知应于该日到货安装的机柜将于7
下列关于水闸工程施工的说法正确的是()。
根据《票据法》的规定,下列关于本票的表述中,不正确的是()。
你要去参加一个会议,会上有你的发言,但是路上交通堵塞,无法前进也无法后退,你该怎么办?追问:你下车时撞到一位老太太,当场晕迷,你该怎么办?
YouwillhearashortmonologurtalkingaboutwhycarsaresopopularinAmerica.Foreachquestion(23-30),markoneletter(A,
最新回复
(
0
)