如何用VB写一个参数数目可变的函数

[masterz]

就像int printf( const char *format [, argument]... );
可以使用任意数目的参数

[Salas]

好象楼上说的都是制定默认的参数值,这样才能达到可选,但是这样的参数数目还是需要定义函数时候来制定的

[hydnoahark]

但是感觉上ParamArray实际就是传递数组的一个变化，不知道理解对不对？
一个例子：
Dim x As Variant
Dim y As Integer
Dim intSum As Integer

Sub Sum(ParamArray intNums())
For Each x In intNums
y = y + x
Next x
intSum = y
End Sub

Private Sub Command1_Click()
Sum 1
List1.AddItem intSum
End Sub

[chenangle]

呵呵，都可以阿

[y1g1y1]

Option Explicit

Function k(Optional a As Integer = 1)
MsgBox a
End Function

Private Sub Form_Load()
Call k(100)
Call k
End Sub

[masterz]

你这个函数最多使用1个参数
如何任意？请知道printf用法的大虾回复

[applekiller]

上面是对的。

[ozw]

Eunction MutiParameter(byval BiXu as string,Optional opt1 as string="A",Optional opt2 as string="B",Optional opt3 as string="C"...)
....
End Function

以上函数中，第一个参数是必须的（也可以不要，去掉就行了)
后面的参数可选，如果想跳过其中一个（使用默认值），调用的时候光写个，跳过就可以了。

[zeng_zhh]

可以自定義一個結构作為參數
Type Your_Name
aa as string=''
bb as ingter=0
cc as byte=0
...
end type
function Your_Fun(Your_Pa as Your_Name)
....
end function

[bicom]

以上都正确！

[masterz]

失望
default参数我也知道
可是default参数和任意数目参数是有区别的

[outer2000]

你只有自己先定义出来。

[it_seeker]

Public Function CallMethod(MethodName As String, ParamArray arg() As Variant)
肯定能满足你的要求

[zeng_zhh]

要不這樣用:
Ｆunction Your_Fun( tt() as Variant )
這樣妳想傳几個就几個,當然調用之前要指定要几個.

[hydnoahark]

masterz的意思指的在C中定义一个函数的参数个数是不固定的，而不是VB中的Option参数的意思
一个变通的方法是你传递一个数组给函数，在数组中包含真正的参数，然后在函数中处理数组以获得真正的参数。

[anddee]

Function Sum(ParamArray intNums() As Variant)
Dim x As Variant
Dim y As Integer
For Each x In intNums
y = y + x
Next x
Sum = y
End Function

[lanren_me]

up

[masterz]

无聊的问题，大家灌水吧

[Amoon]

Faint~~~~~~！还不会用ParamArray ?!!!!!

[masterz]

int wsprintf(
LPTSTR lpOut, // output buffer
LPCTSTR lpFmt, // format-control string
... // optional arguments
);

[ByTheWay]

　
在自制的控件中，可能需要对某个属性传递多个值：

Property Let Test (arg1 As String, arg2 As String, arg3 As Integer)
End Property

'用以下的方法传递参数：
Test(arg1,arg2) = arg3