VB程序设计试题及答案.doc

VB程序设计期末模拟试题及答案
《VB》期末复习题及答案
 综合复习题
一、填空题
1．创建一个VB应用程序三个主要的步骤是_创建应用程序界面_、_设置属性_和_编写代码_。
2．当程序运行时，要求窗体中的文本框呈现空白，则在设计时，应当在此文本框的_属性__窗口中，把此文本框的_text_属性设置成空白。
3．Label和TextBox控件用来显示和输入文本，如果仅需要让应用程序在窗体中显示文本信息，可使用__Label___控件；若允许用户输入文本，则应使用_TextBox__控件。
4．窗体的常用方法有__Load方法__、_show方法_、 Hide方法__和_Unload方法_。
5．要想在代码中给名为txtshow的文本框赋予文本：GOOD WORK ，应当编写的语句是_Txtshow.Text="GOOD WORK"_。
6．若命令按钮的名称为Cmdopen，程序要求单击该命令按钮时，打开一个窗口frm1，请对以下事件过程填空。
Private Sub Cmdopen_ Click()___
__Frm1.show__
End Sub
7．Visual Basic 6种类型的表达式是_数算表达式____、__字符串表达式_、__关系表达式__、
__布尔表达式__、___日期表达式__、___对象表达式_。Visual Basic根据表达式的__运算符_来确定表达式的类型。
8．表达式93 \ 7 Mod 2 ^ 2 的值是______1_____。
9．已知a=3，b=4，c=5，表达式a>b and Not c>a Or c>b And c<a+b的值是___True______。表达式c>a And Not b<c的值是__False__。
10．日期表达式 #2/24/02# - #2/12/02# 的值为___12___。
11．数学表达式sin2x+ 写成等价的Visual Basic表达式为__Sin(x) ^ 2 + Sqr(x ^ 2 - y ^ 2) / (2 * x)___。
12．设某个程序中要用到一个二维数组，要求数组名为A，类型为字符串类型，第一维下标从1到5，第二维下标从-2到6，则相应的数组声明语句为___Dim A(1 To 5，-2 To 6) As String__。
13．事件就是在对象上所发生的事情，Visual Basic中的事件如_单击_、__双击_、__装载__等。一个对象响应的事件可以有__多_个，用户不能建立新的事件。事件过程是指_响应某个事件后所执行的程序代码__。假设某一事件过程如下：
Private Sub cmd1_Click()
   Form1.Caption="VB示例"
End Sub
则响应该过程的对象名是_cmd1_，事件名是__click_。
14．对象的方法用于__完成某种特定的功能__。当方法不需要任何参数并且也没有返回值时，调用对象的方法的格式为__对象名.方法名__，例如，对窗体Form1使用Show方法，应写成_Form1.show。
15．PictureBox控件可通过设置其_autosize_属性为True使之可自动调整大小；而Image控件可通过设置其_stretch_属性为True，使其加载的图片能自动调整大小以适应Image。
16．在Visual Basic程序中实现复制文件“c:\”到d:盘根目录下的语句为_FileCopy "c:\"，"d:\"_。
二、单项选择题
1．下列控件中没有Caption属性的是（   B   ）
A、标签       B、文本框         C、框架        D、命令按纽
2．除框架外，能对单选按纽分组的控件是（   C ）。
A、窗体        B、标签     C、图片框        D、图像
3．下列符号不能作为VB中变量名的是（  C  ）。
      A 、 ABCDEFG     B、 P00000      C、 89YWDDF     D、xyz
4． 下列不属于Visual Basic数据文件的是（  D  ）。
A、顺序文件     B、随机文件      C、二进制文件       D、数据库文件
5．若要求从文本框中输入密码时在文本框中只显示*号，则应用在此文本框的属性窗口中设置（  D  ）
A、Text属性值为*         B、Caption属性值为*
C、Password属性值为空    D、PasswordChar属性值为*
6．表达式2*3^2+2*8/4+3^2的值为（   B  ）。
     A、64       B、31         C、49        D、42
7．表达式mid("abcdefg",3,2)的值是（   B   ）
A、abc   B、cd        C、bcd       D、abcde
8．数学表达式Sin25°写成VB表达式是（ D   ）。
A、Sin25       B、Sin（25） C、Sin（25°）      D、Sin（25*3.14/180）
9．Sub过程与 Function过程最根本的区别是（  D  ）。
A、Sub过程可以使用Call语句或直接使用过程名调用，而Function过程不可以。
B、Function过程可以有参数，Sub过程不可以。
C、两种过程参数的传递方式不同。
D、Sub过程的过程名不能返回值，而Function过程能够通过过程名返回值。
10．选拔身高T超过1.7米且体重W小于62.5公斤的人，表示该条件的布尔表达式为（  C  ）
A、T>=1.7 And W<=62.5             B、T<=1.7 Or W>=62.5
C、T>1.7 And W<62.5               D、T>=1.7 Or W<62.5
11.下列对象不能响应 Click事件的是（ D   ）
    A、列表框       B、图片框           C、窗体          D、计时器
12．在Visual Basic中，按文件的访问方式不同，可以将文件分为（ A    ）
A、顺序文件、随机文件和二进制文件         B、文本文件和数据文件
C、数据文件和可执行文件                   D、ASCⅡ文件和二进制文件
13．将通用对话框CommonDialog的类型设置成“颜色”对话框，可调用该对话框的（  C  ）方法。
A、ShowOpen      B、ShowSave        C、ShowColor        D、ShowFont
三、指出下列句中的错误，修改或者说明原因。
1．sum和int.sum都可以作为VB的变量名。int.sum 不正确。变量名中不能包括小数点。
2．变量名的长度最长可达1024个字符。变量名的长度最长可达255个字符。
3．下列程序运行结果：3，3
Option Explicit
Private Sub Command1_Click()
Dim a，b As Integer
a = 3.6
b = 3.6
Text1.Text = a
Text2.Text = b
End Sub 3.6 ， 4,因为a 不是整型变量。
4．程序可以改变定长字符串的内容和长度。 不正确。程序不可以改变字符的长度，这是VB规定。
5．Variant是一种特殊的数据类型，可以包含任何种类型的数据。
不完全正确。Variant是一种特殊的数据类型，除了定长字符串数据及用户定义类型外，可以包含任何种类型的数据，这是VB规定。
6．下列程序运行结果为True
    Private Sub Command1_Click()
a = 1
b = 2
c = 3
Text1.Text = c > a + b Or b - 1 > c - 1 And c + a > a Xor b < c - 2
End Sub False 。逻辑表达式计算结果。
7．#12/31/1999# - #12/20/1999#的运算结果是#12/11/1999#
不正确。两个日期型数据相减，其结果是一个数值型数据。
8．可以在窗体的通用部分声明静态变量。不正确。静态变量为局部变量，只能在过程中声明。
9． 使用声明语句建立一个变量后，Visual Basic会自动对数值类型的变量赋初值0，变长的字符串被初始化为一个零长度的字符串""，定长字符串用空格填充，Variant变量被初始化为 Empty，布尔型的变量被初始化为False。
10．事件过程通常由事件驱动执行，而Sub过程通过过程调用执行。
11．将焦点主动设置到指定的控件或窗体上应采用SetFocus方法。
12．当图像控件（Image）的Stretch属性为True时，Image控件能自动调整自己的尺寸与显示的图片匹配。 不正确。该属性设为Ture时，Image控件不能自动调整自己的尺寸与显示的图片匹配，而可以使图片自动扩展以适应控件的尺寸。
1．程序运行后，单击窗体，输出结果为：
1
1 2 1
1 2 3 2 1
1 2 3 4 3 2 1
1 2 3 4 5 4 3 2 1
1 2 3 4 5 6 5 4 3 2 1
1 2 3 4 5 6 7 6 5 4 3 2 1
1 2 3 4 5 6 7 8 7 6 5 4 3 2 1
1 2 3 4 5 6 7 8 9 8 7 6 5 4 3 2 1

四、读程序题，写出程序运行结果。
1．Private Sub Form_Click()
    For I = 1 To 9
        For j = 1 To 30 - 3 * I
            Print " ";
        Next j
        For k = 1 To I
           Print k;
        Next k
        For k = I - 1 To 1 Step -1
            Print k;
        Next k
        Print
    Next I
End Sub
2．
Option Explicit
Private Sub Command1_Click()
     Static S As Integer
     Dim i As Integer
     S = 1
     For i = 1 To 5
        S = S * i
     Next i
     Print S
End Sub 程序运行后，单击按钮Command1，输出结果为：120。
3 *
     **
     ***
     ****
     *****

3．
    For X = 5 To 1 Step -1
      For Y = 1 To 6 - X
        Print Tab(Y + 5); "*";
      Next Y
      Print
Next X
aabb          -30           False
aabb-30 False
30+60          90
30+60 90

4．
   Private Sub Form_Activate()
Print "aa" & "bb",-5 * 6,Not 2 <= 3
Print "aa" & "bb"; -5 * 6; Not 2 <= 3
Print
Print "30+60",
Print 30 + 60
？
？"30+60"; 30 + 60
End Sub
5．
X=1
Do While X<=10
If X Mod 7 =0 Then
Y = X + 6
Else
Z = X
End If
X = X + 2
Loop
Print X,Y,Z 11            13            9
五、编程题
1．设计一个计算程序。该程序用户界面如图所示，由四个文本框：文本框1（text1）、文本框2（text2）、文本框3（text3）、文本框4（text4），和三个按钮：命令按钮1（command1）、命令按钮2（command2）、命令按钮3（command4）组成。程序运行后，用户单击清除按钮，则清除文本框中显示的内容。单击计算按钮，如果成绩填写不完全，则给出提示信息，否则计算三科平均成绩。单击退出按钮则退出。
Private Sub Command1_Click()
    Text1.Text = ""
    Text2.Text = ""
    Text3.Text = ""
    Text4.Text = ""
End Sub
Private Sub Command2_Click()
    a = Trim(Text1.Text)
    b = Trim(Text2.Text)
    c = Trim(Text3.Text)
    If a = "" Or b = "" Or c = "" Then
        MsgBox "成绩填写不完全！", vbCritical
    Else
        Text4.Text = (Val(a) + Val(b) + Val(c)) / 3
    End If
End Sub
Private Sub Command3_Click()
    Unload Me
End Sub
2． 设计程序。要求：从文本框Text1中接收输入的数据，当单击确定按钮（command1）时，如果该数据满足条件：除以3余2，除以5余3，除以7余4，则输出；否则将焦点定位在文本框Text1中，选中其中的文本。
Private Sub Command1_Click()
    x = Val(Text1.Text)
    If x Mod 3 = 2 And x Mod 5 = 3 And x Mod 7 = 4 Then
        Print x
    Else
        Text1.SetFocus
        Text1.SelStart = 0
        Text1.SelLength = Len(Text1.Text)
    End If
End Sub
3． 设计一个欢迎程序。该程序用户界面如图所示。要求程序运行后，用户选中粗体复选框时，标签（Label1）中的文字（欢迎您！）的字体变成粗体，用户选中斜体复选框时，标签的字体变成斜体。若取消选中，则恢复原字体。单击结束，则退出。
4.任意输入3个数，求大小排第二的那个数，写出程序代码。
a = Val(InputBox("输入第一个数："))
b = Val(InputBox("输入第二个数："))
c = Val(InputBox("输入第三个数："))
If a < b Then t = a: a = b: b = t
If a < c Then t = a: a = c: c = t
If b < c Then t = b: b = c: c = t
MsgBox ("求大小排第二的数是：" & b) 

Private Sub Check1_Click()
    If Check1.Value = 1 Then
        Label1.Font.Bold = True
    Else
        Label1.Font.Bold = False
    End If
End Sub
Private Sub Check2_Click()
     If Check2.Value = 1 Then
        Label1.Font.Italic = True
    Else
        Label1.Font.Italic = False
    End If
End Sub
Private Sub Command1_Click()
    Unload Me
End Sub