编写VB程序 要求从键盘上任意输入10个数 计算正数的平均值（vb中产生随机数的函数怎么操作）

用C写的：

main() { inti; doublea[10],avg,m=0; for(i=0;i<10;i++) scanf("%lf",&a[i]); for(i=0;i<10;i++) m+=a[i]; avg=m/10; printf("%f",avg); } vb Fori=1To10 a=InputBox("请输入第"&i&"个数字","输入"

) Sum=Sum+Val(a) Next MsgBox"输入的十个数的平均值为："&Sum/10