兩光法師占卜

 

'兩光法師時常替人占卜，由於他算得又快有便宜，因此生意源源不絕，時常大排長龍，他想算 得更快一點，因此找了你這位電腦高手幫他用電腦來加快算命的速度。

' 他的占卜規則很簡單，規則是這樣的，輸入一個日期，然後依照下面的公式：
'M=月
'D=日
'S=(M*2+D)%3

'得到 S 的值，再依照 S 的值從 0 到 2 分別給與 "普通"、"吉"、"大吉"等三種不同的運勢

'輸入說明：

'月份及日期
'輸出說明：

'運勢
'範例輸入：

'若題目沒有特別說明，則應該以多測資的方式讀取，若不知如何讀取請參考 a001 的範例程式。
'1 1
'1 2
'範例輸出 ：

'普通
'吉

'提示 ：

'題目出處 ：

'Jiangsir --  http://zerojudge.tw/

 

執行畫面：

程式碼：

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim resultStr = ""
        Dim fileContents As String
        fileContents = My.Computer.FileSystem.ReadAllText("..\..\q3.txt")

        Dim lineArray() = Split(fileContents, vbNewLine)

        For i As Integer = 0 To UBound(lineArray)
            Dim colArray = Split(lineArray(i), " ")
            Dim m = colArray(0)
            Dim d = colArray(1)
            Dim S = (m * 2 + d) Mod 3
            Dim temStr = Choose(S + 1, "普通", "吉", "大吉")
            resultStr = resultStr & temStr & vbNewLine
        Next
        MsgBox(resultStr)
    End Sub
End Class