參考解
Function M4P12(ByVal s As String) As String
' M4P12_N!尾數的0
Dim x As Integer = s
Dim cnt As Integer = 0
For i = 5 To x Step 5
Dim k As Integer = i
Do While k Mod 5 = 0 ' 5的次方數會被整除多次
...
2017年1月26日 星期四
2017年1月2日 星期一
Z3A_Net 幻方參考
http://zerojudge.tw/ShowProblem?problemid=b351
奇階幻方 產生的方式有多種，為了方便驗證，我們規定
(1) 由最上面列的中間格開始填入1
(2) 接續格在前一格的左上方{例如 4填入後填5時}，除非超出邊界或格內已填數字如說明(3)(4)(5)(6)
(3) 超出上邊界，則接續格改為左邊一行的最下一列{例如 1填入後填2時}，除非超出左邊界如說明(6)
(4) 超出左邊界，則接續格改為上邊一列的最右一行{例如 2填入後填3時}，除非超出上邊界如說明(6)
(5) 若接續格已填有數字 {例如 3填入後要填4時} ，接續格改為原格下方一格
(6) 若上邊及左邊同時超出邊界時，接續格改為原格的下方一格{例如 6填入後要填7時}
以下為3x3的產生步驟
，以及3階及5的完成圖
http://zerojudge.tw/ShowProblem?problemid=b371
4N階幻方：...
2017年1月1日 星期日
Z2A VB檢查碼+變化2,3
變化2：M5P05_2 書碼檢查(10碼)
給一組書碼，依下列檢查規則，若正確則輸出Yes，不正確則輸出No
(1) 書碼共10碼皆數字，非數字或長度不對則No
(2) 第1~9碼由左算第1碼為奇數位
所有奇數位*1、所有偶數位*3
(3) 第1~9位各乘上1或 3後加總後再加上第10位*1須能被10整除
in1.txt
2
1234567891
9876543215
in2.txt
2
2234567894
9976543211
out.txt
No
Yes
Yes
No
參考程式碼
Function M5P05_2(ByVal s As String) As String
...
Z2A VB 檢查碼變化題
Z2A VB 01/03預訂考題 檢查碼之 變化
變化1：M5P05_1 學號檢查
給一組學號，依下列檢查規則，若正確則輸出Yes，不正確則輸出No
(1) 學號共6碼，長度不對則No
(2) 第1碼只能3~5
(3) 第2,3兩碼只能11~17的數字
(4) 第4,5,6三碼只能001~350的數字
in1.txt
2
4112A9
416123
in2.txt
2
511099
616123
out.txt
No
Yes
Yes
No
參考程式碼
Function M5P05_1(ByVal s As String) As String
M5P05_1
=...
發表文章
