求助 VB 循环复式问题

Question

 我是说，123456789 这个能够 for i= 1 to 9 那么，12568 这个怎样写成复式循环？最好使用文本框来输入指定数字。

Answer 1

'用文本框输入的例子: 
'设定有一个Text1的文本框:
'建议文本框里的都是0123456789这几个数. 
Option ExplicitDim Arr() As Byte '这个是全局变量Private Sub Command1_Click()
  Dim Data As String
  Data = Trim(Text1.Text)
  
  ReDim Arr(Len(Data)) As Byte  '将文本框里面的全放在数组里面
  For i = 1 To Len(Data)
      If IsNumeric(Mid(Data, i, 1)) Then
        Arr(i) = Mid(Data, i, 1)
      Else
        MsgBox "文本框里面输入的数据有误."
      End If
  Next  For i = 1 To UBound(Arr)
      MsgBox Arr(i)
  NextEnd Sub

Answer 2

str="12568"
for i= 1 to len(str)
   debug.print mid(1,str,i)
next  

Answer 3

我数据i没有声明.
你再加上
dim i as long '的声明

Answer 4

 用listview里应用，奇怪加0出现了

Answer 5

'全部用文本框啊.
'第一组用Text1 第二组用Text2 第三组用Text3Option ExplicitDim Arr1() As Byte '这个是全局变量
Dim Arr2() As Byte '这个是全局变量
Dim Arr3() As Byte '这个是全局变量dim i as long 
dim j as long 
dim m as long Private Sub Command1_Click()
  Dim Data As String
  Data = Trim(Text1.Text)
  
  ReDim Arr1(Len(Data)) As Byte  '将文本框里面的全放在数组里面
   For i = 1 To Len(Data)
      If IsNumeric(Mid(Data, i, 1)) Then
        Arr1(i) = Mid(Data, i, 1)
      Else
        MsgBox "文本框里面输入的数据有误."
      End If
   Next
  Data = Trim(Text2.Text)
  
  ReDim Arr2(Len(Data)) As Byte  '将文本框里面的全放在数组里面
  For i = 1 To Len(Data)
      If IsNumeric(Mid(Data, i, 1)) Then
        Arr2(i) = Mid(Data, i, 1)
      Else
        MsgBox "文本框里面输入的数据有误."
      End If
  Next
  Data = Trim(Text3.Text)
  
  ReDim Arr3(Len(Data)) As Byte  '将文本框里面的全放在数组里面
  For i = 1 To Len(Data)
      If IsNumeric(Mid(Data, i, 1)) Then
        Arr3(i) = Mid(Data, i, 1)
      Else
        MsgBox "文本框里面输入的数据有误."
      End If
  Next'以下是列出三组互相组合的例子.
  For i = 1 To UBound(Arr1)
     For j = 1 To UBound(Arr2)
        For m = 1 To UBound(Arr3)
           me.print Arr1(i) & "/" & Arr2(j) & "/" & Arr3(m)
        next
     next 
  Next
End Sub