大家看看这道VB题哪里做错了，我想不出来，求助大家指点！谢谢！！

[wendy2003feng]

随机产生N个两位正整数（N由输入对话框输入，且N＞0），求出其中的最大数和最小数，并在label1.caption中输出最大值和最小值之差.
注程序写在命令按钮command1的click事件中
程序如下：
private sub command1_click()
dim n as integer,max as integer,min as integer
dim a() as integer
n=val(inputbox("请输入n:"))
randomize
for i=1 to n
a(i)=int(rnd*90)+10
next
for i=1 to n
print a(i),
next
for each x in a
if x>max then max=x
if x<min then min=x
next
label1.caption="最大值为" & max & "最小值为" & min & "两者之差为" & max-min

[xutao888]

Private Sub command1_click()

Dim n As Integer, max As Integer, min As Integer
Dim a() As Integer
n = Val(InputBox("请输入n:"))
ReDim a(n)
Randomize
For i = 0 To n
a(i) = Int(Rnd * 90) + 10
Next
For i = 0 To n
Print a(i),
Next
max = 0
min = a(0)
Print min
For Each x In a
If x > max Then max = x
If x < min Then min = x
Next
Label1.Caption = "最大值为" & max & "最小值为" & min & "两者之差为" & max - min

End Sub

[wxylvmnn]

恩

应该初始化一下子就可以了

[wendy2003feng]

TO xutao888(小丸子) 我给你分了，谢谢你啊！我的邮箱是[e-mail]，以后技术上的问题还请帮忙！请问你的邮箱是多少？

[xutao888]

[e-mail]