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

综合测试题(三)

时间:2009-6-19 11:22:21 点击:2425

 

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

1.以下不合法的单精度实数是(1) 。

  A.4.12E3.2       B.45.6!          C.12.34          D.1.2E-3

2.下列关于面向对象程序设计的叙述不正确的是(2)  。

A.对象具有属性、方法等特性

B.对象之间的通信产生了消息

C.一个对象是一个软件构造块,它包含数据与相关操作

D.对象的属性不能被改变

3.InputBox函数返回值的类型为(3)  。

  A.数值                              B.字符串  

C.变体                            D.数值或字符串(视输入的数据而定)

4.list1中的clear是(4)  。

  A.方法           B.对象           C.属性           D.事件

5.以下语句的输出结果是(5)  。

  Print Format("HELLO","<")

  A.HELLO          B.hello          C.HE             D.he

6.下列关于变体类型的叙述正确的是(6)  。

A.变体不是一种数据类型

B.变体是赋给某一种类型数值后,就不能再赋给它另一类型数值

C.该种数据类型在使用过程中是可以变化的,VB自动完成类型转换

D.变体的空值就表示该变体的值为0

7.下列输出语句中,错误的是(7)  。

   A.? x,y                                B.print x,y   

C.form.print x,y                D.Print Form x,y

8.下面的四项中,叙述错误的是(8)  。

A.Read语句中,有多个变量时,逗号“,”可作为变量间分隔符

B.在Print语句中,有多个输出项时,逗号“,”可作为输出项间的分隔符

C.一个Dim语句定义多个数组时,逗号“,”可作为数组间的分隔符

D.在一行中有多条语句时,逗号“,”可作为语句间的分隔符

9.下面关系表达式的值为真的是(9)  。

   A. "A">"a"       B. "9">"a"     C. "That">"Thank"  D.12>12.1

10.为了把焦点移到某个指定的控件,所使用的方法是(10)  。

   A.SetFocus       B.Visible      C.Refresh          D.GetFocus

11.设a=6,则执行x=IIF(a>5,-1,0)后,x的值为(11)  。

   A.5              B.6            C.0                D.-1

12.决定窗体有无控制菜单的属性是(12)  。

   A.ControlBox     B.MinButton    C.Enabled          D.MaxButton

13.以下关于控件的叙述中,错误的是(13)  。

A.Visible  Basic允许设计和使用用户自己设计的控件

B.窗体中工具条工具不是工具箱中包含的常用控件

C.要使用系统提供的ocx控件,应先把有关的控件添加到工具箱中

D.使用系统提供的ocx控件进行程序设计,其编程的方法与工具箱中的常用控件的编程有不同

14.不管属性如何设置,程序运行时始终都能接收焦点的方法是(14)  。

   A.用Tab键        B.用鼠标       C.用方向键        D.不能实现

15.以下语句错误的是(15)  。

A.  If a=1 And b=2 then

      C=3

   End If

B.  If a=1 Then

      C=2

       ElseIf a=2 Then

         C=3

C. c=IIF(a=1,2,3)

D. If a=1 Then

 C=2

 ElseIf a=2 Then

     C=3

End If

16.有如下程序:

        Sub sub1(x,y)

        X=2*x

        Y=3*y

        End sub

        Private sub command1_click()

               A=1:b=1

               Print “A=”;a;”,B=”;b

        End sub

        程序运行后的输出结果是(16)  。

        A.A=1,B=1                 B.A=2,B=3

        C.A=1,B=3                      D.A=2,B=1

17.在窗体上画一个名称为command1的命令按钮,然后编写如下事件过程:

        private sub command1_click()

               move 500,500

        end sub

        程序运行后,单击命令按钮,执行的操作为:(17)  。

A.命令按钮移动到距窗体左边界、上边界各500的位置

B.窗体移动到距屏幕左边界、上边界各500的位置

C.命令按钮向左、上方向各移动500

D.窗体向左、上方向各移动500

18.在窗体上有若干控件,其中有一个名为text1的文本框。影响text1的tab顺序的属性是(18)  。

        A.tabstop                 B. enabled       C. visible      D. tabindex

19.以下定义数组或给数组元素赋值的语句中,正确的是(19)  。

        A.dim a as variant                     B. dim a(10) as integer

          A=array(1,2,3,4,5)                  a=array(1,2,3,4,5)

        C.dim a%(10)                               D. dim a(3),b(3) as integer

          A(1)=”abcde”                               a(0)=0

                                                                     A(1)=1

                                                                     A(2)=2

                                                                     B=a

20.在窗体上画一个list1的列表框,为了对列表框中的每个项目都能进行处理,应使用的循环语句为(20)  。

        A. for i=0 to list1.listcount-1         B. for i=0 to list1. count-1

                       …..                                                            ….

           Next                                                next

        C. for i=1 to list1.listcount    D. for i=0 to list1. count

                       …..                                                            ….

           Next                                                next

21.以下case语句中,错误的是(21)  。

        A. case 0 to 10                             B. case is>10

        C. case is>10 and is<50                     D. case 3,5,is>10

22.以下关于图片框控件的说法中,错误的是(22)  。

A.可以通过print方法在图片框中输出文本

B.清空图片框控件中图形的方法之一是加载一个空图形

C.图片框控件可以作为容器使用

D.用stretch属性可以自动调整图片框中图形的大小

23.执行语句s=len(mid(“Visual Basic”,1,6))后,s的值是(23)  。

        A. Visual        B. Basic            C. 6               D. 11

24.以下叙述中,错误的是(24)  。

A.下拉式菜单和弹出式菜单都用菜单编辑器建立

B.在多窗体程序中,每个窗体都可以建立自己的菜单系统

C.除分隔线外,每个菜单项都能接受Click事件

D.如果把一个菜单项的Enabled属性设置为False,则该菜单项不可见

25.在窗体上有一个命令按钮,包含以下事件过程

        Private sub command1_click()

                A=12345

               Print format$(a,“000.00”)

        End sub

        程序运行后,单击命令按钮,窗体显示的是(25)  。

        A. 123.45             B. 12345.00        C. 12345       D. 00123.45

26.以下叙述中,错误的是(26)  。

A.一个工程可以包括多种类型的文件

B.Visual Basic应用程序既能以编译方式运行,又能以解释方式运行

C.程序运行后,在内存中只能驻留一个窗体

D.对于事件驱动型应用程序,每次运行时的执行顺序可以不一样

27.要在窗体的标题栏显示“VB程序”字样,其做法是:(27)  。

A.在窗体的标题栏上放置文字“VB程序”

B.把窗体的caption属性设置成“VB程序”

C.把窗体的label属性设置成“VB程序”

D.无法完成该操作

28.在过程定义中用(28)表示形参的传值。

        A. Var                B. ByDef        C. ByVal        D. Value

29.要设置某控件的正文颜色,可以通过设置该控件的(29)属性来完成。

A. ForeColor                         B. BeforeColor      

C. FontColor                      D. FormColor

30.当按钮的Enabled属性值是(30)的时候,该按钮无效。

        A. .t.             B. .f.                C. true                   D. false

31.显示提示框的函数名是(31) 。

A. MessageBox           B. MsgBox       C. Prompt       D. Dialogbox

32.以下数据类型中,不是数值数据类型的是:(32) 。

   A. Integer          B. Long       C. Double      D. Boolean

33.以下数组声明语句,正确的是(33) 。

        A. Dim a[3,4] As Integer

        B. Dim a(3,4) As Integer

        C. Dim a(n,n) As Integer

        D. Dim a[3,4] As Integer

34.下列变量名不合法的是(34) 。

        A. 3xy                B. x3y                 C. xy3               D. x_3y

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

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

36.数学表达式

的VB表达式是(36) 。

A.

B.

C. x^2+abs(y)+exp(3)+sin(30*π/180)-sqr(x*y)

D. x*x+abs(y)+exp(3)+sin(30*3.14/180)-sqr(x*y)

37.表达式len("VB程序设计")的值是(37)。

A. 6              B. 10                   C. 14                D. 5

38.数组声明 Dim a(3,-2 to 2,5)的元素个数是(38)。

A. 120               B. 75                C. 60                D. 13

39.复选框的 Value 属性为 1 时,表示该复选框(39)。

A. 未被选中                               B. 被选中

C. 有灰色的勾                                D. 操作错误

40.下列有关数组的论述正确的是(40)。

A. 数组并不是一种数据类型,而是一组相同类型的变量的集合

B. VB的数组最多可以有120维

C. 定义数组的时候一定要指明数组的上、下界

  D. 数组只能用于存储数值型和字符型数据

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

   编一程序,分别计算S1=101+103+105+…+199与S2=102+104+106+…+200。程序代码如下,请填充完整。

S1= (41) 

S2=0

FOR I= (42)  TO 50

             S1= (43) +(100+2*I-1)

             S2=S2 (44) (100+2*I)

 (45) 

PRINT "S1=";S1

PRINT "S2=";S2

41.A.0                     B.1                  C.2                  D.""

42.A.0                     B.1                  C.2                  D.""

43.A./                     B.I                  C.S1                 D.S2

44.A./                     B.*                  C.+                  D.-

45.A.End if        B.LOOP                       C.NEXT I     D.End Do

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

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

    Private Sub Command1_Click()

        b=1

        a=2

        Do While b<10

           B=2*a+b

        Loop

        Print b

    End Sub

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

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

47.有如下程序:

    Private Sub Command1_Click()

        S=0

        Do

            s=(s+1)*(s+2)

            N=N+1

        Loop Until s>=10

        Print N;s

   End Sub

   运行后的输出结果是(47)  。

   A.0  1          B.30  30          C.4  30         D.2  12

48.在窗体上画一个命令按钮(其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

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

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

           7  10                8  11       9  12           10 13

49.有如下程序,该程序的执行结果为(49)  。

        dim k as integer

        n=5

        m=1

        k=1

        do until k>n

               m=m*2

               k=k+1

        loop

        print m

        A. 1              B. 55         C.32           D.40

50.有如下函数过程

        Function gys(byval x as integer, byval y as integer) as integer

               do while y<>0

                       remainder=x/y

                       x=y

                       y=remainder

               loop

               gys=x

        End function

        以下是调用该函数的事件过程,该程序的运行结果是什么(50)  。

        Private sub command7_click()

               Dim a as integer

               Dim b as integer

               A=10

               B=2

               X=gys(a, B)

               Print x

   End sub

        A.0                      B.25          C.5                D.100


 

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

1.在Visual Basic的窗体中,若要创建一个用于输入文本的对象,可用(1)  控件;创建一个定时器,则用(2)控件。

2.要在窗体的标题栏上显示“学生档案管理系统”,需要更改窗体的(3)属性。

3. VB的除法运算符是:(4),赋值运算符是:(5)。

4.数学表达式“Zyz”+”123”+”ABC”的值为(6)。

5.将项目添加到combobox控件中的方法是(7),从该控件中移除项目的方法是(8)。

6.文本框的默认属性是(9),标签的默认属性是(10)。

7.VB提供的(11)属性,用来控制对象是否可用,当属性值为(12)时,表示对象可用,当属性值为(13)时,表示对象不可用。

8.VB提供的(14)属性,用来控制对象是否可见,当属性值为(15)时,表示对象可见,当属性值为(16)时,表示对象不可见。

9.在VB中,用来描述对象外部特征的量称之为对象的(17)。

10.为使某窗口中的命令按钮“取消(C)”具有如下特性:按“Alt+C”键或按 “ESC” 键,均可代替用鼠标单击该按钮的操作,应设置该按钮的Caption属性值为(18),并且设置其(19)属性值为(20)。

五.程序设计题(共20分)[1]

编程实现将文本加密。程序窗口如下图所示,要求在第一个文本框中输入字符串,然后用“加密”按钮实现加密,并在第二个文本框中显示加密后的结果,“解密”按钮实现解密,并在第三个文本框中显示解密后的结果,再用“清屏”按钮实现重新开始输入,窗体各控件名称在下图中已标出。请在程序中补全实现以上功能的程序代码。

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()          '清屏

 

             (3分)          

txtrecode.Text = ""

txtinput.Text = ""

End Sub

Private Sub cmdcode_Click()         '加密

  strinput = txtinput.Text

  i = 1

  code = ""

  length = Len(    (3分)       )  '去掉字符串右边的空格,求真正的长度

  Do While (i <= length)

    strtemp =        (3分)         '取第i个字符

    If (strtemp >= "A" And strtemp <= "Z") Then

      IASC =        (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个字符连接

                (3分)                   

    End If

    i = i + 1

    Loop

          (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

 _________ (2分)____________

  txtrecode.Text = recode

End Sub


[1] 该题来源于参考书[1]

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