VB程序设计试题及答案

1、精品文档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=欢迎使用 VB3.若要使命令按钮不可操作，要对A属性进行设置。(A) EnabIed(B)Visible(C) Backcolor(D)Caption4.如果在窗体上已经创建了一个文本框对象TextI

2、，可以通过 C事件获得输入键值的ASCII 码。(A) Change(B) LostFocus(C) KeyPress(D) GotFocus5.下面 A是合法的变量名。(A) X_yz(B) 123ab 。(C) integer(D) X-Y6.以下关系表达式中，其值为False 的是 A。(A) ABCAbC(B) 女 男(C) BASIC=UCase(basic)(D) 123O Then n=n+l(B) If sex=男 And age=4O And (duty=教授 Or duty=副教授) Then n=n+l(C)Ifsex= 男 And age=4O And Right(du

3、ty，2)= 教授 Then n=n+l(D) If sex=男 And age=4O And duty=教授 And duty=副教授 Then n=n+l10. 下列关于DoLoop 循环结构执行循环次数的描述正确的是D。(A) Do WhileLoop 循环和 Do Loop Until循环至少都执行一次(B) Do WhileLoop 循环和Do Loop Until循环可能都不执行(C) Do WhileLoop 循环至少执行一次和Do Loop Until循环可能不执行(D) Do WhileLoop 循环可能不执行和Do Loop Until循环至少执行一次11. 以下B是正确的

4、ForNext 结构。(A)For x=1 To Step 10(B)For x=3 To -3 Step-3 Next xNext x(C) For x=1 To 10(D) For x=3 to 10 step 3re:Next xNext yIf i=10 Then GoTO re12. 如下数组声明语句，B是正确的。(A) Dim a3,4 As Integer(B) Dim a(3,4) As Integer(C) Dim a(n,n) As Integer(D) Dim a(3 4) As Integer13. 下列语句中（假定变量n 有值），能正确声明可变长数组的是A。(A) D

5、im a( ) As Integer(B) Dim a( ) AsIntegerReDim a(n)ReDim a(n)As String(C) Dim a( ) As Integer(D) Dim a(10) AsIntegerReDim 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. 设有如下

6、程序段：Public Sub F1(n%)n=3*n+4End SubPrivate Sub Command1_Click( )Dim n%, m%n=3m=4。1 欢迎下载精品文档调用 F1 语句(A) F= “c:t1.txt”Open F For Input As #1End Sub(B) F= “c:t1.txt”则在 Command1_Click 事件中有效的调用语句是B 。Open “F”For Input As #2(A) Call F1(n+m)(B) Call F1(m)(C)(C) Open “c:t1.txt”For Input As #1Call F1(5)(D) Ca

7、ll F1(m+5)(D) Open c:t1.txt For Input As #216. 用来设置粗体字的属性是C 。23. 坐标度量单位可由通过来D改变。(A) FontItalic(B) FontName(C)FontBold(D) FontSize17. 假定定时器的Interval属性为1000 ，Enabled属性为True ，调用下面的事件过程，程序运行结束后变量x 的值为D。Dim x As IntegerSub Timer1_Timer( )For i=1 to 10x=x+1Next iEnd Sub(A) 1000(B) 10000(C) 10(D)以上都不对18. 在

8、下列关于通用对话框的叙述中，错误的是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

9、、KeyUp(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，若要程序一运行时焦点就定位在C

10、ommand1控件上，应对Command1控件设置 TabIndex属性的值为0。3在 VB 中， 1234 、 123456& 、 1.2346E+5、1.2346D+5 这 4个常数分别表示整形、 长整形、单精度、双精度类型。4表示 x 是 5的倍数或是 9 的倍数的逻辑表达式为x mod 5 = 0 orx mod 9=0。5数组声明时下标下界默认为0，利用OpationBase 1语句可以使下标为 1。6传地址方式是当过程被调用时，形参和实参共享存储单元。7窗体中的模块级变量应在窗口模块段声明，它作用于该窗体(D)没有规律的全局范围。20.在下面关于顺序文件的描述中，正确的是C。8当用

11、户单击滚动条的空白处时，滑块移动的增量值(A)顺序文件中每行的长度都是相同的。由LargeChange属性决定。(B)可以通过编程对文件中的某行方便地进行修改9如果菜单标题的某个字母前输入一个“&”符号，那么该字母就成了(C)数据以 ASCII 码的形式存放在文件中，所以可通过记事本打开热键字母；如果建立菜单时在标题文本框中输入一个“ -(减号)”(D)文件的组织结构复杂符号，那么显示时形成一个分隔符。21.随机文件是因为C 。10使用 Scale方法可以自定义坐标系。(A)文件中的内容是通过随机数产生的11使用 Line 方法画矩形，不许在指令中使用关键字B。(B)文件中的记录号通过随机数产

12、生的12使用 SQL语句设置 ADO控件的 RecordSource 属性，这 CommandType(C)可对文件中的记录根据记录号随机地读/ 写属性需要设置成1(adCmdText) 或者 (adCmdUnknown)。(D)文件的每条记录的长度是随机的13为了显示一个窗体， 所使用的方法为 show；而为了隐藏一个窗体，22.从磁盘上读入一个文件名为“c:t1.txt”顺序文件，如下A正所使用的方法为_Hide_ _ 。确。2 欢迎下载精品文档14如果要将某个命令按钮不显示，则可将_Visible_ 属性设置为False15在 VB 中窗体文件的扩展名为_. FRM_ 。三、编程应用题1

13、. 程序阅读，写出下列程序的运行结果。(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)=A And UCase= ZThenVB 程序设计试题及答案（二）一、单选题1. VB6.0集成开发环境不包括A窗口。(A) DOS界面窗口(B)窗体窗口(C)代码窗口(D)属性窗口2. 有程序代码如下 :

14、CTex1.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) Caption5. 与数学表达式 对应 ，不正确的 VB 算术表达式是 D。(A) a*b/(

15、3*c*d)(B) a/3*b/c/d(C) a*b/3/c/d(D) a*b/3*c*d6. InputBox函数返回值的类型是B。(A)整型数值(B)字符串(C)变体（ D） 数值或字符串7.下面正确的赋值语句是C。(A) x+y=30(B) y=*r*r(C) y=x+30(D) 3y=x8.下面程序段运行后，显示的结果是C。Dim xIf x Then Print x Else Print x+1(A)l(B)O(C)-1(D) 显示出错信息9.下面程序段，运行后显示的结果是A。Dim xx=Int(Rnd)+5Select Case xCase 5Print 优秀 Case 4Pri

16、nt 良好 Case 3Print 通过 CaseE ElsePrint 不通过 EndSelect(A)优秀(B)良好(C)通过(D)不通过10. 下列循环结构能正常结束循环的是C。(A) i=5(B) i=1DoDoi=i+1i=i+2Loop Until i0Loop Until i=111. 下面的程序段的运行结果为多少？DPrivate Sub Command1_Click( )For i=1 to 5n=0For j=i to 5n=n+1Next jNext i。3 欢迎下载精品文档Print nEnd Sub(A) 10(B) 5(C) 15(D) 112. 要分配存放如下矩阵

17、的数据，C数组声明语句能实现（不浪费空间）。1.12.23.34.45.56.67.78.89.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 Integer13. 在窗体的通用声明段自定义了数据类型Students，下列A定义方式是正确的。(A) Private Type Students(B) TypeStudentsName As Sting*10Name AsSting*10Studno As Integ

18、erStudno AsIntegerEnd TypeEnd Students(C) Type Students(D) TypeStudentsName String*10Name AsSting*10Studno IntegerStudno AsIntegerEnd TypeEnd Type14. 下面子过程说明合法的是D。(A)Sub f1(ByValn%( ) )(B) Sub f1(n%)As Integer(C) Function f1%(f1%)(D) Functionf1(ByVal n%)15. 下面过程运行后显示的结果是C。Private Sub F1(m%, ByVal m%

19、)n=n Mod 10m=m10End SubPrivate Sub Command1_Click( )Dim x%, y%x=12: y=34Call F1(x, y)Print x, yEnd Sub(A) 2 34(B) 1234(C) 23(D)12 316.下列控件中，没有Caption属性的是D 。(A) 框架(B)列表框(C)复选框(D)单选按钮17.在用菜单编辑器设计菜单时，必须输入的项有B 。(A) 快捷键(B)标题(C)索引(D)名称18.以下正确的语句是D。(A) CommonDialog1.Filter=All Files|*.*|Pictures(*.Bmp)|(*.

20、Bmp)(B) CommonDialog1.Filter=”AllFiles ”|”*.* ”|”Pictures(*.Bmp)”|”(*.Bmp) ”(C) CommonDialog1.Filter=”AllFiles|*.*|Pictures(*.Bmp)|(*.Bmp)”(D) CommonDialog1.Filter=All Files|*.*|Pictures(*.Bmp)|(*.Bmp)19. 如果 Form1 是启动窗体，并且Form1 的 Load 事件过程中有语句Form2.Show ，则程序启动后D。(A)发生一个运行时错误(B)发生一个编译错误(C)在所有的初始化代码运行

21、后Form1 是活动窗体(D)在所有的初始化代码运行后Form2 是活动窗体20. 按存储信息的形式分类，文件可以分为B。(A)顺序文件和随机文件(B)ASCII 文件和二进制文件(C)程序文件和数据文件(D)磁盘文件和打印文件21. 下面关于随机文件的描述不正确的是B。(A) 每条记录的长度必须相同(B) 一个文件中记录号不必唯一(C) 可通过编程对文件中的某条记录方便地修改(D) 文件的组织结构比顺序文件复杂22. 为了建立一个随机文件， 其中每一天记录由多个不同数据类型的数据项组成，应使用C。(A)记录类型(B)数字(C)字符串类型(D) 变体类型23. 当使用 Line 方法画直线后，

22、当前坐标在。C(A)(0,0)(B)直线起点(C)直线终点(D)容器的中心24. 命令按钮、单选按钮、复选框上都有Picture属性，可以在控件上显示图片，但需要通过属性B来控制(A) Appearance(B) Style(C) DisabledPicture(D)DownPicture。4 欢迎下载精品文档25. 设置 ADO数据控件 RecordSource 属性为数据库中的单个表名，则CommandType属性需设置为B。(A) adCmdText(B) adCmdTable(C)adCmdStoreProc(D)adCmdUnknown二、填空题1对文本框的ScrollBars属性设

23、置为 2（有垂直滚动条），但没有垂直滚动条显示，是因为没有将MultiLine属性设置为 True 。2对命令按钮的Picture属性装入 .bmp 图形文件后，选项按钮上并没有显示所需的图形，原因是没有将Style属性设置为 1（ Graphical ）。3Int(-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按如下要求书写函数过程定义的首语句，即FunctionMyF(a as int,b(n)as i

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

25、体的_load_ 事件。13结构化程序设计中，三种基本结构是_ 分支结构 _ 、 _顺序结构 _ 和循环结构。三、编程应用题1. 程序阅读(1)Private Sub Command1_Click()Dim x() As IntegerDim n%, i%n = 10ReDim x(n - 1)x(0) = 1x(1) = 1For i = 2 To n - 1x(i) = x(i - 1) + x(i - 2)Next iFor i = 0 To n - 1Print x(i),If (i + 1) Mod 5 = 0 Then PrintNextEnd Sub输出结果：1123813213

26、4(2) Public Function f(m%, n%)Do While mnDo While m n: m=m-n: LoopDo While ma(i)Thent = a(j):a(j) =a(j +1):a(j + 1) =tEnd IfNext jNext iFor i = 0 To nPrint a(i);。5 欢迎下载精品文档Next iEnd Sub(2) 用递归的方法求 n!Private Sub Command1_Click()Print fac(4)=; fac(4)End SubPublic FunctionfacAs IntegerIf n = 1 Thenfac

27、= 1ElseFac=fac*nEnd IfEnd FunctionVB 程序设计试题及答案（三）一、单选题1. Visual Basic 是一种面向对象的可视化程序设计语言，采取了 A 的编程机制。(A)事件驱动(B)按过程顺序执行(C)从主程序开始执行(D)按模块顺序执行2.若要使标签控件显示时不覆盖其背景内容，要对D 属性进行设置。(A) Backcolor(B)BorderStyle(C) Forecolor(D)Backstyle3.在 VisualBasic中最基本的对象是C，它是应用程序的基石，是其他控件的容器。(A)文本框(B)命令按钮(C)窗体(D)标签4.要判断在文本框是否

28、按下Enter键，应在文本框的D事件中判断。(A) Change(B)KeyDown(C) Click(D)KeyPress5.数学表达式3xl0 在 VB 中的逻辑表达式为D。(A) 3=x10(B) 310(C) x=3 Or x=3 AND xy，x，y)(B) If xy Then Max=xElse Max=y(C) Max=x(D) Ify=x Then Max=yIf y=x Then Max=yMax=x10. 当在文本框中输入“ABCD”4 个字符时，窗体上显示的是C。Private Sub Text1_Change( )Print Text1;End Sub(A) ABCD

29、(B) A(C) AABABCABCD(D) ABABCABCDABCD11. 下列哪个程序段不能分别正确显示1！、2 ！、3 ！、4 ！的值B。(A)For i=1 to 4(B)For i=1to 4n=1Forj=1 to iFor j=1 to In=1n=n*jn=n*jNext jNext jPrint nPrint nNext INext i(C) n=1(D) n=1For j=1 to4j=1n=n*jDo Whilej=0 Anda+cb+3 Or Not d的值是False。5要获得动态数组的上界通过UBound函数，下界通过 LBound 函数。6由 Array 函数建

30、立的数组，其变量类型必须是variant类型。7 VB中的变量按其作用域分为全局变量、模块变量和局部变量变量。8复选框的Value属性设置为 2Grayed 时，变成灰色，禁止用户选择。9滚动条响应的重要事件有Scroll和 Change。10假定有一个通用对话框控件CommonDialog1，除了用COmmonDialog1.Action=3 显示颜色对话框之外，还可以用showcolor方法显示。11窗体 Form1 的左上角坐标为 (-200, 250)，窗体 Form1的右下角的坐标为(300, -150) ，则 X 轴的正向向右，Y轴的正向向上。12使用 Circle方法画扇形，起始

31、角、终止角取值范围为 02 。13在运行状态改变ADO数据控件的数据源连接属性后，必须使用Refresh方法激活这些变化。14VB中工程文件的扩展名为vbg。15如果在窗体上已经创建了一个文本框对象Text1 ，可以通过 Keypress事件获得输入键值的ASCII 码。16VB中对象的三要素是属性、事件和方法。三、编程应用题1. 程序阅读(1) Private Sub Command1_Click( )Dim s as String, i%s= abcdFor i=Len(s) to 1 step -1Print Mid(s, i, 1)Next iEnd Sub输出结果：dcba(2)Su

32、b Swap1(ByVal x%, ByVal y%)Dim t%t = x: x = y: y = tEnd SubSub Swap2(ByRef x%, ByRef y%)Dim t%t = x: x = y: y = tEnd SubSub Command1_Click()Dim a%, b%a = 10:b = 20Print 调用 Swap1前 a 和 b 的值为：;a; bCall Swap1(a, b)Print 调用 Swap1后按传值方式 a 和 b 的值为： ; a; ba = 10: b = 20Call Swap2(a, b)Print 调用 Swap2后按传地址方式

33、a 和 b 的值为： ; a; bEnd 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=44z=x*yDo Until x=yIf xy Then x=x-y Else y=y-xLoopPrint x, z/xEnd Sub输出结果 :224842. 补充程序(1)以下是求1 18 之间某个数的阶乘的程序，具体的数值n 由滚动条 HScroll1获得， 结果显示在窗体下部的两个Label 标签里。 补充完整如下程序。Private Sub HScroll1_Change()Dim i As Integer, s As Doubles = 1n = Hscroll1.ValueIf n 0 ThenFor i = 1 To n。8 欢迎下载精品文档s = s*iNext iEnd IfLabel2.Caption = n & ! = Label3.Caption = sEnd Sub(2) 以下程序的功能是：已知数组a，删除数组中某个元素。Private