您现在的位置:首页 >> 在线习题 >> 内容

综合测试三参考答案

时间:2009-6-19 11:27:01 点击:890

一.选择题(每小题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

作者:Admin  
相关文章
  • 没有相关文章
  • VB程序设计学习网站(赣南师范学院) © 2008 版权所有 All Rights Reserved.
  • 地址:江西省赣州市经济技术开发区 赣南师范学院数学与计算机科学学院 邮政编码:341000
    Email:ZQ188@163.com 技术支持QQ:87319633 移ICP备10086号
  • GnsySjxy! V2.4