mdlmain.bas

主要介绍的是程序综合,你们可以参考一下,用法比较简单.

Attribute VB_Name = "mdlMain"
Public Arr(1 To 10) As Integer
Public sArr As String

Sub main()
    Load frmMain
    frmMain.Show
End Sub

Public Sub InitArr()
    Dim i As Integer
    Randomize
    sArr = ""
    For i = 1 To 10
        Arr(i) = CInt(10 + Rnd() * 90 - 0.5)
        sArr = sArr & CStr(Arr(i)) & "  "
    Next i
End Sub