VB程序设计强化习主题讲座3.pptVIP

函数过程和Sub过程常用算法总结 function函数过程 Sub过程 参数传递规则(值传递、地址传递) 数组名作为函数参数 数组元素作为函数参数 变量的作用域 变量的生存期 主题一：函数过程 格式 [Public | Private] [Static] Function 函数名(形参列表) As 数据类型 语句块 函数名=表达式 [Exit Function] [语句块] End Function 调用 函数名(实参列表) 也可以用 : 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 = temp * i Next i ******错误 2 ****** nFactor(n) = temp ****** 错误3 ****** End Sub 编写过程用以验证一个偶数可以分解为两个素数之和；Isprime用以判断x是否是素数 Public Sub even() 从键盘输入一个大于4的偶数，将它所有的不重复的分解式求出 Dim x As Integer Dim i As Integer ------1------ 保证x是大于4的偶数 x = Val(InputBox(x=)) Loop For i = 3 To x / 2 Step 2 在不大于x的奇数中找素数 ------2------ Form1.Print x; =; i; +; x - i End If Next i End Sub Public Function Isprime(x As Integer) As Boolean Dim i As Integer ------3------ For i = 2 To x - 1 ------4------ Isprime = False Exit For End If Next i End Function Public Sub total() 该过程是计算s=7+77+777+……+(n个7组成的数)，并输出。 Const n = 20 Dim s As Single Dim i As Integer For i = 1 To n s = s + ------1------- Next i Form1.Print s=; s End Sub Public Function number( -----2------ ) As Single 该函数是求出n个7所组成的数。 Dim k As Integer number = 0 For k = 1 To n --------3--------- Next k End Function --------- Option Explicit 判断某年是否是闰年 Public Sub rn() 该过程通过调用函数isLeapYear判断某年是否是闰年，若是,则打印今年是润年 否则,打印今年不是闰年。 Const year = 2023 If ----1---- Then Form1.Print 今年是闰年 Else Form1.Print 今年不是闰年 End If End Sub Function isLeapYear(y As Integer) As Boolean If ----2---- Or (----3---- And ----4----) Then isLeapYear = False Else isLeapYear = Tr