编写程序:OptionBase1Dimmark()AsIntegerPrivateSubCommand1_Click()Dimn,sumAsIntegerDim
编写程序：
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
正确答案：D
词条内容仅供参考，如果您需要解决具体问题
（尤其在法律、医学等领域），建议您咨询相关领域专业人士。