首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
阅读程序: Option Base 1 Private Sub Form_Click( ) Dim Arr(3,3)As Integer For i=1 To 3 For j=1 To
阅读程序: Option Base 1 Private Sub Form_Click( ) Dim Arr(3,3)As Integer For i=1 To 3 For j=1 To
admin
2020-05-11
28
问题
阅读程序:
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 Arr(i,j);
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/fEHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
(1)在考生文件夹下有工程文件sjt5.vbp,窗体上有两个标题分别是“读数据”和“统计”的命令按钮,请添加一个名称为Label1、标题为“回文的个数为”的标签和一个名称为Text1,初始值为空的文本框,如图3-87所示。程序功能如下:①单击“读
在考生文件夹下有一个工程文件vbsj5.vbp,请先装入该工程文件,然后完成以下操作:在名称为Form1的窗体上画两个命令按钮,其名称分别为cmdRead和cmdCal,标题分别为“读入数据”和“计算保存”(如图3-61所示)。程序运行后,如果单击“读入数
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Form1的窗体上建立一个如下表所示的下拉菜单,其中“设置”菜单项为灰色(不可用),如图3-137所示。注意:存盘时必须存放在考生文件夹下,工
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Form1的窗体上画1个命令按钮,其名称为C1,标题为“等级考试”;再画1个文本框,名称为T1,如图3-184(a)所示。请编写适当的事件过程,使程序运行
下面关于VB应用程序的叙述中正确的是
窗体上有一个名称为Cbl的组合框,程序运行后,为了输出选中的列表项,应使用的语句是()。
以下关于文件的叙述中,错误的是( )。
设有如下函数:FunctionDelSpace(chAsString)AsInteger Dimn%,st$,c$ st="" n=0 Fork=1ToLen(ch) c=Mid(ch,k,1) I
设有语句:Open"c:\Test.Dat"ForOutputAs#1则以下叙述中错误的是()。
软件生命周期可分为定义阶段,开发阶段和维护阶段。详细设计属于
随机试题
从经济观点看,提高总转化率比提高单程转化率更有利。()
属β-内酰胺酶抑制药的是
在计算应纳税所得额时,下列支出不得扣除的有()。
某进口设备按人民币计算,离岸价为2000万元,到岸价为2100万元,银行手续费为10万元,进口关税为210万元,消费税为零,增值税税率为17%,则其增值税额为( )万元。
注册会计师应列为审计工作底稿的文件包括()。
Shebelievesthat________cancatchtheworm.
材料题:知识产权广义上是关于无形智力成果的专有权利,是通过排除他人的主张和干预而独占智力成果的开发和使用,进而获得独占权益的制度。基于知识产权的______属性,财产理论成为知识产权制度的核心理论。具体到知识产权与公共领域的二元关系中,则是一方面强调权利人
ThehistoryoftheexplorationofAntarcticarecountsmanytalesofperseveranceandsuffering.
WhatisEntertainmentTonight?
"Equalpayforequalwork"isaphraseusedbytheAmericanwomenwhofeelthattheyareunfairlytreatedbysociety.Theysayi
最新回复
(
0
)