vb，如图，要哪里加什么才能使10个数字横着排列

Private Sub Codmax_Click()
   Dim i As Integer, a(1 To 10), max As Integer, b As Integer
   For i = 1 To 10
      a(i) = InputBox("请输入第" & CStr(i) & "个数", "请任意输入10个数字")
      Print Tab(3 * i); a(i);   '如果输入的都是两位数，这一句改成这样就可以了
      If a(i) > max Then
         max = a(i)
      End If
   Next i
   Print
   Print "这10个数中最大的值为"; max
End Sub

Private Sub Codmax_Click()
   Dim i As Integer, a(1 To 10), max As Integer, b As Integer
   For i = 1 To 10
      a(i) = InputBox("请输入第" & CStr(i) & "个数", "请任意输入10个数字")
      Print Str(a(i));    '如果输入的位数不定，这一句改成这样就可以了
      If a(i) > max Then
         max = a(i)
      End If
   Next i
   Print
   Print "这10个数中最大的值为"; max
End Sub

把其中的 tab(3); 去除就可以了。