vb中输入若干学生成绩

2. 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

3. VB编程题：用滚动条输入学生成绩,用文本框显示其等级。即:90~100为优,80~90为良,70~79为中,60~69为及格。

新建一个工程，保存。将保存目录中的Form1.frm
用记事本打开，将下列代码粘贴上，保存frm，
然后重新打开工程即可。

VERSION 5.00
Begin VB.Form Form1
Caption = "学生成绩"
ClientHeight = 3165
ClientLeft = 60
ClientTop = 450
ClientWidth = 7725
LinkTopic = "Form1"
LockControls = -1 'True
ScaleHeight = 3165
ScaleWidth = 7725
StartUpPosition = 3 '窗口缺省
Begin VB.TextBox Text2
Height = 855
Left = 3480
TabIndex = 4
Text = "不及格"
Top = 2160
Width = 3615
End
Begin VB.Frame Frame1
Caption = "请选择一个成绩"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1935
Left = 120
TabIndex = 0
Top = 120
Width = 6975
Begin VB.TextBox Text1
Height = 1095
Left = 3600
TabIndex = 2
Text = "0"
Top = 480
Width = 3015
End
Begin VB.HScrollBar HScroll1
Height = 1095
Left = 240
Max = 100
TabIndex = 1
Top = 480
Width = 2895
End
End
Begin VB.Label Label1
Caption = "成绩等级："
BeginProperty Font
Name = "宋体"
Size = 26.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 735
Left = 120
TabIndex = 3
Top = 2160
Width = 3135
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub HScroll1_Change()
Text1.Text = HScroll1.Value
With Text2
Select Case HScroll1.Value
Case 90 To 100
.Text = "优"
Case 80 To 89
.Text = "良"
Case 70 To 79
.Text = "中"
Case 60 To 69
.Text = "及格"
Case Else
.Text = "不及格"
End Select
End With
End Sub

4. vb题，求编程 输入若干个成绩，求出其平均分，然后将成绩大于平均分的学生的成绩按从高到低的顺序显示

成绩大于平来均分的学生的成自绩按从高到低的顺序显示的VB程序如下，请采纳：

Private Sub Command1_Click()
Dim a() As Integer
n = Val(InputBox("请问要输入几个成绩:"))
ReDim a(n)
For i = 1 To n
a(i) = Val(InputBox("请输入第 " & i & " 个成绩:"))
s = s + a(i)
Next i
For i = 1 To n - 1
For j = 1 To n - i
If a(j) < a(j + 1) Then
t = a(j): a(j) = a(j + 1): a(j + 1) = t
End If
Next j
Next i
av = s / n
i = 1
Do
Print a(i)
i = i + 1
Loop Until a(i) <= av
End Sub

5. vb输入若干名学生的成绩,求平均分,最高分,最低分

PrivateSubForm_Click()
Dima(),iAsInteger,maxAsInteger,minAsInteger,sumAsInteger
i=0
ReDimPreservea(i)

Do
a(i)=Val(InputBox("输入学生成绩："))
Ifa(i)=0ThenExitDo
sum=sum+a(i)
Ifi=0Then
max=a(i):min=a(i)
Else
Ifmax<a(i)Then
max=a(i)
ElseIfmin>a(i)Then
min=a(i)
EndIf
EndIf
i=i+1
ReDimPreservea(i)
Loop

Print"平均值："&sum/i,"最大值："&max,"最小值：";min
EndSub

6. VB程序题急求！ 输入若干个学生一门课的成绩，统计各分数段的人数。按小于60分、60~69分、70

DimaAsDouble=0'总成绩
DimbAsDouble=0'平均成绩
DimcAsInteger=0'及格人数
DimdAsInteger=0'不及格人数

'定义一个变量，输入人数
DimiAsInteger=InputBox("请输入人数：","提示",5)
'循环填入每个人的成绩
Forj=1Toi
DimkAsDouble=InputBox("请输入第"&j.ToString.Trim&"个学生的成绩：","提示",0)
a=a+k'记录总成绩
Ifk>=60Then'判断输入的成绩是否及格
c=c+1'及格
Else
d=d+1'不及格
EndIf
Next
b=a/i'计算平均成绩

'输出结果
MsgBox("总人数："&i.ToString&vbCrLf&"总成绩："&a.ToString&vbCrLf&"平均成绩："&b.ToString&vbCrLf&"及格人数："&c.ToString&vbCrLf&"不及格人数："&d.ToString)

7. VB输入几个学生成绩,统计及格人数,不及格人数和平均分

lz。代码如下

OptionExplicit

DimrsAsInteger

DimcjAsLong

DimzcjAsInteger

DimpjzAsInteger

DimbjgAsInteger

DimjgAsInteger

PrivateSubCommand1_Click()

DimiAsInteger

rs=InputBox("请问你要输入几个人的成绩?","输入人数")

Fori=1Tors

cj=InputBox("输入成绩")

Ifcj>=60Thenjg=jg+1

Ifcj<60Thenbjg=bjg+1

zcj=zcj+cj

Nexti

Label1.Caption="及格人专数为属："&jg

Label2.Caption="不及格人数为："&bjg

Label3.Caption="平均分"&zcj/rs

EndSub

8. vb：求输入的若干个学生成绩的和,输入-1表示结束

Private Sub Command1_Click()
Dim Sum As Single, i As Long, a As Single, B As Long
Sum = 0: i = 1: a = 0: B = 0
Do While i <> -1
B = B + 1
a = Val(InputBox("请输入第 " & B & " 个学生成绩（正整数）" & vbCrLf & "或输入“-1”退出回", "请求输出", ""))
If a = -1 Then
i = -1
Else
i = 1
Sum = Sum + a
End If
Loop
MsgBox "您输入的学生成绩之答和=" & Sum, vbInformation, "成绩之和"
End Sub

9. 输入若干学生成绩输出所有成绩并计算显示最大最小及平均值用vb语言写的程序

Dima(10)AsInteger,avgAsInteger=0,sumAsInteger=0,maxAsInteger,minAsInteger,tempAsInteger,stAsString=""
Fori=1To10
a(i)=Val(InputBox("请输入第"&i&"个学生的数学成绩"))
Next
Fori=1To10
sum=sum+a(i)
Next
avg=sum/10
Fori=1To10
Forj=1To10-i
Ifa(j)<a(j+1)Then
temp=a(j+1)
a(j+1)=a(j)
a(j)=temp
EndIf
Nextj
Nexti
max=a(1)
min=a(10)
st=st&"学生的数学成绩总和是"&sum&vbCrLf
st=st&"学生的数学成绩平均是"&avg&vbCrLf
st=st&"学生的数学成绩最高是"&max&vbCrLf
st=st&"学生的数学成绩最低是"&min&vbCrLf
TextBox6.Text=st

10. vb程序题: 输入若干个学生的一门课的成绩，统计个分数段的人数。按小于60分，60—69分，7

DimAA(1To30)AsByte

PrivateSubCommand1_Click()
Text2.Text=""
DimXX1AsByte,XX2AsByte,XX3AsByte
ForI=1To30
IfAA(I)<60ThenXX1=XX1+1
IfAA(I)>=60AndAA(I)<70ThenXX2=XX2+1
IfAA(I)>=70ThenXX3=XX3+1
NextI
Text2.Text="60分以下人数"&XX1&"人，60-69分人数"&XX2&"人，70分以上人数"&XX3&"人。"
EndSub

PrivateSubCommand2_Click()
UnloadMe
Form1.Show
EndSub

PrivateSubForm_Load()
Text1.Text=""
Text2.Text=""
ForI=1To30
Randomize
AA(I)=Int(Rnd*50+50)
Text1.Text=Text1.Text&AA(I)&""
IfI=5ThenText1.Text=Text1.Text&vbCrLf
NextI
EndSub