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

admin2015-05-29 55

问题编写如下程序：
Private Sub Command 1 Click()
Dim a(3，3)As Integer，s As Integer
For i=1 To 3
For j=1 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
程序运行后，单击命令按钮Command1，输出结果为

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

答案C

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

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

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

二级VB

NCRE全国计算机二级

相关试题推荐

设有如下程序PrivateSubFormClick()DimaAsInteger，bAsIntegera=20：b=50p1a，bp2a，b
在窗体上画一个命令按钮，名称为Command1，然后编写如下程序：PrivateSubCommand1_Click()Fori=1To2Forj=1ToiPr
设R是一个2元关系，S是一个3元关系，则下列运算中正确的是()。
单击命令按钮执行下列程序，其输出结果是()。PrivateSubCommand1_Click()DimaAsInteger,bAsInteger,cAsIntegera=3b=4
下述程序执行后，输出结果是()。Forn=3To1Stew-1x$=String$(n,"#")Printx$Nextn
下列程序段的执行结果为()。DimA(3,3)ForM=1To3ForN=1To3IfN=MOrN=3-M+1ThenA(M,N)=1
下面的程序代码实现将一个一维数组中元素向右循环移动，移位次数由文本框Text1输入。例如数组各元素的值依次为0,1,2,3,4,5,6,7,8,9,10;移动三次后，各元素的值依次为8,9,10,0,1,23,4,5,6,
以下叙述不正确的是______。
表达式14/5*2的值是______。
按条件f对关系R进行选择，其关系代数表达式为______。

随机试题

如下哪一项最能提示消化性溃疡发生了并发症
核酸中核苷酸之间的连接方式是
已知行列式，则A11+A21+A31+A41＝()。
以下是项目法人质量管理的主要内容有()。
甲县A公司与乙县B公司在丙县签订了买卖合同，合同约定履行地点为丁县；后双方发生纠纷，A公司拟提起民事诉讼。已知合同中未约定纠纷管辖法院，对该案有管辖权的法院有()。
甲公司向乙企业购买一批设备，开出一张票面金额为40万元的银行承兑汇票。出票日期为5月20日，到期日为8月20日。8月8日，乙企业持此汇票及有关发票和设备发运单据复印件向银行办理了贴现。已知同期银行年贷款利率为5％，年贴现率为3％，1年按360天计算，贴现银
Aroundtheworldmoreandmorepeoplearetakingpartindangeroussportsandactivities.Ofcourse,therehavealwaysbeenpeop
公文生效的标志是()。
阅读下面的文章，回答问题。细胞是人体和其他生物体的基本结构与功能单位。细胞膜将细胞内液和细胞外液分隔开来，使细胞独立于外部环境的变化而保持相对稳定的状态。维持内环境处于稳定状态是机体执行正常生理功能的必要条件，而这种状态的维持有赖于细胞内、外离子
aibi≠0，求A的全部特征值，并证明A可以对角化．

最新回复(0)

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

二级VB

NCRE全国计算机二级

设有如下程序PrivateSubFormClick()DimaAsInteger，bAsIntegera=20：b=50p1a，bp2a，b

在窗体上画一个命令按钮，名称为Command1，然后编写如下程序：PrivateSubCommand1_Click()Fori=1To2Forj=1ToiPr

设R是一个2元关系，S是一个3元关系，则下列运算中正确的是()。

单击命令按钮执行下列程序，其输出结果是()。PrivateSubCommand1_Click()DimaAsInteger,bAsInteger,cAsIntegera=3b=4

下述程序执行后，输出结果是()。Forn=3To1Stew-1x$=String$(n,"#")Printx$Nextn

下列程序段的执行结果为()。DimA(3,3)ForM=1To3ForN=1To3IfN=MOrN=3-M+1ThenA(M,N)=1

下面的程序代码实现将一个一维数组中元素向右循环移动，移位次数由文本框Text1输入。例如数组各元素的值依次为0,1,2,3,4,5,6,7,8,9,10;移动三次后，各元素的值依次为8,9,10,0,1,23,4,5,6,

以下叙述不正确的是______。

表达式14/5*2的值是______。

按条件f对关系R进行选择，其关系代数表达式为______。

如下哪一项最能提示消化性溃疡发生了并发症

核酸中核苷酸之间的连接方式是

已知行列式，则A11+A21+A31+A41＝()。

以下是项目法人质量管理的主要内容有()。

甲县A公司与乙县B公司在丙县签订了买卖合同，合同约定履行地点为丁县；后双方发生纠纷，A公司拟提起民事诉讼。已知合同中未约定纠纷管辖法院，对该案有管辖权的法院有()。

Aroundtheworldmoreandmorepeoplearetakingpartindangeroussportsandactivities.Ofcourse,therehavealwaysbeenpeop

公文生效的标志是()。

aibi≠0，求A的全部特征值，并证明A可以对角化．