从键盘上输入4个数，编写程序，计算并输出这四个数的和及平均值。通过inputbox函数输入数据，并在窗体上显示和及平均值。

我也不会 呀 ？！！ 那位大哥哥 给回呀》？

dim j as integer
static i as integer
dim s,c,d as string
dim b(1 to 4) as string
i=1
s=inputbox("请输入4个数","计算")
for i=1 to 4
do while(s,i,1)<>","
if c=mid(s,i,1)<>"," then
d=s & c
end if
i=i+1
loop
b(1)=d
next for
form1.print b(1)+b(2)+b(3)+b(4)
form1.print (b(1)+b(2)+b(3)+b(4))/4

程序不对呀 ！我试过了

dim score(1 to 4) as single
dim i as integer
dim sum as single
dim avg as single
for i = 1 to 4
score(i)=inputbox("请输入第" & cstr(i) & "个人的成绩")
sum=sum+score(i)
next
avg=sum/4
print "总分是";sum
print "平均分是";avg

斑竹的方法可以！！！
顶！！

谢谢诸位了!!!

谢谢版主