子題1（12%）：在一張地圖上標示有若干個城市，及一些可雙向通行的道路。這些道路的頭、尾，各連接一個不同的城市。我們用1 個一維整數陣列（假設稱為a 陣列），存放各個城市連接的道路數目（存放順序不限）。為了判斷陣列中存放的道路數目值，是否可以正確的表達某一張地圖上城市及道路的關係，我們利用以下步驟檢查（假設陣列的指標由1 開始）：
步驟1：我們將陣列由大到小排序，令排序後的陣列為b 陣列。
步驟2：假設b(1) = k，我們將b(2)到b(k +1)共k 個元素，每個元素值都減1。
步驟3：我們將b(1)從b 陣列中移除，得一個「新陣列」。
步驟4：如果「新陣列」中，存在任何一個小於0 的元素值，原始a 陣列就是「不正確」陣列；如果「新陣列」中的所有元素均等於0，原始a 陣列就是「正確」陣列。若在此步驟達成判斷，檢查即可結束。
步驟5：在不能判斷正確與否時，將「新陣列」代入步驟1，重覆上述檢查，直到達成判斷條件為止。
輸入說明：
第1~4 行表示將判斷之4 組陣列值，各元素間以逗號區隔，每組陣列最多有10 個元素。輸入檔之元素值，不會造成選手進行「步驟2」時產生「陣列索引值超出範圍」的錯誤。
輸出說明：
第1~4 行分別輸出第1~4 組陣列的正確與否。當正確輸出「正確」，不正確時輸出「不正確」。
輸入範例：【檔名：in-2-1.txt】
1,1,2,5,3,2
4,3,1,1,1
4,4,4,3,3
3,3,3,3,3
輸出範例：【檔名：out-2-1.txt】
正確
不正確
正確
不正確
Dim num(), total, sum 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
Do
Line Input #1, tempp
strr = Split(tempp, ",")
ReDim num(UBound(strr) + 1)
total = UBound(strr) + 1
For i = 1 To total
num(i) = strr(i - 1)
Next
Do
sum = 0
For ii = 1 To total
For iii = ii + 1 To total
If num(ii) < num(iii) Then temp = num(iii): num(iii) = num(ii): num(ii) = temp
Next
Next
temppp = num(1) + 1
For iiii = 2 To temppp
num(iiii - 1) = num(iiii) - 1
Next
For ai = temppp + 1 To total
num(ai - 1) = num(ai)
Next
total = total - 1
For iiiii = 1 To total
sum = sum + num(iiiii)
If num(iiiii) < 0 Then Print #2, "不正確": Exit Do
Next
If sum = 0 Then Print #2, "正確": Exit Do
Loop
Loop Until EOF(1)
Close #2
Close #1
End
End Sub