首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
已知在4行3列的全局数组score(4,3)中存放了4个学生3门课程的考试成绩(均为整数)。现需要计算每个学生的总分,某人编写程序如下: Option Base 1 Private Sub Command1_Click() Dim
已知在4行3列的全局数组score(4,3)中存放了4个学生3门课程的考试成绩(均为整数)。现需要计算每个学生的总分,某人编写程序如下: Option Base 1 Private Sub Command1_Click() Dim
admin
2017-07-28
68
问题
已知在4行3列的全局数组score(4,3)中存放了4个学生3门课程的考试成绩(均为整数)。现需要计算每个学生的总分,某人编写程序如下:
Option Base 1
Private Sub Command1_Click()
Dim sum As Integer
sum=0
For i=1 To 4
For j=1 To 3
sum=sum+score(i,j)
Next j
Print"第"&i&"个学生的总分是:";sum
Next i
End Sub
运行此程序时发现,除第1个人的总分计算正确外,其他人的总分都是错误的,程序需要修改。以下修改方案中正确的是( )。
选项
A、把外层循环语句For i=1 To 4改为For i=1 To 3内层循环语句For j=1 To 3改为For j=1 To 4
B、把suim=0移到For i=I To 4和For i=1 To 3之间
C、把sum=sum+score(i,j)改为sum=sum+score(j,i)
D、把sum=sum+score(i,j)改为sum=score(i,j)
答案
B
解析
程序变量sum的值在开始计算第2个学生的总成绩时,仍保留着第一个学生的总成绩,这样会把前面学生的总成绩计算进去,显然不对。因此,sum=0这一句应该放在第1层For循环体的第一句,即For i=1 to 4和for j=1 to3之间。
转载请注明原文地址:https://www.kaotiyun.com/show/ORGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个文本框、一个标签和一个命令按钮,其名称分别为Textl、Labell和Commandl,然后编写如下两个事件过程:PrivateSubCommandl_Click()S$=InputBox(“请输入一个字符串”)
在窗体上画一个命令按钮,名称为Command1,然后编写如下事件过程:PrivateSubCommand1_Click()a$="softwareandhardware"b$=Right(a$,8)
在窗体上面画一个名称为TxtA的文本框,然后编写如下的事件过程:PrivateSubTxtA_KeyPress(Keyasciiasinteger)EndSub若焦点位于文本框中,则能够触发KeyPress事件的操作是__
在窗体中添加名称为Command1和名称为Command2的命令按钮以及文本框Text1,然后编写如下代码:PrivateSubCommand1_Click()Text1.Text="AB"EndS
以下程序段的输出结果是()。x=1y=4DoUntily>4x=x*yy==y+1LoopPrintx
若在窗体模块的声明部分声明了如下自定义类型和数组PrivateTypeTemScoreAsIntegerStrNameAsStringEndTypeDimStuden
设有如下的VisualBasic表达式:5*x^2-3*x-2*Sin(A)/3,它相当于代数式【】。
随机试题
提出“文以载道”这一艺术命题的宋代文学家是()
患者,女,42岁。头痛耳鸣1周,伴双眼视物模糊。某进修医生检查后发现前房Tyndall现象阳性,眼底疑视乳头水肿。可能性较大的诊断是
支气管扩张症最常见的有意义的体征是
下列各项中,属于“筹资活动产生的现金流量”的是()。
根据《担保法》的规定,具有代为清偿债务能力的法人、其他组织或者公民,可以作保证人。()
分销渠道关系管理的基本概念是建立在这样一种信念上的,即通过分享信息和共同计划,能够提高分销渠道的运作效率,从而增加分销渠道的竞争能力。
①多一些理性冷静的客观公正,少一些自以为是的推测定性②也是每一位接受者、评论者的责任③不可否认,任何文艺作品都会有瑕疵、有遗憾④不管是谁、针对谁,在发表意见时,都应该多一些责任心和包容心,少一些个人情绪和宣泄⑤这才是负责任的态度,也是对待文艺创作的
[2011年10月]直线l是圆x2—2x+y2+4y=0的一条切线。(1)l:x—2y=0;(2)l:2x—y=0。
某人编写了下面的程序PrivateSubCommand1—Click()DimaAsInteger,bAsIntegera=InputBox("请输入整数"):b=InputBox("请输入整数")proa:probCall
TenTipsforReducingStressWhileinCollegeStressissomethingyoucancontrol.Followthesetentipstolearnhowtocon
最新回复
(
0
)