vb利用随机数函数(RND)产生200个200~600之间的整数,每行输出10个数,找出这些整数中最大数和最小数

Dim a(200) As Integer
Dim i As Integer, mii As Integer, mai As Integer
For i=0 To 199
    a(i)=CInt(RND*400+200)
    Print a(i),
    If i MOD 10=0 Then
        Print
    End If
Next
mii=0
mai=0
For i=1 To 199
    If a(mii)>a(i) Then
        mii=i
    End If
    If a(mai)<a(i) Then
        mai=i
    End If
Next

本回答被网友采纳