題目及參考解答 「...
2015年6月26日 星期五
資處程式 6/26 甄選(第5題)
解題參考：
'第5題 撲克牌(23點)，A2~9TJQK分別代表1~13點，但A可換成10點，>23爆
Dim line() = Split(TextBox1.Text, vbNewLine)
Dim n As Integer = Val(line(0))
For i = 1 To n
Label1.Text &= vbCrLf
Dim line1 = line(i)
Dim m = line1.Length
Dim j As Integer
Dim sum = 0, ace = 0
For j = 2 To m Step 2
Dim c = Mid(line1,...
資處程式 6/26 甄選(第4題)
'第4題 K進位轉十(補充k:2~9)，給數字 k 及 一k進位的字串 ，算出十進位
值
Dim line() = Split(TextBox1.Text, vbNewLine)
Dim n As Integer = Val(line(0))
For i = 1 To n
Label1.Text &= vbCrLf
Dim k = Val(line(i * 2 - 1))
Dim line1 = line(i * 2)
Dim m = line1.Length
Dim j As Integer
Dim p = 1, sum = 0
For j = m To 1 Step...
資處程式 6/26 甄選(第3題)
參考程式碼
' 第3題 字串處理，一字串中只有大寫字母、數字並包含1個運算符號(+-*)之一，
' 符號左右的數字範圍為 1~999
Dim line() = Split(TextBox1.Text, vbNewLine)
Dim n As Integer = Val(line(0))
For i = 1 To n
Label1.Text &= vbCrLf
Dim line1 As String = line(i)
Dim m = line1.Length
Dim j As Integer
Dim num1...
資處程式 6/26 甄選(第1題及第2題)
第１題：身份證檢查-1
N組輸入，每一組一行，為身份證的前９碼，最後少一碼為檢查碼，請輸出n行，各１數字為「檢查碼」
範例：T11266383
身份證第１碼：英文代號以下表轉換成數字
A=10 台北市 G=16 宜蘭縣
M=21 南投縣 S=26 高雄縣 Y=31 陽明山
B=11 台中市 H=17 桃園縣
N=22 彰化縣 ...
2015年6月25日 星期四
P1D 6/26小考解說
一、
01題：12+8 = 20 { + 加 }
02題：12-8 = 4 { - 減 }
03題：12*8 = 96 { * 乘 }
04題：12/8 = 1.5 { / 除，可能會有小數 }
05題：-12^2 = -144 { ^ 次方，優先序在 - 之前，所以先算出144再加負號 }
06題：121^0.5 = 11 { 0.5次方即開平方，但只取正根 }
07題：21\4 = 5 { \ 整除求 商 , 21÷4 = 5餘1}
08題：31Mod4 = 3 { Mod 整除求 餘 , 31÷4 = 7餘3 }
09題：31.5\6.5...
2015年6月23日 星期二
一年級計概期考前小考
期考前的小考檔案 「...
2015年6月20日 星期六
Z2A VB選手訓練題單
(01) 100-3-1 身份證 ，三題類似 參考檔案「100-M3 下載」
(02) 101-3-1 身份證 ，參考檔案「101-M3 下載」
(03) 102-4-1 身份證
(04) 100-1-1及-2 字串處理， 參考檔案「100-M1 下載」
(05) 101-1-1及-2 字串處理(計算字數) ， 參考檔案「101-M1 下載」
(06) 102-1-1及-2 字串處理 ， 參考檔案「102-M1 下載」
(07) 100-3-2 漢明碼 ，參考檔案同(1) 「100-M3 下載」
(08) 101-3-2 編碼 ，參考檔案「101-M3 下載」
(09) 101-4-1 進制轉換 ...
2015年6月18日 星期四
資2程式期考範圍
五次小考的檔案 「下載」
另會在下週(6/26)再貼重點整理，請記得來看...
發表文章
