VB程序！高手帮忙！

来源：百度知道 编辑：UC知道 时间：2024/07/01 01:43:02
在窗体上输出5名同学的英语、数学、法律、VB程序设计 4门课的考试成绩，并计算出每个同学的平均成绩。
分析：把4名同学的姓名及各科的考试分数分别存入一个一维字符串数组xm（5）和一个二维数值数组a（5，4）中，然后对数组（主要是二维数组）进行处理。

Option Explicit

Private Sub Form_Click()
Private Sub Form_Load()
Dim xm(5) As String, a(5, 4) As Integer
Dim i As Integer, j As Integer
For i = 1 To 5
xm(i) = InputBox("姓名", "成绩输入"): Print xm(i),
a(i, 1) = InputBox("英语", "成绩输入_" & xm(i)): Print a(i, 1),
a(i, 2) = InputBox("数学", "成绩输入" & xm(i)): Print a(i, 2),
a(i, 3) = InputBox("法律", "成绩输入" & xm(i)): Print a(i, 3),
a(i, 4) = InputBox("VB程序设计", "成绩输入" & xm(i)): Print a(i, 4),
Print Format((a(i, 1) + a(i, 2) + a(i, 3) + a(i, 4)) / 4, "0.00")
Next

End Sub

Private Sub Command1_Click()
Dim nameX(5) As String
Dim score(5, 4) As Integer
Dim sumave(5, 2) As Long
Dim sum, ave As Double
sum = 0
ave = 0
For i = 1 To 5
nameX(i - 1) = InputBox("请输入第" & i & "个学生的姓名:", 输入姓名)
Label1(i - 1).Cap