首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
阅读程序: Option Base 1 Private Sub Form_Click() Dim Art(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
阅读程序: Option Base 1 Private Sub Form_Click() Dim Art(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
admin
2018-10-18
60
问题
阅读程序:
Option Base 1
Private Sub Form_Click()
Dim Art(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/RJFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下面属于白盒测试方法的是()。
下面属于黑盒测试方法的是()。
下面是求最大公约数的函数的首部:Functionged(ByValxAsInteger,ByValyAsInteger)AsInteger若要输出8、12、16这3个数的最大公约数,下面正确的语句是()。
设有如下Command1按钮的单击事件过程及fun过程:PrivateSubCommand1_Cliek()DimxAsIntegerx=Val(InputBox("请输入一个整数"))fun(x)
窗体上有一个名称为Command1的命令按钮,并有如下程序代码:OptionBase1PrivateSubCommand1_Click()Dima%(3,3)Fori=1To3Forj=
设在一个工程的窗体中有如下代码:PublicxAsIntegerPrivateSubForm_Load()DimyAsIntegerEndSub在该工程的标准模块的声明部分有如下代码:
下列数据结构中,属于非线性结构的是( )。
软件需求规格说明书的作用不包括
在数据库设计中,将E-R图转换成关系数据模型的过程属于( )。
一个教师可讲授多门课程,一门课程可由多个教师讲授。则实体教师和课程间的联系是( )。
随机试题
Onemoreassistantwillberequiredtocheckreporters’nameswhentheyarriveatthepressconference.
符合原发性甲亢的试验结果是
对施工招标的投标人进行资格预审的方法是( )。
国务院发布的“宽带中国”战略及实施方案提出,到()年宽带网络全面覆盖城乡。
阅读下面文章,回答下列问题。在生物和食品技术的应角领域,会经常使用肌动蛋白结合体,它产生于黑白霉。在植物中,肌动蛋白结合体约束着肌动蛋白的活动,而后者是植物细胞内部结构的主要组成部分,肌动蛋白结合体还干扰着植物的花粉管,阻止细胞成长。肌动蛋白结合体也
小刚在一次体检的过程中被检查出患有红绿色盲,而小刚的父母色觉正常,已知红绿色盲是一种遗传病,控制色盲的基因位于X染色体,且为隐性,下列说法不正确的是:
在间歇强化条件下,行为反应的特点是()
社会主义核心价值体系的精髓是
以下关于网络冗余设计的叙述中,错误的是()。
Therewasateapotfashionedlikeachinaduck,outof______openmouththeteawassupposedtocome.
最新回复
(
0
)