第07章 过程a.pptVIP

第６章作业 ：P164 习题1、2正确答案： 1 　(1) a有21个整型元素 ；(2) b有60个长整型元素 　(3) c有54个定长(每个长度为2)字符型元素 　(4) d有31个单精度实型元素 2 (1)在立即窗口输出：69 (2)在立即窗口输出：13 12 11 10 9 8 7 (3)在立即窗口输出：10 11 12 13 14 (4)在立即窗口输出：11 3 (5)错误信息“下标越界” (6)在窗体窗口输出：30 VB应用程序的组成 由三种模块组成: 窗体模块(Form) (文件扩展名.frm) 标准模块(Module) (文件扩展名.bas) 类模块(Class) (文件扩展名.cls) 例7.1 创建名为ShowChr的通用过程，程序中输出n行字符串“This is a Example!” Private Sub ShowChr (ByVal n As Integer) Dim I As Integer For I =1 to n Debug.Print This is a Example! Next I End Sub 例7.2 调用名为ShowChr的通用过程，输出3行字符串“This is a Example!” Private Sub Command1_Click() Call ShowChr End Sub Private Sub ShowChr () 无形参 Dim I As Integer For I =1 to 3 Debug.Print This is a Example! Next I End Sub 例7.3 调用名为ShowChr的通用过程，由过程参数确定输出字符串的行数和字符串的内容 Private Sub Command1_Click() Dim n As Integer Dim Chr As String n = Val(InputBox(Please Enter a Integer Number)) Chr = InputBox(Please Enter a String) Call ShowChr (n, Chr) End Sub Private Sub ShowChr (ByVal m As Integer, ByVal Str As String) 带两个形参 Dim i As Integer For i = 1 To m Debug.Print Str Next i End Sub 传值调用： Private Sub cz(ByVal x As Integer, ByVal y As Integer) x = x + 100 y = y * 6 Print x=; x, y=; y; End Sub Private Sub form_click() Dim a As Integer, b As Integer a = 10: b = 20 Print 调用Sub过程前， ; a=; a, b=; b Call cz(a, b) Print 调用Sub过程后， ; a=; a, b=; b End Sub Dim a1 As Integer Private Sub Command1_Click() a1 = 10 End Sub Private Sub Command2_Click() a1 = a1 + 2 MsgBox (a1) End Sub Sub Mysub() Static s As Integer Dim I as Integer For i=1 to 10 Step 2 s= s+I Next I Print s; End Sub Private Sub Command1_Click() Dim n As Integer Dim m As Long n = Val(InputBox(请输入一个正整数)) m = Fact(n) Print m End Sub Function Fact(N As Integer) As Long Dim I As Integer, F As Long F = 1 F用于保存阶乘值 For I = 1 To N F = F * I Next I