VB试卷(三)

选择题：

1.保存一个工程至少应保存两个文件，这两个文件分别是（ ） A)文本文件和工程文件 B)窗体文件和工程文件 C)窗体文件和标准模块文件 D)类模块文件和工程文件:

2.当对命令按钮的Picture属性装入.bmp图形文件后，命令按钮上并没有显示所需的图形，原因是没有对某个属性设置为1，该属性是（ ） A)MousePicture B)Style

C)DownPicture D)DisabledPicture

3.下面叙述正确的是（ ）

A)Spc函数既能用于Print方法中，也能用于表达式 B)Space函数既能用于Print方法中，也能用于表达式 C)Spc函数与Space函数均生成空格，没有区别 D)以上说法均不对

4.假设变量bool_x是一个布尔型(逻辑型)的变量，则下面正确的赋值语句是（ ） A)bool_x=\"False\" B)bool_x=.False. C)bool_x=#False# D)bool_x=False

5.要存放如下方阵的数据，在不浪费存储空间的基础上，能实现声明的语句是（ ） 1 2 3 2 4 6 3 6 9

A)Dim A(9) As Integer B)Dim A(3,3) As Integer

C)Dim A(-1 to 1,-3 to -1) As Single D)Dim A(-3 to -1,1 to 3) As Integer

6.设有如下变量声明Dim time1 As Date,为变量time1正确赋值的表达式是（ ） A)time1 = #11:34:04 #

B)time1 = Format(Time,\"yy:mm:dd\") C)time1 = #\"11:34:04\"#

D)time1 = Format(\"hh:mm:ss\

7.表达式12000 + \"129\" & 200的值是（ ） A)12329 B)\"12129200\" C)\"12000129200\" D)\"12329\"

8.设窗体上有一个列表框控件List1，且其中含有若干列表项。则以下能表示当前被选中的列表项内容的是 （ ）

A.List1.List B.List1.ListIndex C.List1.Index D.List1.Text

9.程序运行后，在窗体上单击鼠标，此时窗体不会接收到的事件是 （ ） A.MouseDown B.MouseUp C.Load D.Click

10.以下控件中可以入选为容器控件的是（）。 A、Image图像框控件 B、Pictur图片框控件 C、TextBox 文本框控件 D、ListBox列表框图控件

11.如果要改变窗体的标题，则需要设置的属性是 （ ） A.Caption B.Name C.BackColor D.BorderStyle

12.以下能判断是否到达文件尾的函数是 （ ） A.BOF B.LOC C.LOF D.EOF

13.用Dim AABB(-2 to 10, 4 to 8,1)声明的是一个（ ）维数组。 A)1 B)2 C)3 D)4

14.在VB代码中，将多个语句合并写在一行上的并行符是（ ） A)撇号（'） B)冒号（：） C)感叹号（！） D)星号（*）

15.如果在立即窗口中执行以下操作： a = 8 (是回车键，下同) b = 9 Print a > b 则输出结果是( )

A)-1 B)0 C)False D)True

16.在窗体上画两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（其Name 属性为Command1），然后编写如下事件过程： Private Sub Command1)_Click() x=0

Do Until x > = 50 x= (x + 4)*(x + 3) n= n+1 Loop

Text1.Text=Str(n) Text1.Text=Str(x) End Sub

程序运行后，单击命令按钮，在两个文本框中显示的值分别为（ ）

A)1 和 0 B)2 和240 C)3 和 50 D)4 和168

17.在窗体上画一个名称为Command1的命令按钮，编写如下程序： Private Sub Command1_Click() Print pl(3,7) End Sub

Public Function pl(x As Single,n As Integer) As Single If n=0 Then pl=1 Else

If n Mod 2=1 Then pl=x*x+n Else P1=x*x-n End If End If End Function

程序运行后，单击该命令按钮，屏幕上显示的结果是（ ） A)2 B)1 C)0 D)16

18.以下属性和方法中，可重定义坐标系的是（ ） A)DrawStyle属性 B)DrawWidth属性 C)Scale方法 D)ScaleMode属性

19.在窗体上画一个文本框，然后编写如下事件过程： Private Sub Form_Load() Text1.Text = \"\" Text1.SetFocus For i = 1 To 5 Sum = Sum +i Next i

Text1.text = Sum End Sub

上述程序的运行结果是（ ）

A)在文本框中输出15 B)在文本框中输出0 C)在文本框中输出不定值 D)出错

20.在窗体上画一个水平滚动条，名称为HScroll1;再画一个文本框，名称为Text1。要想使用滚动条滑块的变化量来调用文本框中文字的大小，则可满足的语句是（ ） A)Text1.FontName= HScroll1.Max B)Text1.FontSize= HScroll1.Min C)Text1.FontSize= HScroll1.value D)Text1.FontBold= HScroll1.value

21.在下列程序中，无论使用鼠标左键还是右键都能弹出菜单，且弹出菜单中的菜单项都响应鼠标单的是（ ） A)Sub Form_MouseDown (Button As Integer,Shift As Integer, X As Single, Y As Single) PopupMenu_test,1 End Sub

B)Sub Form_MouseDown (Button As Integer,Shift As Integer, X As Single, Y As Single) PopupMenu_test,0 End Sub

C)Sub Form_MouseDown (Button As Integer,Shift As Integer, X As Single, Y As Single) PopupMenu_test End Sub

D)Sub Form_MouseDown (Button As Integer,Shift As Integer, X As Single, Y As Single) PopupMenu_test,2 End Sub

22.假设在窗体上建立了一个通用对话框，其名称为CommonDialog1，然后画一个命令按钮Command1,并编写如下事件过程：

Private Sub Command1_Click() CommonDialog1.Flags=4

CommonDialog1.Filter=\"all files(* . *)|* .*|text Files(* .Txt)|* .txt|Batch Filse(*.bat)|*.bat\" CommonDialog1.FilterIndex=1 CommonDialog1.ShowOpen MsgBox CommonDialog1.FileName End Sub

程序运行后，单击命令按钮，将显示一个“打开”对话框，此时在“文件类型”对话框中显示的是（ ） A)All Files(* . *) B)Text Files(*. Txt) C)Batch Files(.bat) D)不确定

23.按文件的内容划分有（ ）

A)顺序文件和随机文件 B)ASCII文件和二进制文件 C)程序文件和数据文件 D)磁盘文件和打印文件

24．设a为Integer型变量，s为Single型变量，把3.75赋绘s后，再执行下列某一语句，则在文本框中显示的结果与执行语句a=s: Text1=a的结果相同的有__________个。 ①a = Int(s): Text1 = a ②a = Fix(s): Text1 = a ③a = Cint(s): Text1 = a ④a = Format(s, “#####”): Text1 = a A. 1 B. 2 C. 3 D. 4

25．下列语句运行时系统给出错误提示的是____________。 A. Print –32000 – 769 B. Print “IE2” + 8 C. Print “AB” & 128 D. Print 3 = 2 = 4

(26)在窗体上画一个名称为File1的文件列表框，并编写如下程序： Private Sub File1_DblClick() x=Shell(File1.FileName,1) End Sub

以下关于该程序的叙述中，错误的是

A) x没有实际作用，因此可以将该语句写为：Call Shell(File1,FileName,1) B)双击文件列表框中的文件，将触发该事件过程 C)要执行的文件的名字通过File1.FileName指定 D）File1中显示的是当前驱动器、当前目录下的文件

(27) 在窗体上画一个名称为Label1、标题为“VisualBasic考试”的标签，两个名称分别为Command1和Command2、标题分别为“开始”和“停止”的命令按钮，然后画一个名称为Timer1的计时器控件，并把其Interval属性设置为500,如图所示。 编写如下程序：

Private Sub Form_Load() Timer1.Enabled=False End Sub

Private Sub Command1_Click() Timer1.Enabled=True End Sub

Private Sub Timer1_Timer() If Label1.LeftLabel1.Left=0 End If End Sub

程序运行后，单击“开始”按钮，标签在窗体中移动。 对于这个程序，以下叙述中错误的是 A) 标签的移动方向为自右向左

B）单击“停止”按钮后再单击“开始”按钮，标签从停止的位置继续移动 C) 当标签全部移出窗体后，将从窗体的另一端出现并重新移动 D）标签按指定的时间时隔移动

(28)执行以下程序段 a$=\"abbacddcba\" For i=6 To 2 Step -2 X=Mid(a,i,i) Y=Left(a,i) z=Right(a,i) z=UCase(X&Y&z) Next i Print z 输出结果为

A)ABA B）BBABBA C)ABBABA D)AABAAB

(29)在窗体上画一个名称为Command1的命令按钮，然后编写如下程序： Option Base 1

Private Sub Command1_Click()

Dim a As Variant a=Array(1,2,3,4,5) Sum=0 For i=1 To 5 Sum = sum+a(i) Next i x=Sum/5 For i =1 To 5

If a(i)>x Then Print a(i); Next i End Sub

资料来源：东方教育网全国计算机等级考试频道 程序运行后，单击命令按钮，在窗体上显示的内容是 A）1 2 B） 1 2 3 C) 3 4 5 D） 4 5

(30)假定一个工程由一个窗体文件Form1和两个标准模块文件Model1及Model2组成。 Model1代码如下： Public x As Integer Public y As Integer Sub S1() x =1 S2 End Sub Sub S2() y=10 Form1.Show End Show

Model2的代码如下： Sub Main() S1 End Sub

其中Sub Main被设置为启动过程。程序运行后，各模块的执行顺序是 A） Form1->Model1->Model2 B) Model1->Model2->Form1 C) Model2->Model1->Form1 D） Model2->Form1->Model1 二、 填空题

(1) 设有如下程序段： a$=\"BeijingShanghai\" b$=Mid(a$,InStr(a$,\"g\")+1)

执行上面的程序段后，变量b$的值为__[1]__。

(2) 以下程序段的输出结果是____[2_]__。 num =0 While num<=2 num = num+1

Wend Print num

3 .把窗体的KeyPreview属性设置为True，然后编写如下两个事件过程: Private Sub Form_ KeyDown（KeyCode As Integer，Shift As Integer） Print Chr（KeyCode） End Sub

Private Sub Form - KeyPress（KeyAscii As Integer） Print Chr（KeyAscii） End Sub

程序运行后，如果直接按键盘上的“A”键（即不按住Shift键），则在窗体上输出的字符分别是 [3] 和 [4] 。

4.在窗体上画两个文本框，其名称分别为Text1和Text2，然后编写如下事件过程： Private Sub Form_Load() Show Text1.Text=\"\" Text2.Text=\"\" Text2.SetFocus End Sub

Private Sub Text2_KeyDown(KeyCode As Integer,Shift As Integer) Text1.Text= Text1.Text +Chr(KeyCode - 4 ) End Sub

程序运行后，如果在Text2文本框中输入“efghi”,则Text1文本框中的内容为[5]

5.读下列程序： Private Sub Form_Click() Static x(4) As Integer For i = 1 to 4 x(i) =x (i) + i * 3 Next i Print For i = 1 to 4

print \"x(\"；i；\") =\"；x(i) Next i End Sub

该程序在运行了三次后，其最终结果是：[6]

参：

一、(1)B (2)B (3)B (4)D (5)D (6)A (7)B (8)D (9)C (10)B (11)A (12)D (13)C (14)B (15)C (16)B(17)D(18)C(19)D (20)C (21)D (22)A (23)C

(24)A(25)D (26)A (27)A (28)B (29)D (30)C 二、填空题 [1]\"Shanghai\" [2]3

[3] A [4] a [5]ABCDE

[6]x(1)=9 x(2)=18 x(3)=27 x(4)=36