编写如下程序： Private Sub Command l Cliek() Dim a(3，3)As Integer，s As Integer For i=1 To 3 Forj=l To 3 a(i，j)=i*j+i Nextj Next i s=0 F

admin2015-12-09 54

问题编写如下程序：
Private Sub Command l Cliek()
Dim a(3，3)As Integer，s As Integer
For i=1 To 3
Forj=l To 3
a(i，j)=i*j+i
Nextj
Next i
s=0
For i=1 To 3
s=S+a(i，4-i)
Next i
Print s
End Sub
程序运行后，单击命令按钮Commandl，输出结果为

选项 A、7
B、13
C、16
D、20

答案C

解析本题中首先用一个二重循环为二维数组的每一个元素赋值，然后累加二维数组的部分元素，即依次累加a(1，3)、a(2，2)、a(3，1)的值，相当于对角线求和。

转载请注明原文地址:https://www.kaotiyun.com/show/oALp777K

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

二级VB

NCRE全国计算机二级

相关试题推荐

在软件设计中，不属于过程设计工具的是()。
在窗体上画一个名称为Commandl的命令按钮，再画两个名称分别为Labe11、Labe12的标签，然后编写如下程序代码：PrivateXAsIntegerPrivateSubCommandl_Click()X=5:Y
当执行以下过程时，在名为lplResult的标签框内将显示()。PrivateSubcmdlt_C1ick()Dimi，rr=0Fori=1To5Step1r=r+i
在窗体上画一个名称为Listl的列表框，为了对列表框中的每个项目都能进行处理，应使用的循环语句为()。
下列程序是将数组a的元素倒序交换，即第1个变为最后一个，第2个变为倒数第2个，完成下列程序。PrivateSubBackward(a())DimiAsInteger,TmpAsIntegerFori=1To5
编写如下事件过程和函数过程：PrivateSubForm_Chck()DimBum(1To6)AsSinglenum(1)=103:num(2)=190:num(3)=0Bum(4)=32:num(5)=-56:n
要清除已经在图片框P1中打印的字符串而不清除图片框中的图像，应使用语句()。
下列程序段的执行结果为()。a=0:b=1Doa=a+bb=b+1LoopWhilea＜10Printa；b

随机试题

确定组织是否有提供新产品或重新设计产品的能力的阶段是()
Dreamisastorythataperson"watches"oreventakespartinduringsleep.Dreameventsareimaginary,buttheyarerelatedto
依《国有企业改革中划拨国有土地使用权管理暂行规定》规定，抵押权实现时，()。
建筑安装工程费由人工费、材料费和施工机械使用费构成。()
(　　)是构成工程实体的基础，其质量是工程项目实体质量的组成部分。故加强它们的质量控制，不仅是保证工程质量的必要条件，也是实现工程项目投资目标和进度目标的前提。
下列关于RiskCalc模型的说法，正确的是()。
信天游的特点是()。
国家赔偿的主要方式为()。
对于诗句“安得广厦千万间，大庇天下寒士俱欢颜”的说法正确的是()。
设n＞1，n元齐次方程组AX＝0的系数矩阵为A＝(1)讨论a为什么数时AX＝0有非零解?(2)在有非零解时求通解．

最新回复(0)

编写如下程序： Private Sub Command l Cliek() Dim a(3，3)As Integer，s As Integer For i=1 To 3 Forj=l To 3 a(i，j)=i*j+i Nextj Next i s=0 F

二级VB

NCRE全国计算机二级

在软件设计中，不属于过程设计工具的是()。

在窗体上画一个名称为Commandl的命令按钮，再画两个名称分别为Labe11、Labe12的标签，然后编写如下程序代码：PrivateXAsIntegerPrivateSubCommandl_Click()X=5:Y

当执行以下过程时，在名为lplResult的标签框内将显示()。PrivateSubcmdlt_C1ick()Dimi，rr=0Fori=1To5Step1r=r+i

在窗体上画一个名称为Listl的列表框，为了对列表框中的每个项目都能进行处理，应使用的循环语句为()。

下列程序是将数组a的元素倒序交换，即第1个变为最后一个，第2个变为倒数第2个，完成下列程序。PrivateSubBackward(a())DimiAsInteger,TmpAsIntegerFori=1To5

编写如下事件过程和函数过程：PrivateSubForm_Chck()DimBum(1To6)AsSinglenum(1)=103:num(2)=190:num(3)=0Bum(4)=32:num(5)=-56:n

要清除已经在图片框P1中打印的字符串而不清除图片框中的图像，应使用语句()。

下列程序段的执行结果为()。a=0:b=1Doa=a+bb=b+1LoopWhilea＜10Printa；b

确定组织是否有提供新产品或重新设计产品的能力的阶段是()

Dreamisastorythataperson"watches"oreventakespartinduringsleep.Dreameventsareimaginary,buttheyarerelatedto

依《国有企业改革中划拨国有土地使用权管理暂行规定》规定，抵押权实现时，()。

建筑安装工程费由人工费、材料费和施工机械使用费构成。()

( )是构成工程实体的基础，其质量是工程项目实体质量的组成部分。故加强它们的质量控制，不仅是保证工程质量的必要条件，也是实现工程项目投资目标和进度目标的前提。

下列关于RiskCalc模型的说法，正确的是()。

信天游的特点是()。

国家赔偿的主要方式为()。

对于诗句“安得广厦千万间，大庇天下寒士俱欢颜”的说法正确的是()。

设n＞1，n元齐次方程组AX＝0的系数矩阵为A＝(1)讨论a为什么数时AX＝0有非零解?(2)在有非零解时求通解．

(　　)是构成工程实体的基础，其质量是工程项目实体质量的组成部分。故加强它们的质量控制，不仅是保证工程质量的必要条件，也是实现工程项目投资目标和进度目标的前提。