Problem6：測謊機(11%)
小明請小華猜出他心理想的一個數字，這個數字為[1, 100]間的整數。猜測的規則為：每一回小華猜測一個數字，小明則回應小華猜的太高(too high)，太低(too low)，或是猜中(righton)，猜中後立即結束遊戲。因為過程中小明可能會說謊，必須寫一個程式，在每次結束之後，驗証小明他的回應是否都正確。
輸入說明：
輸入中含有多次遊戲的記錄。在每一次遊戲中會包含許多次的猜測及回應的過程。每一次遊戲的最後都必須猜中才能結束。在最後一組遊戲後，由僅含有0 的一列代表輸入結束。
輸出說明：
針對每一次的遊戲，程式以一行輸出小明是否有說謊。如果這次遊戲有說謊則輸出0，
沒有說謊則輸出1。
輸入範例：
5
too high
3
too high
1
too low
2
right on
33
too low
34
too high
32
right on
0
輸出範例：
1
0
Dim max, min, num As Integer
回覆刪除Dim strr 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
max = 0
min = 9999
Do
Input #1, num
If num = 0 Then Exit Do
Input #1, strr
Select Case strr
Case Is = "too high"
If num < min Then min = num
Case Is = "too low"
If num > max Then max = num
Case Is = "right on"
If max < num < min Then Print #2, 1
If Not max < num < min Then Print #2, 0
min = 0
max = 0
End Select
Loop
Close #2
Close #1
End
End Sub