VB60下表越界请教Private Sub 

关于网友提出的“VB60下表越界请教Private Sub 
”问题疑问，本网通过在网上对“VB60下表越界请教Private Sub 
”有关的相关答案进行了整理，供用户进行参考，详细问题解答如下：

问题：VB60下表越界请教Private Sub 
描述:

Private Sub Command1_Click()
Dim a(1 To 4, 1 To 15) As Byte
Dim str(15) As String
For n = 1 To 15
   For m = 1 To 4
     DEC = n
     str(n) = DECtoBIN(DEC)
     If Len(str(n)) < 4 Then
       Do Until Len(str(n)) >= 4
        str(n) = "0" & str(n)
       Loop
     End If
     a(n, m) = Mid(str(n), m, 1)
     Print a(n, m);
   Next m
Next n
End Sub
Public Function DECtoBIN(DEC As Long) As String '十进制To二进制
    DECtoBIN = ""
    Do While DEC > 0
        DECtoBIN = DEC Mod 2 & DECtoBIN
        DEC = DEC \ 2
    Loop
End Function

以上介绍了“VB60下表越界请教Private Sub ”的问题解答，希望对有需要的网友有所帮助。
本文网址链接：http://www.codes51.com/wd/866743.html