输入n个 数，求出它们的最大值，最小值和平均值？用VB怎么编写程序

Question

如题所述

Answer 1

1.你用自己的方法将这N个数字分别用数组a(1)-a(n) 表示
2.求最大
for i= 1 to n-1
if a(i)>a(i+1) then
max=a(i)
else
max=a(i+1)
endif
next i
3.求最小。用类似的方法
4.求平均值：
for i=1 to n
all=all+a(i)
next i
prv=all/n

Answer 2

数字的输入只是一种方法，你可以用其他你认为方便的方法

Private Sub Command1_Click()
Dim x, y, z, a, jh, num() As Double
x = 1
Do While x > 0
x = InStr(x + 1, Text1.Text, ",")
If x > 0 Then
ReDim Preserve num(y + 1)
If y = 0 Then
num(y) = Val(Mid(Text1.Text, 1, x - 1))
Else
num(y) = Val(Mid(Text1.Text, z, x - 1))
End If
y = y + 1
z = x + 1
End If
Loop
For x = 0 To y
z = z + num(x)
For a = 0 To y
If num(x) < num(a) Then
jh = num(x)
num(x) = num(a)
num(a) = jh
End If
Next a
Next x
Label2.Caption = "最大值为：" & num(y) & " 最小值为：" & num(1) & " 平均数为：" & Format(z / y, "#.00")
End Sub

Private Sub Form_Load()
Text1.Text = ""
Label1.Caption = "请在文本框中输入需要排序的数 用，分隔每个数字并以，结尾"
Label1.AutoSize = True
Label2.Caption = ""
Label2.AutoSize = True

MsgBox "请在文本框中输入需要排序的数 用，分隔每个数字并以，结尾"
End Sub

Answer 3

用冒泡法 求最大 和 最小的数 平均更简单 相加/n
我临时有点事情 没时间去写代码给你了 你自己去看看 自己能解决的 不难