vb怎麼計算語文成績

㈠ VB輸入語文、數學、英語的成績，分別計算等第，總分和平均分。

Private Sub Command1_Click()
Dim Level(1 To 3) As Integer
Dim FScore(1 To 3) As Long
Dim STName(1 To 3) As String
Dim i As Integer, Total As Long, PJF As Long
FScore(1) = Text(1) '前三個填成績
FScore(2) = Text(2)
FScore(3) = Text(3)
STName(1) = "數學"
STName(2) = "語文"
STName(3) = "英語"
'計算等級
For i = 1 To 3
If FScore(i) > 85 Then Level(i) = 1
If FScore(i) <= 85 And FScore(i) >= 75 Then Level(i) = 2
If FScore(i) <= 74 And FScore(i) >= 60 Then Level(i) = 3
If FScore(i) < 60 Then Level(i) = 4
Next i
For i = 1 To 3
Select Case Level(i)
Case 1
Text(i+3) = STName(i) & "：優"
Case 2
Text(i+3) = STName(i) & "：良"
Case 3
Text(i+3) = STName(i) & "：及格"
Case 4
Text(i+3) = STName(i) & "：不及格"
End Select
'計算總分
Total = FScore(1) + FScore(2) + FScore(3)
Text(7) = Total
'計算平均分
PJF = (Total) / 3
Text(8) = PJF
End Sub

㈡ vb程序計算學生總分

比如你 語文80 是文本框1 數學76是文本框2 以此類推

a=val(text1.text)+val(text2.text)+val(text3.text)+val(text4.text)+val(text5.text)

v=a/5 '平均分v變數

㈢ 用VB 定義一個二維數組A 隨機產生10學生數學和語文成績 並計算總成績

用函數array（）設計，挺繁瑣的你自己編下面用for語句編

㈣ 編寫VB程序，實現的功能是輸入某學生的語文，數學，英語這三門課的考試成績，計算其平均成績。要求利用

窗口放上四個文本框，分別是text1 text2 text3 text4，其中，text4 顯示平均成績
一個按鈕 command1
在代碼窗口錄入代碼
Private Sub Command1_Click()
If Command1.Caption = "&s Command1" Then
Text4.Text = Format((Val(Text1.Text) + Val(Text2.Text) + Val(Text3.Text)) / 3, "0.00")
End Sub
'此段代碼用到3個知識點：
『1。foamat函數用戶改變顯示樣式，此處效果為結果精確到兩位小數點
』2。val函數用戶把字元串轉化為數字，text1.text屬性類型是字元串類型
'3。斜線/ 做除法時結果和日常生活中除法一樣，反斜線\做除法時結果只保留整數部分

㈤ vb成績統計

'1、單獨textbox1到textbox5孔件方式：
Private Sub Command1_Click()
T = "d:\1.txt" '文本保存路徑
Open T For Output As #1
Print #1, Text1.Text
Print #1, Text2.Text
Print #1, Text3.Text
Print #1, Text4.Text
Print #1, Text5.Text
Close #1
End Sub

'2、使用textbox1(0)到textbox(4)控制項組方式：
Private Sub Command1_Click()
T = "d:\1.txt" '文本保存路徑
Open T For Output As #1
For i = 0 To 4
Print #1, Text1(i).Text
Next
Close #1
End Sub

追問回答:
'Text1=學生姓名
'Text2=語文成績
'Text3=數學成績
'Text4=英語成績
'Text5=物理成績
'Text6=化學成績
'方法一，使用數組臨時保存，然後按保存按鈕時一次行進行保存
Dim a() As String
Private Sub Form_Load()
ReDim a(5, 0)
End Sub
Private Sub Command1_Click() '輸入下一條
ReDim Preserve a(5, UBound(a, 2) + 1)
a(0, UBound(a, 2)) = Text1.Text
a(1, UBound(a, 2)) = Text2.Text
a(2, UBound(a, 2)) = Text3.Text
a(3, UBound(a, 2)) = Text4.Text
a(4, UBound(a, 2)) = Text5.Text
a(5, UBound(a, 2)) = Text6.Text
End Sub
Private Sub Command2_Click() '保存按紐
T = "d:\1.txt" '文本保存路徑
Open T For Append As #1
'每條記錄保存為一行
For i = 1 To UBound(a, 2)
Print #1, "姓名:" & a(0, i) & " 語文成績:" & a(1, i) & " 數學成績:" & a(2, i) & " 英語成績:" & a(3, i) & " 物理成績:" & a(4, i) & " 化學成績:" & a(5, i)
Next
Close #1
End Sub
'方法二，只用一個保存按鈕，每次輸入結束後進行文本追加保存。（建議使用這種方法，簡單明了。）
Private Sub Command11_Click() '保存按紐
T = "d:\1.txt" '文本保存路徑
Open T For Append As #1
'每條記錄保存為一行
Print #1, "姓名:" & Text1 & " 語文成績:" & Text2 & " 數學成績:" & Text3 & " 英語成績:" & Text4 & " 物理成績:" & Text5 & " 化學成績:" & Text6
Close #1
End Sub

㈥ 用VB寫代碼設計計算語文、數學、英語這三門課程平均成績的程序，利用文本框作數據的輸入和輸出。

四個文本框,前三個輸入,最後一個輸出
一個按鈕,按鈕的單擊響應代碼如下:
Private Sub Command1_Click()
Dim pingjun As Double
pingjun = (Val(Text1.Text) + Val(Text2.Text) + Val(Text3.Text)) / 3
Text4.Text = pingjun
End Sub

㈦ vb題，由用戶輸入學生的數學語文和英語成績,然後求出總成績和平均成績，並顯示在窗體上

Private Sub Command1_Click()
a = Val(InputBox("請輸入數學成績："))
b = Val(InputBox("請輸入語文成績："))
c = Val(InputBox("請輸入英語成績："))
s = a + b + c
Print "總成績為："; s
Print "平均成績為："; s / 3
End Sub