编写一个程序，输出5名同学的数学、语文、英语的考试成绩，并计算总分，平均分。 vb的 求解！！！ 谢谢啦

Question

如题所述

Answer 1

还用输入数据库??
不用的话在界面商用listview显示就可以了
Private Sub Command1_Click()
'添加信息
With ListView1.ListItems.Add(, , Trim(Text1.Text))
.SubItems(1) = Trim(Text2.Text)
.SubItems(2) = Trim(Text3.Text)
.SubItems(3) = Trim(Text4.Text)
End With

End Sub

Private Sub Command2_Click()

Dim en, yw, sx As Integer

'计算分数总和
For i = 1 To ListView1.ListItems.Count

en = en + Int(Trim(ListView1.ListItems(i).SubItems(1)))
yw = yw + Int(Trim(ListView1.ListItems(i).SubItems(2)))
sx = sx + Int(Trim(ListView1.ListItems(i).SubItems(3)))

Next

Label1.Caption = 英语总分 & en
Label2.Caption = 语文总分 & yw
Label3.Caption = 数学总分 & sx

Label4.Caption = 英语评均分 & en / ListView1.ListItems.Count
Label5.Caption = 语文评均分 & en / ListView1.ListItems.Count
Label6.Caption = 数学评均分 & en / ListView1.ListItems.Count
End Sub追问

运行不了！！

好像和我们上课学的不太一样哑

追答

.............不能的这个是在vb里面直接考出来的代码运行没问题 你是不是界面没定义啊

Answer 2

楼上的方法可行

Answer 3

不会