vb输入n个学生的成绩

① VB输入N个学生的学号和成绩，打印出成绩最高者的学号和成绩

我用5个学生来设计，用结构体，效果图如下:

PrivateTypestu

idAsInteger

fsAsLong

EndType

Dima(4)Asstu

DimiAsInteger

PrivateSubCommand1_Click()

Picture1.AutoRedraw=True

Ifi>=5Then

MsgBox("最多只能输入个学生信息"):Text1.Text="":Text2.Text=""

Text1.Locked=True:Text2.Locked=True

Else

IfText1=""OrText2=""Then

N=MsgBox("请认真填写学生的基本信息",0+48,"提示")

IfText1=""ThenText1.SetFocus

IfText2=""ThenText2.SetFocus

Else

Witha(i)

.id=Val(Text1)

.fs=Val(Text2)

Picture1.Printi+1;Tab(6);.id;Tab(13);.fs

EndWith

Text1="":Text2=""

i=i+1

EndIf

EndIf

EndSub

PrivateSubCommand2_Click()

DimtAsstu

Picture2.Cls

Picture2.AutoRedraw=True

imax=0

ForN=1Toi-1

Ifa(N).fs>a(imax).fsThenimax=N

NextN

Picture2.Print"成绩最高分是学号";a(m).id;Spc(2);"分数为";a(m).fs

② vb输入学生人数n,输入n个学生的成绩,输出最大成绩😁

Private Sub Command1_Click()
n = CInt(InputBox("请输入学生人数:"))
x = -1
For i = 1 To n
x = Val(InputBox("请输入第 " & i & " 个学生的成绩：专"))
If x > Max Then Max = x
Next i
MsgBox "最高属分=" & Max
End Sub

③ 在VB编程序时,怎样写“输入N名学生的成绩,显示在文本框中.”

Option Explicit
Private Sub Command1_Click()
Dim renshu%, i%, n$, f!
Text1.Text = ""
Text1.MultiLine = True
renshu% = Val(InputBox("请输入学生的个数", "提示"))
For i% = 1 To renshu%
n$ = InputBox("请输入第内" & Str(i%) & "个学生的名容字", "提示")
f! = Val(InputBox("请输入第" & Str(i%) & "个学生的分数", "提示"))
Text1.Text = Text1.Text & "第" & Str(i%) & "个 名字:" & n$ & " 分数:" & f! & vbCrLf
Next i%
End Sub

按我理解给你写的

④ 问VB怎么编：输入n，再输入n个学生的成绩，统计及格人数

Dim x As Integer
Dim a() As Integer
Dim i As Integer
Dim ss As Integer
Dim Score As Integer
Private Sub Form_Activate()
x = InputBox("请输入复学生制数目")
ReDim a(1 To x)
For i = 1 To x
Score = InputBox("请输入第" & i & "个学生的成绩")
If Score >= 60 Then ss = ss + 1
Next i

MsgBox "共有" & ss & "人及格"
End Sub

⑤ vb试题：任意输入N个学生的成绩,计算平均分,并输出n名学生的成绩及平均分。急求，勿水，急求，在线

Private Sub Command1_Click()
Dim n As Integer
Dim show As String
Dim a()
n = CInt(InputBox("输入学来生数自"))
ReDim a(n)
For i = 1 To n
a(n) = CInt(InputBox("请输入第 " & CStr(i) & " 名学生成绩"))
average = average + a(n)
Next i
For i = 1 To n
show = show & "第 " & CStr(i) & " 名成绩" & Chr(13)
Next i

average = average / n
show = show & "平均值:" & average & Chr(13)
MsgBox show
End Sub

⑥ VB编程：输入n和m，并输入n个学生m门课程的成绩，计算平均成绩，并按平均成绩升序排序

Dim Avg()
n = Val(InputBox("输入学生人数N="))
M = Val(InputBox("输入课程数M="))
ReDim Avg(n)

For i = 0 To n - 1
Sum = 0
For j = 0 To M - 1
D = Val(InputBox("输入第 " & i + 1 & " 位同学的科目 " & j + 1 & " 的成绩："))
Sum = Sum + D
Next
Avg(i) = Sum / M
Next

For i = 0 To n - 1
For j = 0 To n - 1
If Avg(i) < Avg(j) Then
T = Avg(i)
Avg(i) = Avg(j)
Avg(j) = T
End If
Next
Next

For i = 0 To n - 1
Print Avg(i);
Next

⑦ VB输入某班级N个学生的成绩到数组X中,求成绩的标准差,求标准差公式如下

^Private Sub Command1_Click()
Dim i As Integer, cj() As Integer, n As Integer, zcj As Integer, pj As Single, s As Single, q As Single
n = InputBox("请输入学生人数：")
ReDim cj(n) As Integer
For i = 1 To n
cj(i) = InputBox("请输入第版 " & i & " 个学生成绩：权")
Next
zcj = 0
For i = 1 To n
zcj = zcj + cj(i)
Next
pj = zcj / n
s = 0
For i = 1 To n
s = s + (cj(i) - pj) ^ 2
Next
q = Sqr(s / (n - 1))

Print q
End Sub

⑧ vb利用动态数组输入学生人数n然后输入n个学生的学号与一门课的成绩,进行如下还要计算最高分最低分

PrivateSubCommand1_Click()
Dimsno()AsString
Dimscore()AsInteger
Cls
n=Val(InputBox("输入学生总人数","输入人数",10))
ReDimsno(1Ton)AsString
ReDimscore(1Ton)AsInteger
Fori=1Ton
sno(i)=InputBox("输入第"&i&"位学生的学号","学号",201500+i)
score(i)=Val(InputBox("输入第"&i&"位学生的成绩","成绩",80))
Nexti

maxid=1:minid=1:Sum=0
Fori=1Ton
Ifscore(i)>score(maxid)Thenmaxid=i
Ifscore(i)<score(minid)Thenminid=i
Sum=Sum+score(i)
Nexti
Avg=Sum/n

Print"最高分学号="&sno(maxid)&"成绩="&score(maxid)
Print"最低分学号="&sno(minid)&"成绩="&score(minid)
Print"超过平均分学生列表-------------"
Fori=1Ton
Ifscore(i)>AvgThen
Printsno(i),score(i)
EndIf
Nexti
EndSub