VB程序设计试题及复习资料一
VB程序设计试题及答案（一）
一、单选题
1. VB6.0是一种面向 B 的编程环境。
(A) 机器(B) 对象
(C) 过程 (D) 应用
2. 要使FormI窗体的标题栏显示"欢迎使用VB"，以下 D 语句是正确的。
(A) Forml.Caption=“欢迎使用VB”
(B) Forml.Caption='欢迎使用VB'
(C) Forml.Caption=欢迎使用VB
(D) Forml.Caption="欢迎使用VB"
3. 若要使命令按钮不可操作，要对 A 属性进行设置。
(A) EnabIed (B)Visible
(C) Backcolor (D)Caption
4. 如果在窗体上已经创建了一个文本框对象TextI，可以通过 C 事件获得输入键值的ASCII码。
(A) Change (B) LostFocus
(C) KeyPress (D) GotFocus
5. 下面 A 是合法的变量名。
(A) X_yz (B) 123ab。(C) integer (D) X-Y
6. 以下关系表达式中，其值为False的是 A 。
(A) "ABC">"AbC" (B) "女">"男"
(C) "BASIC"=UCase("basic) (D) "123"<"23"
7. 为了给x、y、z三个变量赋初值1，下面正确的赋值语句是 A 。
(A) x=1:y=1:z=1 (B) x=1,y=1,z=1
(C) x=y=z=1 (D) xyz=1
8. VB提供了结构化程序设计的三种基本结构，三种基本结构
是 D 。
(A)递归结构、选择结构、循环结构
(B)选择结构、过程结构、顺序结构
(C)过程结构、输入输出结构、转向结构
(D)选择结构、循环结构、顺序结构
9. 下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是 D 。
(A) If sex="男" And age=4O And InStr(duty，"教授")>O Then n=n+l
(B) If sex="男" And age=4O And (duty="教授" Or duty="副教授") Then n=n+l
(C) If sex="男" And age=4O And Right(duty，2)="教授" Then n=n+l
(D) If sex="男" And age=4O And duty="教授" And duty="副教授" Then n=n+l
10.下列关于Do…Loop循环结构执行循环次数的描述正确的是 D 。
(A) Do While…L oop循环和Do…Loop Until循环至少都执行一次
(B) Do While…Loop循环和Do…Loop Until循环可能都不执行
(C) Do While…Loop循环至少执行一次和Do…Loop Until循环可能不执行
(D) Do While…Loop循环可能不执行和Do…Loop Until循环至少执行一次
11.以下 B 是正确的For…Next结构。
(A) For x=1 To Step 10 (B) For x=3 To -3 Step -3
……
Next x Next x
(C) For x=1 To 10 (D) For x=3 to 10 step 3
re: ……
Next x Next y
If i=10 Then GoTO re
12.如下数组声明语句， B 是正确的。
(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
13.下列语句中（假定变量n有值），能正确声明可变长数组的
是 A 。
(A) Dim a( ) As Integer (B) Dim a( ) As Integer
ReDim a(n) ReDim a(n) As String (C) Dim a( ) As Integer (D) Dim a(10) As Integer ReDim a(3, 4) ReDim a(n+10)
ReDim Preserve a(4, 4)
14.要想从子过程调用后返回两个结果，下面子过程语句说明合法的是 C 。
(A) Sub f2(ByVal n%, ByVal m%) (B) Sub f1(n%, ByVal m%)
(C) Sub f1(n%, m%) (D) Sub f1(ByVal n%, m%)
15.设有如下程序段：
Public Sub F1(n%)
…
n=3*n+4
…
End Sub
Private Sub Command1_Click( )
Dim n%, m%
n=3
m=4
…
‘调用F1语句
…
End Sub
则在Command1_Click事件中有效的调用语句是 B 。
(A) Call F1(n+m) (B) Call F1(m) (C) Call
F1(5) (D) Call F1(m+5)
16.用来设置粗体字的属性是 C 。
(A) FontItalic (B) FontName (C)
FontBold (D) FontSize
17.假定定时器的Interval属性为1000，Enabled属性为True，调用下面的事件过程，程序运行结束后变量x的值为 D 。
Dim x As Integer
Sub Timer1_Timer( )
For i=1 to 10
x=x+1
Next i
End Sub
(A) 1000 (B) 10000 (C) 10 (D) 以上都不对
18.在下列关于通用对话框的叙述中，错误的是 B 。
(A) CommonDialog1.ShowFont显示“字体”对话框
(B) 在“打开”或“另存为”对话框中，用户选择的文件名可以经属性返回
(C) 在“打开”或“另存为”对话框中，用户选择的文件名机器路径可以经属性返回
(D)
19.当用户按下并且释放一个键后会触发KeyPress、KeyUp和KeyDown 事件，这三个事件发生的顺序是 C 。
(A) KeyPress、KeyDown、KeyUp
(B) KeyDown、KeyUp、KeyPress
(C) KeyDown、KeyPress、KeyUp
(D) 没有规律
20.在下面关于顺序文件的描述中，正确的是 C 。
(A) 顺序文件中每行的长度都是相同的。
(B) 可以通过编程对文件中的某行方便地进行修改
(C) 数据以ASCII码的形式存放在文件中，所以可通过记事本打开
(D) 文件的组织结构复杂
21.随机文件是因为 C 。
(A) 文件中的内容是通过随机数产生的
(B) 文件中的记录号通过随机数产生的
(C) 可对文件中的记录根据记录号随机地读/写
(D) 文件的每条记录的长度是随机的
22.从磁盘上读入一个文件名为“c:\t1.t xt”顺序文件，如下 A 正确。
(A) F=“c:\t1.txt”
Open F For Input As #1
(B) F=“c:\t1.txt”
Open “F” For Input As #2
(C) Open “c:\t1.txt” For Input As #1(D) Open c:\t1.txt For Input As #2
23.坐标度量单位可由通过来 D 改变。
(A)Drawstyle属性(B) DrawWidth属性
(C) Scale方法(D) ScaleMode属性
24.指令“Circle (1000, 1000), 500, 8, -6, -3”将绘制 A 。
(A) 画圆(B) 椭圆(C) 圆弧(D) 扇形
25.用ADO数据控件建立与数据源的链接，设置操作过程按 A 顺序进行。
①选择数据源连接方式；②选择数据库类型；③指定数据库文件名；
④指定记录源
(A) ①②③④(B) ②③④①
(C) ③①②④(D) ①③②④
二、填空题
1．VB是建立在BASIC语言基础上的可见化编程语言或编程环境。
2．在窗体上已建立多个控件如Text1、Label1、Command1，若要程序一运行时焦点就定位在Command1控件上，应对Command1控件设
置TabIndex 属性的值为0 。
3．在VB中，1234、123456&、1.2346E+5、1.2346D+5这4个常数分别表示整形、长整形、单精度、双精度类型。4．表示x是5的倍数或是9的倍数的逻辑表达式为x mod 5 = 0 or x mod 9=0 。
5．数组声明时下标下界默认为0，利用Opation Base 1 语句可以使下标为1。
6．传地址方式是当过程被调用时，形参和实参共享存储单元。7．窗体中的模块级变量应在窗口模块段声明，它作用于该窗体的全局范围。
8．当用户单击滚动条的空白处时，滑块移动的增量值
由LargeChange 属性决定。
9．如果菜单标题的某个字母前输入一个“&”符号，那么该字母就成了热键字母；如果建立菜单时在标题文本框中输入一个“- (减号) ”符号，那么显示时形成一个分隔符。
10．使用Scale 方法可以自定义坐标系。
11．使用Line方法画矩形，不许在指令中使用关键字 B 。12．使用SQL语句设置ADO控件的RecordSource属性，这CommandType属性需要设置成1(adCmdText)或者(adCmdUnknown) 。
13．为了显示一个窗体，所使用的方法为show；而为了隐藏一个窗体，所使用的方法为__Hide_____。
14．如果要将某个命令按钮不显示，则可将___Visible________属性设置为False
15．在VB中窗体文件的扩展名为_____.FRM______。
三、编程应用题
1.程序阅读，写出下列程序的运行结果。
(1)
Private Sub Command1_Click( )
Dim a, i%, min%, imin%, sum%, t%
a=Array(26, 43, 61, 87, 33, 19, 37, 59, 76, 69)
min=a(0): imin=0: sum=a(0)
For i=1 to UBound(a)
sum=sum+a(i)
If a(i)< min Then min=a(i): imin=i
Next i
t=a(0): a(0)=a(imin): a(imin)=t
Print sum; a(0)
End Sub
输出结果：
510 19
(2)
Private Sub Command1_Click( )
Dim ch as String*1
ch=＂8＂
If UCase(ch)>= ＂A＂And UCase<=＂Z＂Then VB程序设计试题及答案（二）
一、单选题
1. VB6.0集成开发环境不包括 A 窗口。
(A) DOS界面窗口(B) 窗体窗口
(C) 代码窗口(D) 属性窗口
2. 有程序代码如下: C
Tex1.Text=" Tex1.Text "
则Tex1、Text、" Tex1.Text "分别代表
(A) 对象、值、属性 (B) 对象、方法、属性
(C) 对象、属性、值 (D) 属性、对象、值
3. 下面关于对象的描述中， A 是错误的。
(A) 对象就是自定义结构变量
(B) 对象代表正在创建的系统中的一个实体
(C) 对象是一个特征和操作的封装体
(D) 对象之间的信息传递是通过消息进行的
4. 要使某控件在运行时不可显示，应对 B 属性进行设置。
(A) EnabIed (B) Visible
(C) Backco lor (D) Caption
5. 与数学表达式对应，不正确的VB算术表达式是 D 。
(A) a*b/(3*c*d) (B) a/3*b/c/d
(C) a*b/3/c/d (D) a*b/3*c*d
6. InputBox函数返回值的类型是 B 。
(A) 整型数值(B) 字符串(C) 变体（D）数值或字符串
7. 下面正确的赋值语句是 C 。
(A) x+y=30 (B) y= *r*r
(C) y=x+30 (D) 3y=x
8. 下面程序段运行后，显示的结果是 C 。
Dim x
If x Then Print x Else Print x+1
(A)l (B)O (C)-1 (D)显示出错信息
9. 下面程序段，运行后显示的结果是 A 。
Dim x
x=Int(Rnd)+5
Select Case x
Case 5
Print "优秀"
Case 4
Print "良好"
Case 3
Print "通过"
CaseE Else
Print "不通过"
EndSelect
(A) 优秀(B) 良好(C) 通过 (D) 不通过
10.下列循环结构能正常结束循环的是 C 。
(A) i=5 (B) i=1
Do Do
i=i+1 i=i+2
Loop Until i<0 Loop Until i=10 (C) i=10 (D) i=6
Do Do
i=i+1 i=i-2
Loop Until i>0 Loop Until i=1
11.下面的程序段的运行结果为多少？D
Private Sub Command1_Click( )
For i=1 to 5
n=0
For j=i to 5
n=n+1
Next j
Next i
Print n
End Sub
(A) 10 (B) 5 (C) 15 (D) 1
12.要分配存放如下矩阵的数据， C 数组声明语句能实现（不浪费空间）。
1.1
2.2
3.3
4.4
5.5
6.6
7.7 8.8 9.9
(A) Dim a(9) As Single
(B) Dim a(3,3) As Single
(C) Dim a(-1 to 1, -5 to -3) As Single
(D) Dim a(-3 to -1, 5 to 7) As Integer
13.在窗体的通用声明段自定义了数据类型Students，下列 A 定义方式是正确的。
(A) Private Type Students (B) Type Students
Name As Sting*10 Name As Sting*10
Studno As Integer Studno As Integer
End Type End Students (C) Type Students (D) Type Students
Name String*10 Name As Sting*10
Studno Integer Studno As Integer
End Type End Type
14.下面子过程说明合法的是 D 。
(A) Sub f1(ByVal n%( ) ) (B) Sub f1(n%) As Integer
(C) Function f1%(f1%) (D) Function f1(ByVal n%)
15.下面过程运行后显示的结果是 C 。
Private Sub F1(m%, ByVal m%)
n=n Mod 10
m=m\10
End Sub
Private Sub Command1_Click( )
Dim x%, y%
x=12: y=34
Call F1(x, y)
Print x, y
End Sub
(A) 2 34 (B) 12 34 (C) 2 3 (D) 12 3
16.下列控件中，没有Caption属性的是 D 。
(A) 框架(B) 列表框(C) 复选框(D) 单选按钮
17.在用菜单编辑器设计菜单时，必须输入的项有 B 。
(A) 快捷键(B) 标题(C) 索引(D) 名称
18.以下正确的语句是 D 。
(A) CommonDialog1.Filter=All
Files|*.*|Pictures(*.Bmp)|(*.Bmp)
(B) CommonDialog1.Filter=”All
Files”|”*.*”|”Pictures(*.Bmp)”|”(*.Bmp)”
(C) CommonDialog1.Filter=”All
Fi les|*.*|Pictures(*.Bmp)|(*.Bmp)”
(D) CommonDialog1.Filter={All
Files|*.*|Pictures(*.Bmp)|(*.Bmp)}
19.如果Form1是启动窗体，并且Form1的Load事件过程中有语句Form2.Show，则程序启动后 D 。
(A) 发生一个运行时错误
(B) 发生一个编译错误
(C) 在所有的初始化代码运行后Form1是活动窗体
(D) 在所有的初始化代码运行后Form2是活动窗体
20.按存储信息的形式分类，文件可以分为 B 。
(A) 顺序文件和随机文件(B) ASCII文件和二进制文件
(C) 程序文件和数据文件(D) 磁盘文件和打印文件
21.下面关于随机文件的描述不正确的是 B 。
(A) 每条记录的长度必须相同
(B) 一个文件中记录号不必唯一
(C) 可通过编程对文件中的某条记录方便地修改
(D) 文件的组织结构比顺序文件复杂
22.为了建立一个随机文件，其中每一天记录由多个不同数据类型的数据项组成，应使用 C 。
(A) 记录类型(B) 数字(C) 字符串类型(D) 变体类型
23.当使用Line方法画直线后，当前坐标在。C
(A) (0, 0) (B) 直线起点(C) 直线终点(D) 容器的中心
24.命令按钮、单选按钮、复选框上都有Picture属性，可以在控件上显示图片，但需要通过属性 B 来控制
(A) Appearance (B) Style
(C) DisabledPicture (D) DownPicture
25.设置ADO数据控件RecordSource属性为数据库中的单个表名，则CommandType属性需设置为 B 。
(A) adCmdText (B) adCmdTable
(C) adCmdStoreProc (D) adCmdUnknown
二、填空题
1．对文本框的ScrollBars属性设置为2（有垂直滚动条），但没有垂直滚动条显示，是因为没有将MultiLine 属性设置为True。
2．对命令按钮的Picture属性装入.bmp图形文件后，选项按钮上并没有显示所需的图形，原因是没有将Style 属性设置为1（Graphical）。
3．Int(-3.5)、Int(3.5)、Fix(-3.5)、Fix(3.5)、Round(-3.5)、Round(3.5)的值分别
为 4 、 3 、-3 、 3 、-4 、 4 。4．若定义一维数组为：Dim a(N to M)，则该数组的元素
为M-N+1 个。
5．按如下要求书写函数过程定义的首语句，即Function MyF(a as int,b(n)as int) 定义语句，要求为：形参有两个a为整型，b为一位整型数组，函数过程名为MyF，函数返回值为逻辑型。
6．滚动条产生Change事件是因为Value 值改变了。
7．如果要每隔15s产生一个计时器事件，则Interval属性应设置
为15000 。
8．在VB中，除了可以指定某个窗体作为启动对象之外，还可以指
定Main子过程作为启动对象。
9．用Show方法显示自定义对话框时，如果Show方法后
带 vbModal 参数就将窗体作为模式对话框显示。
10．容器的实际可用高度和宽度由右和上属性确定。11．使用Circle方法正向采用逆时针方向。
12．启动窗体时，为了初始化窗体中的各控件，可选作窗体的
____load_____事件。
13．结构化程序设计中，三种基本结构是___分支结构______、__顺序结构______和循环结构。
三、编程应用题
1.程序阅读
(1)Private Sub Command1_Click()
Dim x() As Integer
Dim n%, i%
n = 10
ReDim x(n - 1)
x(0) = 1
x(1) = 1
For i = 2 To n - 1
x(i) = x(i - 1) + x(i - 2)
Next i
For i = 0 To n - 1
Print x(i),
If (i + 1) Mod 5 = 0 Then Print
Next
End Sub
输出结果：
1 1
2 3
8 13 21 34
(2) Public Function f(m%, n%)
Do While m< >n
Do While m> n: m=m-n: Loop
Do While m< n: n=n-m: Loop
Loop
f=m
End Function
Private Command1_Click( )
Print f(24, 18)
End Sub
输出结果：6
(3)
Public x as Integer
Private Sub Fomr_Click( )
Dim x as Integer
x=10
print ＂x=＂;x
End Sub
输出结果: x=10
2.补充程序
(1)以下是冒泡法排序的程序，要求将数组里的数按升序排列，将其补充完整。
Private Sub Command1_Click()
Dim a(), iMin%, n%, i%, j%, t%
a = Array(8, 6, 9, 3, 2, 7)
n = ubound(a) ' 获得数组的下标上界
For i = 0 To n - 1
For j = 0 To n-i-1
If a(j)>a(i) Then
t = a(j): a(j) = a(j + 1): a(j + 1) = t
End If
Next j
Next i
For i = 0 To n
Print a(i);
Next i
End Sub
(2) 用递归的方法求n!
Private Sub Command1_Click()
Print "fac(4)="; fac(4)
End Sub
Public Function fac As Integer
If n = 1 Then
fac = 1
Else
Fac=fac*n
End If
End Function
VB程序设计试题及答案（三）
一、单选题
1. Visual Basic是一种面向对象的可视化程序设计语言，采取
了 A 的编程机制。
(A) 事件驱动(B) 按过程顺序执行
(C) 从主程序开始执行(D) 按模块顺序执行
2. 若要使标签控件显示时不覆盖其背景内容，要对 D 属性进行设置。
(A) Backcolor (B) BorderStyle
(C) Forecolor (D) Backstyle
3. 在Visual Basic中最基本的对象是 C ，它是应用程序的基石，是其他控件的容器。
(A) 文本框(B) 命令按钮
(C) 窗体(D) 标签
4. 要判断在文本框是否按下Enter键，应在文本框的 D 事件中判断。
(A) Change (B)KeyDown
(C) Click (D)KeyPress
5. 数学表达式3≤x (A) 3<=x<10 (B) 3<=x AND x>10 (C) x>=3 Or x<10 (D) x>=3 AND x<10 6. Rnd函数不可能为下列 B 值。 (A) 0 (B) 1 (C) 0.1234 (D) 0.0005 7. 赋值语句:a=123+Mid("123456"，3，2)执行后，a变量中的值 是 D 。 (A) "12334" (B) 123 (C) 12334 (D) 157 8. 对于语句If x=l Then y=l，下列说法正确的是 C 。 (A) x=l和y=l均为赋值语句 (B) x=l和y=l均为关系表达式 (C) x=l为关系表达式，y=l为赋值语句 (D) x=l为赋值语句，y=l为关系表达式 9. 下面程序段表示求两个数中的大数， D 不正确。 (A) Max=IIf(x>y，x，y) (B) If x>y Then Max=x Else Max=y (C) Max=x (D) Ify>=x Then Max=y If y>=x Then Max=y Max=x 10.当在文本框中输入“ABCD”4个字符时，窗体上显示的是 C 。 Private Sub Text1_Change( ) Print Text1; End Sub (A) ABCD (B) A (C) AABABCABCD (D) A B AB C ABC D ABCD 11.下列哪个程序段不能分别正确显示1！、2！、3！、4！的值 B 。 (A) For i=1 to 4 (B) For i=1 to 4 n=1 For j=1 to i For j=1 to I n=1 n=n*j n=n*j Next j Next j Print n Print n Next I Next i (C) n=1 (D) n=1 For j=1 to4 j=1 n=n*j Do While j<=4 Print n n=n*j Next j Print n j=j+1 Loop 12.如下数组声明语句，则数组a包含元素的个数有 A 。 Dim a(3, -2 to 2, 5) (A) 120 (B) 75 (C) 60 (D) 13 13.以下程序的输出结果是 D 。 Dim a a=Array(1, 2, 3, 4, 5, 6, 7) For i=Lbound(a) to Ubound(a) a(i)=a(i)*a(i) Next i Print a(i) (A) 49 (B) 0 (C) 不确定(D) 程序出错 14.在过程中定义的变量，若希望离开该过程后，还能保存过程中局部变量的值，则应使用关键字 D 在过程中定义局部变量。 (A) Dim (B) Private (C) Public (D) Static 15.如下程序，运行的结果是 B 。 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(x%, ByVal y%) Dim c% x=2*x: y=y+2: c=x+y End Sub Private Sub Command1_Click( ) a=2: b=4: c=6 Call p1(a, b) Print “a=”; a; “b=”; b; “c=”; c Call p2(a, b) Print “a=”; a; “b=”; b; “c=”; c End Sub (A) a=2 b=4 c=6 (B) a=4 b=6 c=10 a=4 b=6 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 16.复选框的Value属性为1时，表示 B 。 (A) 复选框未被选中(B) 复选框被选中(C) 复选框内有灰色的勾(D) 复选框操作有误 17.下面关于菜单的说法中，错误的是 B 。 (A)每个菜单项都是一个控件与其他控件一样也有自己的属性和事件 (B) 除了Click事件之外，菜单项还能响应其他的，如DbClick 事件 (C) 菜单项的快捷键不能任意设置 (D) 在程序执行时，如果菜单项的Enabled属性为False，则该菜单项变成灰色，不能被用户选择 18.下面关于多重窗体的叙述中，正确的是 B 。 (A) 作为启动对象的Main子过程中能放在窗体模块中 (B) 如果启动对象是Main子过程，则程序启动时不加载任何窗体，以后由该过程根据不同情况决定是否加载或加载哪一个窗体 (C) 没有启动窗体，程序不能执行 (D) 以上都不对 19.当用户将焦点移到另一个应用程序时，当前应用程序的活动窗体将 D 。 (A) 发生DeActivate事件 (B) 发生LostFocus事件 (C) 发生DeActivate和LostFocus事件 (D) DeActivate和LostFocus事件都不发生 20.顺序文件是因为 D 。 (A) 文件中的数据按每行的长度从小到大排序好的 (B) 文件中的数据按某个关键数据项从大到小进行排序 (C) 文件中的数据按某个关键数据项从小到大进行排序 (D) 数据按进入的先后顺序存放的，读出也是按原写入的先后顺序读出 21.文件号最大可取值为 B 。 (A) 255 (B) 511 (C) 512 (D) 256 22.Print #1, STR$1中的Print是 A 。 (A) 文件的写语句(B) 在窗体上显示的方法(C) 子程序名(D) 以上均不是23.以下的属性和方法中 C 可重定义坐标系。 (A)Drawstyle属性(B) DrawWidth属性 (C) Scale方法(D) ScaleMode属性 24.封闭图形的填充方式由下列 C 属性决定。 (A) DrawStyle, DrawMode (B) AutoRedraw, ClipControls (C) FillStyle, FillColor (D) ForeColor, BorderColor 25.下列字符串中， D 不包含在ADO数据控件的ConnectionString属性中。 (A) Microsoft Jet 4.0 OLE DB Provider (B) Data Source=C:\Mydb.mdb (C) Persist Security Info=False (D) 2-adCmdTable 二、填空题 1．在代码窗口对窗体的BorderStyle、MaxButton属性进行了设置，但运行后没有效果，原因是这些属性在运行时设计是无效的。 2．在文本框中，通过SelStart 属性能活得当前插入点所在的位置。 3．表达式Ucase(Mid(“abcdefgh”, 3, 4))的值是CDEF 。4．已知a=3.5，b=5.0，c=2.5，d=True，则表达式：a>=0 And a+c>b+3 Or Not d的值是False 。 5．要获得动态数组的上界通过 UBound 函数，下界通 过LBound 函数。 6．由Array函数建立的数组，其变量类型必须 是variant 类型。 7．VB中的变量按其作用域分为全局变量、模块变量和局部变量变量。 8．复选框的 Value 属性设置为2——Grayed时，变成灰色，禁止用户选择。 9．滚动条响应的重要事件有Scroll 和Change。 10．假定有一个通用对话框控件CommonDialog1，除了用COmmonDialog1.Action=3显示颜色对话框之外，还可以 用showcolor 方法显示。 11．窗体Form1的左上角坐标为(-200, 250)，窗体Form1的右下角的坐标为(300, -150)，则X轴的正向向右，Y轴的正向向上。 12．使用Circle方法画扇形，起始角、终止角取值范围 为0~2π。 13．在运行状态改变ADO数据控件的数据源连接属性后，必须使用Refresh 方法激活这些变化。 14．VB中工程文件的扩展名为vbg 。 15．如果在窗体上已经创建了一个文本框对象Text1，可以通过Keypress 事件获得输入键值的ASCII码。 16．VB中对象的三要素是属性、事件和方法。 三、编程应用题 1.程序阅读 (1) Private Sub Command1_Click( ) Dim s as String, i% s=＂abcd＂ For i=Len(s) to 1 step -1 Print Mid(s, i, 1) Next i End Sub 输出结果： d c b a (2) Sub Swap1(ByVal x%, ByVal y%) Dim t% t = x: x = y: y = t End Sub Sub Swap2(ByRef x%, ByRef y%) Dim t% t = x: x = y: y = t End Sub Sub Command1_Click() Dim a%, b% a = 10: b = 20 Print "调用Swap1前a和b的值为："; a; b Call Swap1(a, b) Print "调用Swap1后按传值方式a和b的值为："; a; b a = 10: b = 20 Call Swap2(a, b) Print "调用Swap2后按传地址方式a和b的值为："; a; b End Sub 输出结果 调用Swap1前a和b的值为：10 20 调用Swap1后按传值方式a和b的值为：10 20 调用Swap2后按传地址方式a和b的值为： 20 10 (3) Private Sub Command1_Click( ) Dim x%, y%, z% x=242: y=44 z=x*y Do Until x=y If x>y Then x=x-y Else y=y-x Loop Print x, z/x End Sub 输出结果: 22 484 2.补充程序 (1) 以下是求1～18之间某个数的阶乘的程序，具体的数值n由滚动条HScroll1获得，结果显示在窗体下部的两个Label标签里。补充完整如下程序。 Private Sub HScroll1_Change() Dim i As Integer, s As Double s = 1 n = Hscroll1.Value If n <> 0 Then For i = 1 To n s = s*i Next i End If Label2.Caption = n & "! = " Label3.Caption = s End Sub (2)以下程序的功能是：已知数组a，删除数组中某个元素。 Private Sub Command1_Click( ) Dim a( ), key%, i%, j% a=Array(1, 6, 8, 3, 5, 9, 10, 2, 4, 7) key=9 For i=0 to UBound(a) If a(i)=9 Then For j=i+1 to UBound(a) a(j)=a(j+1) Next j ReDim a(j)=a(i) MsgBox(＂删除完成＂) Exit Sub End If Next i MsgBox(＂找不到要删除的元素＂) End Sub 读程序并填空 1．给定程序的功能是输出一组数的最大值和最小值，在画线处填入适当内容，将程序补充完整。 Private Sub Command1_Click( ) X=Array( -112, 18, 20, -5, -100, 82, 91, 56, 78, 99, 100) Max=x( 0 ) Min=x( 0 ) For I=1 To 10 If x( I )>Max Then _____________ End if If x( I )>Min Then _____________ End if Next I Print “MAX=” ; Max , “MIN=” ; Min End Sub 2．若A2+B2+C2 , 则A，B，C称为一组勾股数，如下程序是找出100以内的所有勾股数，并按A，B，C顺序输出。请在画线处填入适当内容。 Private Sub Command1_Click( ) For A=2 To 99 For B=A+1 To 100 C=_____________ If ____________ And C<=100 Then Print A, B, C End If Next B Next A End Sub 3．本程序的功能是计算输入数的阶乘，请在画线处填上适当的内容使程序完整。 Private Sub form_Click( ) Do N=Val(InputBox(“请输入一个大于0的整数：”)) Loop Until N>0 Print Fact( N) End Sub Private Function Fact( M ) Fact= _______________（1分） For I=2 To ____________（2分） Fact = ______________（2分） Next I End Function 4．给定程序的功能是建立并输出除主、副对角线上的元素为5外，其余元素都为1的方阵，在画线处填入适当内容，将程序补充完整。Private Sub Command1_Click( ) Dim A( 10,10 ) For I=1 To 10 For J=_______________（2分） If __ _____________ Then A( I, J )=5 Else A( I, J)=1 （1分） Next J Next I For I=1 To 10 For J=1 To 10 Print A( I, J ); Next J __ __________ （2分） Next I End Sub 编写一个程序，在程序运行时输入一个0—99999之间的整数，判断输入的是几位数，并在窗体输出结果。 编写一个程序，在窗体上添加两个命令按钮，运行程序时，单击[开始]按钮，在窗体输出1~100之间所有能被3整除的数。单击[结束]按钮，结束程序。 二、选择题 1、菜单控件只包括一个事件，即 C ，当用鼠标单击或键盘选中后按“回车”键时触发该事件，除分隔条以外的所有菜单控件都能识别该事件。 A、GotFocus B、Load C、Click D、KeyDown 2、滚动条控件(如图所示)的Max属性所设置的是 A 。 A、滚动框处于最右位置时，一个滚动条位置的Value属性最大设置值 B、单击滚动条和滚动箭头之间的区域时，滚动条中滚动块的最大移动量 C、单击滚动条的箭头区域时，滚动条中滚动块的最大移动量 D、滚动条控件无该属性 3、SQL 语句 Select * Form student 中的 *表示 B 。 A、所有记录 B、所有字段 C、所有表 D、都不对 4、以下选项中，不属于标签的属性是 C 。 A、Enabled B、Caption C、Default D、Font 5、要求改命令按钮显示的文本，应当在属性窗口中改变的属性是 A 。 A、Caption B、Name C、Text D、Label 6、设置一个单选按钮(OptionButton)所代表选项的选中状态，应当在属性窗口中改变的属性是 D 。 A、Caption B、Name C、Text D、Value 7、允许在菜单项的左边设置打勾标记，下面哪种论述是正确的 D 。 A、在标题项中输入&，然后打勾 B、在索引项中打勾 C、在有效项中打勾 D、在复选项中打勾 8、当执行以下过程时，在窗体上将显示 A 。 Private Sub Command1_Click( ) Print "VB"; Print "Hello! "; Print "VB" End Sub A、 VBHello!VB B、 VB Hello!VB C、 VB D、 VB Hello! VB Hello! VB 9、语句Print "The answer is:";20/4-2的结果为 B 。 A、The answer is 20/4-2 B、The answer is 3 C、The answer is "20/4-2" D、非法语句 10、下列哪个控件是容器控件 B 。 A、Image B、Picture C、ComboBox D、FileListBox 11、若要将窗体从内存中卸载出去，其实现的方法是 D 。 12、以下选项中，不是 Visual Basic控件的是 A 。 A.窗体 B.定时器 C.单选框 D.命令按钮 13、双击窗体中的对象后，Visual Basic将显示的窗口是 A 。 A.代码窗口 B．工具箱 C．项目（工程）窗口 D．属性窗口 14、可决定窗体的左上角是否有控制菜单的属性是 A 。 15、设有如下语句： Strl＝InputBox（"输人"，""，"练习"） 从键盘上输人字符“示例”后，Strl的值是 D 。 A．“输入” B．“” C．“练习” D．“示例” 16、窗体Form1的Name属性是Frm1,它的单击事件过程名是 C 。 A. Form1_Click C. Frm1_Click D. Me_Click 17、窗体的hide属性的含义是 A 。 A.隐藏 B.展现 C.装入 D.卸载 18、若要设置定时器控件的定时时间，需设置的属性是 C 。 A．Enabled B．Value C．Interval D．Text 19、能够改变复选框中背景颜色的属性是 C 。 《VB 程序设计》考试题型练习 一. 填空 1. VB 中的对象具有 属性 、 事件 、和 方法 三种特性，它们是构成对象的三个基本要素。 2. VB 中的常量分为哪三种： 文字常量 、 符号常量（用户自定义常量） 系统内部常量 。 3. 变量的三要素是指： 变量的名 、 变量的数据类型 、 变量的值 。 4. VB 中日期型数据的表示格式为： #mm/dd/YYYY#或#mm-dd-YYYY# 。 5. 在VB 中，“\”是 整除 运算符；“/”是 浮点除 运算符。两个字符串可以使用连接符 &或+ 串接起来。 6. 2 22z y x z y x ++++的VB 表达式为 （x+y+z ）/sqr(x^2+y^2+z^2) 。 7. a ac b b 242-+的VB 表达式为 (b+sqr(b^2-4*a*c))/(2*a) 。 8. 计时器控件的 Interval 属性用于设置Timer 事件发生的时间间隔，为了使计时器控件Timer1每隔0.5秒触发一次Timer 事件，应将该属性设置为 500 ；为了暂时关闭计时器，应把该计时器的 Enable 属性设置为False 。 二. 单选题 1. 如果要使VB 程序运行时不能对文本框中的内容进行编辑，需将文本框的哪个属性设置为True （ D ）。 A ）MultiLine B ）Visible C ）TabStop D ）Locked 2. 表达式Right("asdf", 2)+Ucase("as" )的值为（ A ）。 A ）dfAS B ）asAS C ）dfas D ）asas 3. 执行如下语句： a ＝InputBox("Today", "Tomorrow", "Yesterday") 将显示一个输入对话框，在对话框的输入区中的默认值是（ C ）。 A) Today B) Tomorrow C) Yesterday D) Today Tomorrow Yesterday 4. 设a=3，b=5，则以下表达式值为真的是（ B ）。 A) a>=b And b>10 B) (a>b) Or (b>0) C) (a<0) Or Not (b>0) D) (-3+5>a) And (b>0) ******学院 2009-2010学年第二学期 《VB程序设计》期末考试试卷（A）附答案 一、选择题（2分/题，共60分） （1）要设置窗体上各控件的属性，可以在＿＿＿中进行。 A“窗体布局”窗口B“工程资源管理器”窗口 C“属性”窗口D“对象”窗口 （2）下面程序段＿＿＿能够正确实现目的：如果x （5）双击窗体中的对象后，VB将显示的窗口是＿＿＿。 A工具箱B“工程”窗口 C“代码”窗口D“属性”窗口 （6）下列程序段的执行结果是＿＿＿。 X=int(Rnd()+4) Selectcasex Case5 Print“优秀” Case4 Print“良好” Case3 Print”通过” Caseelse Print”不通过” Endselect A优秀B良好 C通过D不通过 （7）下列哪个不是窗体的属性＿＿＿。 ACaptionBText CControlBoxDBorderStyle （8）设组合框Combo1中有3个项目,则以下能删除最后一项的语句是＿＿＿。 ACombo1.RemoveItemTextBCombo1.RemoveItem2 CCombo1.RemoveItem3DCombo1.RemoveItemCombo1.Listcount （9）窗体BorderStyle属性的功能是＿＿＿。 A设置窗体的边框大小 B设置窗体的边框样式，是否显示标题栏，是否可以调整大小等 C决定是否显示窗体的控制菜单图标与状态控制按钮 D决定窗体的最大化或最小化按钮是否有效 （10）下列可作为VB的变量名的是＿＿＿。 VB复习题 一．选择题 1．使用声明语句建立一个数值型的变量后，VB自动将该变量初始化为（B）。 A．空值 B．0 C．1 D．Null 2．使用声明语句建立一个字符型的变量后，VB自动将该变量初始化为（ A ）。 A．空值 B．0 C．1 D．Null 3．使用声明语句建立一个布尔型的变量后，VB自动将该变量初始化为（A ）。 A．False B．0 C．1 D．True 4．关于 VB 中的运算符，以下说法正确的是（）。 A．“×”是算术运算符，含义是“乘法运算” B．“≠”是关系运算符，含义是“不等于” C．“!”是逻辑运算符，含义是“非” D．“And”是逻辑运算符，含义是“与” 5．对象的三要素是（）。 A．属性、事件、程序 B．属性、事件、方法 C．窗体、事件、程序 D．语句、函数、程序 6．VB中，表达式10<2 Or Not 5>2+6的值为（）。 A．TRUE B．FALSE C．0 D．出错 7．VB中，表达式Mid$("南京工程学院",3,4)的结果是（）。A．"工程学院" B．"京工程学" C．"程学院" D．"工程" 8．在VB中，应用程序被称为（）。 A．工程 B．窗体 C．属性 D．对象 9．VB中，事件Click由（）引发。 A．移动鼠标 B．左键单击鼠标 C．双击鼠标 D．右键单击鼠标 10．VB中，隐藏窗体的方法是（）。 A．Unload B．Stop C．Hide D．Show 11．在Visual Basic中最基本的对象是（），它是应用程序的基石，也是其它控件的容器。 A．文本框 B．命令按钮 C．窗体 D．标签 12．VB窗体文件的扩展名为（）。 A．VBP B．FRM C．BAS D．EXE 第一套试题 一、选择题（每题2分，共30分） 1.在VB环境中，工程文件的扩展名是( C ) （A）.frm （B）.bas （C）.vbp （D）.frx 2.下面4项中不属于面向对象系统三要素的是( A ) （A）变量（B）事件（C）属性（D）方法 3. \、/、Mod、*这4个算述运算符中，优先级别最低的是( C ) （A）\ （B）/ （C）Mod （D）* 4.要使Print方法在Form_Load事件中起作用，要对窗体的( C )属性进行设置（A）BackColor （B）ForeColor （C）AutoRedraw （D）Caption 5.不论何控件，共同具有的属性是( B ) （A）Text （B）Name （C）ForeColor （D）Caption 6.要使Form1窗体的标题栏显示“欢迎使用VB”，以下语句正确的是( D ) （A）Form1.Caption=“欢迎使用VB”（B）Form1.Caption=ˊ欢迎使用VBˊ（C）Form1.Caption=欢迎使用VB （D）Form1.Caption=〞欢迎使用VB〞 7.VB提供了结构化程序设计的3种基本结构，这3种基本结构是( D ) （A）递归结构，选择结构，循环结构（B）选择结构，过程结构，顺序结构 （C）过程结构，输入、输出结构，转向结构（D）选择结构，循环结构，顺序结构 8.给变量赋值a=123+MID(“123456”,3,2)，a变量中的值是( D ) （A）“12334”（B）123 （C）12334 （D）157 9.下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是( D ) （A）If sex=“男”And age＜40 And InStr(duty,“教授”)＞0 Then n=n+1 （B）If sex=“男”And age＜40 And (duty=“教授”Or duty=“副教授”) Then n=n+1 （C）If sex=“男”And age＜40 And Right(duty,2)= “教授” Then n=n+1 （D）If sex=“男”And age＜40 And duty=“教授”And duty=“副教授” Then n=n+1 10.若要清除列表框的所有内容，可用来实现的方法是( C ) 程序设计 〖第1题〗『程序设计』(5分)(题号:148) '------------------------------------------------- '【程序设计】 '------------------------------------------------- '题目：(事件)单击窗体。 ' (响应)求10~20之间所有素数的乘积并输出在窗体上。 ' 将结果存入变量L中。 '------------------------------------------------- '注意：请在指定的事件内编写代码。 '------------------------------------------------- 答案：---------------------- Dim i As Integer Dim j As Integer Dim b As Boolean l = 1 b = False For i = 10 To 20 For j = 2 To i - 2 If i Mod j = 0 Then b = True End If Next If b = False Then l = l * i End If b = False Next Print Str(l) ---------------------- 〖第2题〗『程序设计』(5分)(题号:150) '------------------------------------------------- '【程序设计】 '------------------------------------------------- '题目：(事件)单击窗体。 ' (响应)求1 - 1/2 + 1/3 - 1/4 + ……+ 1/99 - 1/100的值。' 将结果存入变量J中。 '------------------------------------------------- '注意：请在指定的事件内编写代码。 '------------------------------------------------- 答案：---------------------- Dim i As Integer For i = 1 To 100 If i Mod 2 = 1 Then j = j + 1 / i ElseIf i Mod 2 = 0 Then j = j - 1 / i End If Next Print j ---------------------- 〖第3题〗『程序设计』(5分)(题号:131) '------------------------------------------------- '【程序设计】 '------------------------------------------------- '题目：(事件)单击窗体。 ' (响应)已知S=1+1/4+1/9+1/16+1/25+…+1/100， ' 结果输出在窗体上。 '------------------------------------------------- '将结果存入变量S中 '------------------------------------------------- 答案：---------------------- Dim i As Integer s = 0 For i = 1 To 10 s = s + 1 / (i ^ i) Next Print (s) ---------------------- 〖第4题〗『程序设计』(5分)(题号:152) 《VB程序设计》期末模拟试卷 一、单项选择 （b ）1．被对象所识别的动作与对象可执行的动作分别称为对象的___________。 A．方法、事件 B．事件、方法 C．事件、属性 D．过程、属性 （ c）2．下列________是Single型变量。 A．Time% B．Name$ C．Sheight! D．CXYZ& （a ）3．以下四个VB的变量名中，合法的是____________。 A．X23 B．$Re C． Len D．3xy （ d）4．在程序中使用 Dim str1,str2 As Long 语句对变量str1、str2进行声明后，下面正确的说法是________。 A. str1是整型，str2是长整型 B. str1是长整型，str2变体型 C. str1、str2都是长整型 D. str1是变体型，str2是长整型 （b ）5．表达式(&O36>31) and (“A”>”B”) 的结果是 ____________。 A．True B．False C．”&O3631AB” D．&O3631 （c ）6．表达式“100” + 100 和表达式“100” & 100的值分别是 ____________。 A．200、200 B．“100100”、“100100” C．200、“100100” D．“100100”、200 （b ）7．以下语句执行时，从键盘上输入Zhao，并按回车键。执行结果是________。 Dim a As String A=InputBox("Input", "", "Name") Print a A．Input B．Zhao C．Name D．空字符串 （b）8．语句Print 4 + 5 \ 6 * 7 / 8 Mod 9的运行结果是________。 A．4 B．5 C．6 D．7 （ d）9．在窗体的通用段声明变量时，不能使用__________ 关键字。 A．Dim VB程序设计编程考试题及答案 1.输入3个数，输出最大的数 Private Sub command1_click() Dim max For i = 1 To 3 n = Val(InputBox("输入第" & i & "个数")) If n > max Then max = n End If Next Print "三个数中最大的数是" ; max End Sub 2.有一元二次方程：aX2+bX+c=0，依次输入a，b，c，判断此方程是否有实根 Private Sub Command1_Click() Dim a, b, c, n a = Text1 b = Text2 c = Text3 n = b * b - 4 * a * c If n >= 0 Then Label4 = "方程有根" Else Label4 = "方程无根" End If End Sub 3.输入一个百分制的成绩，若大于等于60，则用消息框弹出，显示“恭喜！成绩通过！”， 若小于60，则弹出消息框，显示“抱歉！成绩没有通过！ Private Sub Form_Load() Text1 = "" End Sub Private Sub Command1_Click() Dim n n = Text1 If n > =60 Then Val (MsgBox("恭喜！成绩通过！")) Else Val (MsgBox("抱歉！成绩没有通过！")) End If End Sub 4.输入一年份，判断它是否为闰年，并显示有关信息。（判断闰年的条件是：年份能被4整 除但不能被100整除，或者能被400整除） Private Sub Command1_Click() Dim y% 一、程序设计 '【程序设计】 1.'题目：编写函数fun，函数的功能是：计算两个正整数的最大公约数，并显示。如：'两个数为15、20，结果显示"5" '要求使用Do ... Loop语句来实现。 答案：Do r = m Mod n If r = 0 Then Exit Do m = n n = r Loop fun = n 2.'题目：判断一个数是否是素数。 答案：---------------------- Dim i As Integer Prime = True For i = 2 To Int(Sqr(m)) If m Mod i = 0 Then Prime = False: Exit For Next i ---------------------- 3,'题目：(事件)单击窗体。 ' (响应)求10!的值，并将结果输出到窗体上。 将结果存入变量SUM中。 答案：---------------------- Dim i As Integer sum = 1 For i = 1 To 10 sum = sum * i Next Print sum 4,'题目：(事件)单击窗体。 (响应)求1+2+3+……+100的值，并把结果输出在窗体上。结果存入变量SUM中。 答案：---------------------- Dim i As Integer For i = 1 To 100 sum = sum + i Next Print sum ---------------------- 5,'题目：编写函数fun，函数的功能是：求1到m之间的偶数之积。 答案：---------------------- Dim y As Double y = 1 Dim i As Integer For i = 1 To m VB程序设计期末考试题 一、选择题 1 下列常量中，是Integer类型常量的是（ C ）。 A、123& B、-38844 C、123% D、32768 2 下面选项中()是字符连接运算符. A A、& B、And C、% D、Mod 3 下面关于VB的集成开发环境（IDE）的叙述中，不正确的是（ B ）。 A、IDE是设计、调试、运行VB程序的工具。 B、用户不能随意关闭IDE中的窗口。 C、"窗体设计" 窗口是用来设计应用程序界面（窗体）的。 D、打开 / 关闭各窗口的命令主要在IDE的"视图"菜单中。 4 len(“vb程序设计”)=( C ) 。 A、 5 B、2 C、 6 D、10 5 表达式 15 Mod 4 + 13 \ 5 * 2 的值是 D A、7 B、0 C、2 D、4 6 赋值语句A=123 + Mid$( “123456”,3,2) 执行后，A=（A）。 A、157 B、12334 C、123 D、"12334" 7 在一个语句内写多条语句时,用来分隔每条语句的符号是(C). A、, B、; C、: D、、 8 将逻辑型数据转换成整型数据时，转换规则是（ D ）。 A、将True转换为 1 ，将False转换为 0 B、将True转换为 1 ，将False转换为 -1 C、将True转换为 0 ，将False转换为 -1 D、将True转换为 -1 ，将False转换为 0 9 表达式2+3*4^5-SIN(X+1)/2中最先进行的运算是(D). A、SIN B、4^5 C、3*4 D、x+1 10 如果x=2，则表达式x+1>2 Or sin(x)>0.9 And 3>x+3的值（ B ）。 A、不能计算 B、 True C、5 D、False 11 随机产生[10，50] 之间整数的正确表达式是（ D ）。 A、Round( Rnd*50) B、 Int(Rnd*40+10) C、Round( Rnd*51) D、 10+Int(Rnd*41) 12 每建立一个窗体,工程管理器窗口中就会增加一个(C). A、类模块文件 B、工程文件 C、窗体文件 D、程序模块文件 13 INT(100*RND(1))产生的随机整数的闭区间是(B). A、[1,100] B、[0,99] C、[0,100] D、[1,99] 14 下列数据类型中,占用内存最小的是(D). A、Integer B、Single C、Boolean D、Byte 15 VisualBasic是一种()程序设计语言.B A、过程式 B、非过程式 C、机器 D、低级 16 函数Int(10*Rnd)是在(A)范围内的整数. A、[0,9] B、[0,1] C、[1,9] D、[1,10] 17 以下合法的一组Visual Basic用户标识符是 C A、Sum 和 8abc B、a#x 和 Pi C、ForLoop 和 Total D、Const 和 DoWhile 《VB程序设计基础》试题 一、选择题：（每空 2 分，共 20 分） 1. 与传统的程序设计语言相比,Visual Basic最突出的特点是___________。 A. 结构化程序设计 B. 程序开发环境 C. 事件驱动编程机制 D. 程序调试技术 2. Visual Basic 是一种面向对象的程序设计语言，构成对象的三要素是________。 A. 属性、事件、方法 B. 控件、属性、事件 C. 窗体、控件、过程 D. 窗体、控件、模块 3. 窗体模块保存在一个扩展名为__________的文件中。 A. bas B. vbp C. vbg D. frm 4. 下面正确的赋值语句是_________。 A. x+y=30 B. y=π*r*r C. y=x+30 D. 3y=x 5. 设S=“492”，表达式Right（S,1）+Left（S,1）+Mid（S,2,1）的值为__________。 A.“492” B.“249” C.“294” D.“429” 6. 将数学表达式a≤b≤c写成Visual Basic表达式，正确的是__________。 A. a<=b<=c B. a<=b Or b<=c C. a<=b And b<=c D. a<=b Not b<=c 7.为了把焦点移到文本框，所使用的方法是___________。 A. SetFocus B.Visible C.Refresh D.GetFocus 8. INT（100*RND）产生的随机整数的闭区间是_____________。 A.[0，100] B.[1，100] C.[1，99] D.[0，99] 9. 一个数组说明为Dim a(0 to 5，1 to 5) As Integer，则该数组共有_________个 元素。 A. 5 B. 36 C. 30 D. 不确定 10. 下面过程定义语句合法的是____________。 《VB程序设计》期末试卷 一、判断题（每题１分，共10分） （）１、设置属性的语句格式为：“对象名．属性名＝属性值”。 （）２、在窗体或模块文件中声明为Private的过程，只能被本窗体或模块中的过程所调用。（）３、ＶＢ的赋值语句只能给变量赋值。 （）４、在ＶＢ中，字符型常量应使用＂＃＂号将其括起来。 （）５、窗体大小只能通过鼠标拖动窗体边框来设置。 （）６、VB的Double类型数据，可以精确表示其数值范围内的所有实数。 （）７、若用户在键盘上按下一个键，则会产生一个Click事件。 （）８、罗马数制是进位计数制。 （）９、事件过程可以由用户事件触发执行，也可以由其他过程所调用。 （）１０、Do While条件.....Loop和DO Until Not条件.....Loop 两条循环语句，实现循环控制是等效的。 二、单项选择题。（每小题2分，共50分） （）1．设a=“Visual Basic”，下面使b=“Visual”的语句是 A. b=Left(a,6) B. b=Mid(a,1) C. b=Rigth(a,5,5) D. b=Left(a,1,6) （）2．在立即窗口中执行？9>=9，输出结果是 A．0 B．True C．False D. －1 （）3．语句Dim var1 As Boolean作用是:将var1定义为什么类型变量 A.单精度型 B. 整型 C. 布尔型 D.字符型 （）4．Int(—0.618*10)/10的值是 A.—0.7 B.—0.6 C. —1 D. —0.1 （）5．表达式2 + 8 * 6 / 4 Mod 2的值是 A.5 B.2 C.6 D.9 （）6．在VB中快捷键F4打开哪个窗口？ A. 资源管理器窗口 B. 属性窗口 C. 代码窗口 D. 立即窗口 （）7．函数Int( 64 * RND() )的值是在哪个范围内的整数？ A. [0,63] B. [0,64] C. [1,63] D. [1,64] （）8.下列叙述中正确的是 A. 只有窗体才是Visual Basic中的对象 B. 只有控件才是Visual Basic中的对象 C. 窗体和控件都是Visual Basic中的对象 D. 窗体和控件都不是Visual Basic中的对象 （）9.用于Visual Basic程序设计的控件在 A. 工具箱中 B.工具菜单中 C. 工程窗口中 D.工具栏上 （）10．Visual Basic程序中表示续行的字符是 A. ： B. _ C. \ D. ’ （）11．决定按钮显示内容的属性是 A. Text https://www.360docs.net/doc/3312653834.html, C. Caption D.BackStyle （）12．下列可以把图形文件c:\地鼠1.jpg装入窗体FORM1中的语句为 A. Form1.Picture= LoadPicture("c:\ 地鼠1.jpg") B. Form1.Handle = " c:\ 地鼠1 .jpg" C. Form1 = LoadPicture("c:\ 地鼠1.jpg") D. Form1 = " c:\ 地鼠1.jpg" （）13．设a、b、c为整型变量，执行以下程序后a、b、c的值是 a=1:b=2:c=3 a=b:b=c:c=a A.2 3 1 B.2 3 2 C.3 2 1 D.1 3 2 （）14．将数学表达式2 2* 5 ) ( cos e b a+ +写成Visual Basic的表达式，其正确的形式是 A.Cos (a+b) ^2+5*exp(2) B.Cos^2(a+b)+ 5*exp(2) C.Cos (a+b) ^2+5*ln(2) D.Cos^2(a+b)+ 5*ln(2) （）15．下列描述图片框和图像框区别，那条是错误的 A．图像框中显示图片一般用作背景 B．图片框有拉伸属性 V B程序设计试题及答案（一） 一、单选题 1. VB6.0是一种面向B 的编程环境。 (A) 机器(B) 对象 (C) 过程(D) 应用 2. 要使FormI窗体的标题栏显示"欢迎使用VB"，以下D 语句是正确的。 (A) Forml.Caption=“欢迎使用VB” (B) Forml.Caption='欢迎使用VB' (C) Forml.Caption=欢迎使用VB (D) Forml.Caption="欢迎使用VB" 3. 若要使命令按钮不可操作，要对A 属性进行设置。 (A) EnabIed (B)Visible (C) Backcolor (D)Caption 4. 如果在窗体上已经创建了一个文本框对象TextI，可以通过C 事件获得输入键值的ASCII码。 (A) Change (B) LostFocus (C) KeyPress (D) GotFocus 5. 下面A 是合法的变量名。 (A) X_yz (B) 123ab。(C) integer (D) X-Y 6. 以下关系表达式中，其值为False的是A 。 (A) "ABC">"AbC" (B) "女">"男" (C) "BASIC"=UCase("basic) (D) "123"<"23" 7. 为了给x、y、z三个变量赋初值1，下面正确的赋值语句是A 。 (A) x=1:y=1:z=1 (B) x=1,y=1,z=1 (C) x=y=z=1 (D) xyz=1 8. VB提供了结构化程序设计的三种基本结构，三种基本结构是D 。 (A)递归结构、选择结构、循环结构 (B)选择结构、过程结构、顺序结构 (C)过程结构、输入输出结构、转向结构 (D)选择结构、循环结构、顺序结构 9. 下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是 D 。 (A) If sex="男" And age=4O And InStr(duty，"教授")>O Then n=n+l (B) If sex="男" And age=4O And (duty="教授" Or duty="副教授") Then n=n+l (C) If sex="男" And age=4O And Right(duty，2)="教授" Then n=n+l (D) If sex="男" And age=4O And duty="教授" And duty="副教授" Then n=n+l 10.下列关于Do…Loop循环结构执行循环次数的描述正确的是D 。 (A) Do While…Loop循环和Do…Loop Until循环至少都执行一次 (B) Do While…Loop循环和Do…Loop Until循环可能都不执行 (C) Do While…Loop循环至少执行一次和Do…Loop Until循环可能不执行 (D) Do While…Loop循环可能不执行和Do…Loop Until循环至少执行一次 11.以下B 是正确的For…Next结构。 (A) For x=1 To Step 10 (B) For x=3 To -3 Step -3 …… VB期末考试试题A卷 一、填空题 1、VB程序设计的主要特点是（1）和（2）。 2、在VB中，最主要的两种对象是（3）和（4）。 3、工程是构成应用程序文件的（5）。 4、方法是VB提供的一种（6），用来完成一定的操作。 5、浮点类型数据包括单精度型和___（7）__数据。 6、事件是窗体或控件对象识别的___（8）____。 7、可用窗体的___（9）_ 方法在窗体中显示文字。 8、复选框控件Value属性指示复选框处于____（10）___或禁止状态(暗淡的)中的某一种。 9、在VB中，修改窗体的（11）和（12）属性值，可改变窗体的大小。 10、双击工具箱中的控件图标，可在窗体的（13）出现一个尺寸为缺省值的控件。 11、在MsgBox函数中，如果缺省title参数，则使用（14）作为消息框的标题。 12、设x＝34.58，语句Print Format(x,“000.0”)的输出结果是（15）。 13、在VB 中，数值型变量的初值为（16），Varant型变量的初值为（17），布尔型变量的初值为（18）。 14、设置窗体的（19）属性，可在窗体上显示图片。 15、程序运行工程中，清除MP图片框中的图片应使用语句（20）。 二、选择题 1、菜单控件只包括一个事件，即（1），当用鼠标单击或键盘选中后按“回车”键时触发该事件，除分隔条以外的所有菜单控件都能识别该事件。 A、GotFocus B、Load C、Click D、KeyDown 2、滚动条控件(如图所示)的Max属性所设置的是（2）。 A、滚动框处于最右位置时，一个滚动条位置的Value属性最大设置值 B、单击滚动条和滚动箭头之间的区域时，滚动条中滚动块的最大移动量 C、单击滚动条的箭头区域时，滚动条中滚动块的最大移动量 D、滚动条控件无该属性 3、SQL 语句 Select * Form student 中的 *表示（3）。 A、所有记录 B、所有字段 C、所有表 D、都不对 4、以下选项中，不属于标签的属性是（4）。 A、Enabled B、Caption C、Default D、Font 5、要求改命令按钮显示的文本，应当在属性窗口中改变的属性是（5）。 《VB程序设计》试卷试卷十五 一、判断题（共10分，每题1分，在答题卡上回答，A表示正确，B表示错误） 1. 窗体中只能有一个命令按钮设置Default属性为True，在任何情况下，按 2016/2017 学年第一学期 VB程序设计课程考试试题（A）卷 类别继续教育学院拟题人叶臣 适用专业计算机网络技术专科 （答案写在答题纸上，写在试题纸上无效） 一、选择题（每题2分，共30分） 1、VB窗体文件的扩展名是（）。 A．.frm B．.vbp C．.bas D．.res 2、在窗体上已经创建了一个文本框对象Text1，可以通过（）事件获得输入键值的ASCII码。 A．Change B．LostFocus C．KeyPress D．GotFocus 3、以下子过程和函数过程语句说明合法的是（）。 A．Sub f1( ByVal n%( ) ) B．Sub f1( n%( ) ) As Integer C．Function f1%(f1%) D．Function f1(ByVal n%) As Integer 4、不论何控件，共同具有的属性是（）。 A．Caption B．Name C．ForeColor D．Text 5、InputBox函数返回值的类型是（）。 A．整型B．字符型C．可变类型D．数值或字符型 6、赋值语句：a=123 & Mid("123456",3,2)执行后，a变量中的值是（）。 A．"12334" B．123234 C．123 D．157 7、设a=1,b=3,c=4,表达式：Not a<=c Or 4*c=b^2 And b< >a+c的值是（）。 A．-1 B． 1 C．False D．True 8、要使命令按钮不可操作，需要设置其（）属性。 A. Visible B. Enabled C. Caption D. BackColor 9、下面关于多重窗体的叙述中，正确的是（）。 A．作为启动对象的Main子过程只能放在窗体模块内 B. 如果启动对象是Main子过程，则程序启动时不加载任何窗体，以后由该过程根据不同情况决定是否加载或加载哪一个窗体。 C. 如果没有启动窗体，则程序不能执行。 D. 以上都不对。 10、复选框的Value属性为1时，表示（）。 A 复选框未被选中 B 复选框显示为灰色 C 复选框操作有错误 D 复选框被选中 11、为了把焦点移到某个指定的控件，所使用的方法是（）。 VB程序设计试题及答案（一） 一、单选题 1. 是一种面向B 的编程环境。 (A) 机器(B) 对象 (C) 过程(D) 应用 2. 要使FormI窗体的标题栏显示"欢迎使用VB"，以下D 语句是正确的。 (A) =“欢迎使用VB” (B) ='欢迎使用VB' (C) =欢迎使用VB (D) ="欢迎使用VB" 3. 若要使命令按钮不可操作，要对A 属性进行设置。 (A) EnabIed (B)Visible (C) Backcolor (D)Caption 4. 如果在窗体上已经创建了一个文本框对象TextI，可以通过C 事件获得输入键值的ASCII码。 (A) Change (B) LostFocus (C) KeyPress (D) GotFocus 5. 下面A 是合法的变量名。 (A) X_yz (B) 123ab。(C) integer (D) X-Y 6. 以下关系表达式中，其值为False的是A 。 (A) "ABC">"AbC" (B) "女">"男" (C) "BASIC"=UCase("basic) (D) "123"<"23" 7. 为了给x、y、z三个变量赋初值1，下面正确的赋值语句是A 。 (A) x=1:y=1:z=1 (B) x=1,y=1,z=1 (C) x=y=z=1 (D) xyz=1 8. VB提供了结构化程序设计的三种基本结构，三种基本结构是D 。 (A)递归结构、选择结构、循环结构 (B)选择结构、过程结构、顺序结构 (C)过程结构、输入输出结构、转向结构 (D)选择结构、循环结构、顺序结构 9. 下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是 D 。 (A) If sex="男" And age=4O And InStr(duty，"教授")>O Then n=n+l (B) If sex="男" And age=4O And (duty="教授" Or duty="副教授") Then n=n+l (C) If sex="男" And age=4O And Right(duty，2)="教授" Then n=n+l (D) If sex="男" And age=4O And duty="教授" And duty="副教授" Then n=n+l 10.下列关于Do…Loop循环结构执行循环次数的描述正确的是D 。 (A) Do While…Loop循环和Do…Loop Until循环至少都执行一次 (B) Do While…Loop循环和Do…Loop Until循环可能都不执行 (C) Do While…Loop循环至少执行一次和Do…Loop Until循环可能不执行 (D) Do While…Loop循环可能不执行和Do…Loop Until循环至少执行一次 11.以下B 是正确的For…Next结构。 (A) For x=1 To Step 10 (B) For x=3 To -3 Step -3 … … Next x Next xVB期末考试试题及答案
《VB程序设计》考试题型练习 答案
《VB程序设计》期末考试试卷(A)附答案
VB程序设计期末考试复习题
vb程序设计试题(含答案)
VB题库—程序设计[1]
VB程序设计期末模拟试卷
VB程序设计编程考试~题及答案~
vb题库程序设计
VB考试题及答案
VB程序设计 试题与答案-1
VB程序设计期末试卷
VB程序设计试题及答案一
大学VB期末考试试题
VB程序设计试卷
VB程序设计试卷一
VB程序设计试题及答案(一)