tab:
与 Print # 语句或 Print 方法一起使用，对输出进行定位
语法
Tab[(n)]
可选的 n 参数是在显示或打印列表中的下一个表达式之前移动的列数。若省略此参数，则 Tab 将插入点移动到下一个打印区的起点。这就使 Tab 可用来替换国别中的逗号，此处，逗号是作为十进制分隔符使用的。
说明：如果当前行上的打印位置大于 n，则 Tab 将打印位置移动到下一个输出行的第 n 列上。如果 n 小于 1，则 Tab 将打印位置移动到列 1。如果 n 大于输出行的宽度，则 Tab 函数使用以下公式计算下一个打印位置：
n Mod width
例如，如果 width 是 80，并指定 Tab(90)，则下一个打印将从列 10 开始（90/80 的余数）。如果 n 小于当前打印位置，则从下一行中计算出来的打印位置开始打印。如果计算后的打印位置大于当前打印位置，则从同一行中计算出来的打印位置开始打印。
输出行最左端的打印位置总是 1。在使用 Print # 语句将数据写入文件时，最右端的打印位置是输出文件的当前宽度，这一宽度可用 Width # 语句设置。
注意 要确保表格列的宽度足以容纳较宽的字符串。
当 Print 方法与 Tab 函数一起使用时，打印的外观将会被分割为均匀、定宽的列。各列的宽度等于选用字体内以磅数为单位的所有字符的平均宽度。但是，在已打印字符的个数与那些字符所占据的定宽列的数目之间不存在任何关系。例如，大写字母 W 占据超过一个定宽的列，而小写字母 i 则占据少于一个定宽的列。
2.
你输入的数据太大。将 s(10) As Integer改为Long就行了。
代码：
Private Sub cmdsortshow_Click()
Dim k, p, intplace As Long, inttemp As Long, s(10) As Long
For k = 1 To 10
s(k) = InputBox("data=")
Next k
For k = 1 To 9
intplace = k
For p = k + 1 To 10
If s(intplace) > s(p) Then
intplace = p
End If
Next p
inttemp = s(k)
s(k) = s(intplace)
s(intplace) = inttemp
If k < 9 Then
lblsortprompt.Caption = "排序中。。。第" + Str(k) + "趟比较后结果为："
Else
lblsortprompt.Caption = "排序完成，结果为："
End If
lblsortingdata.Caption = " "
For p = 1 To 10
lblsortingdata.Caption = lblsortingdata.Caption + Str(s(p))
Next
MsgBox "请观察排序数据变化情况"
Next k
End Sub
