VB输入语文、数学、英语的成绩,分别计算等第,总分和平均分.
来源:学生作业帮 编辑:作业帮 分类:数学作业 时间:2024/07/17 23:24:16
VB输入语文、数学、英语的成绩,分别计算等第,总分和平均分.
85以上是优,85~75良,74~60及格,60以下不及格
要用8个textbox,8个按钮
只学了顺序结构,if语句
85以上是优,85~75良,74~60及格,60以下不及格
要用8个textbox,8个按钮
只学了顺序结构,if语句
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) = 75 Then Level(i) = 2
If 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 Su
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) = 75 Then Level(i) = 2
If 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 Su
VB输入语文、数学、英语的成绩,分别计算等第,总分和平均分.
输入某班5名同学的数学成绩,并计算该班数学成绩的总分和平均分
定义一个学生类.数据成员有学号,姓名,年龄,英语成绩.计算成绩总分和平均分.要求;f分别
一次考试中,某同学的语文,英语,的成绩分别是a,b,c,d,e,设计一个计算该同学的总分和平均分的算法,并画出程序框图.
【高分】求编写C语言题目,2个同学的三门成绩【语文,英语】的总分和平均分,分别使用函数和数组写?
编写C语言程序,输入一个同学的六门功课的成绩,计算该同学的总分和平均分(保留两位小数).
输入10名学生的序号和每个学生三门功课(数学、英语、C语言程序设计)的成绩,编程计算出每个学生的总分和平均分,并按学生成
SQL计算并显示班上每位同学成绩的总分和平均分,并按总分从高到低排序
用公式计算WORD表格的总分和平均分
输入20个学生成绩并求出总分和平均分C语言程序
3.编写一个程序和界面输入某学生的语文、数学英语三门课程的成绩,单击计算可以得出该学生的平均分和总分
VFP 增加总分和平均分两个字段,分别计算出总分和平均分