高分求解

Question

Option Base 1
           Dim arr(10) As Integer
           Private Sub Command1_Click()
          Dim i As Integer
          Dim j As Integer
         Dim min As Integer
         Dim tmp As Integer
        Text1.text=""
        For i=1 To 10
         arr(i)=Int(101*Rnd)
         Next i
         For i=1 To9
           min=i
              For j=i+1 To 10
                If arr(min)>arr(i) Then
                     min=j
                End If
              Next j
            tmp=arr(i)
            arr(i)=arr(min)
            arr(min)=tmp
           Next i
         For n=1 To 10
             Text1.Text=Text1.Text & arr(n) & ""
             Next n
      End Sub
以上是我早上写的，但运行的时候有问题，提示语法错误，
Text1.Text=Text1.Text & arr(n) & ""
而且错误出在以上语句上，如果这句有错，改怎么改？或另写一语句表示~将排序结果显示在文本框中~
另外要生成0至99的随机数，
arr(i)=Int(101*Rnd)
不知道是不是这样表示的？

Answer 1

以上是我早上写的，但运行的时候有问题，提示语法错误，
Text1.Text=Text1.Text & arr(n) & ""
——————————————————————————
语法没错，倒是For i=1 To9 中To和9之间要加空格arr(i)=Int(101*Rnd)
不知道是不是这样表示的？
————————————————————
表示没问题

Answer 2

生成0至99的随机数，arr(i)=Int(100*Rnd)

Answer 3

你的For i=1 To9 中To和9之间需要加空格

Answer 4

语法没错，倒是For i=1 To9 中To和9之间要加空格运行的时候改过来了的，

Answer 5

Option Base 1Dim arr(10) As Integer
           
Private Sub Command1_Click()
    Dim i As Integer
    Dim j As Integer
    Dim n As Integer
    Dim min As Integer
    Dim tmp As Integer
        
    Text1.Text = ""
    For i = 1 To 10
        arr(i) = Int(101 * Rnd)
    Next i
    
    For i = 1 To 9
        min = i
        
        For j = i + 1 To 10
            If arr(min) > arr(i) Then
                 min = j
            End If
        Next j
        
        tmp = arr(i)
        arr(i) = arr(min)
        arr(min) = tmp
    Next i
     
    For n = 1 To 10
        Text1.Text = Text1.Text & arr(n) & ""
    Next n
End Sub

Answer 6

这样试试：
Text1.Text = Text1.Text & cstr(arr(n)) & ""