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) 在“打开”或“另存为”对话框中，用户选择的文件名可以经FileTitle属性返回
(C) 在“打开”或“另存为”对话框中，用户选择的文件名机器路径可以经FileName属性返回
(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.txt”顺序文件，如
下 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)”|”(*.Bm p)”
(C) CommonDialo g1.Filter=”All
Files|*.*|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 F or 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 D o While j<=4 Print n n=n*j Next j Print n j=j+1 Lo op 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整除的数。单击[结束]按钮，结束程序。 《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) 大学VB考试题库 一、单项选择题 1、与传统的程序设计语言相比,Visual Basic最突出的特点是（）。 A、结构化程序设计 B、程序开发环境 C、事件驱动编程机制 D、程序调试技术 2、赋值语句：a=123& MID("123456",3,2)执行后，a变量中的值是（）。 A、"12334" B、123 C、12334 D、157 3、保存一个工程至少应保存两个文件，这两个文件分别是（B）。 A、文本文件和工程文件 B、窗体文件和工程文件 C、窗体文件和标准模块文件 D、类模块文件和工程文件 4、以下能在窗体Form1的标题栏中显示"VisualBasic窗体"的语句是（C）。 A、https://www.360docs.net/doc/901786686.html,="VisualBasic窗体" B、Form1.Title="VisualBasic窗体" C、Form1.Caption="VisualBasic窗体" D、Form1.Text="VisualBasic窗体" 5、为了装入一个VisualBasic应用程序，应当（D） A、只装入窗体文件（.frm） B、只装入工程文件（.vbp） C、分别装入工程文件和标准模块文件（.bas） D、分别装入工程文件、窗体文件和标准模块文件 6、赋给一个数组的数据类型一定要（A）。 A、相同 B、不相同 C、两可 D、都不对 7、下面正确的赋值语句是（C）。 A、x+y=30 B、y=π*r*r C、y=x+30 D、3y=x 8、VisualBasic 6.0集成环境的主窗口中不包括（C）。 A、标题栏 B、菜单栏 C、状态栏 D、工具栏 9、以下叙述中错误的是(C)。 A、Visual Basic 是事件驱动型可视化编程工具 B、Visual Basic应用程序不具有明显的开始和结束语句 C、Visual Basic工具箱中的所有控件都具有宽度（Width）和高度（Height）属性(计时器) D、Visual Basic中控件的某些属性只能在运行时设置 10、要使Print方法在Form_Load事件中起作用，要对窗体的(C)属性进行设置。 A、Backcolor B、ForeColor C、AutoRedraw D、BackStyle 11、若要使命令按钮不可操作，要对(A)属性进行设制。 A、Enabled B、Visible C、BackColor D、Caption 12、以下叙述中错误的是(B)。 A、一个工程中可以包含多个窗体文件 B、在一个窗体文件中用Private定义的通用过程能被其他窗体调用 C、在设计VB程序时，窗体、标准模块、类模块等需要分别保存为不同类型的磁盘文件。 D、一个工程默认的启动对象是Form1 13、Cls方法可以清除窗体或图片框中的(C)内容。 A、在设计阶段使用Picture设置的背景位图 B、在设计阶段放置的控件 C、在运行阶段产生的图形和文字 D、以上均可 14、设x=3,y=5,则以下表达式值为真的是 (C) A、(-3+5>x) And (y>0) B、(x<0) Eqv (y>0) C、(x>y) Or (y>0) D、x>=y And y>10 15、为了防止用户随意将光标置于控件之上，应将进行(D)设置。 A、将控件的TabIndex属性设置为0 第一套试题 一、选择题（每题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 ) 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 在窗体上添加一个命令按钮(名称为Cmd1，标题为"输出平均值")。程序运行后，单击命令按钮完成以下工作： ①随机产生20个0到1000的整数，将其放入一个一维数组中 ②求出所有元素的平均值，并显示在窗体上(如下图所示) Private Sub Cmd1_Click() Dim a%(19), i%, sum!, aver! Randomize For i = 0 To 19 a(i) = Int(Rnd * 1001) sum = sum + a(i) Next i aver = sum / 20 Print aver End Sub 2 请在名称为Form1的窗体上添加一个名称为Text1的文本框和一个名称为C1、标题为"转换"的命令按钮，如下图所示。在程序运行时，单击"转换"按钮，可以把Text1中的小写字母转换为大写，把大写字母转换为小写，其他字符不变。 Private Sub C1_Click() Dim ch As String, ch1 As String, i% ch = Text1 For i = 1 To Len(ch) If Asc(Mid(ch, i, 1)) >= 65 And Asc(Mid(ch, i, 1)) <= 90 Then ch1 = ch1 + LCase(Mid(ch, i, 1)) Else ch1 = ch1 + UCase(Mid(ch, i, 1)) End If Next i Text1 = Text1 + vbCrLf Text1 = Text1 + ch1 End Sub 3 在窗体上添加一个命令按钮(名称为MyCmd1，标题为"输出最大值")。程序运行后，单击命令按钮完成以下工作： ①随机产生30个0～1000的整数，将其放入一个一维数组中 ②求出其中的最大值，并显示在窗体上。 Private Sub MyCmd1_Click() Dim a%(29), i%, max% Randomize For i = 0 To 29 a(i) = Int(Rnd * 1001) Next i max = a(0) For i = 1 To 29 If a(i) > max Then max = a(i) Next i Print max End Sub 4 请设计如下图所示窗体界面。程序运行时，在选中一个或两个复选框和一个单选按钮时，单击命令按钮，则对文本框中的文本内容做相应的设置。请编写适当的事件过程，完成上述功能。 《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程序设计期末考试题 一、选择题 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 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试卷 一、单项选择题(每题2分,共40分) 1. 窗体的标题栏显示内容由窗体对象的属性决定。 A) BackColor B)BackStyle C)Text D)Caption 2. 窗体的示意图标可用属性来设置。 A) Picture B) Image C) Icon D) MouseIcon 3. 窗体的控制菜单的有无由窗体对象的属性决定。 A) ControlBox B) MinButton C) MaxButton D) BorderStyle 4. 若要取消窗体的最大化功能，则可设置属性为False来实现。 A) ControlBox B) MinButton C) MaxButton D) Enabled 5. 以下4个选项，不属于VB的工作模式。 A) 编译 B) 设计 C) 运行 D) 中断 6. 窗体的边框样式由窗体对象的属性来设置。 A) BackStyle B) BorderStyle C) WindowState D) FillStyle 7. 若要以程序代码方式设置在窗体中显示文本的字体大小，则可用窗体对象的属性来实现。 A) FontName B) Font C) FontSize D) FontBold 8. 命令按钮的标题文字由属性来设置。 A) Text B) Caption C) Name D) (名称) 9. VB是面向对象的程序设计，以下4个选项，不属于面向对象的三要素。 A) 变量 B) 属性 C) 事件 D) 方法 10. 若要将某命令按钮设置为默认命令按钮，可设置属性为True来实现。 A) Value B) Cancel C) Default D) Enabled 11. 若要使命令按钮不可见，可设置属性为False来实现。 A) Value B) Enabled C) Visible D) Cancel 12. 运行程序时，系统自动执行窗体的事件。 A) load B) click C) unload D) GotFocus 13. 若要设置文本框最大可接收的字符数，可通过属性来实现。 A) MultiLine B) Length C) Max D) MaxLength 14. 若要使某命令按钮获得控制焦点，可使用方法来设置。 A) Refresh B) SetFocus C) GotFocus D) Value 15. 若要使命令钮可响应事件，可通过设置属性的取值来实现。 A) Visible B) Enabled C) Default D) Value 16. 在运行时，若要调用某命令按钮的Click事件过程，可设置该命令按钮对象的 属性为True来实现。 A) Enabled B) Value C) Default D) Cancel 17. 标签框的边框，由属性的设置值决定。 《VB程序设计》试卷试卷十五 一、判断题（共10分，每题1分，在答题卡上回答，A表示正确，B表示错误） 1. 窗体中只能有一个命令按钮设置Default属性为True，在任何情况下，按 | 最新VB题库及答案 一、选择题 第1部分 1、在窗体（名称为Form1）上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写一个事件过程。程序运行后，如果在文本框中输入一个字符，则把命令按钮的标题设置为“计算机等级考试”。以下能实现上述操作的事件过程是 A、Private Sub Text1_Change() = "计算机等级考试" End Sub ] B、Private Sub Command1_Click() Caption = "计算机等级考试" End Sub C、Private Sub Form_Click() = "计算机等级考试" End Sub D、Private Sub Command1_Click() = "计算机等级考试" { End Sub 2、在一行内写多条语句时，每个语句之间用（）符号分隔。 A、 , B、： C、. D、； 3、下面（）是合法的变量名。 A、X_YZ B、123ABC C、INTEGER D、X-Y ] 4、下面（）是合法的字符常量。 A、 ABC$ B、“ABC” C、‘ABC’ D、 ABC 5、表达式16/4 - 2^5*8 MOD 5\2的值为（）。 A、14 B、 4 C、20 D、2 6、设a=”MicrosoftVisualBasic”，则以下使变量的b值为”VisualBasic”的语句是 A、b=Left(a,10) B、b=Mid(a,10) — C、b=Right(a,10) D、b=Mid(a,11,10) 7、设a="a"，b="b"，c="c"，d="d"，执行语句x = IIf((a < b) Or (c > d), "A", 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、利用随机函数产生25个100到999之间的整数，构成5 5的矩阵，输出该矩阵。Dim a(1 To 5, 1 To 5) Private Sub Form_Click() Ran domize For i = 1 To 5 Forj = 1 To 5 a(i, j) = Int(Rnd * (999 - 100 + 1) + 100) Print a(i, j); Next j Print Next i End Sub 2、利用随机函数产生25个10到99之间的整数，求其平均值(要求保留3位小数，第4 位四舍五入)。Private Sub Form_Click() For i = 1 To 25 a = In t(R nd * (99 - 10 + 1) + 10) Print a; s = s + a Next i Print Avg = s / 25 Print Avg End Sub 3、在窗体上按下鼠标的右键，记录其坐标。 Private Sub Form_Load() Label1.BorderStyle = 1 Label1.Alig nment = 2 End Sub Private Sub Form_MouseDow n(Button As In teger, Shift As In teger, X As Si ngle, Y As Si ngle) If Butt on = 2 The n Label1.C apti on = X & "," & Y End If End Sub 4、利用随机函数产生25个10到99之间的整数，按从小到大的顺序显示。Dim a(1 程序设计题 1、题目：(事件)单击窗体(响应)用输入框输入一自然数，判断是"正数"、"负数或"零"，并根据输入的数用消息框显示"正数"、"负数”或"零"。 2、题目：(事件)单击窗体。(响应)求200~300之间既能被3整除又能被7整除的数。并求出所有数之和存入变量SUM中 3、题目：单击窗体。(响应)已知S=1+1/4+1/9+1/16+1/25+…+1/100，结果输出在窗体上。 4、题目：(事件)单击窗体。(响应)在窗体上打印数列2/1,3/2,5/3,8/5,13/8…的前10项，并求其和，将和保存在变量s中。 5、题目：(事件)双击窗体。(响应)把一元钞票换成一分、二分和五分的硬币每种至少有一枚），求出其所有的换法，把结果输出在窗体上。将所有的换法的数目存入变量N中 6、题目：单击窗体。)求1!+2!+3!+4!+5!并将结果输出到窗体上。结果存入变量S中 7、题目：(事件)单击窗体。(响应)生成一个一维数组(10个数组元素依此为： ' 15、23、72、43、96、23、3、65、88、17 写程序求出这个数组中的最大值、最小值和平均值，并输出在窗体上。将最大值，最小值，平均值分别存入变量Max,Min,Aver 中 8、题目：(事件)单击窗体。(响应)在窗体上输出100~200之间的所有合数。求出所有数之和存入SUM中所谓合数是指自然数中能被1和本数整除以外,还能被其他数整除的数。 9、题目：(事件)单击窗体。(响应)求10~20之间所有素数的乘积并输出在窗体上。将结果存入变量L中。 10、题目：(事件)单击窗体。(响应)求1 - 1/2 + 1/3 - 1/4 + …… + 1/99 - 1/100的值。将结果存入变量J中。 1题 n = InputBox("输入一个自然数") If n > 0 Then result = "正数" ElseIf n < 0 Then result = "负数" ElseIf n = 0 Then result = "零" End If MsgBox "输入的数据" & n & "为：" & result 2题 Dim i As Integer For i = 201 To 300 If ((i Mod 3) = 0) And ((i Mod 7) = 0) Then Print (CStr(i)) sum = sum + i End If Next Print sum 3题 Dim i As Integer s = 0 For i = 1 To 10 s = s + 1 / (i ^ i) Next Print (s) 4题 Dim i, j, k, m As Integer s = 0 :i = 2:j = 1 For k = 1 To 10 s = s + i / j m = j Print (CStr(i)) & "/" & CStr(j) j = i i = i + m Next 5题 Dim i, j, k As Integer For i = 1 To 100 For j = 1 To 50 For k = 1 To 20 If ((i + 2 * j + k * 5) = 100) Then Print (CStr(i)) Print (CStr(j)) Print (CStr(k)) n = n + 1 End If Next Next Next 6题 Dim i, j, k As Integer For i = 1 To 5 k = 1 For j = 1 To i 《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．空字符串 第一部分 １在窗体上添加一个命令按钮(名称为Cmd1，标题为"输出平均值"）。程序运行后，单击命令按钮完成以下工作： ①随机产生20个０到10０0的整数,将其放入一个一维数组中 ②求出所有元素的平均值，并显示在窗体上（如下图所示) ＰrivaｔｅSub Cmd1_Cｌick（) Ｄim ａ%（１9）, i%,ｓum!, avｅr! Raｎdomizｅ Foｒｉ= 0 Ｔo１9 a(i) =Int(Rｎd * 100１） sum = sum ＋a(i） Nｅxｔi ａver = suｍ/20 Print aveｒ EnｄSub 2 请在名称为Fｏrm1的窗体上添加一个名称为Ｔext１的文本框和一个名称为C1、标题为＂转换＂的命令按钮,如下图所示。在程序运行时，单击＂转换＂按钮,可以把Tｅxｔ1中的小写字母转换为大写，把大写字母转换为小写,其他字符不变。 Prｉvate Sub Ｃ1_Clｉｃｋ() Dim ｃh As String, ch１ As String, i％ cｈ= Text1 Ｆoｒ i = 1 Ｔo Len(ｃｈ） Ｉf Aｓｃ(Mｉd（ｃh，i, 1)) >= ６5 And Aｓｃ(Mid(cｈ, i, 1)) <= 9０Theｎ ｃh１= ch1 + LCａse（Mid(cｈ, i, 1）) Elｓｅ ｃｈ1 ＝ ch1 ＋ UCasｅ（Ｍid(ｃh, i, 1)） Enｄ If Neｘｔ i Text1 = Teｘｔ１＋ vｂCｒＬf Teｘt１＝ Text1 ＋ ch1 End Ｓub 3 在窗体上添加一个命令按钮(名称为MyCｍd1,标题为"输出最大值")。程序运行后,单击命令按钮完成以下工作： ①随机产生3０个0~100０的整数，将其放入一个一维数组中 ②求出其中的最大值，并显示在窗体上。 Prｉvate SuｂMyCmｄ１_Ｃliｃk() Diｍa%(2９)， i%, max% Ｒandomize Fｏr i = 0 To ２9 a(i) ＝Ｉnt(Rｎd ＊ 1００1) Nｅxｔ i ｍａx = ａ(0) Foｒi ＝ 1 To 2９ Iｆ a(i) > max Ｔｈｅn max = a（i) Nｅｘt ｉ Pｒint mａｘ End Sub 4 请设计如下图所示窗体界面。程序运行时，在选中一个或两个复选框和一个单选按钮时，单击命令按钮,则对文本框中的文本内容做相应的设置。请编写适当的事件过程,完成上述功能。 月考上机试题 一．选择题：(10*2) 1由单精度浮点型的数据组成的字节数是 A.2 B.4 C.8 D.16 2.可以同时删除字符串前导和尾部空白的函数是 A．Ltrim B．Rtrim C．Trim D．Mid 3.在设计阶段，当双击窗体上的某个控件时，所打开的窗口是 A.工程资源管理器窗口 B.工具箱窗口 C.代码窗口 D.属性窗口 4.在窗体上添加如下命令按钮，然后编写如下事件过程：C Private Sub Command1 _ Click() Dim a(10)As Integer Dim p(3)As Integer k=5 For i=1 To 10 a(i)=i Next i For i=1 To 3 p(i)=a(i*i) Next i For i=1 To 3 k=k+p(i)*2 Next i Print k End Sub 该过程的运行结果为: A.35 B.33 C.31 D.29 5.VB表达式Cos(0)+Abs(1)+Int(Rnd(1))的值是 A.1 B. -1 C. 0 D. 2 6.若m，x，y，均为Integer型变量，则执行下面语句后m值是m=1：X=2：Y=3 m=IIf(X＞Y，X+Y，X-Y) A.-1 B.0 C.1 D. 2 7.设a=″Visual Basic″，下面使b=″Basic″的语句是 A.b=Left(a，8，12) B.b=Mid(a，8，5) C.b=Right(a，5，5) D.b=Left(a，8,5) 8.以下不能运行工程的操作是 A..执行"运行"菜单中的"启动"命令 B.单击工具栏中的"启动"命令 D.按下F5键 C.按下Ctrl+F5键 9.下列关于面向对象程序设计的叙述不正确的是 A.对象具有属性、方法等特性 B.对象之间的通信产生了消息 C.一个对象是一个软件构造块，它包含数据与相关的操作 D.对象的属性不能被改变 10.在窗体上画一个名称为Command1的命令按钮，然后编写如下程序： Private Sub Command1 _ Click（） Static X As Integer Static Y As Integer Cls Y=l Y=Y+5 X=5+X Print X，Y End Sub 程序运行时，三次单击命令按钮Command1后，窗体上显示的结果为: A.15 16 B.15 6 C.15 15 D.5 6 二．填空题（3*4） 1.计算1*2*3*...*3000，当积大于3000时停止计算。请在_______处将程序补充完整。 Private Sub FormClick() Dim t As Single,j As Integer J=1 For j=1 To 3000 ____t=t*j______________ If t＞3000 Then Exit For Next j Debug.Print j,t End Sub 2.下面程序运行后，输出的结果是_BBBB______。 For J= 1 To 10 A(J)=2*J B(J)=A(J)*2 Next J Print B(J/2+0.1) End 3.设有如下程序：程序运行后，单击窗体，则在窗体上显示的是6 5 4 3，请在_______处将程序补充完整。 Option Base 0 Private Sub Form _ Click（） Dim a Dim i As Integer a=Array(1，2，3，4，5，6，7，8，9) For i=0 To 3 Print a(5-i) Next i End Sub 三．编程题：（34*2） 1. 用随机函数产生10个不大于100的整数存入一维数组a中，并找出这组数中能被3整除余2的数赋值于数组b。点击开始按钮在窗体中显示数组a和数组b。《VB程序设计》考试题型练习 答案
大学VB考试题库
vb程序设计试题(含答案)
VB程序设计编程考试~题及答案~
VB练习题(上机)含答案
VB程序设计 试题与答案-1
VB考试题及答案
VB程序设计试题及答案一
vb试题及答案
VB程序设计试卷
vb题库及答案
VB程序设计试卷一
VB上机考试习题以及答案
VB程序设计考试题库考试专用
VB程序设计期末模拟试卷
VB练习题(上机)含标准答案
VB程序设计考试试题及答案