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

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

<font face="Verdana">
<p><font face="Verdana">'阿杰编写于:2009年8月22日21:26:26<br/>Private Sub Form_Load()<br/>&nbsp;&nbsp;&nbsp; abc 1, 2, 3, 4, 5, 6, 7, 8, 9, 10<br/>End Sub</font></p>
<p><font face="Verdana">Sub abc(ParamArray 参数())<br/>Debug.Print "参数个数:", UBound(参数)<br/>s = 0<br/>&nbsp;&nbsp; For i = 0 To UBound(参数)<br/>&nbsp;&nbsp;&nbsp; s = s + 参数(i)<br/>&nbsp;&nbsp; Debug.Print 参数(i)<br/>&nbsp;&nbsp; Next<br/>&nbsp;&nbsp; Debug.Print "结果", s<br/>End Sub<br/></font></p>'结果:55</font>
[此贴子已经被作者于2009-8-22 21:30:58编辑过]

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

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

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

虽然乱码 内容还是不错的
页: [1]
查看完整版本: 【原创】无限参数函数的编写方法