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

综合测试一参考答案

时间:2009-6-19 11:26:02 点击:1239

 

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

1

A

2

D

3

C

4

A

5

D

6

D

7

C

8

B

9

D

10

B

11

D

12

B

13

D

14

D

15

A

16

A

17

A

18

D

19

B

20

C

二.程序填空选择题(每小题2分,共10)

21

C

22

A

23

C

24

C

25

A

三.程序阅读题(每小题2分,共10)

26

A

27

B

28

A

29

B

30

D

四.填空题(每空1分,共20)

(1)

通用声明

(2)

Option explict

(3)

变量

(4)

selstart

(5)

数据库

(6)

-6

(7)

5

(8)

5

(9)

-5

(10)

6

(11)

-6

(12)

n Mod 2 = 1 And n Mod 3 = 1 And n Mod 5 = 1

(13)

countN = 3

(14)

Preserve a(n + 1)

(15)

a(i) = a(i - 1)

(16)

a(i + 1) = m

(17)

x

(18)

backcolor

(19)

alt

(20)

&

五.程序设计题(20)

1.通过inputbox()输入密码只要符合其中的一个就可以显示“欢迎使用本系统!“,否则显示“密码错误!”。程序如下:

Private Sub Form_Click()

  Dim PassWord As String

   PassWord = InputBox("请输入密码:", "提示")

If password=hello

MsgBox "欢迎使用本系统!"

else

      MsgBox "密码错误!"

      End    '退出程序

End if

End Sub

2.mn的最大公约数,程序如下:

Private  Sub  Command1_Click()

Dim m As Long, n As Long, t As Long

m=Val(Text1.Text)

n=Val(Text2.Text)  

If m<n then

       t=m: m=n: n=t   mn变量的值互换

End If

Do

   r=m Mod n

   m=n

   n=r

Loop  While     r<>0   

Label1.Caption=  m  ‘在label1标签中显示所求出的最大公约数

End Sub

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