编写如下程序： Private Sub Commandl_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 Next

admin2020-04-18 47

问题编写如下程序：
Private Sub Commandl_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
Next i
  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://kaotiyun.com/show/3YTp777K

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

二级VB

NCRE全国计算机二级

相关试题推荐

(1)考生文件夹中有工程文件sjt3．vbp。在窗体上有名称为Combo1的组合框，请设置该组合框的属性，使该组合框只能用于选择操作，不能输入文本。窗体上还有两个标题分别为“输入正整数”、“判断”的命令按钮。程序运行时在组合框中选中一项，如图5(a)所示，
设有如下通用过程：PublicFunctionFun(xStrAsString)AsStringDimtStrAsString．strLAsIntegertStr=""strL=Len(xStr)i=1
设有如下通用过程：PublicFunctionf(xAsInteger)DimyAsIntegerx=20：y=2：f=x*yEndFunction在窗体上画一个命令按钮，其名称为C
下面是求最大公约数的函数的首部Functiongcd(ByValxAsInteger,ByValYAsInteger)AsInteger若要输出8、12、16这3个数的最大公约数，下面正确的语句是
有下面程序代码：PrivateSubCommandl_Click()DimaAsStringa=“COMPUTER”n=search(a，”T”)：PrintIIf(n=0，”未找到”，n)End
在窗体画一名为CommonDialogl，则下列与CommonDialogl．ShowOpen方法等效的语句是
在窗体上画一个通用对话框，程序运行中用ShowOpen方法显示“打开”对话框时，希望在该对话框的“文件类型”栏中只显示扩展名为DOC的文件，则在设计阶段应把通用对话框的Filter属性设置为
在VisualBasic环境下设计应用程序时，系统能自动检查出的错误是
设窗体上有一个Text1文本框和一个HScroll1水平滚动条，并有下面的事件过程：PrivateSubHScroll1_Change()Text1=HScrol11EndSub在程序运行时，当把滚动框移动到最左边时，文本框中显示的
某二叉树共有845个结点，其中叶子结点有45个，则度为1的结点数为

随机试题

LastFriday,afterdoingallthefamilyshoppinginthetown.Iwantedtohavearestbeforecatchingtherain.I【C1】______anew
某家庭预计今后15年内月收人为10000元，如果其中的35％可以用于支付住房抵押贷款的月还款。已知贷款年利率为12％，则该家庭有偿还能力的15年期最大抵押贷款申请额是()万元。[2005年考题]
根据《商业银行金融创新指引》的规定，商业银行应充分认识到金融创新与风险管理密不可分，风险管理是金融创新的内在要求。()
()是货币市场上最敏感的“晴雨表”。
作为人，在自己的一生中，第一要义当然是要好好活着，___________自己的家人，在力所能及的情况下帮助旁人，但又要有___________，在关键时刻和关键问题面前，能尽责任。填入划横线部分最恰当的一项是()。
________是实现人的全面发展的唯一途径。
设f(x)是[a，b]上的连续函数，且对于满足∫abg(x)dx=0的任意连续函数g(x)，都有∫abf(x)g(x)dx=0。证明：存在ξ∈[a，b]使得f(x)=f(ξ)恒成立。
已知圆的方程为x2+y2一6x一8y=0，设该圆过点(3，5)的最长弦和最短弦分别为AC和BD，则四边形ABCD的面积为()
由风险资本家融资的初创公司比通过其他渠道融资的公司失败率要低。所以，与诸如企业家个人素质、战略规划质量或公司管理结构等因素相比，融资渠道在初创公司的成功上是更重要的原因。以下哪项如果为真，最严重地削弱了上述结论?()
要在一块边长为48米的正方形地里种树苗，已知每横行相距3米，每竖行相距6米，四角各种一棵树苗。问一共可种多少棵树苗?()

最新回复(0)

编写如下程序： Private Sub Commandl_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 Next

二级VB

NCRE全国计算机二级

设有如下通用过程：PublicFunctionFun(xStrAsString)AsStringDimtStrAsString．strLAsIntegertStr=""strL=Len(xStr)i=1

设有如下通用过程：PublicFunctionf(xAsInteger)DimyAsIntegerx=20：y=2：f=x*yEndFunction在窗体上画一个命令按钮，其名称为C

下面是求最大公约数的函数的首部Functiongcd(ByValxAsInteger,ByValYAsInteger)AsInteger若要输出8、12、16这3个数的最大公约数，下面正确的语句是

有下面程序代码：PrivateSubCommandl_Click()DimaAsStringa=“COMPUTER”n=search(a，”T”)：PrintIIf(n=0，”未找到”，n)End

在窗体画一名为CommonDialogl，则下列与CommonDialogl．ShowOpen方法等效的语句是

在窗体上画一个通用对话框，程序运行中用ShowOpen方法显示“打开”对话框时，希望在该对话框的“文件类型”栏中只显示扩展名为DOC的文件，则在设计阶段应把通用对话框的Filter属性设置为

在VisualBasic环境下设计应用程序时，系统能自动检查出的错误是

设窗体上有一个Text1文本框和一个HScroll1水平滚动条，并有下面的事件过程：PrivateSubHScroll1_Change()Text1=HScrol11EndSub在程序运行时，当把滚动框移动到最左边时，文本框中显示的

某二叉树共有845个结点，其中叶子结点有45个，则度为1的结点数为

LastFriday,afterdoingallthefamilyshoppinginthetown.Iwantedtohavearestbeforecatchingtherain.I【C1】______anew

某家庭预计今后15年内月收人为10000元，如果其中的35％可以用于支付住房抵押贷款的月还款。已知贷款年利率为12％，则该家庭有偿还能力的15年期最大抵押贷款申请额是()万元。[2005年考题]

根据《商业银行金融创新指引》的规定，商业银行应充分认识到金融创新与风险管理密不可分，风险管理是金融创新的内在要求。()

()是货币市场上最敏感的“晴雨表”。

作为人，在自己的一生中，第一要义当然是要好好活着，___________自己的家人，在力所能及的情况下帮助旁人，但又要有___________，在关键时刻和关键问题面前，能尽责任。填入划横线部分最恰当的一项是()。

________是实现人的全面发展的唯一途径。

设f(x)是[a，b]上的连续函数，且对于满足∫abg(x)dx=0的任意连续函数g(x)，都有∫abf(x)g(x)dx=0。证明：存在ξ∈[a，b]使得f(x)=f(ξ)恒成立。

已知圆的方程为x2+y2一6x一8y=0，设该圆过点(3，5)的最长弦和最短弦分别为AC和BD，则四边形ABCD的面积为()

要在一块边长为48米的正方形地里种树苗，已知每横行相距3米，每竖行相距6米，四角各种一棵树苗。问一共可种多少棵树苗?()

作为人，在自己的一生中，第一要义当然是要好好活着，_自己的家人，在力所能及的情况下帮助旁人，但又要有_，在关键时刻和关键问题面前，能尽责任。填入划横线部分最恰当的一项是()。