Call 1 Sub Command 1click nn1 anvaltext 1

过程定义与调用 一、无参数的过程调用： 过程名 或者 Call 过程名 例1： Sub Command 1_click() n=n+1 a(n)=val(text 1. text) list 1. Additem str(a(n)) End Sub Command 2_click() Command 1_click ‘过程调用 End Sub 例2： Sub suiji() Dim a(1 To 5) As Integer For i = 1 To 5 a(i) = Int(Rnd * 20) List 1. Add. Item Str(a(i)) Next i End Sub Private Sub Command 2_Click() Call suiji ‘过程调用 End Sub

例2：输出数组元素的通用过程 Sub shuchu(a() as integer) dim i as integer 'UBound函数可以返回a数组下标的最大值 for i=1 to UBound(a) list 2. additem str(a(i)) next i End sub Private Sub Command 1_Click() ‘先对b数组排序 Shuchu b() End sub Private Sub Command 2_Click() ‘对c数组排序 Call shuchu(c()) End sub Sub shuchu(a() As Integer) For i = 1 To UBound(a) List 2. Add. Item a(i) Next i End Sub Private Sub Command 3_Click() Dim b(1 To 10) As Integer For i = 1 To 10 b(i) = Int(20 * Rnd) + 100 Next i Call shuchu(b()) End Sub