vb學生成績

Ⅰ vb編程統計學生成績。。高手請進 急~~~~~

Type Student
mc As Sting
xh As String
yw As Integer
sx As Integer
yy As Integer
Score as Integer
avg as Integer
End Type.

Ⅱ vb學生成績管理系統

Public Sub SaveCurrent()
gstu.sNum = txtNum.Text
gstu.sName = txtName.Text
gstu.Score = txtScore.Text
Put #1, currentrecord, gstu
End sub

Ⅲ 用vb語言根據學生成績評定等級

Private Sub Command1_Click()
Dim score As Integer
Cls
L: score = Val(InputBox("請輸復入制分數", , 0))
If score < 0 Or score > 100 Then
MsgBox "請輸入0~100之間的分數"
GoTo L
End If
If score <= 59 Then Print "不及格"
If score >= 60 And score <= 69 Then Print "及格"
If score >= 70 And score <= 79 Then Print "中"
If score >= 80 And score <= 89 Then Print "良"
If score >= 90 And score <= 100 Then Print "優"
End sub

Ⅳ VB輸入一個學生成績進行判斷

DimstAsString="",fenshuAsInteger
fenshu=Val(InputBox("請輸入成績分數"))
Iffenshu>90Then
st=st&"優秀！"&vbCrLf&"請領取獎狀"
EndIf
Iffenshu<90Andfenshu>=60Then
st=st&"及格！"&vbCrLf&"您的成績是"&fenshu.ToString
EndIf
Iffenshu<60Then
st=st&"不及回格！"&vbCrLf&"請開學答後補考"
EndIf
TextBox6.Text=st

Ⅳ vb 計算學生成績

dim a as integer
private sub command1_click()
for a=1 to 20
list1.additem cint(rnd*100)
next a
end sub
private sub command2_click()
for a=0 to list1.listcount-1
if val(list1.list(a))>=90 then
list2.additem list1.list(a)
elseif val(list1.list(a))>=80 and val(list1.list(a)) < 90 then
list3.additem list1.list(a)
elseif val(list1.list(a))>=60 and val(list1.list(a)) < 80 then
list4.additem list1.list(a)
else
list5.additem list1.list(a)
end if
next a
end sub
private sub command3_click()
list6.additem list2.listcount-1
list7.additem list3.listcount-1
list8.additem list4.listcount-1
list9.additem list5.listcount-1
end sub

Ⅵ 用VB編寫一學生成績統計程序

Private Sub Form_Click()
Dim Score As Single, Sum As Single, N As Integer, Average As Single
Sum = 0
N = 0
Score = InputBox("請輸入第" & N + 1 & "個同學的成績回答", "成績輸入")
Do While Score <> -1
Sum = Sum + Score
N = N + 1
Score = InputBox("請輸入第" & N + 1 & "個同學的成績", "成績輸入")
Loop
Average = Sum / N
Print "平均成績為："; Average
End Sub

Ⅶ VB學生成績輸入 代碼

Private Sub Command2_Click()
With rs2
.Fields("第一單抄元襲") = Text3.Text
.Update
End With
rs2.MoveNext
Text1.Text = rs2.Fields("學生編號")
Text2.Text = rs2.Fields("學生姓名")
End Sub

Ⅷ VB學生成績等級的程序

運行復程序要講制效率,這里不用select---case更是一種高效率的思路:------de1212x=inputbox("","",66)
if x>=0 and x<=100 then d=x\10 if d<5 then d=5 c=74 -d msgbox chr(c)else msgbox "x Error !"end if

Ⅸ VB輸入學生成績

PrivateSubMain()
DimScores(1To10)AsSingle
CallInputScore(Scores)
CallPrintScore(Scores)
CallAboveAverage(Scores)
CallScoreSort(Scores)
CallPrintScore(Scores)
CallFindMaxMin(Scores)
EndSub

PrivateSubInputScore(sngScores()AsSingle)
DimiAsSingle
Fori=LBound(sngScores)ToUBound(sngScores)
sngScores(i)=InputBox("請輸入第"&i&"名學生高考成績：","高考成績管理系統",600)
Nexti
EndSub

PrivateSubPrintScore(sngScores()AsSingle)
DimiAsInteger
LoadForm1
Form1.Show
Fori=LBound(sngScores)ToUBound(sngScores)
Form1.PrintsngScores(i);
Nexti
Form1.Print
EndSub

PrivateSubScoreSort(sngScores()AsSingle)
DimiAsInteger,jAsInteger,tAsSingle
Fori=LBound(sngScores)ToUBound(sngScores)-1
Forj=i+1ToUBound(sngScores)
IfsngScores(j)>sngScores(i)Then
t=sngScores(i)
sngScores(i)=sngScores(j)
sngScores(j)=t
EndIf
Nextj
Nexti
EndSub

PrivateSubAboveAverage(sngScores()AsSingle)
DimiAsInteger,kAsInteger,sngSumAsSingle,sngAverageAsSingle
Fori=LBound(sngScores)ToUBound(sngScores)
sngSum=sngSum+sngScores(i)
Nexti
sngAverage=sngSum/UBound(sngScores)
Fori=LBound(sngScores)ToUBound(sngScores)
IfsngScores(i)>sngAverageThen
k=k+1
EndIf
Nexti
Form1.Print"平均值為：";sngAverage,
Form1.Print"高於平均值的人數為：";k
EndSub

PrivateSubFindMaxMin(sngScores()AsSingle)
DimiAsInteger,sngMaxAsSingle,sngMinAsSingle
sngMax=sngScores(LBound(sngScores))
sngMin=sngScores(LBound(sngScores))
Fori=LBound(sngScores)+1ToUBound(sngScores)
IfsngScores(i)>sngMaxThensngMax=sngScores(i)
IfsngScores(i)<sngMinThensngMin=sngScores(i)
Nexti
Form1.Print"最高分為：";sngMax,"最低分為：";sngMin
EndSub

Ⅹ 用VB怎麼做學生成績等級排序的程序

VB中添加一個按鈕點擊就可以了
Private Sub Command1_Click()
a = InputBox("請輸入分數：")
If IsNumeric(a) And a <= 100 And a >= 0 Then
Select Case a
Case 0 To 59
dd = "E"
Case 60 To 69
dd = "D"
Case 70 To 79
dd = "C"
Case 80 To 89
dd = "B"
Case 90 To 100
dd = "A"
Case Else
dd = "成績錯誤！回"
End Select
MsgBox dd
Else
MsgBox "你輸入的答成績非法"
End If
End Sub