vb能不能用数组作参数？

alan_number1 2003-03-13 12:34:59

想传递一个数组作为参数，不知vb行不行

...全文

178 7 打赏收藏转发到动态举报

写回复

用AI写文章

7 条回复

切换为时间正序

请发表友善的回复…

发表回复

northwolves 2003-03-14

打赏
举报

Private Sub Command1_Click()
MsgBox Max(1, 5, 2, 6, 8, 3)
End Sub
Function Max(ParamArray x()) As Double
Dim i As Integer
Max = 0
For i = LBound(x) To UBound(x)
Max = IIf(Max >= CDbl(x(i)), Max, CDbl(x(i)))
Next
End Function

alan_number1 2003-03-14

打赏
举报

ok,多谢，结贴

用户　昵称 2003-03-14

打赏
举报

of course

AechoJohn 2003-03-13

打赏
举报

可以的，只需要给出数组变量名即可（Vb的程序之间）

enj1224 2003-03-13

打赏
举报

可以的阿

Cooly 2003-03-13

打赏
举报

转帖自wxy_xiaoyu(☆然也☆╭∩╮(︶︿︶)╭∩╮)的答案
http://expert.csdn.net/Expert/topic/1511/1511641.xml?temp=.9079553

Dim M(1 To 5) As Double

Private Sub Form_Load()
For i = 1 To 5
M(i) = i
Next
End Sub

Public Function Max(ByRef SZtmp) As Double
Dim i%
Max = 0
For i = LBound(SZtmp) To UBound(SZtmp)
If CDbl(SZtmp(i)) > Max Then _
Max = CDbl(SZtmp(i))
Me.Print Max
Next i
End Function

Private Sub Command1_Click()
Call Max(M)
End Sub

Cooly 2003-03-13