Z2AY7M3 練習-7 (17題題單及參考-4)

4/10(一)測驗題單 (題目名加上連結的表示範例完成)

假設由文字方塊輸入，呼叫 Function MyPxx( S As String ) As String後傳回要輸出的字串
以下只有M5P11附主程式部份，其餘類似

105模擬	M5P11	數學問題：質數
105模擬	M5P22	字串：行、字數、字元數
105模擬	M5P42	其它：十進制數轉成二進制數
105正式	F5P11	字串問題：計算字數
105正式	F5P12	字串問題：摩斯電碼
105正式	F5P21	數學問題：網段ID
105正式	F5P22	數學問題：最大公約數計算
104模擬	M4P12	數學問題：N!尾數的0
104模擬	M4P21	其他：計程車費率計算
104模擬	M4P42	其他：數字反轉後相加
104正式	F4P11	生活問題：電梯電費計算系統
104正式	F4P22	數學問題：最大公約數計算
104正式	F4P31	其他：計算位元為1的個數
103模擬	M3P11	數學問題：判斷是否為質數
103模擬	M3P12	數學問題：解二元一次聯立方程式之根
103模擬	M3P21	編碼處理：摩斯電碼
103模擬	M3P22	編碼處理：凱撒密碼

======  103模擬 M3P11 數學問題：判斷是否為質數
   Function M3P11(ByVal s As String) As String
      '傳入一個 字串s 轉為整數 x ，判斷是否為質數，是傳回字串Y，否傳回N
        Dim x As Integer = s
        If x < 2 Then Return "N"
        For k = 2 To Math.Sqrt(x)
            If x Mod k = 0 Then Return "N"
        Next
        Return "Y"
    End Function

=====輸入範例

2

11

4

127

523

31

19

2047

9751

65521

=====輸出範例

Y

Y

N

Y

Y

Y

Y

N

N

Y

===============

======  103模擬 M3P12 數學問題：解二元一次聯立方程式之根

   Function M3P12(ByVal s As String) As String

        Dim dt() = s.Split(",")  '讀一列依 「,」分成6個字串
        Dim a As Integer = dt(0), b As Integer = dt(1)
        Dim c As Integer = dt(2), d As Integer = dt(3)
        Dim e As Integer = dt(4), f As Integer = dt(5)
'rem 聯立式(1)ax+by=c  ，(1)式*e - (2)式*b 得(ae-db)x = (ce-fb) 
'rem 聯立式(2)dx+ey=f  ，(1)式*d - (2)式*a 得(bd-ea)y = (cd-fa)
        Dim x As Integer = (c * e - f * b) / (a * e - d * b)
        Dim y As Integer = (c * d - f * a) / (b * d - e * a)
        Return x & "," & y

    End Function

=====輸入範例

0,2,20,1,0,10
9,5,17,33,6,-24

2,5,2,1,2,7

2,5,95,-10,2,-16

=====輸出範例

10,10
-2,7

31,-12
5,17

===============

======  103模擬 M3P22  編碼處理：凱撒密碼

   Function M3P22(ByVal s As String) As String

     M3P22=""
    For j = 1 To s.Length  '字串長度
      Dim c As Char = Mid(s, j, 1)
      If c >= "X" Then
         M3P22 &= Chr(Asc(c) - 23)
      Else
         M3P22 &= Chr(Asc(c) + 3)
      End If
    Next

  End Function

=====輸入範例

WIKIPEDIA
YOU
B
C
EF

XYZA

TEST

=====輸出範例

ZLNLSHGLD
BRX
E
F
HI

ABCD

WHVW

===============