子过程（求大家帮我一下~~）

来源：百度知道编辑：UC知道时间：2024/09/22 19:43:34

1.编一子过程ProcMin(a(),mina），求一组数组a中的最小值mina.

提示：主调程序随机产生10个-300~-400的数，显示产生的数组中的各元素
，调ProcMin子过程，显示数组中的最小值。

Dim a(1 To 10) As Integer, min As Integer
Sub procmin()
min = a(1)
For i = 2 To 10
If a(i) < min Then min = a(i)
Next i

End Sub

Private Sub Command1_Click()
Dim a(10) As Integer
For i = 1 To 10
Randomize
a(i) = Int(Rnd * 701 + (-400))
Call procmin
Print a(i)
Next i
Print min
End Sub

知道做的很粗糙》。。但怎么找也找不到错的地方~~ T.T
求不了最小值了。。求大家高手指点一下~~

Dim a(10) As Integer在Command1_Click里又声明了一遍

Dim a(1 To 10) As Integer, min As Integer
Sub procmin()
min = a(1)
For i = 2 To 10
If a(i) < min Then min = a(i)
Next i

End Sub

Private Sub Command1_Click()
For i = 1 To 10
Randomize
a(i) = Int(Rnd * 701 + (-400))
Print a(i)
Next i
Call procmin
Print min
End Sub

min = a(1)

改成：Min=a(i)

求大家帮一下我! 大家帮我参谋一下，要不要买这套房子啊？大家帮我分析一下这句句子的结构对对子，帮我一下求大家帮我翻译一下求大家帮我一下，急急急！！！！跪求:大家帮我分析一下求书希望大家帮我一下求大家帮我分析一下~ 求大家帮我分析一下,指条路!~~~