代码哪点错了,为什么输出的都是一个0
Option Explicit
Private Sub Command1_Click()
Dim i As Integer, j As Integer, m As Integer, n As Integer
j = InputBox("生成数组", "福彩双色球", 1)
For i = 1 To j
Call sc(n, m)
Text1 = Text1 & n & vbCrLf
Text2 = Text2 & m & vbCrLf
Next i
End Sub
Private Sub sc(n As Integer, m As Integer)
Dim i As Integer, k As Integer, j As Integer
Dim a(6) As Integer, rs As Integer, b As Integer
For k = 1 To 6
a(k) = Int(Rnd * 33 + 1)
Next k
For i = 1 To 5
For j = i + 1 To 6
If a(i) = a(j) Then
Exit Sub
End If
Next j
Next i
For k = 1 To 6
If Len(CStr(a(k))) = 1 Then
rs = Right("0" & CStr(a(k)), 2)
End If
n = n & rs & " "
Next k
b = Int(Rnd * 16 + 1)
m = Right("0" & CStr(b), 2)
End Sub
谢谢,你能帮我把我写的代码改一下吗,我想知道自己是哪点错了,你的代码太深奥了,很多语句我都不知道是什么意思
追答Private Sub Command1_Click()