输入每个人的考试分数均为整数若输入负数停止输入后输出均分修改程序中三个错使能输出正确结果结果要带小数PrivateSubCommand1Click()DimN1AsInteger,C1AsInteger,S1AsInteger,A1AsIntegerText1=""

Question

输入每个人的考试分数均为整数若输入负数停止输入后输出均分修改程序中三个错使能输出正确结果结果要带小数Private Sub Command1_Click() Dim N1 As Integer,C1 As Integer,S1 As Integer,A1 As Integer Text1 = "" C1 = 1 S1 = 0 Do While True N1 = InputBox("输入一个整数：") If N < 0 Then Exit Do C1 = C1 + 1 S1 = S1 + N1 Loop A1 = S1 / C1 Text1 = A1 End Sub ,说明原因啊

Answer 1

你这代码真心看的我一头包.

三处错误

  Dim A1 as Double

  C1=0

  if N1<0 Then Exit Do