VB 编程（子过程）

dim a(1 to 10) as integer,mina as integer

Private sub form_Click()
show
for i=1 to 10
Randomize
a(i)=int((400-300+1)*Rnd+300)
next i
Call ProcMin
print mina
end sub

Private sub ProcMin()
for i=1 to 9
for j=1 to 10-i
if a(j)>a(j+1) then
xx=a(j)
a(j)=a(j+1)
a(j+1)=xx
next j
next i
mina=a(1)
end sub

不需要楼上那么复杂的，况且楼主的意思是产生负300至负400的负数，你产生的是300多至400多的正数了，我想程序应该是这样：
dim a(1 to 10) as integer,mina as integer

Private sub form_Click()
show
for i=1 to 10
Randomize
a(i)=0-int(100*Rnd+300)
next i
intmin=procMin(a())
end sub

Function ProcMin(a() As Integer) As Integer
ProcMin = -299 '赋初始值，数组中最大的不会大于－299，所以－299应该是最大的
For i = 1 To 10

If ProcMin > a(i) Then
ProcMin = a(i)
End If
Next i

End Function

我已经调试通过，给分呀，累死了，赚20分也不简单呀

gi g 不一定啊