VB程序设计试题及答案一

1、 精品文档 VB 程序设计试题及答案(一) 一、单选题 1. VB6.0 是一种面向 B 的编程环境。 (A)机器 (B)对象 (C)过程 (D)应用 2.要使 FormI 窗体的标题栏显示”欢迎使用 VB，以下 D 语句是 正确的。 (A) Forml.Captio n= 欢迎使用 VB” (B) Forml.Capti on二 欢迎使用 VB (C) Forml.Capti on= 欢迎使用 VB (D) Forml.Captio n二 欢迎使用 VB 3.若要使命令按钮不可操作，要对 A 属性进行设置。 (A) Enabled (B)Visible (C) Backcolor (D)Ca

2、pti on 4.如果在窗体上已经创建了一个文本框对象 过 C 事件获得输入键值的 ASCII 码 Textl，可以通 (A) Change (B) LostFocus (C) KeyPress (D) GotFocus 5. 下面 A 是合法的变量名。 (A) X_yz (B) 123ab 。 (C) in teger (D) X-Y 6. 以下关系表达式 中，其值为 False 的是 A 。 (A) ABCAbC (B) 女男 (C) BASIC二 UCase(basic) (D) 123O Then n=n+l (B) If sex= 男 ” And age=4O And (duty=

3、教授 ” Or duty= 副教授 )The n 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= 副教授 The n n=n+l 10. 下列关于 DoLoop循环结构执行循环次数的描述正确的是 D 。 (A) Do While -Loop循环和 Do-Loop Un til 循环至少都执行一次 (B) Do While Loop循环和 DeLoop Un til 循环可能都不执行 (C) Do While Loop循环至少执行一

4、次和 Do-Loop Un til 循环可能 不执行 (D) Do While Loop循环可能不执行和 Do-Loop Un til 循环至少执 行一次 11.以下 B 是正确的 For Next 结构。 (A) For x=1 To Step 10 (B) For x=3 To -3 Step -3 Next x (C) For x=1 To 10 re: Next x If i=10 Then GoTO re 12.如下数组声明语句， B Next x (D) For x=3 to 10 step 3 Next y 是正确的。 (A) Dim a3,4 As Integer (B) Di

5、m 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 Integer ReDima(n) (C) Dim a( ) As Integer Integer ReDim a(3, 4) ReDim Preserve a(4, 4) (B) Dim a( ) As ReDim a(n) As String (D) Dim a(10) As ReDim a(n+10) 14.要想从子过程调用

6、后返回两个结果，下面子过程语句说明合法的 是 C 。 (A) Sub f2(ByVal n%, ByVal m%) ByVal m%) (C) Sub f1(n%, m%) m%) 15.设有如下程序段： Public Sub F1(n%) n=3*n+4 (B) Sub f1(n%, (D) Sub f1(ByVal n%, End Sub Private Sub Command1_Click() Dim n%, m% n=3 m=4 1欢迎下载 (A) F= C:t1.txt 2欢迎下载精品文档 End Sub 则在 Command1_Click 事件中有效的调用语句是 B 。 (A) C

7、all F1( n+m) (B) Call F1(m) (C) Call F1(5) (D) Call F1(m+5) 16. 用来设置粗体字的属性是 C 。 (A) Fon tItalic (B) Fon tName (C) Fon tBold (D) Fon tSize 17. 假定定时器的 Interval 属性为 1000，Enabled属性为 True，调用 下面的事件过程，程序运行结束后变量 x 的值为 D 。 Dim x As In teger Sub Timer1_Timer() For i=1 to 10 x=x+1 Next i End Sub (A) 1000 (B) 1

8、0000 (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

9、(C) KeyDown、KeyPress、KeyUp (D) 没有规律 20. 在下面关于顺序文件的描述中，正确的是 C 。 (A) 顺序文件中每行的长度都是相同的。 (B) 可以通过编程对文件中的某行方便地进行修改 (C) 数据以 ASCII 码的形式存放在文件中，所以可通过记事本打开 (D) 文件的组织结构复杂 21. 随机文件是因为 C 。 (A) 文件中的内容是通过随机数产生的 (B) 文件中的记录号通过随机数产生的 (C) 可对文件中的记录根据记录号随机地读 /写 (D) 文件的每条记录的长度是随机的 22. 从磁盘上读入一个文件名为 C:t1.txt 顺序文件，如下 A 正 确。

10、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.用 ADC数据

11、控件建立与数据源的链接, 进行. 设置操作过程按 A 顺序 选择数据源连接方式；选择数据库类型；指定数据库文件名; 指定记录源 (A) (B) (C) (D) 二、填空题 1. VB 是建立在 BASIC语言基础上的 可见 化编程语言或编程 环境。 2. 在窗体上已建立多个控件如 Text1、Label1、Command】若要程序 一运行时焦点就定位在 Command1 控件上，应对 Command1 控件设 置 TabIndex 属性的值为 0 。 3 .在 VB 中，1234、123456&、1.2346E+5、1.2346D+5 这 4 个常数分 别表示 整形、长整形 单精度、双

12、精度 类型 4.表示 x 是 5 的倍数或是 9 的倍数的逻辑表达式为 x mod 5 = 0 or x mod 9=0 。 5.数组声明时下标下界默认为 0,利用 Opation Base 1 语句可 以使下标为 1。 6. 传地址方式是当过程被调用时，形参和实参共享 存储单元 7. 窗体中的模块级变量应在 窗口模块 段声明，它作用于该窗体 的全局范围 。 &当用户单击滚动条的空白处时，滑块移动的增量值 由 LargeChange 属性决定。 9.如果菜单标题的某个字母前输入一个 &符号，那么该字母就成了 热键字母；如果建立菜单时在标题文本框中输入一个 “-(减号) ” 符号

13、，那么显示时形成一个分隔符。 10 .使用 Scale 方法可以自定义坐标系。 11.使用 Line 方法画矩形，不许在指令中使用关键字 B 。 12 .使用 SQL 语句设置 ADQ 控件的 RecordSource 属性，这 CommandType 属性需要设置成 1(adCmdText)或者(adCmdUnknown) 。 13 .为了显示一个窗体， 所使用的方法为 show;而为了隐藏一个窗体, 所使用的方法为_Hide _ 。 调用 F1 语句 3欢迎下载精品文档 14.如果要将某个命令按钮不显示，则可将 性设置为 False .Visible_ _ 属 5.与数学表达式 对应，不正

14、确的 VB 算术表达式是 15.在 VB 中窗体文件的扩展名为 _ . FRM 二、编程应用题 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(O): imin=O: sum=a(O) For i=1 to UBound(a) sum=sum+a(i) If a(i)= 11 A And UCase= Z Then VB 程序设计试题及答案(二) 一、单选题 1. VB6.0

15、集成开发环境不包括 A 窗口。 (A) DOS 界面窗口 (B) 窗体窗口 (C)代码窗口 (D)属性窗口 2.有程序代码如下：C Tex1.Text= Tex1.Text 则 Tex1、Text、 Tex1.Text 分别代表 (A)对象、值、属性 (C)对象、属性、值 3.下面关于对象的描述中, (B)对象、方法、属性 (D)属性、对象、值 A 是错误的。 (A) 对象就是自定义结构变量 (B) 对象代表正在创建的系统中的一个实体 (C) 对象是一个特征和操作的封装体 (D) 对象之间的信息传递是通过消息进行的 4.要使某控件在运行时不可显示，应对 B 属性进行设置。 (A) Enable

16、d (C) Backco lor (B) Visible (D) Caption (A) a*b/(3*c*d) (B) a/3*b/c/d (C) a*b/3/c/d 6. InputBox 函数返回值的类型是 (A)整型数值 (B)字符串 串 7. 下面正确的赋值语句是 C (D) a*b/3*c*d B 。 (C)变体 (D)数值或字符 (A) x+y=30 (C) y=x+30 8.下面程序段运行后，显示的结果是 (B) y= *r*r (D) 3y=x C 。 Dim x If x Then Print x Else Print x+1 (A)l (B)O (C)-1 (D)显示岀错

17、信息 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) 10.下列循环结构能正常结束循环的是 (A) i=5 (B) i=1 Do i=i+1 Loop Un til i0 Loop Un til i=1 11.下面的程序段的运行结果为多少？ D Private Sub Comma nd1_Click() For i=1 to 5 n=0 For j=i to 5 n=n+1

18、Next j Next i (A) Dim a(9) As Si ngle (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) CommonDialog1.Filter=All Files|*.*|Pictures(*.Bmp)|(*.Bmp) (B) CommonDialog1.Filter= All Files ”| ”*.* ”Pictu

19、res(*.Bmp) ”| ”(*.Bmp) (C) CommonDialog1.Filter= ” All Files|*.*|Pictures(*.Bmp)|(*.Bmp) ” (A) Private Type Students Students Name As Sting*10 Sting*10 Studno As Integer Integer End Type (C) Type Students Students Name String*10 Sting*10 Studno Integer Integer End Type 14. 下面子过程说明合法的是 D (A) Sub f1(B

20、yVal n%() As Integer (C) Function f1%(f1%) f1(ByVal n%) 15. 下面过程运行后显示的结果是 (B) Type Name As Studno As End Students (D) Type Name As Studno As End Type (B) Sub f1(n%) (D) Function C 。 19.如果 Form1 是启动窗体，并且 Form2.Show，则程序启动后 D (A) 发生一个运行时错误 (B) 发生一个编译错误 (C) 在所有的初始化代码运行后 (D) 在所有的初始化代码运行后 Form1 的 Load事件过程

21、中有语句 Form1 是活动窗体 Form2 是活动窗体精品文档 Print n End Sub (A) 10 (B) 5 (C) 15 12.要分配存放如下矩阵的数据， 空间)。 1.1 2.2 3.3 4.4 5.5 6.6 7.7 8.8 9.9 (D) 1 C 数组声明语句能实现(不浪费 (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)

22、名称 18.以下正确的语句是 D 。 (D) CommonDialog1.Filter=AII Files|*.*|Pictures(*.Bmp)|(*.Bmp) 20.按存储信息的形式分类，文件可以分为 (A)顺序文件和随机文件 件 (C)程序文件和数据文件 件 B 。 (B) ASCII 文件和二进制文 (D)磁盘文件和打印文 21. 下面关于随机文件的描述不正确的是 B 。 (A) 每条记录的长度必须相同 (B) 一个文件中记录号不必唯一 (C) 可通过编程对文件中的某条记录方便地修改 (D) 文件的组织结构比顺序文件复杂 22. 为了建立一个随机文件，其中每一天记录由多个不同数据类型的

23、数 Private Sub F1(m%, ByVal m%) n=n Mod 10 m=m10 End Sub Private Sub Comma nd1_Click() Dim x%, y% x=12:y=34 Call F1(x, y) Print x, y End Sub (A)记录类型 (B)数字 (C)字符串类 型 (D) 变体类型 23 当使用Line 方法画直线后，当前坐标在。 C (A (0, 0) (B) 直线起点 (C) 直线终点 (D)容器的 24.命令按钮、单选按钮、复选框上都有 Picture 属性，可以在控件上 显示图片，但需要通过属性 B 来控制 (A) Appe

24、arance (B) Style (C) DisabledPicture (D) DownPicture 据项组成，应使用 C 中心 4欢迎下载 25.设置 ADO 数据控件 RecordSource 属性为数据库中的单个表名，则 CommandType 属性需设置为 B 。 (A) adCmdText (B) adCmdTable (C) adCmdStoreProc (D) adCmdUnknown 二、 填空题 1. 对文本框的ScrollBars 属性设置为2 (有垂直滚动条)， 但没有垂直滚动条显示，是因为没有将 MultiLi ne 属性 设置为True。 2. 对命令按钮的Pic

25、ture属性装入.bmp图形文件后，选项 按钮上并没有显示所需的图形，原因是没有将 Style 属 性设置为 1 (Graphical )o 3. Int(-3.5) 、lnt(3.5) 、Fix(-3.5) 、Fix(3.5)、Round(-3.5)、 Round(3.5)的值分别 为 4 、 3 、-3 、 3 、-4 、 4 o 4. 若定义一维数组为：Dim a(N to M)，则该数组的元素 为M-N+1 个。 5. 按如下要求书写函数过程定义的首语句，即 Fun ction MyF(a as in t,b( n)as int) 定义语句，要求为：形参有 两个a为整型，b为一位整型数

26、组，函数过程名为MyF函数 返回值为逻辑型。 6 .滚动条产生 Change 事件是因为 Value 值改变了。 7 .如果要每隔 15s 产生一个计时器事件，则 Interval 属性应设置 为 15000 o 8 .在 VB 中，除了可以指定某个窗体作为启动对象之外，还可以指 定 Main 子过程 作为启动对象。 9 .用 Show 方法显示自定义对话框时，如果 Show 方法后 带 vbModal 参数就将窗体作为模式对话框显示。 10. 容器的实际可用高度和宽度由 右 和 上属性确定。 11. 使用 Circle 方法正向采用 逆 时针方向。 12. 启动窗体时，为了初始化窗体中的各控

27、件，可选作窗体的 _load _ 事件。 13. 结构化程序设计中，三种基本结构是 _分支结构 _ 、顺序 结构 _ 和循环结构。 三、 编程应用题 1. 程序阅读 (1)Private Sub Comma nd1_Click() Dim x() As In teger 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 The n P

28、rint Next End Sub 输出结果： 112 3 8 13 21 34 (2) Public Function f(m%, n%) Do While mn Do While m n: m=m-n: Loop Do While ma(i) Then t = a(j): a(j) = a(j + 1): a(j + 1)= End If Next j Next i For i = 0 To n Print a(i);精品文档 将其补 5欢迎下载 Next i End Sub (2)用递归的方法求n! Private Sub Command1_Click() Prin t fac(4)=;

29、 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 是一种面向对象的可视化程序设计语言，采取 (C) x=l 为关系表达式，y=l 为赋值语句 (D) x=l 为赋值语句，y=l 为关系表达式 9. 下面程序段表示求两个数中的大数， D 不正确 (A) Max=llf(xy ，x， y) (B) If xy Then Max=x Else Max=y (C) Max

30、=x (D) Ify=x The n Max=y If y=x Then Max=y Max=x 10. 当在文本框中输入 ABCD4 个字符时，窗体上显示的是 C 。 Private Sub Text1_Cha nge() Print Text1; End Sub (A) ABCD (B) A (C) AABABCABCD (D) A B AB C ABC D ABCD 11. 下列哪个程序段不能分别正确显示 1!、2 !、3 !、4 !的值 B (B) x=l 和 y=l 均为关系表达式 (A) For i=1 to 4 to 4 n=1 For j=1 to I n=n*j Next j

31、 Print n Next I (C) n=1 For j=1 to4 n=n*j j=4 Print n Next j n 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)程序出错 6欢迎下载精品文档 (A)

32、事件驱动 (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

33、 歿l0在 VB 中的逻辑表达式为 D 。 (A) 3=x10 (B) 310 (C) x=3 Or x=3 AND x=0 And a+cb+3 Or Not d 的值是 False 。 5. 要获得动态数组的上界通过 UBound函数，下界通 过LBou nd 函数。 6. 由Array函数建立的数组，其变量类型必须 是variant 类型。 7. VB中的变量按其作用域分为全局变量、模块变量和 局 部变量 变量。 8. 复选框的 - Value 属性设置为2 rayed时，变成灰 色，禁止用户选择。 9. 滚动条响应的重要事件有 Scroll 和Change 10. 假定有一个通用对话框

34、控件 CommonDialog1除了用 COmmonDialog1.Action=3显示颜色对话框之外，还可以 用 showcolor 方法显示。 11. 窗体Form1的左上角坐标为(-200, 250)，窗体Form1 的右下角的坐标为(300, -150)，则X轴的正向向 右 ，Y 轴的正向向 上 。 12. 使用Circle方法画扇形，起始角、终止角取值范围 为 02 n 。 13. 在运行状态改变 ADC数据控件的数据源连接属性后，必 须使用 Refresh 方法激活这些变化。 14. VB中工程文件的扩展名为 vbg 。 15. 如果在窗体上已经创建了一个文本框对象 Text1，可

35、以 通过Keypress 事件获得输入键值的 ASCII码。 16. VB中对象的三要素是 属性、事件 和方 法 。 三、编程应用题 1.程序阅读 (1) Private Sub Comma nd1_Click() Dim s as Strin g, i% s= abcd For i=Le n(s) to 1 step -1 Print Mid(s, i, 1) Next i End Sub 输出结果： d c b a Sub Swap 1(ByVal x%, ByVal y%) Dim t% t = x: x = y: y = t End Sub Sub Swap2(ByRef x%, By

36、Ref y%) Dim t% t = x: x = y: y = t End Sub Sub Comma nd1_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 调用Swap

37、2后按传地址方式a和b的值为： 20 10 Private Sub Comma nd1_Click() Dim x%, y%, z% x=242:y=44 z=x*y Do Un til x=y If xy Then x=x-y Else y=y-x Loop Print x, z/x End Sub 输出结果： 22 484 2. 补充程序 (1)以下是求 118 之间某个数的阶乘的程序，具体的数值 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 8欢迎下载 s = s*i Next i End If Label2.Caption = n & != Label3.Caption = s End Sub (2)以下程序的功能是：已知数组 a,删除数组中某个元素。 Private Sub Command1_Click() Dim a(