Question

怎样用VB做随机产生10个1－100以内的整型数，求出其的最大值，最小值，平均值

Answer 1

这样才对 初始化应加在For 循环里 s要变为双精度（这样平均数才有小数点后几位）
楼主试我这个：

Private Sub Command1_Click()
Dim i%, j%, max%, min%,s%

For i = 1 To 10
Randomize
j = Int(Rnd * 100 + 1)
If i = 1 Then min = j
If j > max Then max = j
If j < min Then min = j
s = s + j
Print j;
Next
Print
Print "最大值,最小值,平均数分别为:"; max; min; Cdbl(s) / 10
End Sub

Answer 2

Private Sub Command1_Click()
Dim i%, j%, max%, min%, s%

For i = 1 To 10
j = Int(Rnd * 100 + 1)
If i = 1 Then min = j
If j > max Then max = j
If j < min Then min = j
s = s + j
Print j;
Next
Print
Print "最大值,最小值,平均数分别为:"; max; min; s / 10
End Sub

Answer 3

Private Sub Command1_Click()
Dim i%, j%, max%, min%, s%
Randomize *初始化生成器
For i = 1 To 10
j = Int(Rnd * 100 + 1)
If i = 1 Then min = j
If j > max Then max = j
If j < min Then min = j
s = s + j
Print j;
Next
Print
Print "最大值,最小值,平均数分别为:"; max; min; s / 10
End Sub

Answer 4

在窗体读取事件中加上Randomize，然后再用VB妮可的代码，出现的就是真正的随机数而不是伪随机数了
Randomize的作用是初始化随机数生成器

也就是在VB妮可的代码里加上下面的内容
Private Sub Form_Load()
Randomize
End Sub

Answer 5

这10个数怎么每次都是一样的？