Question

VB.NET中随机产生十个数字

VB.NET中，任输十个数字（），一行一个数字我已用你的方法调试出来了，那如果把数字显示在一行并且每两个数字间有空距离，此外，顺便输出最大最小和平均值，那又该如何实现呢？请写出代码，谢谢你！
那如果要让输出的数字都显示在一行，并且每两个数字之间有空距离，那应该怎样实现呢？你的编程正确，谢谢你

Answer 1

添加listbox1,label1,command1
Public Class Form1
Dim N(10) As Integer
'生成随机数
Private Sub CreatRand()
Dim I As Integer
Dim Strarr As String
Strarr = ""
ListBox1.Items.Clear()
Dim R As New System.Random
For I = 0 To 9
N(I) = R.Next(30, 100)
ListBox1.Items.Add(Str(N(I)))
Strarr = Strarr & Str(N(I)) & " "
Next
'添加标签的横向数字序列
Label1.Text = Strarr
End Sub
'获取最大值
Private Function GetMax() As Integer
Dim I As Integer
Dim intMax As Integer
intMax = 0
For I = 0 To 9
intMax = IIf(intMax > N(I), intMax, N(I))
Next
Return intMax
End Function
'获取最小值
Private Function GetMin() As Integer
Dim I As Integer
Dim intMin As Integer
intMin = 101
For I = 0 To 9
intMin = IIf(intMin < N(I), intMin, N(I))
Next
Return intMin
End Function
'获取平均值
Private Function GetAve() As Single
Dim I As Integer
Dim Sum As Integer
Sum = 0
For I = 0 To 9
Sum = Sum + N(I)
Next
Return Sum / 10
End Function
'生成随机数，显示各种值
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Call CreatRand()
MsgBox("最大值=" & Str(GetMax()) & ",最小值=" & Str(GetMin()) & ",平均值=" & Str(GetAve()))
End Sub
End Class