首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
有下面程序代码: 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
2018-09-19
36
问题
有下面程序代码:
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/DEFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
如果把文本框的Enabled属性设置为False并运行程序,则以下叙述中正确的是
现有程序如下:OptionBase1PrivateSubFormClick()Dimx(5,6)AsInteger,y(5)AsIntegerFori=1Tn5ForJ=1To6x(i,j)=Int(Rnd*9+1)
在窗体上画一个命令按钮(名称为Command1),并编写如下代码:FunctionFun1(ByValaAsInteger,bAsInteger)AsIntegerDimtAsIntegert=a-b:b=t+a:Funl
设a是整型变量,与函数IIf(a>0,-a,A)有相同结果的代数式是()。
对于一个名称为menu1的菜单项,下列叙述中正确的是
设循环队列的存储空间为Q(1:35),初始状态为front=rear=35。现经过一系列入队与退队运算后,front=15,rear=15,则循环队列中的元素个数为
在软件开发中,需求分析阶段可以使用的工具是( )。
在E-R图中,用来表示实体联系的图形是( )。
随机试题
一个国家一旦登上发展的阶梯,公民的要求就会增加。这时政府只保证增加收入是不够的,政府必须转变观念,从以物质为基础走向以规章为基础。针对亚太国家的研究发现,国民对他们所接受的公共服务相关联的项目如教育、医疗和公共安全的满意度,在他们对政府绩效的评价中占有重要
A.K+B.Na+C.Ca2+D.Mg2+E.Zn2+细胞外液主要阳离子是
主要经粪一口途径传播的肝炎病毒是
A.IgGB.IgMC.IgAD.IgDE.IgE个体发育过程中最早合成和分泌的抗体,且分子量最大的抗体是
患者,男性,28岁,风湿性心瓣膜病3年,曾经诊断为“二尖瓣狭窄并关闭不全”。半月来发热,37~38℃,心衰症状加重。查体:端坐位,贫血貌,皮肤无瘀点。颈静脉怒张,心界扩大,心尖部舒张期隆隆样杂音,主动脉瓣区舒张期叹气样杂音,脾大,下肢不肿。此时首先需要
带教老师在临床带教过程中为了给实习护士创造机会,有合适的静脉穿刺对象时就对患者说:“她虽然是个学生,但穿刺技术非常熟练,××都是她穿刺的,而且每次都能成功,您能给她一次穿刺的机会吗?”在此护患沟通的过程中,带教老师使用的是
单层刚性方案承(重)墙内力计算时,其计算简图为( )。
某公司赊销积压的原材料一批,增值税专用发票上注明售价20000元,增值税税额3400元,下列会计分录中,错误的有()。
结合材料,回答问题:“我最牵挂的还是困难群众”——习近平主席二。一七年新年贺词中这句饱含深情的话,让无数人为之动容。党的十八大以来,党中央对脱贫攻坚作出新的部署,确立了到2020年贫困人口全部脱贫的目标。这是人类历史上的壮举,也是我们
FinancialManagement:thefactorsinvolvedinmaintainingahealthycashflowinabusiness
最新回复
(
0
)