vb编程，编写程序完成以下功能

Option Explicit

Dim a(1 To 5, 1 To 5) As Long

Dim da As Long, ou As Long

Private Sub Command1_Click() '产生随机数

Dim i As Long, j As Long

    Randomize '初始化随机数

    ou = 0

    da = 0

    Picture1.Cls

    For i = 1 To 5

        For j = 1 To 5

            a(i, j) = Fix(Rnd * 90) + 10 '产生10-99随机数

            If a(i, j) > da Then da = a(i, j) '统计最大数

            If a(i, j) Mod 2 = 0 Then ou = ou + 1 '统计偶数个数

            Picture1.Print a(i, j), '输出数组到图片框

        Next j

        Picture1.Print '换行

    Next i

End Sub

Private Sub Command2_Click() '最大值

    text2.Text = "最大数为：" & da

End Sub

Private Sub Command2_Click() '统计偶数

    text3.Text = "最大数为：" & ou

End Sub

Private Sub Command3_Click() '查找因子

    yinzi da

End Sub

Private Sub yinzi(shu As Long) 'shu传递需要查因子的数，本例中是da

Dim i As Long, s As String, n As Long

    For i = 1 To shu

        If shu Mod i = 0 Then

            n = n + 1

            s = s & shu & "的第" & n & "个因子为：" & i & "  " & shu / i & Chr(13) & Chr(10)

        End If

    Next i

    Text1.Text = s

End Sub

Private Sub Command1_Click()

  Dim x As Integer

  x = Text1

  While x > 0

    s = s + x Mod 10

    x = x \ 10

    If x = 0 And s > 9 Then

      x = s

      s = 0

    End If

  Wend

  Text2 = s

End Sub

Private Sub Form_Load()

  Text1 = ""

  Text2 = ""

  Command1.Caption = "求数根"

End Sub

---