Access子程序练习修订版本.docxVIP

1．Private Sub table () Debug。Print Tab(45); 九九乘法表” Debug。Print Tab (45)； ============ For i = 1 To 9 For j = 1 To i s = i *” ＆ j ＆ = i * j Debug.Print s； Spc (5) ; Next j Debug。Print Next i End Sub 2．控件过程的建立 建立窗体,在命令按钮输入代码，在标签和文本框中显示结果。 Private Sub Command3_Click() Dim x， y x = 100： y = 300 Label0.Caption = Str(x + y ) Text1.Value = y End Sub 3．过程的调用 计算大圆、小圆的面积 建立了模块(名为 ff(x)计算圆面积)，建立窗体.在通用、声明段定义公共变量： Public s As Single Public x As Integer Option Compare Database Sub ff (r As Integer) Dim s As Single Const p = 3。14 s = r ^ 2 * p MsgBox s 1 2 End Sub Private Sub Command1_Click() x = Text