问题详情

编写程序：
OptionBase1
Dimmark()AsInteger
PrivateSubCommand1_Click()
Dimn,sumAsInteger
DimaveAsSingle
n=Val(InputBox("输入学生的个数"))
ReDimmark(n)AsInteger
sum=0
ForI=1Ton
mark(I)=10*I
sum=sum+mark(I)
NextI
ave=sum/n
Printsum;"和";ave
EndSub
单击命令按钮后输入4，则输出的结果为()
A.60和20
B.30和20
C.11和10
D.100和25