一道VB的题目数组很简单的在线等好了有追加

Private Sub Command1_Click()
Randomize
x = Val(InputBox(""))
ReDim a(x)
For i = 1 To x
a(i) = Int((Rnd * 900) + 100)
Print a(i);
Next i
Print
Max = 0
Min = 1000
For i = 1 To x
If Max < a(i) Then Max = a(i): m = i
If Min > a(i) Then Min = a(i): n = i
Next i

Print Max, m
Print Min, n
End Sub

n确定？
==================================

dim iData() as Integer
dim iLp as integer
dim strInput as String
dim iData_G as integer
dim iData_L as integer
dim iID_G as integer
dim iID_L as integer
dim iNum as integer

iNum=val(trim(inputbox("请输入要产生的数据的个数：")))
redim iData(1 to iNum)
iData_G=0
iID_G=0

randomize
for iLp=1 to iNum
iData(iLp)=int(900*rnd())+100
if iLp=1 then
iData_L=iData(iLp)
iID_L=1
end if
if iData_G<iData(iLp) then
iData_G=iData(iLp)