错了,是这个
Private Sub Form_Click()
Dim a As Integer, b As Integer, c As Integer, p As Integer
a = Val(InputBox("语文成绩", "输入单科成绩"))
b = Val(InputBox("数学成绩", "输入单科成绩"))
c = Val(InputBox("英语成绩", "输入单科成绩"))
p = (a + b + c) / 3
Print "语文成绩;"; a; "数学成绩;"; b; "英语成绩;"; c;
Print "平均成绩;"; p;

End Sub