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

  • 15
  • 0
  • 约4.88千字
  • 约 14页
  • 2016-12-10 发布于江苏
  • 举报
* * 例、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 运行程序,则窗体上显示的是 A)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

文档评论(0)

1亿VIP精品文档

相关文档