单项选择题窗体上有Command1、Command2两个命令按钮。现编写以下程序: Option Base 0 Dim a()As Integer,m As Integer Private Sub Commandl_Click() m=InputBox(“请输入一个正整数”) ReDim a(m) End Sub Private Sub Command2一Click() m=InputBox(“请输入一个正整数”) ReDim a(m) End Sub运行程序时,单击Commandl后输入整数10,再单击Command2后输入整数5,则数组a中元素的个数是 ( )。
单项选择题已知在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个人的总分计算正确外,其他人的总分都是错误的,程序需要修改。以下修改方案中正确的是( )。