M3P12 ： 103模P12 解二元一次方程式
參考程式碼
Function
M3p12(ByVal s As String) As String
Dim
dt() = s.Split(",") '讀一列依 「,」分成6個字串
Dim a
As Integer = dt(0), b As Integer = dt(1)
...
Z2A練習：M3P12
2016年10月21日 星期五
Z2A練習：M2P11
M2P11
： 102模P11 字串中的阿拉伯數字
參考程式碼：
Function
M2P11(ByVal s As String) As String
Dim num
= ""
For i =
1 To s.Length
Dim c As Char =...
Z2A練習：M5P02-smp2-學號
(2)類似題舉例2： 資商學院的學號有5位，第1碼為系碼，第2碼為年度，第3碼為班碼，後2碼為座號
系碼只能是SYZ其中之1，年度只能是2~5其中之一，班碼只能是1~3，座號一定是兩位01~50
讀入n列字串，判斷是否為正確的學號，正確則則輸出R，不正確則輸出E
解題提示：系碼可設定一字串 hstr=”SYZ”，可以instr(hstr,c)函數尋找也可以用IF判斷
參考程式碼：
Dim hstr As String =”SYZ” 'Instr用
Function m5p02(ByVal s As String) As String
m5p02 = "R"
s = Trim(s) ...
Z2A練習：M5P01-smp1-11倍數
(1)類似題舉例1：判斷正整數0<N<1050是否可被
11 整除(因數字超過 Long型別)需使用字串處理
202914184810805067776
8239728901483491109728570834944
解題提示：奇數位的和 與 偶數位的和 是否為 11的倍數，是則輸出Y，不是則輸出N
參考程式碼如下：
Function M5P01(ByVal s As String) As String
Dim len As Integer = s.Length
Dim odd As Integer = 0 '奇數位和
Dim even As Integer...
Z2A練習：讀檔架構
各題之讀檔架構省略，只提供一次如下
FileOpen(1, "in1.txt", OpenMode.Input)
FileOpen(2, "in2.txt",
OpenMode.Input)
FileOpen(3, "out.txt",
OpenMode.Output)
For fn = 1 To 2
If fn = 2 Then PrintLine(3)
Dim n As Integer = LineInput(fn)
For i = 1 To n
Dim line As String = LineInput(fn)
...
Z2A練習：M3P11
M3P11
： 103模P11 判斷是否為質數
Function M3P11(ByVal S As String)
As String
Dim K As Integer = Val(S)
If K < 2 Then Return "N"
For I = 2 To Math.Sqrt(K)
...
Z2A練習：M1P31
M1P31
： 101模P31 身份證檢查
Dim
tno() = {10, 11, 12, 13, 14, 15, 16, 17, 34, 18, 19, 20, 21, 22, 35, 23, 24,
25, 26, 27, 28, 29, 32, 30, 31, 33}
‘
A B
C D E
F ...
發表文章
