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

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