內容 ：
兩光法師時常替人占卜，由於他算得又快有便宜，因此生意源源不絕，時常大排長龍，他想算 得更快一點，因此找了你這位電腦高手幫他用電腦來加快算命的速度。
他的占卜規則很簡單，規則是這樣的，輸入一個日期，然後依照下面的公式：
M=月
D=日
S=(M*2+D)%3
得到 S 的值，再依照 S 的值從 0 到 2 分別給與 "普通"、"吉"、"大吉"等三種不同的運勢
他的占卜規則很簡單，規則是這樣的，輸入一個日期，然後依照下面的公式：
M=月
D=日
S=(M*2+D)%3
得到 S 的值，再依照 S 的值從 0 到 2 分別給與 "普通"、"吉"、"大吉"等三種不同的運勢
輸入說明 ：
月份及日期
輸出說明 ：
運勢
範例輸入 ：
1 1
1 2
範例輸出 ：
普通
吉
提示 ：
Private Sub Form_Load()
回覆刪除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, y
s = (x * 2 + y) Mod 3
Select Case s
Case 0
Print #2, "普通"
Case 1
Print #2, "吉"
Case 2
Print #2, "大吉"
End Select
Loop
Close #2
Close #1
End Sub
BY 阿揚
Private Sub Form_Load()
回覆刪除Me.Hide
Open App.Path & "\in.txt" For Input As #1
Open App.Path & "\out.txt" For Output As #2
While Not EOF(1)
Input #1, M, D
S = (M * 2 + D) Mod 3
If S = 0 Then Print #2, "普通"
If S = 1 Then Print #2, "吉"
If S = 2 Then Print #2, "大吉"
Wend
Close #2
Close #1
End
End Sub
BY 小白
it's ok, but too simple.
回覆刪除