首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
有下面程序代码: Private Sub Command1_Click() Dim a(3, 3) As Integer s = 0 For i = 1 To 3 For j = 1 To 3
有下面程序代码: Private Sub Command1_Click() Dim a(3, 3) As Integer s = 0 For i = 1 To 3 For j = 1 To 3
admin
2015-06-30
45
问题
有下面程序代码:
Private Sub Command1_Click()
Dim a(3, 3) As Integer
s = 0
For i = 1 To 3
For j = 1 To 3
a(i, j) = i * j
Next j
Next i
For j = 1 To 3
s = s + a(j, 4 - j)
Next j
Print s
End Sub
程序运行时的输出是
选项
A、10
B、14
C、18
D、6
答案
A
解析
当完成一组嵌套for循环后,可以得到如下数据:
a(1,1)=1×1=1 a(2,1)=2×1=2 a(3,1)=3×1=3
a(1,2)=1×2=2 a(2,2)=2×2=4 a(3,2)=3×2=6
a(1,3)=1×3=3 a(2,3)=2×3=6 a(3,3)=3×3=9
接着程序执行最后一个for循环,当j=1时,s=0+a(1,3)=0+3=3;当j=2时,s=3+a(2,2)=3+4=7;当j=3时,s=7+a(3,1)=7+3=10。故正确答案为选项A。
转载请注明原文地址:https://kaotiyun.com/show/kuQp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在鼠标事件过程MouseDown和MouseUp中,参数Button的值为1、2、4时,分别代表按下鼠标的______、______和______按钮。
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:OptionBase1PrivateSubCommand1_Click()Dimaa=Array(1,2,3,4,5)For
设有如下通用过程:PublicFunctionf(xAsInteger)DimyAsIntegerx=20y=2f=x*yEndFunction在窗体上
在窗体上画一个名称为Text1的文本框,然后画三个单选按钮,并用这三个单选按钮建立一个控件数组,名称为Option1。程序运行后,如果单击某个单选按钮,则文本框中的字体将根据所选择的单选按钮切换,如图所示,请填空。PrivateSubOpti
在C盘当前文件夹下建立一个名为SDat.txt的顺序文件。要求用InputBox函数输入5名学生的学号(StuNo)、姓名(StuName)和英语成绩(StuEng)。则在下列横线处合适的语句是()。PrivateSubForm_Cli
结构化分析方法是面向()的自顶向下逐步求精进行需求分析的方法。
设通用对话框控件的名称为CD1,希望在打开文件对话框中的“文件类型”列表中包含:所有文件、Word文档和文本文件这3类文件,在程序中设置Filter属性时正确的是
在先左后右的原则下,根据访问根结点的次序,二叉树的遍历可以分为三种;前序遍历、【】遍历和后序遍历。
设有下列二叉树:对此二叉树中序遍历的结果为
某二叉树有5个度为2的结点以及3个度为1的结点,则该二叉树中共有【】个结点。
随机试题
A集团是一家在上海证券交易所挂牌上市的奶制品企业,拥有液态奶、冷饮、奶粉、酸奶和原奶五大事业部,所属企业近百个,旗下有纯牛奶、乳饮料、雪糕、冰激凌、奶粉、酸奶、奶酪等1000多个产品品种。A集团奶粉系列有十二款产品,其中“养生益族”让中老年人焕发年轻活力;
患者,男,42岁。缺失,要求固定义齿修复。口腔检查:不松,活髓,无龋损。缺隙大小正常,牙槽嵴无特殊。为该患者实施了全冠烤瓷桥修复。固定桥黏固后立即出现过敏性疼痛若该患者固定义齿戴用二年后基牙出现疼痛,最可能的原因与下述哪一项无关
根据《建筑法》,在建工程因故中止施工的,建设单位应当自中止施工之日起()内,向施工许可证颁发机关报告,并按照规定做好建筑工程的维护管理工作。
建筑产品的单件性决定了职业健康安全与环境管理的()。
下列资产项目中,属于流动资产项目的有()。
制定财务目标,要遵从的原则有()。
在以下企业组织形式中,会导致双重课税的有()。
我国四大佛教名山分别是五台山、峨眉山、武当山和九华山。()
在考生文件夹下建立一个名为TESE的文件夹。
Twosubstituteswereusedduringthebasketballgames.
最新回复
(
0
)