Question

vb编程，想编一个程序，具体是这样的，将1到63的数字按照某一规律分成6类并将它们分别打印在6个窗

vb编程，想编一个程序，具体是这样的，将1到63的数字按照某一规律分成6类并将它们分别打印在6个窗体上。我想能不能将分类出来的数字“装”在一个“容器”中，然后在用一个程序把这些数字按我想要的顺序打印在窗体上

Answer 1

你可以使用数组：

Public a[1 To 63] As Integer '声明了一个含有63个元素的数组
Private Sub Form_Load
Dim i As Integer
For i = 1 to 63
    a[i] = i '给数组赋值，数组中每个元素的值等于其下标
Next i
    Print a[42] '这就是42
End Sub

这就相当于把数装到一个“容器”中，不过要分类的话要具体分析，这里只简单讲“装”。

追问

那么比如我想按奇偶数分为两类该怎么实现

追答

Public j(1 To 32), o(1 To 31) As Integer 'j为奇数类，o为偶数类
Private Sub Form_Load
Dim m As Intger,n As Integer, i As Integer
    m = 1: n = 1    
    For i = 1 To 63
        If i Mod 2 = 0 Then
            o(m)= i
            m = m + 1
        Else
            j(n)= i
            n = n + 1
        End If
    Next i
End Sub

不好意思，之前写错了，数组是小括号，和C艹弄混了。