VB6.0 輸入三數逗號分隔並排序：完整代碼實現

VB6.0 經典入門練習：輸入三個數字（逗號分隔），輸出升序排列結果。核心用 Split 分割字符串、Val 轉數值、冒泡排序邏輯。

完整代碼（可直接粘貼到窗體代碼中運行）

Private Sub Command1_Click()
    Dim s() As String
    Dim nums(0 To 2) As Long
    Dim i As Long, x As Long, t As Long
    
    ' 1. 輸入並分割
    s = Split(InputBox("請輸入三個數，用逗號分隔，如 3,1,2"), ",")
    If UBound(s) < 2 Then MsgBox "輸入格式錯誤" : Exit Sub
    
    ' 2. 轉數值
    For x = 0 To 2
        nums(x) = Val(s(x))
    Next
    
    ' 3. 簡易冒泡排序（三元素專用寫法）
    If nums(0) > nums(1) Then t = nums(0) : nums(0) = nums(1) : nums(1) = t
    If nums(1) > nums(2) Then t = nums(1) : nums(1) = nums(2) : nums(2) = t
    If nums(0) > nums(1) Then t = nums(0) : nums(0) = nums(1) : nums(1) = t
    
    ' 4. 輸出
    MsgBox nums(0) & "," & nums(1) & "," & nums(2)
End Sub

關鍵點解析

• Split(InputBox(...), ",")：一次性完成輸入與分割，返回字符串數組。
• Val()：將字符串轉數值，自動忽略前導空格，非數字字符停止解析（如 Val("12abc") = 12）。
• 三元素排序用三次兩兩比較交換即可，無需通用循環，代碼最精簡。
• VB6 數組默認下標從 0 起，Dim nums(0 To 2) 顯式指定下限 0，上限 2，共 3 個元素。

進階擴展

若輸入個數不固定，可用 ListBox 配合 Sorted = True 自動排序，或寫通用快排/歸併排序模塊。VB6 陣列操作無 LINQ，排序需手寫或調用系統 API qsort。