你把你设计的界面有图形方式发出来，吧你的代码也贴出来，大家看看（当然你要是吧工程压缩上传到这里也可以）。

jking3313,按我的理解用函数公式不能解决吗?或者是我没能理解你的原意,请说得详细点,谢谢~

不是的  不用想那么高深  我就是外系的选修课程.刚学第4周也就是第8讲.只要按一下自己做的按钮  让以上三组数据的平均值自己计算出来就可以了.
比如 数学
三个人的总成绩是217 平均成绩是72.333   
我现在总是  弄不出来 让电脑自己计算的步骤  我用的是VB6  帮帮忙

你可以用二维数组，也可以用一维数组。下面以一维数组为例：
数组元素下标＝人数-1

dim suxue(2) as integer  '用来输入数学成绩
dim yuwen(2) as integer  '用来输入语文成绩
dim yingyu(2) as integer '用来输入英语成绩
dim totalSU as integer   '数学总成绩
dim totalYU as integer   '语文总成绩
dim totalYI as integer   '英语总成绩
dim i as integer '计数器

do
  suxue(i)=val(inputbox$("请输入某个学生的数学成绩："))
  i=i+1
loop while i<3  '如计数器<3则继续输入

i=0  '计数器清零
do
  yuwen(i)=val(inputbox$("请输入某个学生的语文成绩："))
  i=i+1
loop while i<3 

i=0  '计数器清零
do
  yingyu(i)=val(inputbox$("请输入某个学生的英语成绩："))
  i=i+1
loop while i<3

for i=0 to 2: totalSU=totalSU + suxue(i):next
for i=0 to 2: totalYU=totalYU + yuwen(i):next
for i=0 to 2: totalYI=totalYI + yingyu(i):next

debug.?"数学总成绩为："& totalsu & "平均成绩为：" & totalsu/3
debug.?"语文总成绩为："& totalyu & "平均成绩为：" & totalyu/3
debug.?"英语总成绩为："& totalyi & "平均成绩为：" & totalyi/3