一．选择题(每小题1分，共40分)
|
1 |
C |
2 |
D |
3 |
B |
4 |
B |
5 |
B |
6 |
C |
7 |
D |
8 |
D |
|
9 |
C |
10 |
A |
11 |
D |
12 |
A |
13 |
D |
14 |
D |
15 |
B |
16 |
A |
|
17 |
B |
18 |
D |
19 |
A |
20 |
A |
21 |
C |
22 |
B |
23 |
C |
24 |
D |
|
25 |
B |
26 |
C |
27 |
B |
28 |
C |
29 |
A |
30 |
C |
31 |
B |
32 |
D |
|
33 |
B |
34 |
A |
35 |
B |
36 |
D |
37 |
A |
38 |
A |
39 |
B |
40 |
A |
二．程序填空选择题(每小题2分，共10分)
|
41 |
A |
42 |
B |
43 |
C |
44 |
C |
45 |
C |
三．程序阅读题(每小题2分，共10分)
|
46 |
A |
47 |
D |
48 |
D |
49 |
C |
50 |
C |
四．填空题(每空1分，共20分)
|
(1) |
文本 |
(11) |
enabled |
|
(2) |
时钟 |
(12) |
true |
|
(3) |
Caption |
(13) |
false |
|
(4) |
/ |
(14) |
visible |
|
(5) |
= |
(15) |
true |
|
(6) |
Zyz123ABC |
(16) |
false |
|
(7) |
additem |
(17) |
属性 |
|
(8) |
removeitem |
(18) |
取消(&C) |
|
(9) |
Text |
(19) |
cancel |
|
(10) |
caption |
(20) |
true |
五．程序设计题(共20分)
Dim strinput As String * 70, code As String * 70
Dim recode As String * 70, strtemp As String * 1
Dim i As Integer, length As Integer
Dim IASC As Integer
Private Sub cmdcls_Click() '清屏
Txtcode=”” (3分)
txtrecode.Text = ""
txtinput.Text = ""
End Sub
Private Sub cmdcode_Click() '加密
strinput = txtinput.Text
i = 1
code = ""
length = Len( rtrim(strinput)(3分)) '去掉字符串右边的空格,求长度
Do While (i <= length)
strtemp = mid(rtrim(strinput)，I，1) (3分)'取第i个字符
If (strtemp >= "A" And strtemp <= "Z") Then
IASC = Asc(strtemp) + 5 (3分)'大写字母加序数5加密
If IASC > Asc("Z") Then IASC = IASC - 26 '加密后字母超过Z
code = Left$(code, i - 1) + Chr$(IASC)
ElseIf (strtemp >= "a" And strtemp <= "z") Then
IASC = Asc(strtemp) + 5 '小写字母加序数5加密
If IASC > Asc("z") Then IASC = IASC - 26
code = Left$(code, i - 1) + Chr$(IASC)
Else
'当第i个字符为其它字符时不加密,与加密字符串的前i-1个字符连接
code=Left$(code,i- 1) + Chr$(IASC) (3分)
End If
i = i + 1
Loop
Txtcode=code (3分)'显示加密后的字符串
End Sub
Private Sub cmdrecode_Click() '解密与加密正好逆处理
code = txtcode.Text
i = 1
recode = ""
length = Len(RTrim(code)) '若还未加密,不能解密,出错
If length = 0 Then J = MsgBox("先加密再解密", 48, "解密出错")
Do While (i <= length)
strtemp = Mid$(code, i, 1)
If (strtemp >= "A" And strtemp <= "Z") Then
IASC = Asc(strtemp) - 5
If IASC < Asc("A") Then IASC = IASC + 26
recode = Left$(recode, i - 1) + Chr$(IASC)
ElseIf (strtemp >= "a" And strtemp <= "z") Then
IASC = Asc(strtemp) - 5
If IASC < Asc("a") Then IASC = IASC + 26
recode = Left$(recode, i - 1) + Chr$(IASC)
Else
recode = Left$(recode, i - 1) + strtemp
End If
i = i + 1
_loop__________________ (2分)__
txtrecode.Text = recode
End Sub