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