vb编程实例 求大神帮忙啊

楼上说的太专业，这样给你说吧：输入6之后先运行fun(6)，因为x Mod 2=0 所以执行fun(6/2) ，因为是执行的fun(3),所以先输出的是3，之后从那个if语句之后接着执行，print x;所以输出的是(3 6)

双击VBP文件重新打开，在代码后面加单引号后面写注释

 Dim m(90) As Integer
Dim Odd(90) As Integer
Dim Even(90) As Integer
Dim Prime(90) As Integer
Private Sub Command1_Click()
    Me.Cls
    Randomize
    Print "90个随机整数"
    For i = 0 To 89
        m(i) = Rnd * 89 + 10
        Print m(i);
        If i Mod 15 = 14 Then Print
    Next
    
End Sub
Private Sub Command2_Click()
    Dim OddPc%, EvenPc%
    OddPc% = 0
    EvenPc% = 0
    For i = 0 To 89
        If m(i) Mod 2 = 0 Then 'even
            Even(EvenPc) = m(i)
            EvenPc = EvenPc + 1
        Else 'odd
            Odd(OddPc) = m(i)
            OddPc = OddPc + 1
        End If
    Next
    OddPc = OddPc - 1
    EvenPc = EvenPc - 1
    Sort Odd, OddPc
    Sort Even, EvenPc
   

    Picture2.Cls
    For i = 0 To OddPc
        Picture2.Print Odd(i);
        If i Mod 15 = 14 Then Picture2.Print
    Next
    
    Label2.Caption = OddPc & "个奇数"
    
End Sub
Public Sub Sort(ByRef Ar As Variant, Ub As Integer)
    For i = 0 To Ub
        For j = i + 1 To Ub
            If Ar(i) > Ar(j) Then
                tmp% = Ar(i)
                Ar(i) = Ar(j)
                Ar(j) = tmp%
            End If
        Next
    Next
End Sub
Private Sub Command3_Click()
    Unload Me
End Sub
Private Sub Command4_Click()
    Dim Count As Integer, Sum As Integer
    Text1.Text = ""
    For i = 0 To 89
        If IsPrime(m(i)) Then
            Text1.Text = Text1.Text & m(i) & " "
        End If
    Next
End Sub
Public Function IsPrime(Num As Integer) As Boolean
    IsPrime = True
    For i = 2 To Num - 1
        If Num Mod i = 0 Then IsPrime = False
    Next
End Function