首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
已知在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
31
问题
已知在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://kaotiyun.com/show/ORGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列事件过程的功能是:建立一个名为Datal的随机文件,存放角度值及这些角度的正弦函数值和余弦函数值,角度为1,2,3,...,90。请在空白处填入适当的内容,将程序补充完整。PrivateTypeAngKAsIn
在窗体上面画一个名称为TxtA的文本框,然后编写如下的事件过程:PrivateSubTxtA_KeyPress(Keyasciiasinteger)EndSub若焦点位于文本框中,则能够触发KeyPress事件的操作是__
在窗体中添加名称为Command1和名称为Command2的命令按钮以及文本框Text1,然后编写如下代码:PrivateSubCommand1_Click()Text1.Text="AB"EndS
为了在按下Esc键时执行某个命令按钮的Click事件过过程,需要把该命令按钮的一个属性设置为True,这个属性是
编写如下事件过程:PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfShift=
以下程序段的输出结果是()。x=1y=4DoUntily>4x=x*yy==y+1LoopPrintx
假定有如下的Sub过程:SubS(XAsSingle,YAsSingle)t=Xx=t/yy=tModYEndSub在窗体上画一个命令按钮,然后编写如下事件过程:PrivateSubCommandlClick
设有如下的VisualBasic表达式:5*x^2-3*x-2*Sin(A)/3,它相当于代数式【】。
随机试题
简述购货和付款循环的主要业务活动。
雷诺综合征的特征是:()
轻触眼球角膜引起眨眼动作的调节属于
对吸烟人群进行肺癌筛查属于
背书的绝对记载事项有()。
设立公司的出资人以土地使用权出资,已经交付公司使用但未办理权属变更手续,公司债权人主张认定出资人未履行出资义务的,人民法院不予支持。()
丙公司是一家大型旅店连锁企业,客户群主要面向经济收入不高,喜爱旅游的年轻一族,俗称“背包客”。在该企业所属旅店内,条件相对简陋,所有设施均采用最简单的样式,同时不提供早餐,床单等物品一周才更换一次,住客需要自己动手洗衣做饭。通过这些方式来尽可能减少支出。但
以下描述中错误的是
设有语句Open”c:\Test.Dat”ForOutputAs#1则以下叙述中错误的是
Thefive______nations—Finland,Sweden,Denmark,NorwayandIceland—calledontheEuropeanUnionMondaytoimposeatighterl
最新回复
(
0
)