2017年江苏省信息技术学业水平试卷（16）

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

• 1．打开文件“考生文件夹\857\凯撒密码．vbp”，完善程序实现如下功能并保存：
  公元前60年，古罗马统帅“朱利叶斯•凯撒”（Caesar）第一个用当时发明的“凯撒密码”书写军事文书，进行战时通信．凯撒加密法简而言之，就是字母替换加密，每一个字母用字母表中该字母后的第三个字母代替．即
  明文：ABCDEFGHIJKLMNOPQRSTUVWXYZ
  密文：DEFGHIJKLMNOPQRSTUVWXYZABC
  编写程序，将明文加密输出．例如：
  输入：How are you!
  输出：Krz duh brx!
  Private Sub cmdCode_Click （　　）
  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”，完善程序实现如下功能并保存：
  在文本框text1中输入一段含有数字的短文（如样张），编写程序查找统计非数字字符的个数，并在label1中显示．
  Private Sub Command1_Click （　　）
  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事件代码并保存．
  实现功能：回文字符串是指一个字符串从左往右读与从右往左读是一样的，如“ABCBA”，“123321”等等．输入一个字符串，若是回文字符串，则输出“Yes”，否则输出“No”．使用文本框Text1输入字符串，使用文本框Text2输出结果．
  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事件代码并保存。
  实现功能：在文本框Text1和Text2中分别输入两个整数，单击“交换”按钮后，两个文本框中的数字进行交换。
  Private Sub Command1_Click （　　）
  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”中的文件“回文数。vbp”，完善Command1_Click事件代码并保存。
  实现功能：回文数是类似383、12321这样的数，不论是从左向右顺读，还是从右向左倒读，数码的排列都是相同的。在文本框中输入一个整数，判断是否是回文数并在标签上输出结果，效果如样张所示。
  Private Sub Command1_Click （　　）
  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=“是回文数“
  Else
  ③=“不是回文数“
  End If
  End Sub。
  组卷：7引用：1难度：0.1

  解析