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

综合测试二参考答案

时间:2009-6-19 11:26:33 点击:921

综合测试二参考答案

一.选择题(每小题2分,共60)

1

A

2

A

3

D

4

B

5

A

6

B

7

D

8

A

9

B

10

A

11

D

12

C

13

B

14

A

15

A

16

C

17

C

18

C

19

B

20

D

21

C

22

B

23

A

24

B

25

D

26

C

27

A

28

A

29

D

30

A

二.填空题(20分,每空1)

(1)

.vbp

(11)

对象

(2)

.frm

(12)

%

(3)

autosize

(13)

传值

(4)

Upper()

(14)

传地址

(5)

3*x+2^3

(15)

End

(6)

interval

(16)

show

(7)

additem

(17)

中断

(8)

removeitem

(18)

运行

(9)

Movefirst

(19)

设计

(10)

Movenext

(20)

gotfocus

三.程序设计题(20)

Dim starttime As Date

Dim endtime As Date

Dim right As Integer

Private Sub Form_Load()

Randomize

For i = 1 To 30

Label1.Caption = Label1.Caption & Chr(Asc("a") + Int(Rnd() * 26))

Next i

starttime = Time()

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

right = 0

If Len(Text1.Text) = 30 Then

    e = Time()

    For i = 1 To 30

      If Mid(Label1.Caption, i, 1) = Mid(Text1.Text, i, 1) Then

        right = right + 1

      End If

    Next i

    Label2.Caption = "用了的时间:" & DateDiff("s", starttime, endtime)

    k = right / 30

    Label3.Caption = "正确率是:" & Format(k, "#0.0%")

    Label4.Caption = right

End If

End Sub

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