编写程序:OptionBase1Dimmark()AsIntegerPrivateSubCommand1_Click()Dimn,sumAsIntegerDim

24 查阅

编写程序:

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

计算机二级