第八章 VBA编程基础(5)

Form_MyForm1!Label16.Caption = \ Do

Form_MyForm1!Label16.Caption = Form_MyForm1!Label16.Caption & J & \ J = J + 1 Loop While J <= 20 End Sub

Private Sub Command12_Click() Dim I As Integer, J As Integer I = 1 J = 1

Form_MyForm1!Label5.Caption = \ Do Until I > 20

Form_MyForm1!Label5.Caption = Form_MyForm1!Label5.Caption & I & \ I = I + 1 Loop

Form_MyForm1!Label16.Caption = \ Do

Form_MyForm1!Label16.Caption = Form_MyForm1!Label16.Caption & J & \ J = J + 1 Loop Until J > 20 End Sub

Private Sub Command13_Click() Dim I As Integer, J As Integer

J = InputBox(\请输入要查找的值\ For I = 1 To 100 If I = J Then Exit For End If Next I

If I <= 100 Then MsgBox (\找到！\ Else

MsgBox (\未找到！\ End If End Sub

Private Sub Command2_Click() Static Numbers(1 To 15) As Integer Dim I As Integer

Form_MyForm1!Label5.FontSize = 16 Form_MyForm1!Label5.BackColor = 8404992 Form_MyForm1!Label5.Caption = \ For I = 1 To 15 Numbers(I) = I

Form_MyForm1!Label5.Caption = Form_MyForm1!Label5.Caption & Numbers(I) & \\

Form_MyForm1!Text0.Value = Numbers(I) Next I

End Sub

Private Sub Command6_Click() Dim I As Integer, J As Integer Static Aa(19, 19) As Integer

Form_MyForm1!Label5.BackColor = 4194432 Form_MyForm1!Label5.FontSize = 9 Form_MyForm1!Label5.Caption = \ For I = 0 To 19 For J = 0 To 19 Aa(I, J) = 20

Form_MyForm1!Label5.Caption = Form_MyForm1!Label5.Caption & Aa(I, J) & \\

Next J Next I End Sub

Private Sub Command7_Click() Dim Aa() As Integer

Dim I As Integer, J As Integer ReDim Aa(7, 5)

Form_MyForm1!Label5.Caption = \ For I = 0 To 7 For J = 0 To 5

Aa(I, J) = I * J

Form_MyForm1!Label5.Caption = Form_MyForm1!Label5.Caption & Aa(I, J) & \\

Next J

Form_MyForm1!Label5.Caption = Form_MyForm1!Label5.Caption & \ Next I

ReDim Aa(9, 2)

Form_MyForm1!Label16.Caption = \ For I = 0 To 9 For J = 0 To 2

Aa(I, J) = 2 * I * J

Form_MyForm1!Label16.Caption = Form_MyForm1!Label16.Caption & Aa(I, J) & \

Next J

Form_MyForm1!Label16.Caption = Form_MyForm1!Label16.Caption & \ Next I End Sub

Private Sub Command8_Click() Dim a, b, c

a = InputBox(\ b = InputBox(\ c = a Xor b

Form_MyForm1!Text0.Value = c

End Sub

Private Sub Command9_Click() Dim Money As Currency

Money = InputBox(\ If Money > 10000 Then Tax = Money * 0.2 ElseIf Money > 1000 Then Tax = Money * 0.15 Else

Tax = Money * 0.1 End If

cont = MsgBox(\应缴税金为\确定按是，不确定按否查看帮助\ If cont = 6 Then Else

MsgBox (\不理解也得理解！！！\ End If End Sub

4．创建过程

事件过程是VBA编程的核心，但有时还需要利用VBA中的两类通用过程：Function过程和Sub过程，对事件过程加以改进，以提高代码的可读性和可维护性。

⑴ Function过程