编写程序: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