阅读程序： Option Base 1 Private Sub Form_Click() Dim Arr(3, 3) As Integer For i = 1 To 3 For j = 1 To 3

admin2015-08-28 23

问题阅读程序：
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
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://jikaoti.com/ti/g5J0FFFM

本试题收录于：二级VB题库NCRE全国计算机二级分类

二级VB

NCRE全国计算机二级

相关试题推荐

随机试题

最新回复(0)

阅读程序： Option Base 1 Private Sub Form_Click() Dim Arr(3, 3) As Integer For i = 1 To 3 For j = 1 To 3

二级VB

NCRE全国计算机二级

在窗体上画一个名称为List1的列表框，一个名称为Label1的标签。列表框中显示若干城市的名称。当单击列表框中的某个城市名时，在标签中显示选中城市的名称。下列能正确实现上述功能的程序是______。

当一个工程含有多个窗体时，其中的启动窗体是______。

下列程序的功能是：弹出一个对话框询问用户是否输出，如果是，则输出；否则结束。请填空。SubPrintOut()DimaAsIntegera=MsgBox("输出结果?"，vblnformation+vbYesNo，"提示:")Ifa=__

若要添加CommonDialog控件，则应从“工程”菜单中选定“部件”，在“部件”对话框的“控件”选项卡中选择______，将控件添加到工具箱中。

数据的独立性分为逻辑独立性与物理独立性。当数据的存储结构改变时，其逻辑结构可以不变，因此，基于逻辑结构的应用程序不必修改，这称为______。

待排序的关键码序列为(33，18，9，25，67，82，53，95，12，70)，要按关键码值递增的顺序排序，采取以第一个关键码为基准元素的快速排序法，第一趟排序后关键码33被放到第()个位置。

下列叙述正确的是()。

在窗体上画一个名称为Label1、标题为“VisualBasic考试”的标签，两个名称分别为Command1和Conlmand2、标题分别为“开始”和“停止”的命令按钮，然后画一个名称为Timer1的计时器控件，并把其Interval属性设置为500，如图

唯一能区别一个控件的属性是______。

在数据的存储结构中，不仅需要存储各数据元素的信息，还要存放各元素之间______的信息。

女性患儿10岁，2周前曾有咽疼及发热史，近4天尿量减少，尿色似洗肉水色，眼睑水肿。对该患儿处理错误的是

肝硬化病人行肝功能试验检查，代偿期正常或_，失代偿期多有_。

李女士停经44天，突然发生剧烈腹痛，伴恶心、呕吐、阴道有少量流血、有排便感。体检：血压70／50mmHg，下腹压痛(+)，宫颈举痛(+)，下腹部有移动性浊音，最可能诊断为()。

患者，男，30岁。黎明前泄泻，不思饮食，腹痛腰酸，肢冷乏力，舌淡苔薄白，脉沉迟无力。治疗应首选

欧文采取的领导方式是()。能带来生产高效率的是()。

在英美法系国家，制定法占有重要地位，而判例一般不是正式意义上的法律渊源。()

()的人很善于解决需要多个同等可接受答案的问题，这些答案强调多样性和创造性。

在公共财政管理中，受益者是特殊个人或群体时，一般采用()的形式更符合效率原则。

WhatistheauthortryingtoprovewiththequotationofWinstonChurchill?Accordingtothepassage,whatis"oneofthemost

阅读程序： Option Base 1 Private Sub Form_Click() Dim Arr(3, 3) As Integer For i = 1 To 3 For j = 1 To 3

二级VB

NCRE全国计算机二级

在窗体上画一个名称为List1的列表框，一个名称为Label1的标签。列表框中显示若干城市的名称。当单击列表框中的某个城市名时，在标签中显示选中城市的名称。下列能正确实现上述功能的程序是______。

当一个工程含有多个窗体时，其中的启动窗体是______。

下列程序的功能是：弹出一个对话框询问用户是否输出，如果是，则输出；否则结束。请填空。SubPrintOut()DimaAsIntegera=MsgBox("输出结果?"，vblnformation+vbYesNo，"提示:")Ifa=__

若要添加CommonDialog控件，则应从“工程”菜单中选定“部件”，在“部件”对话框的“控件”选项卡中选择______，将控件添加到工具箱中。

数据的独立性分为逻辑独立性与物理独立性。当数据的存储结构改变时，其逻辑结构可以不变，因此，基于逻辑结构的应用程序不必修改，这称为______。

待排序的关键码序列为(33，18，9，25，67，82，53，95，12，70)，要按关键码值递增的顺序排序，采取以第一个关键码为基准元素的快速排序法，第一趟排序后关键码33被放到第()个位置。

下列叙述正确的是()。

在窗体上画一个名称为Label1、标题为“VisualBasic考试”的标签，两个名称分别为Command1和Conlmand2、标题分别为“开始”和“停止”的命令按钮，然后画一个名称为Timer1的计时器控件，并把其Interval属性设置为500，如图

唯一能区别一个控件的属性是______。

在数据的存储结构中，不仅需要存储各数据元素的信息，还要存放各元素之间______的信息。

女性患儿10岁，2周前曾有咽疼及发热史，近4天尿量减少，尿色似洗肉水色，眼睑水肿。对该患儿处理错误的是

肝硬化病人行肝功能试验检查，代偿期正常或_______，失代偿期多有_______。

李女士停经44天，突然发生剧烈腹痛，伴恶心、呕吐、阴道有少量流血、有排便感。体检：血压70／50mmHg，下腹压痛(+)，宫颈举痛(+)，下腹部有移动性浊音，最可能诊断为()。

患者，男，30岁。黎明前泄泻，不思饮食，腹痛腰酸，肢冷乏力，舌淡苔薄白，脉沉迟无力。治疗应首选

欧文采取的领导方式是()。能带来生产高效率的是()。

在英美法系国家，制定法占有重要地位，而判例一般不是正式意义上的法律渊源。()

()的人很善于解决需要多个同等可接受答案的问题，这些答案强调多样性和创造性。

在公共财政管理中，受益者是特殊个人或群体时，一般采用()的形式更符合效率原则。

WhatistheauthortryingtoprovewiththequotationofWinstonChurchill?Accordingtothepassage,whatis"oneofthemost

肝硬化病人行肝功能试验检查，代偿期正常或_，失代偿期多有_。