标题:新手,帮俺看看这段代码怎么错了??
取消只看楼主
oh123456
Rank: 1
等 级:新手上路
帖 子:16
专家分:0
注 册:2005-10-6
 问题点数:0 回复次数:1 
新手,帮俺看看这段代码怎么错了??

Private Sub Form_Load()
Public Sub procmin(a() As Integer)
Dim min As Integer
min = a(LBound(a))
For i = LBound(a) To UBound(a)
If a(i) < min Then
min = a(i)
End If
Next i
procmin = min
End Sub
Dim b(10) As Integer, t As Integer
For i = 0 To 9
b(i) = Int(Rnd * 101 + 300)
Next i
t = procmin(b())
Print t

End Sub

搜索更多相关主题的帖子: Sub 代码 Integer min 
2005-11-13 11:51
oh123456
Rank: 1
等 级:新手上路
帖 子:16
专家分:0
注 册:2005-10-6
得分:0 
依旧编译不过“缺少函数或变量” ??

我一直在努力中……
2005-11-13 12:02



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-33673-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.023998 second(s), 8 queries.
Copyright©2004-2025, BCCN.NET, All Rights Reserved