设有如下通用过程：Public Sub Fun（a（)As Integer,x As Integer)For i=1 To 5x=x＋a（i)NextEnd Sub

设有如下通用过程：Pubfic Function Fun（xStr As String)As StringDim tStr As String，strL As In

设有如下窗体单击事件过程： Private Sub Fom_Click． a =1 For i –To3 Select Case i Case 1

在窗体上有一个命令按钮Commandl，通用过程fun和命令按钮的事件过程如下： Private Function fun（B

设有如下通用过程： Public Sub Fun（a（) ByVal x As Integer)

设有如下通用过程:Public Function f(x As Integer)Dim y As Integerx=20y=2f=x*yEnd Function在

设有如下窗体单击事件过程: Private Sub Form_Click() a=1 For i=1 To 3 Select Case i Case 1 3