vb做成績單
Ⅰ 用VB編程評定學生的成績等。在文本框(text1)中輸入某一成績單機命令按鈕(commond1)後在標簽上(label1)成A
我就用SELECT CASE 吧
Private Sub Command1_Click()
Select Case Val(Text1)
Case Is < 60
Label1.Caption = "不合格"
Case Is < 80
Label1.Caption = "合格"
Case Is < 90
Label1.Caption = "良好"
Case Is >= 90
Label1.Caption = "優秀"
End Select
End Sub
Ⅱ VB顯示成績單
Ⅲ 求vb大神幫忙寫三個代碼，很簡單的，非常感謝！（2）某門課n個學生中，將高於平均分的成績輸出 （3
for i=1 to n
if s(i)>avg then print s(i)
next
for i=0 to 9
a(i)=mid(s,i+1,1)
next
MyWeek = Array("Mon", "Tue", "Wed", "Thu", "Fri", "Sat", "Sun")
for i=1 to UBound(MyArray)print myweek(i)
next
Ⅳ 設計一簡單VB，根據用戶輸入的成績分數（百分制），判定成績等級。判定按鈕實現等級的判定， 【接下行】
'加入3個command、2個label、1個text控制項，位置自己調整一下
Option Explicit
Private Sub Command1_Click()
If IsNumeric(Text1) Then '是否為數字
If Val(Text1) >= 0 And Val(Text1) <= 100 Then '分數范圍0-100
If Val(Text1) < 60 Then
Label2 = "結果：" & "不及格"
ElseIf Val(Text1) < 75 Then
Label2 = "結果：" & "及格"
ElseIf Val(Text1) < 90 Then
Label2 = "結果：" & "良好"
Else
Label2 = "結果：" & "優秀"
End If
Else
Label2 = "結果：" & "無效的分數"
End If
Else
Label2 = "結果：" & "無效的數字"
End If
End Sub
Private Sub Command2_Click()
Text1 = ""
Label2 = "結果："
End Sub
Private Sub Command3_Click()
Unload Me
End Sub
Private Sub Form_Load()
Label1 = "分數："
Text1 = ""
Label2 = "結果："
Command1.Caption = "判定"
Command2.Caption = "清除"
Command3.Caption = "退出"
End Sub
Ⅳ 簡單VB代碼求總成績
Private Sub Command1_Click()
Text4.Text = CInt(Val(Text1.Text) * 0.15 + Val(Text2.Text) * 0.25 + Val(Text3.Text) * 0.6)
End Sub
Ⅵ vb簡單考試系統怎麼寫計算成績代碼
要學會使用模塊（雖然這里可以不）
新建一個標准模塊
Public a & '定義一個整形變數
這樣無論在哪個窗體都可以調用這個變數
當滿足答對條件後 a=a+1
Ⅶ VB編程題目急求！ 有一個20名學生的成績單，包含每個學生的姓名和5門課的成績。姓名依次記作A~
窗體上加一個按鈕，完整代碼如下：
Option Explicit
Private Type Record
MyName As String * 1
MyAve As Single
End Type
Private Sub Command1_Click()
Dim d(20, 5) As Integer
Dim x As Integer
Dim i As Integer
Dim j As Integer
Dim EvrAve(20) As Single
Dim MySum As Integer
Dim MyName(20) As String
Dim T As Single
Dim Ts As String
'產生姓名
For i = 1 To 20
MyName(i) = Chr(64 + i)
Next i
'隨機生成分數，保存到數組
Randomize
For i = 1 To 20
For j = 1 To 5
d(i, j) = Int(Rnd * 51 + 50)
Debug.Print d(i, j),
Next j
Debug.Print
Next i
'統計平均成績
For i = 1 To 20
MySum = 0
For j = 1 To 5
MySum = MySum + d(i, j)
Next j
EvrAve(i) = MySum / 5
Debug.Print EvrAve(i)
Next i
'排序
For i = 1 To 19
For j = i + 1 To 20
If EvrAve(i) < EvrAve(j) Then
T = EvrAve(i)
EvrAve(i) = EvrAve(j)
EvrAve(j) = T
Ts = MyName(i)
MyName(i) = MyName(j)
MyName(j) = Ts
End If
Next j
Next i
For i = 1 To 20
Debug.Print MyName(i), EvrAve(i)
Next i
'寫文件file5.txt
Open "c:\file5.txt" For Output As #1
For i = 1 To 20
Print #1, MyName(i), EvrAve(i)
Next i
Close #1
Dim MyRecord As Record
'寫文件file6.txt
Open "c:\file6.txt" For Random As #1
For i = 1 To 20
MyRecord.MyName = MyName(i)
MyRecord.MyAve = EvrAve(i)
Put #1, i, MyRecord
Next i
Close #1
End Sub
Ⅷ 成績管理系統VB製作單機版升級為網路版，技術上如何實現
換成 B/S架構的 還是只要能在區域網能用就行？
換成B/S的要重寫代碼
區域網的只要資料庫支持就可以
Ⅸ vb，如何將錄入的文本信息保存在另一個窗體中 作業。我編寫了一個高考成績錄入系統，前面都是簡單的姓名
Dim a()
Dim n As Long
Private Sub Command1_Click()
b = InputBox("請輸入要查詢同學姓名")
For i = 1 To UBound(a)
If InStr(1, a(i), b) <> 0 Then
MsgBox a(i)
jf = True
Exit For
End If
Next
If jf = False Then MsgBox b & Space(1) & "無該生信息"
jf = False
End Sub
Private Sub Command2_Click()
c = InputBox("請輸入 姓名，班級，學號。之間 以 一個空格為分界")
ReDim Preserve a(n + 1)
a(n + 1) = c
n = n + 1
MsgBox "已保存"
End Sub
Private Sub Form_Load()
Open "d:\j.txt" For Input As #1
Do Until EOF(1)
n = n + 1
ReDim Preserve a(n)
Line Input #1, a(n)
Loop
Close
End Sub
Private Sub Form_Unload(Cancel As Integer)
Open "d:\j.txt" For Output As #1
For i = 1 To n
Print #1, a(i)
Next
Close
End Sub
Ⅹ 誰有access+vb做的學生成績管理系統，簡單一點就好！！
我有access+vb做的學生成績管理系統