高手指点!VB求平均值,但数值已在输入时被清除,该如何求平均值?创建一个窗体,当程序运行时,在文本框中输入数值,按回车键后,在图形框中显示数据,并清空文本框中的数据.单击计算平均值按

Question

高手指点!VB求平均值,但数值已在输入时被清除,该如何求平均值?创建一个窗体,当程序运行时,在文本框中输入数值,按回车键后,在图形框中显示数据,并清空文本框中的数据.单击计算平均值按钮,计算并显示结果. Private Sub TextBox1_keypress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress If e.KeyChar = Chr(13) Then a(n) = Val(TextBox1.Text) Label2.Text = Label2.Text & a(n) & vbCrLf n = n + 1 End If TextBox1.Text = "" End If End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim sums As Long, i As Integer, aver As Single sums = 0 For i = 1 To 100 sums = sums + a(n) Next aver = sums / n Label2.Text = Label2.Text & "平均值=" & aver & vbCrLf End Sub 关键是下半部分求平均值部分,这样的结果是永远平均值= 0

Answer 1

你下面代码不对啊。 For i = 1 To 100 sums = sums + a(n) Next 根据你上面的代码，按下回车键，n=n+1，那么这里的代码里a(n)的值是0啊，而且你这个循环中n没有变化，总和永远都是0,。你可以试试 For i = 1 To 100 sums = sums + a(i) Next 欢迎追问