VB编程问题：随机产生100个1000以内的整数，并显示出其中的最大值和最小值。

要求详细解答！感激不尽！

补充：另外说明产生的控件。
		

追问：麻烦用简单一点的方法。用IF语句编程。谢谢啦！

答案：
如果只是产生最大值和最小值的话,只添加一个command就可以了.
之后写这些代码 .
Private Sub Command1_Click()
Randomize     '产生随机数种子 以防止每次生成结果都一样
Dim a(1 To 100) As Integer '声明数组存放数据 用来保存随机数结果
Dim max As Integer, min As Integer  '声明两个变量存最大值和最小值

min = 1000: max = 0 '设置初值

For i = 1 To 100   '循环100次
a(i) = Int(Rnd() * 1000 + 1) '用rnd生成一个随机数  由于rnd范围为0-1之间的小数.所以*1000设置他的范围为0到999之间 加1变成1到1000之间
If a(i) >= max Then max = a(i)  '如果当前数值大于最大值的变量就保存
If a(i) <= min Then min = a(i)  '如果当前数值小于最小值的变量就保存
Next
MsgBox "最大值为" & max
MsgBox "最小值为" & min
End Sub
Private Sub Form_Load()
    Randomize
    Text2 = 0
    Text3 = 0
    For i = 1 To 100
        N = Int(Rnd() * 999)
        Text1 = Text1 & Trim(Str(N)) & " " '产生0~999的整数数字
        If i Mod 10 = 0 Then Text1 = Text1 & vbCrLf '10个换行
        If N > Int(Text2.Text) Then Text2 = Str(N)  '存放最大值
        If N < Int(Text3.Text) Then Text3 = Str(N) '存放最小值
    Next
End Sub
3个textbox，text1显示100个随机出来的数字。text2显示最大值，text3显示最小值。text1.multiline属性为真

上一个：用VB.NET编程有什么好处?
下一个：鏈夊叧VB闈㈠悜瀵硅薄缂栫▼ - 宸茶В鍐?- 鎼滄悳闂棶