《VisualBasic程序设计》综合练习题(二)及答案

一、单项选择

1．键盘事件的执行顺序是（　B　）

A．KeyPress、KeyDown、KeyUp  B．KeyDown、KeyPress、KeyUp

C．KeyUp、KeyDown、KeyPress  D．KeyUp、KeyPress、KeyDown  

2．当需要上下文帮助时，选择要帮助的内容，希望出现MSDN窗口及显示所需的帮助信息，应按的键是（  C  ）。

A．Help         B．F10             C．F1        D． Esc

3．下列对象不能响应 Click事件的是（   D   ）

    A、列表框       B、图片框           C、窗体          D、计时器

4．在Visual Basic中，变量的默认类型是（  B  ）。

A．Integer                  B． Variant

C．Double                  D．Currency 

5．WinsockServer.LocalPort=10001语句的含义是（   A   ）。

A．设置侦听端口  B．设置计算机IP地址 C．设置中断地址  D．设置通信协议

6．要使窗体在运行时不可改变窗体的大小和没有最大化和最小化按钮，只要对下列（   B  ）属性设置就有效。

A．MaxButton              B．BorderSyle 

C．Width                  D．MinButton

7．如果想让文本框中的内容在运行时不能编辑，需将文本框的（  C   ）属性设置为True。 

A．TabStop     B．MultiLine      C．Locked       D．Visible   

8．要设置命令按钮的背景图形，必须设置的两个属性是（  D  ）。

A．Value和Icon             B．Style和Icon

C．Caption和Picture         D．Style和Picture

9．在Visual Basic中，变量的默认类型是（　D  ）。  

A．Integer     B．Double     C．Currency     D．Variant

10．如下数组声明语句，正确的是（　D　）。

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  

11．表达式7+10 Mod 3*2+2（　A  ）。

A．13        B．7      C．6          D．1

12．不属于VB数据库引擎的是（　B　）。

A．ODBC        　　　　　          B．BDE

C．Jet引擎 　　　                    D．OLE DB

13．数学式子Sin25写成VB表达式是（  D  ）。

A．Sin25       B．Sin（25）      C．SIN（25）      D．Sin（25*3.14/180）

14．VB程序中设置断点的按键是（　B　）。

A．F1键　　B．F9键   C．F8键　　     D．Ctrl+F8键

15．Dim I As Integer，则运行时变量I的初始值是（　A　）。

A．0       B．1     C．-1     D．空值

二、填空题

16．定时器（Timer）控件可识别的事件是     Timer     ，发生该事件的时间间隔由定时器的       Interval      属性设置。

17．一般可使用      Const     关键字声明常量。

18．全局变量在整个应用程序中有效，一般在标准模块中使用    Public    语句声明。

19．一个工程可以包括多种类型的文件，其中，扩展名为.vbp的文件表示

工程     文件；扩展名为.frm的文件表示    窗体     文件；扩展名为.bas的文件表示    标准模块     文件；包含ActiveX控件的文件扩展名为    .OCX     。

20．Dim i As Integer，则运行时变量i的初始值是      0       。

21．数学关系8≤x<30表示成正确的VB表达式为 8<=x AND x<30    。

22．Winsock控件主要用来编制    TCP/IP     或     UDP   协议的通话程序。

23. 如果Winsock1.LocaPort=0,那么应用程序将        使用随机端口         。

三、阅读程序题 

24. Function F(a As Integer)

   b =3

   Static c

   b = b + 1

   c = c + 1

   F = a + b + c

End Function

Private Sub Command1_Click()

  Dim a As Integer

  a = 2

  For i = 1 To 3

    Print F(a)

  Next i

End Sub

写出程序运行时，单击命令按钮在窗体上的输出结果。

24.答案：

7

8

9

25. 阅读下面的程序，写出单击窗体后的运行结果。

Sub Change(ByVal x As Integer, ByVal y As Integer)

   Dim t As Integer

   t = x

   x = y

   y = t

   Print x, y

End Sub

Private Sub Form_Click()

  Dim a As Integer, b As Integer

  a = 3: b = 4

Change a, b

  Print a, b

End Sub

25.答案：

4      3

3         4

四、应用题

26. 设计一个计算程序，该程序用户界面如图所示，由四个文本框：Text1、 Text2、 Text3、 Text 4和三个按钮：Command 1、Command 2、Command 3组成，程序运行后，用户按清除按钮，则清除文本框中显示的内容，按计算按钮，则计算三科平均成绩，单击退出按钮则退出。

    Private Sub Command1_Click()

      Text1.Text = [1]          [1]                                       

      Text2.[2] = ""            [2]                                      

      [3].Text = ""             [3]                                      

    End Sub

    Private Sub Command2_Click()

      If Text1.[4]="" OR Text2.Text=[5] OR Text3.text="" Then  [4]                                      

        MsgBox "成绩输入不全！"  [5]                                       

      Else

        Text4.Text=([6]+Val(Text2.Text)  [6]                       

       +Val(Text3.Text))/[7]             [7]                                  

      End[8]                             [8]                                   

    End Sub

    Private Sub Command3_Click()

      Unload[9]              [9]                                   

    [10]Sub                  [10]                        

26.参

2) “ ”

3)Text

4)Text3

5)Text

6)“ ”

7)Val(Text1.Text)

8)3

9)If

10)me

11)End