Sub Main()
Dim A(10, 4) As Single
Dim max As Integer = 0
Dim min As Integer = 100
Dim PASS As Single
Console.WriteLine(”全班有10人”)
Console.WriteLine()
For I As Integer = 1 To 10
Console.Write(”請輸入第” & I & ”位同學的基電成績:”)
A(I, 1) = Console.ReadLine
Console.Write(”請輸入第” & I & ”位同學的計概成績:”)
A(I, 2) = Console.ReadLine
Console.WriteLine()
A(i, 3) = A(i, 1) + A(i, 2)
A(i, 4) = a(i,3) /2
Next

For I As Integer = 1 To 10
Console.WriteLine(”第” & I & ”位同學的平均是” & A(I, 4) & ”分”)
If A(I, 4) > max Then
max = A(I, 4)
End If
If A(I, 4) < min Then
min = A(I, 4)
End If
If A(I, 4) >= 60 Then
PASS += 1
End If
Next
Console.WriteLine()
Console.WriteLine()
Console.WriteLine()
Console.WriteLine(”最高的平均是” & max)
Console.WriteLine(”最低的平均是” & min)
Console.WriteLine()
Console.WriteLine(”及格的人數有” & PASS & ”人”)
Console.ReadKey()
End Sub