编写程序: 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,则输出的结果为( )