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