vb顯示學生學號與成績
① 一個學生姓名學號成績就行排序的vb程序
order by 成績 desc 降序
order by 成績 asc 升序
② vb編程：輸入學生的姓名，學號和成績。成績包括高數、英語和專業課，判斷該生能獲幾等獎並輸出。
代碼如下。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Private Sub Command1_Click()
Dim name As String, num As Integer, s1 As Single, s2 As Single, s3 As Single, s As String
name = InputBox("輸入學生的姓名")
num = Val(InputBox("輸入學生的學號"))
s1 = Val(InputBox("輸入高數成績"))
s2 = Val(InputBox("輸入英語成績"))
s3 = Val(InputBox("輸入專業課成績"))
If s1 > 95 And s2 > 95 And s3 > 95 Then
s = "一等"
Else
If s1 > 90 And s2 > 90 And s3 > 90 Then
s = "二等"
Else
If s1 > 88 And s2 > 88 And s3 > 88 Then
s = "三等"
Else
s = "無獎"
End If
End If
End If
MsgBox "學生" + name + "(學號" + Str(num) + ")的成績是" + vbCrLf + s
End Sub
③ vb要建立一個學生成績的隨機文件，如下定義了學生的記錄類型，由學號、姓名、三門課程成績（百分制）組成
為什麼要name要String *10呢？這里的*10是什麼意思？
隨機記錄以固定長度寫在文件中的版。* 10表示了name中可以儲存10個字權符（字母或漢字）。
OptionExplicit
PrivateTypestudl
noAsInteger
nameAsString*10
score(1To3)AsSingle
EndType
PrivateSubCommand1_Click()
DimaAsstudl
a.no=12345
a.name="努努house"
a.score(1)=100
a.score(2)=98
a.score(3)=110
Printa.name
Printa.no
Printa.score(1)
Printa.score(2)
Printa.score(3)
PrintLenB(a)
PrintLen(a)
EndSub
說明一條記錄的位元組長度是36位元組（Byte）。
④ 請教一道VB編程題：從鍵盤上輸入一個學生的學號和考試成績，然後輸出該學生的學號、成績，並根據成績按下
並根據成績按下?
⑤ vb隨機生成30個學生的成績，並按照成績和學號排序
』隨機生成學號及分數
PrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.Click
List1.Items.Clear()
DimBAsInteger
ForB=1To30
stdscore(B,2)=Int(Rnd()*90)+10
stdscore(B,1)=B
List1.Items.Add(""&stdscore(B,1)&""&stdscore(B,2))
NextB
EndSub
『下面是按照分數排序
PrivateSubButton3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton3.Click
Dimj,kAsInteger
Dimmaxl,mankAsInteger
List1.Items.Clear()
Fork=1To30
Forj=1To30-k
Ifstdscore(j,2)<stdscore(j+1,2)Then
maxl=stdscore(j+1,1)
mank=stdscore(j+1,2)
stdscore(j+1,2)=stdscore(j,2)
stdscore(j+1,1)=stdscore(j,1)
stdscore(j,2)=mank
stdscore(j,1)=maxl
EndIf
Nextj
Nextk
Fork=1To30
List1.Items.Add(""&stdscore(k,1)&""&stdscore(k,2))
Next
EndSub
'下面是按照學號排序
PrivateSubButton4_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton4.Click
Dimj,kAsInteger
Dimmaxl,mankAsInteger
List1.Items.Clear()
Fork=1To30
Forj=1To30-k
Ifstdscore(j,1)>stdscore(j+1,1)Then
maxl=stdscore(j+1,1)
mank=stdscore(j+1,2)
stdscore(j+1,2)=stdscore(j,2)
stdscore(j+1,1)=stdscore(j,1)
stdscore(j,2)=mank
stdscore(j,1)=maxl
EndIf
Nextj
Nextk
Fork=1To30
List1.Items.Add(""&stdscore(k,1)&""&stdscore(k,2))
Next
EndSub
⑥ 用ACCESS和VB做學生成績查詢系統~資料庫已做好~VB的代碼該怎麼寫~（包括學號，姓名，班級查詢） 跪求高手
很簡單呀！ 你先啟動VisualBasic6.0 然後 創立標准EXE
添加 access 數據的控制項 添加的方法。 第一進入 "工程（P）" → "引用(N)" ... 打開窗口找到 Microsoft ActiveX Datam Objects 2.0 Library 選擇（打對號）， FORM1 添加一個Listbox控制項，然後打開「查看代碼」 窗口 輸入下面的代碼：
Public imu As Boolean
Public flag As Integer 'ìí?óoíDT??μ?±ê??
Public iflag As Integer 'êy?Y?aê?2?′ò?a±ê??
Public RS As ADODB.Recordset
Public SQL As String
Public Function TransactSQL(ByVal SQL As String) As ADODB.Recordset
Dim con As ADODB.Connection
Dim RS As ADODB.Recordset
Dim strConnection As String
Dim strArray() As String
Set con = New ADODB.Connection '′′?¨á??ó
Set RS = New ADODB.Recordset '′′?¨?????ˉ
On Error GoTo TransactSQL_Error
strConnection = "Provider=Microsoft.jet.oledb.4.0;Data Sourc e=" & "D:\Test.mdb;persist security info=false; jet oledb:database password=pnurkim32"
strArray = Split(SQL)
con.Open strConnection '′ò?aá??ó
If StrComp(UCase$(strArray(0)), "select", vbTextCompare) = 0 Then
RS.Open Trim$(SQL), con, adOpenKeyset, adLockOptimistic
Set TransactSQL = RS '·μ???????ˉ
iflag = 1
Else
con.Execute SQL '?′DD?üá?
iflag = 1
End If
TransactSQL_Exit:
Set RS = Nothing
Set con = Nothing
Exit Function
TransactSQL_Error:
MsgBox "2é?ˉ′í?ó￡o" & Err.Description
iflag = 2
Resume TransactSQL_Exit
End Function
Sub Display()
SQL = "select * from Words" 『 Words是Test數據文件的某一個表
Set RS = TransactSQL(SQL)
If RS.EOF = True Then
RS.MoveFirst
Else
While Not RS.EOF
List1.AddItem RS.Fields("English") 『 Engilis 表示 Words表的某一個趔
RS.MoveNext
Wend
End If
RS.Close
End Sub
Private Sub Form_Load()
Display
End Sub
試試吧！
⑦ 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中製作顯示學生學號與成績的程序,怎麼才能在標簽中顯示最高分及與之對應的學號
基本原理和這個通訊錄數據處理程序相似，提問者稍加修改就可以使用。
clear
set safe off
use txl
text
※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※
※ 1.輸入 2.修改 3.插入 4.刪除 ※
※ 5.按姓名升序顯示 6.按郵政編碼升序顯示 ※
※ 7.按姓名查詢 8.退出 ※
※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※
endtext
input "請按數字鍵選擇" to aa
do case
case aa=1
go bott
accept "請輸入姓名：" to xm
accept "請輸入性別：" to xb
accept "請輸入電話號碼：" to dhhm
accept "請輸入家庭住址：" to jtzz
accept "請輸入工作單位：" to gzdw
accept "請輸入郵政編碼：" to yzbm
repl 姓名 with xm,性別 with xb, 電話號碼 with dhhm,家庭住址 with jtzz,工作單位 with gzdw,郵政編碼 with yzbm
case aa=2
input"請輸入您要修改的記錄的編號：" to c
go c
? "請修改第"+str(c,1)+"個人的數據！"
disp
accept "請輸入姓名：" to xm
accept "請輸入性別：" to xb
accept "請輸入電話號碼：" to dhhm
accept "請輸入家庭住址：" to jtzz
accept "請輸入工作單位：" to gzdw
accept "請輸入郵政編碼：" to yzbm
repl 姓名 with xm,性別 with xb, 電話號碼 with dhhm,家庭住址 with jtzz,工作單位 with gzdw,郵政編碼 with yzbm
case aa=3
append blank
accept "請輸入姓名：" to xm
accept "請輸入性別：" to xb
accept "請輸入電話號碼：" to dhhm
accept "請輸入家庭住址：" to jtzz
accept "請輸入工作單位：" to gzdw
accept "請輸入郵政編碼：" to yzbm
repl 姓名 with xm,性別 with xb, 電話號碼 with dhhm,家庭住址 with jtzz,工作單位 with gzdw,郵政編碼 with yzbm
case aa=4
input "請輸入您想要刪除的記錄號" to d
go d
delete
accept "確認刪除請按小寫字母y,否則取消刪除）" to e
if e="y"
pack
else
recall
endif
case aa=5
index on 姓名 to xm
list
case aa=6
index on 郵政編碼 to yzbm
list
case aa=7
accept "請輸入您要查詢的姓名" to f
list for 姓名=f
case aa=8
wait "系統即將關閉" window timeout 3
exit
othe
messagebox("請重新選擇",0+64,"出錯了")
endc
set safe on
*這個程序能完成任務，不過界面不好。可以這樣修改：
*新建一個表單（主表單，表單1），增加8個按鈕，每個按鈕的名稱caption同上面程序中的菜單；再增加一個按鈕,caption為「退出」，保存表單1。
*新建一個數據處理表單（表單2），向表單添加標簽，caption為「姓名」，再增加一個文本控制項text1,用來處理「姓名」數據；繼續向表單添加標簽，caption為「性別」，增加一個文本控制項text2,用來處理「性別」數據；.........向表單添加標簽，caption為「郵政編碼」，再增加一個文本控制項text6,用來處理「郵政編碼」數據。把標簽和文本控制項適當整理齊整。增加一個按鈕，caption 為「保存」，再增加一個按鈕，caption為「退出」，
雙擊表單空白處，出現load事件，輸入
thisform.text1.value=xm
thisform.text2.value=xb
thisform.text3.value=dhhm
thisform.text4.value=jtzz
thisform.text5.value=gzdw
thisform.text6.value=yzbm
輸入完畢，關閉load事件，這是給表單2的幾個控制項賦初值。
雙擊「退出」按鈕，輸入
thisform.release
關閉事件，雙擊「保存」按鈕，輸入
repl 姓名 with thisform.text1.value,;
性別 with thisform.text2.value,;
電話號碼 with thisform.text2.value,;
家庭住址 with thisform.text2.value,;
工作單位 with thisform.text2.value,;
郵政編碼 with thisform.text2.value
保存表單2。
打開表單1，雙擊表單的空白處，出現load事件，輸入：
set safe off
use txl
public xm,xb,dhhm,jtzz,gzdw,yzbm
雙擊「輸入」按鈕，輸入
go bott
*下面給表單2賦初值
xm=姓名
xb=性別
dhhm=電話號碼
jtzz=家庭住址
gzdw=工作單位
yzdm=郵政編碼
do form 表單2
雙擊「修改」按鈕，輸入
input"請輸入您要修改的記錄的編號：" to c
go c
*下面給表單2賦初值
xm=姓名
xb=性別
dhhm=電話號碼
jtzz=家庭住址
gzdw=工作單位
yzdm=郵政編碼
do form 表單2
雙擊「插入」按鈕，輸入
appe blank
*下面給表單2賦初值
xm=姓名
xb=性別
dhhm=電話號碼
jtzz=家庭住址
gzdw=工作單位
yzdm=郵政編碼
do form 表單2
雙擊「刪除」按鈕，輸入
input "請輸入您想要刪除的記錄號" to d
go d
delete
accept "確認刪除請按小寫字母y,否則取消刪除）" to e
if e="y"
pack
else
recall
endif
雙擊「按姓名升序顯示」按鈕，輸入
index on 姓名 to xm
brow
雙擊「按郵政編碼升序顯示」按鈕，輸入
index on 郵政編碼 to yzbm
brow
雙擊「按姓名查詢」按鈕，輸入
accept "請輸入您要查詢的姓名" to f
brow for 姓名=f
雙擊「退出」按鈕，輸入
close data
set safe on
thisform.release
⑨ VB中如何利用數組將學生的成績輸出在form上，並與其學號一一對應
在對成復績排序的同時，制學號也要同步調換，即在
temp = a(i): a(i) = a(p): a(p) = temp
的下面再加一行：
temp = b(i): b(i) = b(p): b(p) = temp
⑩ vb編程:輸入學生的姓名,學號,語文成績,英語成績,數學成績,計算每名學生的平均
我也有類似的問題啊！具體就是要做成下圖的樣子。