Problem 6 (關係運算子 7%)
請設計一個程式，能判斷出兩個數值之間三種狀態的關係運算子：
(1)第一個數字大於第二個數字。
(2)第二個數字小於第一個數字。
(3)兩個數字一樣大。
第 4 頁/共 5 頁
輸入說明：每一列由二個數字所組成，為一組測試資料。每個數字與數字間的區隔為一個空白符號，當為0 0時表示結束。(請參照輸入範例)
輸入範例：test6.txt
10 20
20 10
10 10
0 0
輸出說明：對於每組測試資料，輸出『>』、『<』、『=』，代表該二數字的關係。(請參照輸出範例)
輸出範例：result6.txt
＜
＞
＝
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 While Not EOF(1)
Input #1, a, b
If a <> 0 And b <> 0 Then
If a > b Then Print #2, ">"
If a < b Then Print #2, "<"
If a = b Then Print #2, "="
End If
Loop
Close
Close
End
End Sub
送分題...
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 While Not EOF(1)
Input #1, A, B
If A = B And A = 0 Then Exit Do
If A > B Then Print #2, ">"
If A < B Then Print #2, "<"
If A = B Then Print #2, "="
Loop
Close #2
Close #1
End
End Sub