首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
已知在4行3列的全局数组score(4,3)中存放了4个学生3门课程的考试成绩(均为整数)。现需要计算每个学生的总分,某人编写程序如下: Option Base 1 Private Sub Command1_Cliek()
已知在4行3列的全局数组score(4,3)中存放了4个学生3门课程的考试成绩(均为整数)。现需要计算每个学生的总分,某人编写程序如下: Option Base 1 Private Sub Command1_Cliek()
admin
2020-01-02
33
问题
已知在4行3列的全局数组score(4,3)中存放了4个学生3门课程的考试成绩(均为整数)。现需要计算每个学生的总分,某人编写程序如下:
Option Base 1
Private Sub Command1_Cliek()
Dim sum As Integer
sum=0
For i=1 To 4
For j=1 To 3
sum=summ+score(i,j)
Next j
Print"第"&i&"个学生的总分是:";sum
Next i
End Sub
运行此程序时发现,除第1个人的总分计算正确外,其他人的总分都是错误的,程序需要修改。以下修改方案中正确的是( )。
选项
A、把外层循环语句i=1 To 4改为For i=1 To 3 内层循环语句j=1 To 3 改为For j=1 To 4
B、把sum=0移到For i=1 To 4和For j=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 to 3之间。
转载请注明原文地址:https://kaotiyun.com/show/x2Tp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
编写如下程序:PrivmeSubCommandl_Click()DimxAsInteger,yAsIntegerx=1:y=1Doy=x*yIfy>10Then
设窗体上有2个文本框Text1和Text2,并有下面的事件过程:DimnPrivateSubTextl_KeyPress(KeyAsciiAsInteger)If”A”
窗体上有一个名称为VScroll1的垂直滚动条,要求程序运行时,滚动块的初始位置在最下端,应该使VScroll1.Value的值等于
以下关于数组的叙述中,错误的是
在窗体上画一个命令按钮,然后编写如下程序:Subinc(aAsInteger)PrivateSubCommandl_Click()StaticxAsIntegerinc2:i
为了清除窗体上的一个控件,下列正确的操作是
若在某窗体模块中有如下事件过程PrivateSubCommand1.Click(Integer)EndSub则以下叙述中正确的是
由关系R1和R2得到关系R3的操作是()。
下列说法中错误的是()。
输入VisualBasic源程序时,若一个命令行中包含两个语句,则两个语句之间的分隔符应使用()。
随机试题
增加瓷金结合的方法,除了
减压干燥法适用的药物特点有
信息以知觉的形式保持,是属于
下列级数中,发散的级数是()。
收入总额中的下列收入为不征税收入的是()。
下列各项中,属于《公民道德建设实施纲要》中职业道德主要内容的是()。
()的建立,结束了近五百年来诸侯割据分裂的局面,成为中国历史上第一个以华夏族为主体,多民族共融的中央集权国家。
一、注意事项1.本试卷由阅读资料与作答要求两部分组成。考试时限为120分钟。其中阅读资料参考时限为30分钟,作答参考时限为90分钟。2.临考人员宣布考试结束时,请立即停止作答。3.答题卡上的准考证号用2B铅笔填涂,答题使用黑色
2015年上半年A区完成规模以上工业总产值289.9亿元,同比下降9.4%,降幅比1—5月扩大0.7个百分点,比1—4月扩大2.2个百分点,比一季度扩大7.5个百分点。其中,上半年A区两大主导行业汽车制造业完成产值51.6亿元,同比增长4.6%,
在考生文件夹下打开文档Word.docx。某高校学生会计划举办一场“大学生网络创业交流会”的活动,拟邀请部分专家和老师给在校学生进行演讲。因此,校学生会外联部需制作一批邀请函,并分别递送给相关的专家和老师。请按如下要求,完成邀请函的制作:根据“Wo
最新回复
(
0
)