发布时间 : 星期日 文章VB程序设计试题及答案（一）更新完毕开始阅读e638f474fbb069dc5022aaea998fcc22bcd143b5
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) \(B) \女\男\ (C) \(D) \
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=\男\，\教授\ (B) If sex=\男\教授\副教授\n=n+l
(C) If sex=\男\，2)=\教授\ (D) If sex=\男\教授\副教授\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 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 。
1
(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.程序阅读，写出下列程序的运行结果。
2
(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、\分别代表
(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
3
(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 定义方式是正确的。
(C) CommonDialog1.Filter=”All
Files|*.*|Pictures(*.Bmp)|(*.Bmp)” (D) CommonDialog1.Filter={All Files|*.*|Pictures(*.Bmp)|(*.Bmp)}
19.如果Form1是启动窗体，并且Form1的Load事件过程中有语句Form2.Show，则程序启动后 D 。 (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)”
(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 个。
4