最新VB程序设计试题及答案(一).doc-得力文库

资源描述

《最新VB程序设计试题及答案(一).doc》由会员分享，可在线阅读，更多相关《最新VB程序设计试题及答案(一).doc（80页珍藏版）》请在得力文库 - 分享文档赚钱的网站上搜索。

1、Four short words sum up what has lifted most successful individuals above the crowd: a little bit more.-author-dateVB程序设计试题及答案(一)VB程序设计试题及答案（一）VB程序设计试题及答案（一）一、单选题 1. VB6.0是一种面向 B 的编程环境。 (A) 机器 (B) 对象 (C) 过程 (D) 应用 2. 要使FormI窗体的标题栏显示欢迎使用VB，以下 D 语句是正确的。 (A) Forml.Caption=“欢迎使用VB” (B) Forml.Caption=欢迎

2、使用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. 以下关系表达式

3、中，其值为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) 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.下列关于DoLoop循环结构执行循环次数的描述正确的是 D 。 (A) Do Wh

4、ileLoop循环和DoLoop Until循环至少都执行一次 (B) Do WhileLoop循环和DoLoop Until循环可能都不执行 (C) Do WhileLoop循环至少执行一次和DoLoop Until循环可能不执行 (D) Do WhileLoop循环可能不执行和DoLoop Until循环至少执行一次 11.以下 B 是正确的ForNext结构。 (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

5、x Next y If i=10 Then GoTO re 12.如下数组声明语句， 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 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

6、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

7、调用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

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

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

10、件名为“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

11、”将绘制 A 。 (A) 画圆 (B) 椭圆 (C) 圆弧 (D) 扇形 25.用ADO数据控件建立与数据源的链接，设置操作过程按 A 顺序进行。选择数据源连接方式；选择数据库类型；指定数据库文件名；指定记录源 (A) (B) (C) (D) 二、填空题 1VB是建立在BASIC语言基础上的可见化编程语言或编程环境。 2在窗体上已建立多个控件如Text1、Label1、Command1，若要程序一运行时焦点就定位在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窗体中的模块级变量应在窗口模块段声明，它作用于该窗体的全局范围。 8当用户单击滚动条的空白处时，滑块移动的增量值由 LargeChange 属性决定。 9如果菜单标题的某个字母前输入一个“&”符号，那么该字母就成了热键字母；如果建立菜单时在标题文本框中输入一个“ - (减号) ”

13、符号，那么显示时形成一个分隔符。 10使用 Scale 方法可以自定义坐标系。 11使用Line方法画矩形，不许在指令中使用关键字 B 。 12使用SQL语句设置ADO控件的RecordSource属性，这CommandType属性需要设置成 1(adCmdText)或者(adCmdUnknown) 。 13为了显示一个窗体，所使用的方法为show；而为了隐藏一个窗体，所使用的方法为_Hide_。 14如果要将某个命令按钮不显示，则可将_Visible_属性设置为False 15在VB中窗体文件的扩展名为_.FRM_。三、编程应用题 1.程序阅读，写出下列程序的运行结果。 (1) Priva

14、te 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)= AAnd UCase=ZThen VB程序设计试题及答案（二）一、单选题 1. VB6.0集成开发环境不包括 A 窗口。 (A) DOS界面窗口 (B) 窗体窗口 (C) 代码窗口 (D) 属性窗口 2. 有程序代码如下: C Tex1.Text

15、= 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

16、。 (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=

17、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 i0 Loop Until i=1 11.下面的程序段的运行结果为多少？ D Private Sub Command1_Click( ) For i=1 to 5 n=0 For j=i to 5

18、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 定义方式是

19、正确的。 (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%(

20、) ) (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=m10 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 。

22、mp)” (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.下面关于随

23、机文件的描述不正确的是 B 。 (A) 每条记录的长度必须相同 (B) 一个文件中记录号不必唯一 (C) 可通过编程对文件中的某条记录方便地修改 (D) 文件的组织结构比顺序文件复杂 22.为了建立一个随机文件，其中每一天记录由多个不同数据类型的数据项组成，应使用 C 。 (A) 记录类型 (B) 数字 (C) 字符串类型 (D) 变体类型 23.当使用Line方法画直线后，当前坐标在。C (A) (0, 0) (B) 直线起点 (C) 直线终点 (D) 容器的中心 24.命令按钮、单选按钮、复选框上都有Picture属性，可以在控件上显示图片，但需要通过属性 B 来控制 (A) Appear

24、ance (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图形文件后，选项按钮上并没有显示所需的图形，原因是没

25、有将 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按如下要求书写函数过程定义的首语句，即Function MyF(a as int,b(n)as int) 定义语句，要求为：形参有两个a为整型，b为一位整型数组，函数过程名为MyF，函数返回值为逻辑型。 6滚动条产生Change事件是因为 Value 值改变了。 7如果要

26、每隔15s产生一个计时器事件，则Interval属性应设置为 15000 。 8在VB中，除了可以指定某个窗体作为启动对象之外，还可以指定 Main子过程作为启动对象。 9用Show方法显示自定义对话框时，如果Show方法后带 vbModal 参数就将窗体作为模式对话框显示。 10容器的实际可用高度和宽度由右和上属性确定。 11使用Circle方法正向采用逆时针方向。 12启动窗体时，为了初始化窗体中的各控件，可选作窗体的_load_事件。 13结构化程序设计中，三种基本结构是_分支结构_、_顺序结构_和循环结构。三、编程应用题 1.程序阅读 (1)Private Sub Co

27、mmand1_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 mn Do While m n: m=m-n

28、: Loop Do While ma(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

展开阅读全文