vb成績單
⑴ 成績管理系統VB製作單機版升級為網路版，技術上如何實現
換成 B/S架構的 還是只要能在區域網能用就行？
換成B/S的要重寫代碼
區域網的只要資料庫支持就可以
⑵ 用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代碼求總成績
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顯示成績單
⑸ 誰有access+vb做的學生成績管理系統，簡單一點就好！！
我有access+vb做的學生成績管理系統
⑹ vb簡單考試系統怎麼寫計算成績代碼
要學會使用模塊（雖然這里可以不）
新建一個標准模塊
Public a & '定義一個整形變數
這樣無論在哪個窗體都可以調用這個變數
當滿足答對條件後 a=a+1
⑺ 設計一簡單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編程題目急求！ 有一個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大神幫忙寫三個代碼，很簡單的，非常感謝！（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編程作業！從鍵盤輸入三門主科成績，求其平均值
Private Sub Command1_Click()
Dim a(2) As Double, a1 As Double
For i = 0 To 2
a(i) = InputBox("輸入成績", "第" & i & "科", "提示", 0)
Next
For i = 0 To 2
a1 = a1 + a(i)
Print "第" & i & "科成績為:" & Format(a(i), "0.00")
Next
a1 = a1 / 3
Print "平均成績為:" & Format(a1, "0.00")
End Sub
加一按鈕，做的有點麻煩了。