【原创】无限参数函数的编写方法

阿杰 · 发表于 2009-8-22 21:27:29

'阿杰编写于:2009年8月22日21:26:26 Private Sub Form_Load()     abc 1, 2, 3, 4, 5, 6, 7, 8, 9, 10 End Sub
Sub abc(ParamArray 参数()) Debug.Print "参数个数:", UBound(参数) s = 0    For i = 0 To UBound(参数)     s = s + 参数(i)    Debug.Print 参数(i)    Next    Debug.Print "结果", s End Sub '结果:55

[此贴子已经被作者于2009-8-22 21:30:58编辑过]

阿杰 · 发表于 2009-8-22 21:39:48

'阿杰编写于:2009年8月22日21:26:26 Private Sub Form_Load()     Debug.Print max(100, 2, 15), min(100, 2, 15) End Sub
'取最大的数 Function max(ParamArray 参数()) As Long     If UBound(参数) <> -1 Then max = 参数(0)     For i = 0 To UBound(参数)         If 参数(i) > max Then max = 参数(i)     Next End Function
'取最小的数 Function min(ParamArray 参数()) As Long     If UBound(参数) <> -1 Then min = 参数(0)     For i = 0 To UBound(参数)         If 参数(i) < min Then min = 参数(i)     Next End Function

upring · 发表于 2015-7-8 09:56:35

虽然乱码内容还是不错的

账号		自动登录	找回密码
密码			加入我们

【原创】无限参数函数的编写方法

贡献奖

关注奖

人气王

精英奖

乐于助人勋章