vb编写程序，将利用随机函数产生的10个不大于100的整数保存在数组中，并从中找出最接近平均值的元素

Question

在线等

Answer 1

程序如下：

Private Sub Form_Activate()

Dim a(1 To 10) As Integer           '定义存放10个小于等于100的整数数组

Dim sum, i, max, min As Integer     '定义sum存放10个数的和，min放10个数中最小值，max放最大值，i循环控制变量

Dim aver As Single                  '定义aver放平均值

sum = 0

max = 0

min = 100

Randomize

For i = 1 To 10                    '生成随机数存入数组，并求出和、最大值、最小值

 a(i) = Int(Rnd * 100 + 1)

 sum = sum + a(i)

 Print a(i)

 If a(i) > max Then max = a(i)

 If a(i) < min Then min = a(i)

Next i

aver = sum / 10

Print "平均数是" & aver

For i = 1 To 10                    '逐渐改变最大值、最小值与平均值最接近的

If (a(i) <= max) And (a(i) > aver) Then max = a(i)

If (a(i) >= min) And (a(i) < aver) Then min = a(i)

Next i

If (max - aver) > (aver - min) Then  '找到最接近的值

 Print "最接近平均值得数是" & min

Else

 If (max - aver) < (aver - min) Then

  Print "最接近平均值得数是" & max

 Else

  Print "最接近平均值得数是" & min & vbTab & max

 End If

End If

End Sub

运行结果如下：

Answer 2

Private Sub Command1_Click()
Dim m(9) As Integer
Dim a As Integer
Dim i As Integer

Dim x As Integer
Dim y As Integer
a = 0

For i = 0 To 9
    m(i) = 10 + Int(Rnd * 89) '保存在数组中
    x = x + m(i)
Next
y = x / 10
Text1.Text = y    '平均数
Text2.Text = m(0) & "," & m(1) & "," & m(2) & "," & m(3) & "," & m(4) & "," & m(5) & "," & m(6) & "," & m(7) & "," & m(8) & "," & m(9)
a = m(0)
For i = 0 To 8

    If Abs(m(i) - y) < Abs(m(i + 1) - y) Then

        a = m(i)
        m(i) = m(i + 1)
        m(i + 1) = a
      End If
Next
Text3.Text = a '最接近的数字
End Sub