第六部分过程学习课件.pptVIP

* * 例、Private Sub Command1_ Click() S=0 For i=1 to 5 S=S+f(5+i) Next i Print S End Sub Public Function f(x As Integer) As Integer If x=10 Then t=x+1 Else t=x+2 End If f=t End Function运行程序，则窗体上显示的是Ａ）38　　　B）49　　　　C）61　　　　D）70 例：有如下函数：Function fun(a As Integer,n As Integer) As Integer  Dim m As Integer  Do While a =n  a=a-n  m= m+1  Loop  fun=m End Function 该函数的返回值是 A）a乘以n的乘积 B）a加n的和 C）a减n的差 D）a整除以n的商 例：已知有下面的过程() Private Sub proc1(a As Integer,b As Str