关于VB文本框内随机输出整数的问题

Question

编写一个完整的程序，要求如下：
在Form1窗体上放置1个文本框(Text1)，1个标签(label1)和2个命令按钮。文本框设置为多行和有滚动条；在Form1中单击command1，在文本框内内随机产生10个四位正整数，每个数占一行.单击command2按钮，在标签内显示文本框内内出现的最大随机数。
请各位高手留下具体代码,万分感谢!~~

Answer 1

'一定要给我分呀Option Explicit'设置的Text1的属性 MultiLine=True,属性ScrollBars=2
Dim iArray(9) As Integer '声明一个包含10个整数的数组
Dim i As IntegerPrivate Sub Command1_Click()
'随机生成10个4位数整数
    Randomize
    Dim iItem As Integer '数组中的项
    Dim s As String
    i = 0
    Do
        iItem = Rnd * 10000
        '判断是否为4位数
        If Len(CStr(iItem)) = 4 Then
            iArray(i) = iItem
            s = s & CStr(iItem) & vbCrLf
            i = i + 1
        End If
    Loop Until i = 10
    Text1.Text = s
End SubPrivate Sub Command2_Click()
'找出最大的随机数,并显示到Label1控件
    Dim iMax As Integer
    For i = 0 To 9
        If iArray(i) > iMax Then iMax = iArray(i)
    Next
    Label1.Caption = iMax
End Sub