VB程序设计试题及答案

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． For X = 5 To 1 Step -1 For Y = 1 To 6 - X
应的事件可以有_多__个，用户不能建立新的事件。事件过程是指___响应某个事件后所执行的程序代码___。假设某一
事件过程如下：
Private Sub cmd1_Click()
Form1.Caption="VB 示例"
End Sub
则响应该过程的对象名是__ cmd1 ___，事件名是_ Click _。
4． 下列不属于 Visual Basic 数据文件的是（ D ）。
A、顺序文件 B、随机文件 C、二进制文件
D、数据库文件
5．若要求从文本框中输入密码时在文本框中只显示*号，则应用在此文本框的属性窗口中设置（ D ）。
A、Text 属性值为*
B、Caption 属性值为*
C、Password 属性值为空 D、PasswordChar 属性值为*
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 1 121 12321 1234321 123454321 12345654321 1234567654321 123456787654321 12345678987654321 2． Option Explicit Private Sub Command1_Click()
9．Sub 过程与 Function 过程最根本的区别是（ D ）。
A、Sub 过程可以使用 Call 语句或直接使用过程名调用，而 Function 过程不可以。
B、Function 过程可以有参数，Sub 过程不可以。
C、两种过程参数的传递方式不同。
D、Sub 过程的过程名不能返回值，而 Function 过程能够通过过程名返回值。
__text__属性设置成空白。
3．Label 和 TextBox 控件用来显示和输入文本，如果仅需要让应用程序在窗体中显示文本信息，可使用_Label___控
件；若允许用户输入文本，则应使用__TextBox__控件。
4．窗体的常用方法有__．Load 方法 Show 方法 Hide 方法
Unload 方法__。
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）
双击自动滚屏
VB 程序设计期末模拟试题及答案
发布者：汤中艮 发布时间：2009-12-7 阅读：1639 次
《VB》期末复习题及答案
综合复习题
一、填空题
1．创建一个 VB 应用程序三个主要的步骤是_创建应用程序界面_、__设置属性___和_编写代码_______。
2．当程序运行时，要求窗体中的文本框呈现空白，则在设计时，应当在此文本框的__属性__窗口中，把此文本框的__
一个数值型数
8．可以在窗体的通用部分声明静态变量。 ．不正确。静态变量为局部变量，只能在过程中声明。
9．使用声明语句建立一个变量后，Visual Basic 会自动对数值类型的变量赋初值 0，变长的字符串被初始化为一个零
长度的字符串""，定长字符串用空格填充，Variant 变量被初始化为 Empty，布尔型的变量被初始化为 False。 T
过设置其____ Stretch _______属性为 True，使其加载的图片能自动调整大小以适应 Image。
16．在 Visual Basic 程序中实现复制文件“c:\command.com”到 d:盘根目录下的语句为__．FileCopy "c:\comma
nd.com"，"d:\command.com" ___。
二、单项选择题
1．下列控件中没有 Caption 属性的是（B ）
A、标签
B、文本框
C、框架
D、命令按纽
2．除框架外，能对单选按纽分组的控件是（ C ）。
A、窗体
B、标签 C、图片框
D、图像
3．下列符号不能作为 VB 中变量名的是（ C ）。
A 、 ABCDEFG B、 P00000 C、 89YWDDF D、xyz
答案 ：
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)
3．下列程序运行结果：3，3
3.6 ， 4 因为 a 不是整型变量。
4．程序可以改变定长字符串的内容和长度。 ．不正确。程序不可以改变字符的长度，这是 VB 规定
5．Variant 是一种特殊的数据类型，可以包含任何种类型的数据。 不完全正确。Variant 是一种特殊的数据类型，除
了定长字符串数据及用户定义类型外，可以包含任何种类型的数据，这是 VB 规定。
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) IΒιβλιοθήκη Baidu 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）中的文 字（欢迎您！）的字体变成粗体，用户选中斜体复选框时，标签的字体变成斜体。若取消选中，则恢复原字体。单击结 束，则退出。 答案: Private Sub Check1_Click() If Check1.Value = 1 Then Label1.Font.Bold = True Else
（text3）、文本框 4（text4），和三个按钮：命令按钮 1（command1）、命令按钮 2（command2）、命令按钮
3（command4）组成。程序运行后，用户单击清除按钮，则清除文本框中显示的内容。单击计算按钮，如果成绩填写
不完全，则给出提示信息，否则计算三科平均成绩。单击退出按钮则退出。
A、列表框
B、图片框
C、窗体
D、计时器
12．在 Visual Basic 中，按文件的访问方式不同，可以将文件分为（ A ）
A、顺序文件、随机文件和二进制文件
B、文本文件和数据文件
C、数据文件和可执行文件
D、ASCⅡ文件和二进制文件
13．将通用对话框 CommonDialog 的类型设置成“颜色”对话框，可调用该对话框的（ C ）方法。
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
A、ShowOpen B、ShowSave
C、ShowColor
D、ShowFont
三、指出下列句中的错误，修改或者说明原因。
1．sum 和 int.sum 都可以作为 VB 的变量名。 ．int.sum 不正确。变量名中不能包括小数点。
2．变量名的长度最长可达 1024 个字符。
变量名的长度最长可达 255 个字符。
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 ）
aabb
-30
False
aabb-30 False
30+60
90
30+60 90
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
12．设某个程序中要用到一个二维数组，要求数组名为 A，类型为字符串类型，第一维下标从 1 到 5，第二维下标从-2
到 6，则相应的数组声明语句为____．Dim A(1 To 5，-2 To 6) As String _。
13．事件就是在对象上所发生的事情，Visual Basic 中的事件如__单击__、___双击__、__装载___等。一个对象响
5．要想在代码中给名为 txtshow 的文本框赋予文本：GOOD WORK ，应当编写的语句是_．txtshow.text="GOO
D WORK____________。
6．若命令按钮的名称为 Cmdopen，程序要求单击该命令按钮时，打开一个窗口 frm1，请对以下事件过程填空。
Private Sub Cmdopen_ _．Click()、frm1.show___
10．事件过程通常由事件驱动执行，而 Sub 过程通过过程调用执行。T
11．将焦点主动设置到指定的控件或窗体上应采用 SetFocus 方法。T 12．当图像控件（Image）的 Stretch 属性为 True 时，Image 控件能自动调整自己的尺寸与显示的图片匹配。 不正确。该属性设为 Ture 时，Image 控件不能自动调整自己的尺寸与显示的图片匹配，而可以使图片自动扩展以适应 控件的尺寸。 四、读程序题，写出程序运行结果。 1．Private Sub Form_Click()
6．下列程序运行结果为 True
False 。逻辑表达式计算结果
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
7．#12/31/1999# - #12/20/1999#的运算结果是#12/11/1999# 不正确。两个日期型数据相减，其结果是
Print Tab(Y + 5); "*"; Next Y Print Next X * ** *** **** ***** 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
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)。
14．对象的方法用于_完成某种特定的功能__。当方法不需要任何参数并且也没有返回值时，调用对象的方法的格式为
_对象名.方法名_____，例如，对窗体 Form1 使用 Show 方法，应写成___ Form1.Show _。
15．PictureBox 控件可通过设置其__．AutoSize ________属性为 True 使之可自动调整大小；而 Image 控件可通