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

综合测试题(一)

时间:2009-6-19 11:20:28 点击:1546

 

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

1.可获得当前系统日期的函数是(1)

A.Date( )  B.Time( )   C.IsDate( )  D.Year( )

2.窗体的标题栏显示内容由窗体对象的(2)属性决定。

A.BackColor B.BackStyle  C.Text      D.Caption

3.列表框中执行语句List1.RemoveItem  List1.ListIndex的结果是(3) 

A.删除列表框的最后一项   B.删除列表框的第一项

C.删除列表框中的所选中的那一

D.删除列表框中的最后添加的一

4.在DATA控件中,_(4) 属性是用来连接到一个具体的数据库的。

ADatabasename           B.nomatch

Cbof                    D.move

5.不具有输入数据功能的控件是(5) 控件或对象。

A.文本框                 B.列表框

C.组合框                 D.窗体

6.以下关于复选框的说法,正确的是(6)  

A.一个窗体上的所有复选框一次只能有一个被选中

B.一个容器中的所有复选框一次只能有一个被选中

C.在一个容器中的复选框不能同时有多个被选中

D.无论是在容器中还是在窗体中,都可以同时选中多个复选框

7.下列不能作为VB中的变量名的符号是(7) 

A. A45       B.P12       C.89Ta      D.xy

8.只能删除字符串尾部空格的函数是(8)

A.Ltrim      B.Rtrim     C.Trim      D.Mid

9.如果在菜单栏中添加1条分隔线,则应将其Caption属性设置为_(9)_

A.=     B.*         C.&         D.-

10.VB中,“可视化数据管理器”命令在(10) 菜单中。

  A.文件       B.编辑      C.外接程序  D.窗口

11.用下面语句定义的数组的元素个数是(11)

Dim A(-3 To 5) As Integer

A.6          B.7          C.8         D.9

12.a=2b=3c=4d=5,下列表达式的值是(12)

        a>b And c<=d  Or 2*a>c

A.True       B.False      C.-1        D.1

13.下列关于控件画法的叙述错误的是(13)

A.单击一次工具箱中的控件图标,只能在窗体上画出一个相应的控件

B.按住CTRL键后单击一次工具箱中的控件图标,可以在窗体上画出多个相同

类型的控件

C.双击工具箱中的控件图标,所画控件的大小和位置是固定的

D.我们使用的控件只能是工具箱中的标准控件

14.应用程序设计完成后,应将程序保存,保存的过程是(14)  

A.只保存窗体文件即可

B.只保存工程文件即可

C.先保存工程文件,之后保存窗体文件

D.先保存窗体文件(或标准模块文件),之后还要保存工程文件

15.假定有一个菜单项,名为MenuItem,为了在运行时使该菜单项失效(变灰),应使用的语句为(15)

A.MenuItem.Enabled=False     B.MenuItem.Enable=True

C.MenuItem.Visible=True      D.MenuItem.Visible=False

16.要把标签控件的字体设置成“楷体”,可使用的语句是(16) (其中“lblKt”是该控件名.。

A.lblKt.FontName="楷体_GB2312"

B.lblKt.Name="楷体_GB2312"

C.lblKt.FontName="kaiti"

D.lblKt.Name="kaiti_GB2312"

17.DATA控件中用来指定连接数据库中具体的表的属性是(17)

A.Recordsource                         B. exclusive

C.Refresh                    D. reposition

18.下列VB术语不正确的是(18)

A. 静态数组 B.动态数组             C. 模块级变量    D.共享变量

19.函数rnd用于产生随机数,其结果范围是(19)

A. (0,1)        B. [0,1)       C. (0,1]         D. [0,1]

20.下列有关数据库的描述,正确的是(20)

A.数据库是一个DBF文件       B.数据库是一个关系

C.数据库是一个结构化的数据集合

D.数据库是一组文件

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

21.下列程序执行后,整型变量n的值为25,那么

n=0

for I=1 to 100

if I mod  (21) =0 then n=n+1

next   (22) 

(21)A.2             B.3          C.4            D.5

(22)A.I             B.n          C.endif        D.print n

22.若整型变量a的值为2b的值为3C的值为2,请补全代码。

if a>5 then

if b<4  (23)  c=a-b else c=b-a

else

if  (24)  then c=a*b else c=a mod b

 (25) 

(23)Aend if        B.else if    C.then         D.if

(24)Ab>2           B.b<5        C.a>3          D.a<3

(25)Aend if        B.else if    C.then         D.next

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

23.如下程序,运行的结果是_(26)

Dim a%,b%,c%

Public Sub p1(x%,y%)

   Dim c%

   x=2*x

y=y+2

c=x+y

End Sub 

Public Sub p2(ByVal x% ,ByVal y%)

    x=2*x

y=y+2

c=x+y

End Sub 

Public Sub Command1_Click()

a=2

b=4

c=6

Call p1(a,b)

Print a=;a;b=;b;c=;c

a=2

b=4

c=6

Call p2(a,b)

Print a=;a ; b=; b; c=; c

End Sub

A.a= 4  b= 6  c= 6                       B.a= 4   b= 6  c= 10

a= 2  b= 4  c= 10                        a= 8   b= 8  c= 16

C.a= 4  b= 6  c= 6                       D.a= 4   b= 6  c= 14

     a= 8  b= 6  c= 6                         a= 8   b= 8  c= 6

24. 如下程序,运行的结果是 (27)

Public Sub Proc(a%())

   Static i%

   Do

      a(i)= a(i)+ a(i+1)

      i=i+1

   Loop While i<2

End Sub

Public Sub Command1_Click()

    Dim m%,i%,x%(10)

For i=0 To 4

x(i)=i+1

Next i

For i = 1 To 2

 Call proc(x())

Next i

For i = 0 To 4

  print x(i)

next i

End Sub

A. 3 4 7 5 6                            B. 3 5 7 4 5 

C. 2 3 4 4 5                            D. 4 5 6 7 8

25.在窗体上画一个命令按钮,然后编写如下事件过程:

    Private Sub Command1_Click()

     b=1

     a=2

     Do While b<10

        B=2*a+b

     Loop

     Print b

    End Sub

   程序运行后,输出的结果是(28)

   A.13                B.17                C.21             D.33

26. 下列的程序执行后,x的值为(29)

    x=0

    For i=1 to 10

      For j=I to 10

         x=x+1

       Next j

     Next i

    A.50                B.55                C.5           D.105

27.窗体上画一个命令按钮(Name属性为Command1),然后编写如下代码:

        Option Base 1

        Private sub command1_click()

          dim a(4,4)

          for i=1 to 4

               for j=1 to 4

                 a(I,j)=(i-1)*3+j

               next j

           next i

               for i=3 to 4

                 for j=3 to 4

                        print a(j,i);

                 next j

                 print

                next i

         End sub

        程序运行后,单击命令按钮,其输出结果为(30)

        A. 6  9            B. 7  9             C. 8  11            D. 9  12

           7  10                 8  11             9  12               10 13

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

1.新建工程时,在模块的___(1)_段中添加___(2)_ 语句用于强制显式声明变量,表示  (3)  必须先声明方可使用。

2.在文本框中,通过  (4)  属性能获得当前插入点所在的位置。

3VB6.0提供了ADO技术,它是一种 (5) 访问技术,通过该技术,能方便地访问多种数据库中的数据。

4Int(-5.5)Int(5.5) Fix(5.5)Fix(-5.5)Round(5.5)round(-5.5)的值分别是_(6)__(7)__(8)_、_(9)_、 _(10)__(11)_

5.显示被235除,余数为1的最小的3个正整数。

Private sub command1_click()

Dim countN%,n%

CountN=0

n=1

Do

    n=n+1

    if _(12)_ Then

      print n

      CountN=CountN+1

    End if

Loop _(13)_

End sub

6.下面的程序是将输入的一个数并插入到按递减的有序数列中,插入后使该序列仍有序。

Private Sub form_click()

Dim a, i%, n%, m%

a = Array(19, 17, 15, 13, 11, 9, 7, 5, 3, 1)

n = UBound(a)

ReDim   (14) 

m = Val(InputBox("输入欲插入的数"))

For i = UBound(a) - 1 To 0 Step -1

If m >= a(i) Then

If i = 0 Then a(i) = m

__(15) 

Else

__(16)&nb, sp;

Exit For

End If

Next i

For i = 0 To UBound(a)

Print a(i)

Next i

End Sub

7.在列表框的每一项之后插入一个新的项:
Private Sub Command1_Click( )
For I=1 to 10
X=InputBox(
“请输入插入的第“ & I  & “项内容“)
List1.AddItem_____
(17)_______
Next I
End Sub

8.设置控件背景颜色的属性名称是_____(18)__________

9.菜单的热键指使用  (19)     键和菜单项标题中的一个字符来打开菜单,建立热键的方法是在菜单标题的某个字符前加上一个  (20)    符号。

 

五.程序设计题(20)

1.编写通过inputbox()输入密码(假定密码为“hello”),只要符合就显示“欢迎使用本系统!“,否则用msgbox()显示“密码错误!”并终止程序运行。

2.编写求mn的最大公约数的程序。

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