首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
阅读程序: Option Base 1 Private Sub Form_Click() Dim Arr(3,3)As Integer For i=1 To 3 For j=1 To 3 ifj=i Or j=3-i+1 Then Arr(i
阅读程序: Option Base 1 Private Sub Form_Click() Dim Arr(3,3)As Integer For i=1 To 3 For j=1 To 3 ifj=i Or j=3-i+1 Then Arr(i
admin
2015-05-29
17
问题
阅读程序:
Option Base 1
Private Sub Form_Click()
Dim Arr(3,3)As Integer
For i=1 To 3
For j=1 To 3
ifj=i Or j=3-i+1 Then
Arr(i,j)=1
Else
Arr(i,j)=0
End If
Next i
Next i
For i=1 To 3
Forj=1 To 3
PrintArr(i,j);
Next i
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
解析
本题是用一个二重循环为二维数组赋值,只有满足下标j=i或者j=3-i+1才将其设置为1,否则设置为0,如果写出这个二维数组可以看出,两个对角线的元素被设置成1。
转载请注明原文地址:https://kaotiyun.com/show/uRQp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个名称为Command1的命令按钮和三个名称分别为Label1、Label2、Label3的标签,然后编写如下代码:PrivatexAsIntegerPrivateSubCommand1_Click()St
在窗体上添加一个文本框,名为Textl,然后编写如下的Load事件过程,则程序的运行结果是PrivateSubForm_Load()Text1.Text=""Text1.Setfocust=1Fork=10
设有一个10个元素的数组,下列程序将该数组的第一个元素与第十个元素交换,第二个元素与第九个元素交换……,第五个元素与第六个元素交换,请补充完该程序。PrivateSubCommnd1_Click()Dima(1
有如下程序,该程序的执行结果是【】。PrivateSubCommand1_lick()Fori=1To4x=4Forj=1To3
在窗体上画一个命令按钮(其Name属性为Command1),然后编写如下代码:PrivateSubCommand1_Click()Dima(5,5)Fori=1To3
下面程序运行后的输出结果是PrivateSubCommand1_Click()Forj=1To10IfjMod3<>0Thena=a+j\3NextPrinta
下列程序运行时输出的结果是OptionBase1PrivateSubForm_Click()Dimx(10)AsInteger,y(5)AsIntegerFori=1to10
下列事件过程运行后输出结果是PrivateSubCommand1_Click()PrintFormats(123,456,"###,##%")EndSub
随机试题
核酶(ribozyme)
A.不典型增生细胞超过全层的2/3,但未累及上皮全层B.不典型增生细胞累及全层,未突破基底膜C.二者均是D.二者均不是CINⅢ是指
患者男性,46岁,出现血尿,首先应考虑
A.防风通圣散B.清暑汤C.五味消毒饮D.五神汤E.仙方活命饮合增液汤热毒蕴结型疖宜选用的内服方是
患者老年女性,间歇性无痛性血尿1年,近期又出现血尿,伴尿频、尿急、尿痛,排尿困难。应首先考虑的是
下列为防范土方开挖过程中塌方风险而采取的措施,属于风险转移对策的是()。
在计算机和手工并行阶段,应当注意()。
在《有特色的脸》一课的美术课堂上,教师引导学生观察和认识每张面孔的特点,或丰满、或清瘦、或慈祥、或甜美、或严厉……然后让学生回忆过去的自己,并将自己的成长作为一部分跨越性的想象,有趣味地学习人在不同年龄时期的体貌特征规律。运用欣赏、夸张、变形、添加等艺术手
以下说法正确的是:
Thesmallsizeofthecomponentsofcomputerchipshasprovedunstoppable.Ineachnew(1)_____,thosecomponentsaresmalleran
最新回复
(
0
)