跪求电脑高手帮我解决一个VB编程问题,本人感激不尽_派派后花园

用户中心 游戏论坛 社区服务
发帖 回复
阅读:1806 回复:3

[求助] 跪求电脑高手帮我解决一个VB编程问题,本人感激不尽

刷新数据 楼层直达
悲痛的旅程

ZxID:12227751

等级: 热心会员
举报 只看楼主 使用道具 楼主   发表于: 2010-06-04 0
编一VB应用程序。要求如下:
⑴ 随机产生20个学生的VB程序设计课程的成绩,存入一维数组中,并显示结果;
⑵ 求这20个学生的最高分、最低分和平均分,并显示结果;
⑶ 统计各分数段人数,即0~59、60~69、70~79、80~89、90~100,并显示结果;
⑷ 编写可对一组数据进行排序的自定义函数或过程。调用该自定义函数或过程将分数按由高到低的次序排列并输出。
⑸ 窗体界面自行设计。
lijd

ZxID:801961

等级: 职业撰稿
举报 只看该作者 地板   发表于: 2011-04-21 0
 
秋水霜无痕

ZxID:3774636


等级: 文学大师
开心每一天
举报 只看该作者 板凳   发表于: 2010-06-16 0
不懂。。。
端木风颜

ZxID:12357903

等级: 读书识字
那一世,我转遍十万大山,不为修来世,只为途中与你相见。
举报 只看该作者 沙发   发表于: 2010-06-15 0
很抱歉,对排序不是很在行,我会尝试一下的
前三点要求做到了  文件会附上~~
代码如下:

Dim a(1 To 20)  As Integer, s(5 To 9), n%

Private Sub Command1_Click()
Dim max%, min%, aver%
aver = 0
max = a(1)
min = 100
Randomize
For i = 1 To 20
a(i) = Int(Rnd * 101)
aver = aver + a(i)
Picture1.Print a(i); " ";
If i Mod 5 = 0 Then Picture1.Print
If max < a(i) Then max = a(i)
If min > a(i) Then min = a(i)
Next i
Picture1.Print
aver = aver / 20
Picture1.Print "最大值为:" & max
Picture1.Print "最小值为:" & min
Picture1.Print "平均数为:" & aver
End Sub


Private Sub Command2_Click()
s(5) = 0: s(6) = 0: s(7) = 0: s(8) = 0: s(9) = 0
For i = 1 To 20
k = a(i) 10
Select Case k
Case 0 To 5
s(5) = s(5) + 1
Case 9 To 10
s(9) = s(9) + 1
Case 6 To 8
s(k) = s(k) + 1
End Select
Next i

Picture2.Print "s(5)的人数为:"; s(5)
Picture2.Print "s(6)的人数为:"; s(6)
Picture2.Print "s(7)的人数为:"; s(7)
Picture2.Print "s(8)的人数为:"; s(8)
Picture2.Print "s(9)的人数为:"; s(9)
Picture2.Print
End Sub
附件: VB.zip[点击下载](3 K)
发帖 回复