2017年江蘇省信息技術學業水平試卷（16）
發布：2024/4/20 14:35:0
一、操作題（每題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