2017年江蘇省信息技術(shù)學業(yè)水平試卷（16）

一、操作題（每題10分，10題共100分）

• 1．打開文件“考生文件夾\857\凱撒密碼．vbp”，完善程序?qū)崿F(xiàn)如下功能并保存：
  公元前60年，古羅馬統(tǒng)帥“朱利葉斯?凱撒”（Caesar）第一個用當時發(fā)明的“凱撒密碼”書寫軍事文書，進行戰(zhàn)時通信．凱撒加密法簡而言之，就是字母替換加密，每一個字母用字母表中該字母后的第三個字母代替．即
  明文：ABCDEFGHIJKLMNOPQRSTUVWXYZ
  密文：DEFGHIJKLMNOPQRSTUVWXYZABC
  編寫程序，將明文加密輸出．例如：
  輸入：How are you!
  輸出：Krz duh brx!
  Private Sub cmdCode_Click （　?。?br />Dim pt As String'明文
  Dim ct As String'密文
  Dim n As Integer'字母在字母表中的序號
  Dim ch As String
  Dim i As Integer
  pt=txtPt.Text
  ct=““
  For i=1To Len（pt）
  ch=Mid（pt,i,1）
  Select Case ①
  Case“A“To“Z“
  n=Asc（ch）-Asc（“A“）
  n=（n+3）Mod 26
  ch=Chr（n+65）
  Case“a“To“z“
  n=②
  n=（n+3）Mod 26
  ch=Chr（n+97）
  End Select
  ct=③
  Next i
  txtCt.Text=ct
  End Sub.
  組卷：9引用：1難度：0.7

  解析

• 2．打開文件“考生文件夾\850\工程1．vbp”，完善程序?qū)崿F(xiàn)如下功能并保存：
  在文本框text1中輸入一段含有數(shù)字的短文（如樣張），編寫程序查找統(tǒng)計非數(shù)字字符的個數(shù)，并在label1中顯示．
  Private Sub Command1_Click （　?。?br />Dim x As String,y As String
  Dim s As Integer,i As Integer
  x=Text1．Text
  s=①
  For i=1To Len（x）
  ②=Mid（x,i,1）
  If Asc（y）＜48Or Asc（y）＞57Then
  s=s+1
  End If
  Next i
  Label1．Caption=Str（③）
  End Sub.
  組卷：9引用：1難度：0.5

  解析

• 3．打開“考生文件夾\781”中的文件“test4．vbp”，完善Command1_Click事件代碼并保存．
  實現(xiàn)功能：回文字符串是指一個字符串從左往右讀與從右往左讀是一樣的，如“ABCBA”，“123321”等等．輸入一個字符串，若是回文字符串，則輸出“Yes”，否則輸出“No”．使用文本框Text1輸入字符串，使用文本框Text2輸出結(jié)果．
  Private Sub Command1_Click （　　）
  Dim s As String
  Dim ok As String
  Dim i As Integer
  s=Text1．Text
  ok=“Yes“
  For i=1To ①
  If Mid（s,i,1）＜＞②Then ok=“No“
  Next i
  ③
  End Sub.
  組卷：9引用：1難度：0.5

  解析

一、操作題（每題10分，10題共100分）

• 9．打開文件“考生文件夾\68\工程1．vbp”，完善Command1_Click事件代碼并保存。
  實現(xiàn)功能：在文本框Text1和Text2中分別輸入兩個整數(shù)，單擊“交換”按鈕后，兩個文本框中的數(shù)字進行交換。
  Private Sub Command1_Click （　?。?br />Dim a As Integer
  Dim b As Integer
  Dim t As Integer
  a=Val（Text1．Text）
  b=Val（Text2．Text）
  t=a
  a=①
  b=②
  Text1．Text=③
  Text2．Text=④
  End Sub。
  組卷：9引用：1難度：0.1

  解析

• 10．打開“考生文件夾\774”中的文件“回文數(shù)。vbp”，完善Command1_Click事件代碼并保存。
  實現(xiàn)功能：回文數(shù)是類似383、12321這樣的數(shù)，不論是從左向右順讀，還是從右向左倒讀，數(shù)碼的排列都是相同的。在文本框中輸入一個整數(shù)，判斷是否是回文數(shù)并在標簽上輸出結(jié)果，效果如樣張所示。
  Private Sub Command1_Click （　?。?br />Dim a As String
  Dim n As Integer
  Dim i As Integer
  a=Text1．Text
  n=Len（①）
  For i=1To n\2
  If Mid（a,②，1）＜＞Mid（a,n-i+1，1）Then i=n
  Next i
  If i=n\2+1Then
  Label2．Caption=“是回文數(shù)“
  Else
  ③=“不是回文數(shù)“
  End If
  End Sub。
  組卷：7引用：1難度：0.1

  解析