首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
阅读程序: 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
65
问题
阅读程序:
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全国计算机二级
相关试题推荐
以下合法的VB变量名是()。
数据字典(DD)所定义的对象都包含于
窗体上有一个Text1文本框,并编写了下面事件过程:PrivateSubText1_KeyPress(KeyAsciiAsInteger) KeyAscii=KeyAscii+3EndSub程序运行时,在文本框中输入字符"A",则在文本
设窗体中有一个文本框Text1,若在程序中执行了Text1.SetFocus,则触发( )。
下面关于标准模块的叙述中错误的是( )。
下列叙述中正确的是( )。
为了在运行时能显示窗体左上角的控制框(即系统菜单),应执行的操作是
窗体如图1所示。要求程序运行时,在文本框Text1中输入一个姓氏,单击"删除"按钮(名称为Command1),则可删除列表框List1中所有该姓氏的项目。若编写以下程序来实现此功能:PrivateSubCommand1_Click() Dimn%
设a=2,b=3,c=4,d=5,下列表达式的值是( )。
下面不属于软件测试实施步骤的是
随机试题
若则D1==_______。
Mostpeoplearebornwiththenaturalabilityto【C1】________stories,butonlyararefewhavethedeterminationtobecome【C2】___
一级评价的补充观测应进行为期()的连续观测;二级评价的补充观测可选择有代表性的季节进行连续观测,观测期限应在()个月以上。
世界城市旅游联合会的工作方向是()。
下列表述准确的是()。
成功的关键,在于你能否持之以恒。
A.there’sjustnotenoughtimetoseethemall.B.theywouldhavetogivemethemoneytoattendthegamesaswell.C.Fromal
下列有关听觉理论说法正确的是()。
以下程序的输出结果是【】。#include<iostream.h>voidmain(){char*p="12345678",*r;long*q;q=(long*)
总结
最新回复
(
0
)