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