主题：请各位高手帮帮我,跪谢！！！！！！！
hanzztj
[专家分：0] 发布于 2008-06-26 21:04:00
某班有M名同学，本学期开了N门课，期末考试后，要统计每门课程的平均分。请你编写一个程序实现该功能。要求：对于每个学生要输入学号和N门课的成绩。程序的设计界面如图所示，程序运行时单击【输入成绩】按钮将出现输入对话框让用户输入每个学生的学号和各门课的成绩。输入了学号和成绩后单击【计算】按钮将计算出各门课的平均成绩并显示出来，如图所示
回复列表 （共7个回复）
沙发
tanchuhan [专家分：15140] 发布于 2008-06-26 21:33:00
作业贴
最近期末了，冒出了好多这类东西。
板凳
bcahzvip [专家分：6040] 发布于 2008-06-26 22:41:00
唉~
就没想过自己调试看看？
3 楼
tanchuhan [专家分：15140] 发布于 2008-06-27 00:33:00
你别再重复发帖
4 楼
hanzztj [专家分：0] 发布于 2008-06-27 13:17:00
重复发帖是因为我着急！我也是利用工作之余学习业大的，工作忙，再加上要期末考试了，理解理解我的难处好吗？这道题是期末考试题中的一道，请大家帮帮我，谢谢了！
5 楼
老大徒伤悲 [专家分：29120] 发布于 2008-06-27 17:39:00
你得附件只是一张界面图片，并没有你的代码。把你的代码贴出来，哪怕只有一行，我们好歹也知道你尽力了。
千万别告诉我你一行代码也写不出来。
6 楼
hanzztj [专家分：0] 发布于 2008-06-28 13:56:00
Option Base 1
Dim a(), b() '分别用来存放课程数和人数
n = Val(InputBox("输入课程的总门数 "))
m = Val(InputBox("输入学生的总人数"))
ReDim b(n)
ReDim a(m)
For i = 1 To n
Sum = 0
For j = 1 To m
a(i) = Val(InputBox("输入第" & i & "个同学的第" & j & "门课的成绩"))
Next j
For j = 1 To m
Sum = Sum + a(i)
Next j
b(i) = Sum / m
Next i
For i = 1 To n
Print "第" & i & "门课程的平均成绩是"; b(i)
Next i
上面是我编的，可是这样行吗
7 楼
hanzztj [专家分：0] 发布于 2008-06-28 13:57:00
帮忙看看，帮我写个完整的！！！！！！！
我来回复
您所在位置：社区首页 — Visual Basic讨论区 — 请各位高手帮帮我,跪谢！！！！！！！