vb程序设计强化复习主题讲座培训课件.ppt

VB 语言程序设计（强化）;函数过程和Sub过程常用算法总结;Private Sub Command1_Click() Dim i as integer, s as long For i = 1 To 10 s = s + fact(i) Next i Print 1!+2!+...+10!= s End Sub;主题一：函数过程;调用 函数名(实参列表) 也可以用 : Call 函数名( 实参列表 ) 调用 , 这样调用将得不到返回值. ;Public Sub Combination() Dim m As Integer Dim n As Integer Dim Cmn As Long ……. ‘输入 m, n ****** 错误1 ****** Cmn = nFactor(m) / nFactor(n) * nFactor(m - n) Form1.Print 排列组合数为; Cmn End Sub Public Function nFactor(ByVal n As Integer) As Double Dim i As Integer, temp As Double temp = 1 For i = 1 To n temp = te