Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i, j As Integer
Dim sum As Integer
Dim avg As Double
Dim score(9) As Integer
For i = 0 To 9
score(i) = InputBox("请输入成绩", "输入框") ...