VB课程设计-学生成绩处理系统

长江大学
Ｙanｇtｚe unｉveｒsｉty
ＶB课程设计实习报告
专业班级﹕储运1１001
学生学号﹕20１007078
学生姓名﹕彭壮
班级序号﹕１6
指导老师﹕冯翠丽
完成时间﹕2011－１2—22
一.设计题目
学生成绩管理系统
二．设计思路
从文本中读取文件数据,利用VB的顺序结构，选择结构，循环结构编写程序代码，最终将各代码写入界面设计中的各菜单下.
三．程序实现的目标
本程序将实现从文本中读取数据，赋值数据，运算数据，实现对学生的加权平均值，名次，全班每门课的分数段，不及格同学名单，优等生名单
等运算，并写入文件。

四.程序设计框图
五。

运行结果
原始成绩
课程学分
原始成绩和原始课程学分文件读取
原始课程文件
加权平均分
成绩排名
每门课程的班级平均分
加权平均分分布
每门课程及分布
成绩条
优等生名单
不及格学生名单
成绩查询系统按姓名查找
示例﹕
按学号查找
示例﹕
按名次查找
示例﹕
六.源程序
模块代码：
Type xscｊb
xh As Ｓtring
xm Ａs Ｓｔｒiｎg
cj(1 Tｏ５）ＡｓIntegｅr
ａvｅr As Ｓｉnglｅ
ｍｃAs Intｅger
EnｄTyｐe
Tｙｐe keｃhen
编号AｓIntｅgeｒ
课程名As Strｉng
学分As Ｓingle
End Tｙpe
Public sｔｕ（) As xｓcjb
Pｕblic ｋｅ（) Asｋechen
PubliｃＮ%, M%,Zxf%
Ｐuｂlic str Ａs Striｎg
窗体代码：
①Fｏrｍ1：
Ｐｕblic Ｆunｃtion spａcｅ1（BｙVａl ssｓAs String）
Diｍx％
x ＝IｎStr（ｓsｓ, ＂＂）
ＤｏWｈｉleｘ> 0
sｓｓ＝Ｒeｐlace(ｓss，”", ”＂)
x = InStr(ｓsｓ，" ”）
Looｐ
sｐacｅ1 = ｓsｓ
EｎｄFuncｔｉon
Privａte Sｕb ajｑｆｓpｍ_Clicｋ（）
Dim ｔ！, k As Singlｅ
Foｒm1.Cls
Ｆorm1.ＦoｎtSize= 12
Ｆorm1。

PrｉnｔTaｂ(25）；＂学号姓名平均分名次"
stu(0).mc = 0
stu(0）．aveｒ= ０
t ＝ 1
For i =１To N
t＝ 1
If stu(i）.avｅｒ= stu（ｉ-1)。

aver Then
stu（i)。

ｍc =sｔｕ（i — 1)。

mｃ
Elsｅ：
For j= 1 Ｔo N
Iｆsｔu（i）。

aver 〈stｕ(j）。

avｅｒThen
t =t+ 1
Ｅnd If
Ｎext ｊ
Ｅnd Ｉf
stｕ（i）.mc ＝ｔ
Form１。

PrｉnｔTａｂ(25)；stu(ｉ）.xh；Tab(３4）；st ｕ(ｉ)。

xｍ; Tab（44）;ｓtu（i）.aver；Tab（５4);stu（ｉ）．mc Nｅxt i
Ｅnd Sｕb
Private Ｓｕｂamccz_Click(）
Dｉm l！，x!
Form１.Cls
l =Vａl(ＩnｐｕtBox("请输入名次＂）)
Ｆor i =１To Ｎ
Ｉｆstｕ（i)．mc ＝ｌThen
x ＝x + 1：Fｏrm１。

Ｐrint ”学号姓名英语VB化学物理数学加权平均分名次”：
PrintＴａb（2）；stｕ（i）。

xh; Taｂ（９)；stu（i)．xm; Tab(18）; sｔu(i）.cj(1）; Tａb(２7）；stu（i）.cj（２）; Tab(34）; ｓtu(ｉ）。

ｃj(3）;Ｔab（４3）；ｓtｕ(ｉ）。

cj（4)；Tａb(52）;ｓtu(ｉ)。

cｊ（５)；Taｂ（6０）；sｔu（i）。

avｅr; Tab(75）；sｔｕ（i）。

mc：Foｒm1。

Pｒｉnt
End If
Neｘt i
If ｘ=０Ｔhen MsgBoｘ（”无效请重新输入!"）
EnｄSuｂ
Prｉvate Ｓub axhｃz_Click（）
Foｒm1.Cｌs
Dｉm ｖ！, x!
v ＝Ｖａl（ＩｎpｕｔBoｘ("请输入学号”）)
Ｆoｒi ＝1 To N
If stu（i)．xｈ= ｖＴｈen
x = x+ 1: Ｆｏｒm１．Pｒｉnt ”学号姓名英语VB 化学物理数学加权平均分名次"：
PｒintＴab（2）；stu（i）.ｘh;Tab（9); sｔｕ（ｉ）。

xm; Taｂ(１8）；stu(i）。

cｊ(1)；Tａｂ(27); stu（i）.cj(2）；Tab(３4）；sｔｕ（i)．ｃj（3）; Ｔab(43); ｓtｕ（i)．cj（４）；Taｂ（５2); ｓtｕ(i）。

ｃj（5）；Tａb(６0）; ｓｔu（i）.aver; Tab（75）；stu（ｉ）。

mｃ: Ｆorm１.Pｒinｔ
Eｎd If
Next ｉ
Iｆx = 0 ThenＭsgBox（”学号无效请重新输入！")
End Sｕｂ
PｒivａtｅSuｂaｘmcz＿Clｉck()
Forｍ1.Cls
Fｏｒｍ1.FｏntSiｚｅ= 9
Ｄiｍk＄，x!
k = InｐutＢox（”请输入姓名＂)
For i = 1 To N
Iｆｓtu（i）。

xm = ｋTｈeｎ
ｘ= i：Foｒm1.Ｐriｎt"学号姓名英语VB化学物理数学加权平均分名次＂：
Print Tab（2）; stu（i）。

xｈ; Taｂ(9）; stu（ｉ).xm;Tab(１8）；stu（ｉ).cｊ(１）；Tab(27); sｔｕ（i).cj(2）; Tab(3４）；stu （i）。

cｊ(３）；Tab（４3)；sｔu（ｉ)。

ｃj（4）；Taｂ(５2)；stu(i）.cj（5）；Tab(６０）；sｔu（ｉ）.aver；Tａb(7５）；stｕ(ｉ)。

mc: Form１。

Print
End If
Nｅｘt i
Iｆx＝0ThｅｎMｓgBox(＂查无此人请重新输入!")
Ｅｎd Sｕｂ
Privａｔe Sｕb bjgｘsmd_Cｌiｃk(）
Ｆorｍ1.Ｃls
Ｆorm１。

FontSｉｚe= 1６
Ｆorm１．Prｉnt Tab(１2)；＂挂科学生的名单！"
Form1。

FonｔSize ＝12
Form1．Prｉｎt
Form1。

Pｒint
Ｏpen＂不及格学生名单．txt”Fｏr OuｔpuｔAs ＃1
Fｏｒm1。

ＰrintＴab(30）；＂学号”;Tａb(38);”姓名＂; Ta ｂ（4６)；＂课程名”；Tab（５4); ”学分＂; Tab（６2）; ”成绩＂
Wriｔe#１, "学号"，”姓名＂, ”课程名”，”学分", "成绩" Forｍ１。

Pｒｉnt
Ｆｏr i = １TｏM
For j = 1 To N
Ｉf ｓtu（ｊ）.ｃj（i）〈60Thｅn
PrintＴab(30）;stu(j)．xh;Tab（38); stu（j)．xｍ；Tab （４6）;ｋe（i）。

课程名；Tab（５4)；ke（i）。

学分; Ｔaｂ(62)；stu(ｊ).cｊ（i）
Ｗrｉtｅ＃1，stｕ（ｊ）。

ｘh，ｓｔｕ（ｊ).xm, ke(i）。

课程名, ke（i)。

学分，ｓtu（j)。

cj（i)
ＥnｄIｆ
Nexｔj
Nｅｘｔｉ
Ｃlose ＃1
Eｎd Ｓub
Prｉvａte Sub Fｏｒm_Loａd（)
Ｄｉm sｔ＄(），Sｔr1＄
Oｐen Ａｐp。

Ｐａtｈ+"＼学生成绩．ｔxｔ”For ＩnpｕｔAs #1
Open Ａｐp.Paｔh + "\课程学分。

ｔxt"For Input Aｓ＃2
Ｎ= ０: M = 0：Zxｆ=０
Liｎe Input ＃1,Sｔr1
Do Wｈile Not EOF（１)
Ｎ= N + 1
ＲeDim Prｅserｖe stu（Ｎ)
Liｎe Ｉｎｐuｔ＃1，Ｓtr１Str1 = Tｒim（Ｓｔr1）
Ｓtｒ1 =spａｃｅ１（Str1）
sｔ1 = Ｓplit（Ｓｔr1，" ＂)
sｔu（N）。

xh = st1(0)
ｓtｕ(N)。

xｍ= st1(1）
ｓtu(N）。

cj（1) = sｔ1（２)
stu(N)．cｊ（2）= st1(３)
stu（N)．ｃｊ（3）＝sｔ1(4) stu(N)。

ｃj（4) =st1(5）
stu（Ｎ).cj（5) =st1（6）
stu(N).aｖｅｒ=0
stu（N）.mc = 0
Looｐ
Lｉｎe Inpｕｔ＃2，Ｓtｒ1 Do Ｗhile NｏｔEOＦ(2）
M= M＋１
ReDim Preserｖｅke(M)
Line Inpuｔ#2，Ｓｔr1
Sｔr1 = Trｉm（Ｓtｒ1）
Ｓtr１= spaｃe1（Sｔr1）
ｓt1 = Ｓｐlit（Str1，＂") kｅ（M).编号＝st1（0）
ｋe（M)．课程名=st1(1)
ke（M）.学分= st1(2)
Zxｆ=Ｚｘf + ke（M).学分
Ｌｏｏp
Ｃlose#1
Cｌｏｓe＃2
End Suｂ
PrivａtｅSuｂjqｐjffb_Cliｃk（）Ｆｏｒm1．Cｌs
Form1。

FｏｎｔＳize = 12
Prinｔ
Fｏrm1.Prｉnt
Ｆｏr ｉ= 1 To ６
Foｒm1。

Prｉnt
Ｎext i
Dim s(5 Ｔo10)，g
For i = １Ｔo N
g ＝sｔu（i)。

avｅr \ 10
SｅlecｔＣase g
Case ０To 5
s（5）＝ｓ(5）+ 1
Case 6
ｓ（6）=s（６) + 1
Casｅ７
ｓ（7）= s(7）＋ 1
Caｓe ８
s（8)=s(8) + 1
Case９
s(9) = ｓ（９）+ 1
EnｄSeｌecｔ
Neｘt ｉ
PrinｔTab(３0）;" 范围人数＂
If s（5）<> ０Then Print Tab(1９)；"＜60分"；s （5）
Ｐrint
For ｉ＝ 6 Ｔo 8
If s（i）＜〉0Thｅn Print Taｂ（29)；i ＊10; ＂—"；（i * 10+ ９）；Ｔaｂ(4４）；s（i）
Print
Nexｔi
Ｉf s（9) <〉0Or s（10) <＞0Then Pｒint Tａｂ（30）; "90－100"；Tａb(4４)；s（９）+ s(1０)
Ｅnd Sｕb
Ｐrｉvａte Sub mmkcdｂjpjf_Click()
Ｆorm１.Clｓ
Ｄim a，b，c, d，ｅ
a =0:
b = ０:
c = 0:
d ＝0：
e = 0
Fｏｒi ＝１Ｔo N
a ＝a ＋ｓtu(i).cj（1)
ｂ= b ＋stu(ｉ）。

cj(２)
ｃ＝c+ ｓtu（i).cｊ(3)
d= d ＋sｔu（i).ｃｊ（4)
e＝ e +ｓtu（i）.cｊ（５)
Nｅxt i
ａ=Format（a / N，"0.0０”）
b = Formaｔ（ｂ/ N，＂0。

00”）
c = Foｒmaｔ(c /N, ＂0。

00"）
d＝Format（d / N，＂0.00＂)
e＝Foｒｍat(e/ Ｎ, "0.００"）
Foｒm1.FｏｎtSize= 12
Ｆoｒm１.Print Ｔab(１0）; ”课程平均分＂Fｏrm1。

Prｉｎt
Foｒm1．ＦontSize =12
Fｏｒm１．Print Tａb（１0); ”英语”；Ｔａb(26); a
Form１．Pｒｉnt
Form1.Pｒｉnt Tab(10); "ＶB”; Ｔaｂ（26）; b
Form1.Print
Form1.Prｉnt Tab(10）；＂化学"；Ｔab(2６）; c
Form１。

Print
Forｍ1．ＰｒｉnｔTab（10）; ”物理＂;Tab（26）; d Form1。

Prｉnt
Form１.Ｐrint Tab（1０）; ＂数学＂;Ｔaｂ（２6); e
Ｅｎd Ｓub
PｒivatｅSub mmkcjfｂ_Ｃlick（）
Form2.Shｏw
Fｏrm１.Ｃｌｓ
Form1。

FｏntSiｚe ＝12
Print
Ｆoｒｍ１.Prinｔ
For i ＝1 Ｔo 6
Ｆorm１.Pｒint
Ｎext i
Dｉm s（5 Ｔｏ10)，g
Ｆｏr ｉ= 1 TｏN
ｇ= stu(i)。

aver \ １０
Ｓelｅct Case g
Caｓe 0 To 5
s（5) = s(5)+ 1
Case 6
ｓ（6) = s（６）+ １
Ｃase7
s（7）= s（7) + １
Caｓe ８
ｓ(8）=s(8）+ 1
Cａse9
s（9)= s（9）+ 1
End Select
Neｘt ｉ
Priｎt Tab（30)；”范围人数＂
Iｆｓ(5）<＞0 Ｔｈｅn Ｐrint Taｂ（19）；”＜60分”; s(5）
Print
Ｆor ｉ= 6Ｔｏ8
If s(ｉ）〈> 0 Then PrinｔTab(29）; i ＊１0; "—"；（i * 10 +9）；Tａb(４4）；s(i）
Ｐｒinｔ
Next i
Ｉf s（９) 〈〉０Ｏr s（10）〈〉０Then Print Tａｂ（３0）；＂90-１00"；Tab（44）；s（９）+ s（10）
Ｅnd Ｓuｂ
Pｒivate Sub mwxsdcｊｔ_Clｉck(）
Fｏrm1．Cls
Forｍ1.ＦｏｎtSizｅ＝１2
Open ”学生成绩条。

Txt"Ｆor OutpuｔAs #１
Fｏｒm1.Ｐrint ”学号姓名英语VB 化学物理数学加权平均分名次"
Wriｔｅ＃１，"学号", ”姓名＂，＂英语”，”VＢ"，"化学"，”物理", "数学＂，”加权平均分”，"名次"
Foｒi = 1 To N
stu(i)．aver=0
For j= 1 To M
stu(ｉ）.ａver = stu（i)．aｖer +stu(i）。

cj（ｊ）* kｅ（j)。

学分
Ｎｅxt j
ｓtｕ(ｉ)．aｖer =Rｏunｄ（sｔu(i)。

aｖｅr ／Zxｆ，2）
Ｎext i
Ｆｏr i＝1 ＴoＮ
PrinｔＴab(2)；ｓtｕ（i)。

xh; Tａb（９); stu(ｉ)．xm；Taｂ（1８）;ｓtｕ（i）.ｃj(1)；Ｔａｂ(27)；stu(i)．ｃj（2）; Tab（34)；
sｔｕ（ｉ）。

cj(3）; Ｔａb（４3)；stu(i）.cj（4)；Tａb(52）;stu （i）.ｃｊ（5); Tab（６０）；stu（ｉ).aｖer;Tａｂ（75);stu（i）．m ｃ
Wriｔe＃１,ｓtu(i）.xh, ｓtu(i）.xm, stｕ（i）。

cｊ(1)，stu(ｉ）。

cj(2），sｔu（ｉ)．ｃｊ（3), stｕ(ｉ)．cj（4)，stｕ（i)。

cj（5), st ｕ（i)。

ａvｅr，stu（i）．mc
Ｎｅxt i
Cｌｏse ＃１
Ｅｎd Sub
PrｉvaｔｅＳub mwxsdjqfs＿Ｃlｉcｋ（）
Ｆorm１.Clｓ
Fｏｒm１.FontSize= 12
Fｏrm１．Print ＂学号姓名英语VB化学物理数学加权平均分"
Ｆor i = 1 To N
stu（i)．ａver ＝0
For j ＝1 ＴｏM
sｔu(i）.ａｖer ＝stu(i）.aver ＋stu（i）.cj（j）＊ke(j).学分Next j
stu（i）。

ａver =Rｏｕnd（ｓtu（ｉ）.aver / Zxf，2)
Nexｔi
Ｆoｒｉ＝1 To N
Print Tab(２）；sｔu(ｉ)．xｈ; Tab（9）；stu（i）。

xm; Tａb（18)；stｕ（ｉ）。

cｊ(1）; Tab（27)；stｕ（i).cj（２）; Tab（３４)；stu(i）．c ｊ（3); Ｔab(４3）;sｔu(i）．cj(4)；Ｔaｂ（52）; stu(i)。

cj（5）；Ｔab(６0）; stｕ（i).aver
Next i
End Sub
Ｐriｖａte Sub ydｓｍd_Cｌiｃk()
Form1．Cｌs
Ｆorm１.Pｒｉnt
Ｆoｒm１．Pｒiｎt
Open ”优等生名单。

txt”For ＯｕtpuｔAs ＃１
Form1.Prinｔ"学号姓名英语ＶＢ化学物理数学加权平均分名次"
Wrｉte#1, "学号＂，”姓名"，”英语”, ”VB＂, "化学”，"物理”, ＂数学”, ”加权平均分”,”名次”
Form1.Ｐrint
Dｉm e！
Fｏｒi = １To N
Fｏr j ＝１TｏM
Ｉf stu(i)．ｃj（j) >= ９５Then
e ＝e + 1
Ｅnd If
Next j
If stu（i).ａver 〉= ９0 Or stu（i)。

mc <= ３Or (ｓtｕ(i)。

ａｖｅr ＞=85 Anｄe = 2) Thｅn
Ｆorm１.Priｎt Tab（2）；stu（i）.ｘh；Taｂ（9）；sｔu（i)。

xm；Tａｂ（1８)；stu(i)．cj(1）; Tab(27)；stu（i)．ｃj（2); Ta ｂ（3４）；sｔu(i）．cj(３）；Ｔab(4３）; sｔu（i）．ｃj(４）；Tab（52）；stu（i)．cｊ（5）; Ｔab（60); stu（i)．aｖer; Taｂ（75）；stu（i)。

mc
Ｗriｔe #１，sｔｕ（i）。

xh，sｔu（i）。

xm, ｓtu（i)。

cj(1），ｓtu（ｉ）。

cj（2)，stu（i)．ｃj（3), stｕ（i）．cｊ(4), sｔｕ(i).c ｊ（５）, stu（ｉ）.aver, sｔｕ（i）.mc
Eｎd If
Nexｔi
Ｃｌosｅ＃1
Eｎd Ｓｕb
PrivatｅＳub yｓcｊwj＿Click（）
Ｄｉmｋ！
Form１.Cls
Ｆorｍ１.FoｎtＳize = 1２
Fｏrm１。

Ｐｒint
Form１。

Ｐrint "学号姓名英语VB 化学物理数学"
Foｒｉ=1To Ｎ
Ｆorm１。

Ｐｒint Tａb（２）；ｓtｕ（i）.ｘh; Tａb（9）;stu(ｉ）。

xm; Taｂ(1８）；ｓtu(ｉ）.ｃj（1)；Tab(2７）; stu（i）．cj（2）; Taｂ（3４）；stu（i）.cj（3)；Tab（43）; stu(i）。

cj(4)；Tab(52）; stu(i）．cj(５）
Next ｉ
End Sub
ＰrｉvateＳuｂｙsｋcwj＿Ｃｌick（）
Dim i!
Form1.Cls
Form1。

Priｎt
Foｒｍ1.Prｉnｔ
Fｏrm１.FontSｉｚe = 12
Forｍ1.PriｎtＴab（8); ”编号课程名称课程学分"
Ｆｏrm1.Ｐrint
Foｒi = 1 To M
Foｒm1。

Print Ｔaｂ（9）；ke(i)。

编号；Ｔaｂ（２1); ke(i）。

课程名；Taｂ（4１）；ｋe（i）。

学分
Foｒｍ1.Ｐrｉnｔ
Ｎext ｉ
End Sub
②Fｏrｍ2：
Diｍs（５To１0），i!，k！，ｊ!
Ｐｒivate SuｂCommand１_Cｌick（）
Form２.Cls
Fｏｒm2。

Pｒｉnt
Fｏrm2.ＦontSize =12
Form２。

Print Tab（３0）；”范围”;Tab（４1）；＂课程”; Ta ｂ(５２）；”人数”
Foｒｍ2．FontＳizｅ= 1２
Fｏrm2。

Ｐrｉnｔ
Ｆｏｒｋ= ５Tｏ1０
s(k) = 0
Next k
i=１
Ｆoｒｊ＝ 1 TｏN
g=stu(j）.cj(i) ＼10
Seleｃt Caｓｅg
Cａse ０To 5
s（5）=ｓ（5）+ 1
Casｅ６
s(6)= s（6) + １
Caｓe 7
s（７) ＝s(7) + 1
Caｓe ８
s(８）= s（8)+ １
Case9
s（9）=s（9）+ 1
Ｃaｓe10
ｓ(10)＝s（10）＋１
End Sｅｌect
Nｅｘt j
Fｏrm2.Pｒint Taｂ（30）；＂６0分以下＂；Ｔａb（４１); ke （i).课程名; Ｔａｂ（５1）；s（５）
OpenＡpp.Patｈ+ "＼英语。

Tｘt＂For Ｏuｔput As#1 Wｒite #1, ＂60分以下"，s（5)
Ｆｏr k= 6 To 8
Form2。

Pｒint Tab（29）; ｋ*１０; ＂－”；（ｋ＊1０+ 9）；Ｔab(4１）; ke(i)。

课程名；Ｔab(51）;s（ｋ) Ｗriｔe #1，k ＊10 ＆＂－” ＆（ｋ* 1０＋9),s(ｋ）Neｘt ｋ
Form2.Prｉnt Tａb(3０）;”9０-10０"；Tａb(4１)；ke(i）。

课程名；Ｔａb（51）;s(9）+ s(１0)
Ｆorm2.Print
Wrｉte #1，＂９0 —10０", ｓ（9）+ ｓ(1０)
Clｏse#1
Fｏr k = 5 To １0
s(k）= 0
Nｅxｔk
EｎｄＳuｂ
Ｐｒｉvａte ＳuｂCｏmmaｎｄ2＿Ｃｌick（）
Foｒm2.Cls
Ｆorｍ2.Prinｔ
Forｍ2.ＦonｔSize =12
Fｏｒm２.Priｎt Tab（30); "范围”；Taｂ(４1); ”课程＂；Ｔａb （５2）；"人数”
Form2。

FoｎtSize ＝1２
Foｒm2。

Pｒinｔ
i = 2
Foｒj = 1 Ｔo Ｎ
g = ｓtu（j)。

cj(i)\10
Sｅlect Case g
Caｓｅ0 To５
s（5）=s（5）+ 1
Case 6
s(6）=s(6) + １
Ｃase 7
s（７）＝s(7) + １
Caｓe 8
s（８)＝s(8) + 1
Cａse 9
s（9）= s（９）+ 1
Cａｓe1０
s(１0) ＝s（1０）＋１
ＥnｄSｅlect
Nexｔj
Foｒm2．Pｒint Tab(30); ”６0分以下"；Tａｂ（41）；ｋe(i）．课程名; Taｂ（5１）；s（５）
Open Ａpp．Path +”\VB.Ｔxt＂For Ｏｕtput Aｓ＃1
Write #1,"60分以下”,s（5）
Ｆｏr k= 6To8
Fｏrm2．Print Tａb（2９）; k * 10；”－"；（k ＊10＋９）；Tab（４1）；ke（i).课程名；Tａb(51)；s（k）Write #１，ｋ＊１0 ＆”－" ＆(k * 10 + 9），s（k）
Next k
Ｆorm2．Prｉｎt Tａｂ（30）；”90－100”；Ｔａb（41）; ke(i）.课程名；Ｔaｂ（51)；s(9）＋s（10）
Ｆoｒm2。

Ｐrint
Ｗrite #1，＂90 - 100"，s(9）＋s（10）
Cｌｏsｅ＃1
For k= 5 Ｔｏ1０
s（k) =0
Next k
Eｎd Sub
ＰｒｉvａtｅSuｂComｍａnｄ３_Clｉck（)
Forｍ２.Ｃｌs
Fｏｒm２.Print
Form２．FｏntＳｉze = 12
Form2．Pｒint Taｂ(30）; ”范围”；Tａb（4１)；”课程”；Ta ｂ（52); "人数”
Fｏｒｍ2.ＦontSize = 12
Fｏrm2．Pｒｉｎt
i ＝ 3
Ｆor j ＝１ToＮ
g= ｓtｕ（j）．cj（i) \ １0
Select Caseｇ
Caｓｅ０To 5
ｓ（5) = s（5) ＋１
Cａse 6
s(６）＝s(6）+ 1
Ｃase 7
s(７）= s（7）+ 1
Cａse 8
ｓ(8) = s（8) + 1
Ｃasｅ9
ｓ(9) = ｓ(９) + 1
Caｓe 10
s(1０）＝s(10）+ 1
ＥnｄSelect
Ｎext j
Fｏrm2。

Pｒｉnt Tａb（３０）；"6０分以下”；Tａb(41); k ｅ(i）．课程名；Tab(51);s（５)
Opｅn App.Ｐath + ”\化学。

Txt" For Oｕtput As #１
Writｅ＃1，”6０分以下＂, s(5)
Foｒk＝６To 8
Ｆorm2。

PrinｔTab（２9)；k＊１0；"-"；（k * 10 + ９）；Tab（4１）; ke（i）．课程名; Tａb(51）；s（k）Wrｉｔｅ#1，ｋ* 10 & ”-” & (k ＊１0＋9)，ｓ(k) Nexｔｋ
Form２．PriｎｔTaｂ(３0)；”９0—１00”; Ｔab（41)；ke(i）．课程名；Tab（５1)；ｓ（9) ＋ｓ（10）
Ｆoｒm2.Print
Ｗriｔe#1，"90 - 100＂, ｓ（9) + s(10)
Ｃlose #1
Fｏr k = 5 To10
ｓ（ｋ）=0
Neｘｔk
EnｄSｕb
Pｒivate Sub Cｏmｍaｎｄ4_Cｌｉｃk()
Form2。

Clｓ
Foｒm2.Priｎt
Ｆorm2.FonｔＳize＝12
Fｏrm2．Prｉnt Tａｂ（30)；”范围＂；Tab（４１)；"课程”;Ｔａb(52）;”人数＂
Fｏrｍ2.FoｎｔSize=１２
Form2。

Prｉnt
i =４
Fｏr j = １Ｔo Ｎ
g = stu（ｊ）．ｃj(ｉ）\ 10
SｅlectＣａsｅg
Case ０To 5
s(5)＝ｓ(５) + １
Case 6
s（６) = ｓ(6）+ 1
Ｃase 7
ｓ（７)＝ｓ(７）+ 1
Cａｓe8
s（8) = s(８）+ 1
Case９
s(9)= s（9）+ １
Cａse １0
ｓ（１０) = s（10）＋ 1
End Sｅlect
Next j
Fｏrｍ2．PｒintＴａb(3０）；”60分以下"; Tab（4１); ke(i）.课程名；Ｔab（５1)；ｓ(5)
Open Aｐp。

Pａth + ”\物理。

Ｔｘｔ"Ｆor Output Aｓ＃1 Wｒiｔe #1, "6０分以下"，s(5）
Ｆor k = 6 To ８
Form2。

PrinｔTab（２9）;ｋ＊1０; "—"; （ｋ＊1０+9)；Tab（４1）;ke（i）.课程名; Tab（５１)；s（k) Wriｔｅ＃1，k＊10 ＆”－” & （k * 10 ＋9）, ｓ（k）Ｎexｔｋ
Form２.Prｉｎt Taｂ(30)；"9０—100”；Tａb（４1)；ke（i）.课程名; Ｔab(51); ｓ（9）＋s（１0)
Form2。

Priｎt
Wrｉtｅ＃1，"90－100＂，s（９) +s（１0）
Cloｓe #1
For k = 5 To１0
ｓ（k）=0
Next k
End Sub
PriｖatｅSuｂComｍａnd5_Ｃｌick()
Form2.Clｓ
Fｏrｍ2．Print
Foｒｍ2.ＦｏntSiｚe＝1２
Form2.PｒｉｎｔＴaｂ(３0）；"范围"; Ｔaｂ（4１)；＂课程"；T ａｂ（52）；"人数＂
Foｒm2．FｏntSｉｚe ＝1２
Fｏrm2.Ｐrint
ｉ= 5
Fｏr j= 1 To N
g = ｓtｕ(j)。

cj（i) ＼１0
Select Case g
Case ０To 5
s（５) ＝s(５）+ １
Cａｓｅ6
s(6）＝s（6) ＋1
Case 7
ｓ（7) =s(7）+ 1
Case 8
s（8）＝ｓ（8）＋１
Cａsｅ9
s(9）= s（９）+ １
Ｃase 10
s(１0) =ｓ（10）+ 1
Ｅｎd Ｓｅlect
Ｎext j
Foｒm2.PrintＴab(３0); "６0分以下”; Tab(41）；ke（i）.课程名；Tab（5１）；s（5)
Open Apｐ.Paｔh +＂＼数学.Ｔxt" FoｒOutput As#1
Write #1，＂６0分以下”，s(5）
Fｏr k= 6 To ８
Fｏｒm2。

Pｒint Tａb(29）; ｋ＊１0；”－”；（k * 10 +9）; Tａb(41）; ｋe(ｉ)。

课程名；Ｔａb(51）; s(k）Wｒitｅ＃1，k ＊10＆”－" & (ｋ＊10+ ９）, s（k）Ｎｅxtｋ
Fｏｒｍ2.PrinｔTab（30）；"90－100"；Taｂ（41)；ｋe（i)。

课程名; Tab(51）；ｓ(9) + s（10）
Foｒｍ2。

Priｎｔ
Wriｔｅ#１，”９0 -1０0”,ｓ(9）+s（1０）
Ｃlｏse#１
For k＝5 Ｔo 10
s(k）= 0
Nｅxt k
ＥnｄＳub
七。

程序运行中待改进的缺点
1。

没有修改的功能
2.运行顺序有局限性,必须先运行计算平均分步骤，才能正
常完成后面的排序及查询等
3。

部分数据统计出的结果表达方式不够直观
4.查询成绩时取消按钮未发挥作用，最好改为关闭窗口。

八．小结和体会
想来,当时那会儿听说要搞VB课程设计的时候,我可是相当的激动啊,心想，学的东西终于可以用一用了，并且这次的VB课程设计才一周的时间，就像老师说的,真是时间紧任务重啊。

主要是用VB相关的只是来实现学生成绩和信息的管理这，对于我们这种初次接触这种东西的人来说，还真是有难度，如果不是查找相关的资料和请教同学的话，我想我还真一时半会,不知道从哪里下手，好在功夫不负有心人,经过几天的摸索和操作，这个学生成绩处理系统的雏形终于是出现了,虽说功能不太完善，但还是能满足基本的要求，这让我很是欣慰。

一周的时间并不算长,一晃就到了，课程设计也要画上句号了。

在这段时间里,不能说我的VB编程能力有了多么大的提高，多么大的飞跃，但我敢说我对ＶB相关的知识有了更深的了解和体会,总结起来主要有以下几点：
1.想要用VB做出好的东西来，一定要勤动手，不能光看，
因为好多错误凭看是看不出来的只有通过自己不断的操作和修改，才能对VＢ的语法结构和流程有自己独到的理解；
2.在编程和调试的过程中，总会出现一些意想不到的问题。

我发现并不是每个问题都能从资料中得到解决办法，有些问题是无法预料的，这个时候就得靠自己去分析了, 你必须得非常细心，一步一步的进行调试和修改，而且不能急,往往有的错误就是在你急躁的时候从你眼皮底下溜过去的，这样有的重新检查，到头来，既费时又费力，实在不行，还可以和同学一起进行讨论；
3.在写代码的时候,一定要养成良好的语法习惯,对窗体和控
件的namｅ属性和ｃapｔion属性,要尽量习惯用相应的英文单词的缩写，因为这样便于自己查找和修改,还有的就是在写代码的时候，不要图简单,一些语法结构总是不写全，老是用最简单的形式，如果你对VＢ语法结构很熟悉的话，这没问题，但对于我们这样的初学者来说,一定不要这样，因为时间长了的话，对一些复杂的程序理解起来会很吃力,而且对其它的运行过程的理解不能达到透彻；
4.在数据的处理的操作的部分，一定检验一下数据的连接成
功与否，还有就是在控件与数据连接的时候，不要忘了每个控件的属性，确保其与数据的成功连接;
在这次VB程序设计实习中，通过上机实训，我加深了对程序在VＢ6.0中调试并运行方法的了解，巩固了所学知识。

在其过程中,我遇到了很多问题和困难，发现在之前的学习中所学的东西不能完全掌握。

这次实习是我在学习上的一次考验，让我深深体会到了实训操作的重要性。

同时感谢老师给予的耐心讲解细心的帮助虽然此次实习已结束，时间不长,但意义很大.对我今后的学习和工作将产生很大的影响。