请试着用VB写如下代码题目实现两码流水码由01开始, 若到99後改为A1~A9,B1~B9,C1~C9….. 到Z9

请试着用VB写如下代码题目实现两码流水码由01开始, 若到99後改为A1~A9,B1~B9,C1~C9….. 到Z9

Dim s1 As String, s2 As String, i As Integer, j As Integer
s1 = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"
s2 = "123456789"
For i = 1 To Len(s1)
For j = 1 To Len(s2)
Print Mid(s1, i, 1) & Mid(s2, j, 1)
Next j
Next i追问实现两码流水码，
由01开始,
若到99後改为A1~A9,B1~B9,C1~C9…..
到Z9後改为1A~9A,1B~9B,1C~9C以此类推,需扣除英文字I&O追答Dim s1 As String, s2 As String, i As Integer, j As Integer
s1 = "0123456789ABCDEFGHJKLMNPQRSTUVWXYZ"
s2 = "123456789"
For i = 1 To Len(s1)
For j = 1 To Len(s2)
Print Mid(s1, i, 1) & Mid(s2, j, 1)
Next j
Next i
For i = 1 To Len(s2)
For j = 11 To Len(s1)
Print Mid(s2, i, 1) & Mid(s1, j, 1)
Next j
Next i追问你这样的话输出里面是没有10,20,30.。。。。追答这个有点乱啊，需要10 20 30 ，那么要不要 A0 B0 C0 呢？