內容 ： 正體->简体
可愛的潘潘有著一堆石頭，每顆石頭上面都有一個正整數編號。接著，她又利用複製機器把每顆石頭都複製了兩個，而編號當然跟原來那個一樣。
可是有一天，她不小心掉了一顆石頭，現在她想要找出她掉的那一顆石頭的編號。
輸入說明 ：
只有一筆測資給你她現在所擁有的石頭的編號，用空格分開。
當然，個數一定是三的倍數減一個。
輸出說明 ：
輸出她掉的那一顆石頭的編號。
範例輸入 ：
9 8 6 9 8 2 3 5 2 1 6 8 1 5 1 2 3 3 5 9
範例輸出 ：
6
作者已經移除這則留言。
回覆刪除作者已經移除這則留言。
回覆刪除Public Sub Form_Load()
回覆刪除Me.Hide
Dim a(100) As Integer
Dim ans(100) As Boolean
Open App.Path & "\in.txt" For Input As #1
Open App.Path & "\out.txt" For Output As #2
Do Until EOF(1)
Input #1, x
List1.AddItem x
Loop
For i = 0 To List1.ListCount
a(Val(List1.List(i))) = a(Val(List1.List(i))) + 1
ans(Val(List1.List(i))) = True
Next i
For i = 1 To 100
If (a(i) <> 3) And ans(i) = True Then
Print #2, i
End If
Next i
End
Close #1
Close #2
End Sub
BY 阿揚
Dim StrQ As String
回覆刪除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, StrQ
Close #1
AA = Split(StrQ)
For i = 0 To UBound(AA)
k = 0
For j = i + 1 To UBound(AA)
If AA(i) = AA(j) And i <> j Then k = k + 1
Next j
If k <> 2 Then Print #2, AA(i): Exit For
Next i
Close #2
End
End Sub
BY 小白
(發現有小錯誤0.0!!)
小白好，阿揚好，
回覆刪除你們兩個的程式都不ok吧。
阿揚的，自己設定了一個不一定對的範圍，要是超過你設定的範圍，就錯了吧。
小白的，第2個迴圈的起點錯了吧。應該也是0。
除了那樣的小錯誤之外，小白的程式比較好。
加油。