子題1：給定若干個數字，將它們依序排成一個頭、尾相接的環形。如果我們從某一數字開始點名，每次點名後再往後跳2 個數字繼續點名（中間間隔1 個未被點名的數字）。已經被點到名的數字不可再點，直到剩下最後一個「未點名」的數字時才停止。請問最後的數字為何？
輸入說明：
第1 行依序給定最多20 個要點名的數字，各數字之間以逗號隔開。
第2 行有1 個數字，是「開始點名」的數字。
輸出說明：
第1 行輸出最後一個未點名的數字。
輸入範例：【檔名：in-5-1.txt】
5, 3, 7, 11, 4, 2, 1, 8, 9
8
輸出範例：【檔名：out-5-1.txt】
9
作者已經移除這則留言。
回覆刪除Dim num, kill As Integer
回覆刪除Private Sub Form_Load()
Me.Hide
Open App.Path & "\in.txt" For Input As #1
Open App.Path & "\out.txt" For Output As #2
Line Input #1, temp
Input #1, num
strr = Split(temp, ",")
For i = 0 To UBound(strr)
List1.AddItem strr(i)
If Val(strr(i)) = num Then kill = i
Next
Do Until List1.ListCount = 1
List1.RemoveItem kill
kill = (kill + 1) Mod List1.ListCount
Loop
Print #2, List1.List(0)
Close #2
Close #1
End
End Sub