高二VB联考试题

2011 — 2012学年第二学期期末考试十二校联考试卷 Private Sub Command1_Click() m = Text1.Text + Text2.Text Print m

职高 高二 年级 Visual Basic 科（命题范围：全册）

（考试时间 75 分钟，满分 120 分）

注意事项：1、请将卷I的答案填涂在答题卡上，卷II的答案填写在答题纸上。

2、考试结束时，只收取答题卡和答题纸。

End Sub

Private Sub Form_Load() Text1.Text = \ Text2.Text = \

卷I（客观题，75分）

一、选择题：（共35小题，每小题2分，共70分。请将各小题的正确选项填涂在答题卡的相应位置上）

1. 要判断“命令按钮”是否被鼠标单击，应在“命令按钮”的（ ）事件中判断。

A.Chang

B.KeyDown C.Click

D.KeyPress

End Sub

程序运行后，在第一个文本框（Text1）和第二个文本框（Text2）中分别输入123和456，然后单击命令按钮，则输出结果为（ ）。 A 579 B 123 456 C 123456 D 456 123

10．为了暂时关闭计时器，应把该计时器的某个属性设置为False，这个属性是（ ）。 A Enabled B Timer C Visible D Interval

2. InputBox函数的返回值的类型为（ ）。

A.数值

B.字符串

C.逻辑值

D.日期值

11．在窗体中添加一个命令按钮，并编写如下程序： Private Sub Command1_Click()

3. 常量2.7856E-6的类型是（ ）。 A.整型

B.实型

C.字符型

D.双精度

a = 1: b = 2: c = 3 a = b: b = c: c = a

4. 文本框没有（ ）属性。 A.Enabled

B.Visible

C.BackColor D.Caption

Print c End Sub

5. 下面四项中，（ ）是VB中的变量。 A.ABC

B.E+2

C.\

D.1.35E-2

程序执行后，输出的结果是（ ）。 A 0 B 1 C 2 D 3

12．在Visual Basic中，缺省的数据类型为（ ）。 A Double B Boolean C Integer D Variant

13．设b的值为7，表达式为“x=b=7”，则运算后x为（ ） A True B b=7 C 7 D b 14．执行下面的程序段后显示结果是（ ） Private Sub Form_Click() Dim m as Integer

If m Then Print m Else Print m+1 End Sub

A 0 B 1 C “ ” D False

高二《Visual Basic程序设计》试卷 第 1 页 共 5 页

6. 文本框（Text1）中有选定的文本，执行 Text1.SelText=”Hello”的结果是（ ）。 A.“Hello”将替换掉原来选定的文本 B.“Hello”将插入到原来选定的文本之前

C. Text1.SelLength为5 D. 文本框中只有“Hello”

7．修改控件属性，一般可以使用属性窗口，也可以通过（ ）为属性赋值。 A 命令 B 对象 C 方法 D 代码 8．表达式2*3^2+2*8/4+3^2的值为（ ）。 A 64 B 31 C 49 D 42

9．在窗体（Name属性为Form1）上画两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（Name属性为Command1），然后编写如下两个事件过程：

15．若希望在一窗体运行时，某个按钮能响应Esc键，那么应将其（ ）属性设为True a(i, j) = (i - 1) * 3 + j A Enabled B Visible C Default D Cancel

Print a(i, j); 16．假定变量Logic的类型是Boolean，下面赋值语句（ ）是正确的。 Next j A logic=”True” B logic= .True. Print C logic=#True# D logic=3<4

Next i 17．改变（ ）的值，将会改变窗体标题栏上的内容 End Sub

A Caption B Value C Text D Name

程序运行的结果为( )。 18．函数Len（Str(Val（”111.1”）)）的值为（ ） A． 1 4 7

B． 1 2 3

A 5 B 6 C 111.1 D 111

2 5 8 4 5 6 19．窗体Form、框架Frame、图片框Picture、图像框Image中( )是容器控件。 3 6 9

7 8 9 A．Picture 、Image、Form B．Form、Frame、Picture C． 1 2 3 4 5 6 7 8 9

D． 没有输出

C．Image、Form、Frame

D．Frame、Picture、Image

24．以下程序的输出结果是( )。 20．下列关于函数过程的叙述中正确的是（ ） 。 Option Base 1

A．函数名只能被赋值一次

Private Sub Command1_Click() B．如果没有对函数名赋值 ，就没有函数值返回到调用过程中 Dim a(10), p(3) As Integer C．函数名可以被多次赋值

k = 5

D．定义函数的类型是指定义形参的类型 For i = 1 To 10 21. 菜单控件仅支持( )事件。

a(i) = i A. Click B. MouseDown C. KeyPress D. Load

Next i 22．使用复制、粘贴的方法建立了命令按钮数组Command1，以下对该数组的说法 For i = 1 To 3 错误的是( )。

p(i) = a(i * i) A．命令按钮的所有Caption属性都是Command1

Next i B．在代码中访问任意一个命令按钮只需要使用名称Command1 For i = 1 To 3 C．命令按钮的大小都是相同的 k = k + p(i) * 2 D．命令按钮共享相同的事件过程 Next i 23．一个命令按钮所对应的事件过程为： Print k Private Sub Command1_Click() End Sub Dim a(5, 5) As Integer A．33 B．28

C．35 D．37

Dim i As Integer, j As Integer 25．为了把一个记录型变量的内容写入文件中指定的位置，所使用的语句格式为（For i = 1 To 3 A Get 文件号，记录号，变量名

For j = 1 To 3

高二《Visual Basic程序设计》试卷 第 2 页 共 5 页

） B Get 文件号，变量名，记录号 C Put 文件号，变量名，记录号 D Put 文件号，记录号，变量名

26．若磁盘文件C:\\Data1.dat不存在，下列打开文件语句中，会产生错误的是（ ） A Open “C:\\Data1.dat” For Output as #1 B Open “C:\\Data1.dat” For Input as #2 C Open “C:\\Data1.dat” For Append as #3 D Open “C:\\Data1.dat” For Binary as #4

27．为了建立一个随机文件，其中每一条记录由多个不同数据类型的数据项组成，应使用（ ）

A记录类型 B数组 C字符串类型 D变体类型

28．语句：Open “Q.dat” For Random As #1 Len=20表示文件Q.dat的每个记录长度等于（ ）

A 20个字符 B 20个字节

C 或小于20个字符 D 或小于20个字节

29．要从磁盘上读入一个文件名为“c:\\test.txt”的顺序文件，以下正确的是（ ） A F=”c:\\test.txt” B F=”c:\\test.txt”

Open F For Input AS #1 Open “F” for Input AS #2 C Open “c:\\test.txt” for Output AS #1 D Open c:\\test.txt For Input As #1 30. 设文件C:\\test.txt 文件的内容是： 1 2 4 5 10 25 50 100

给出下面的程序：

Private Sub Commond1_Click()

Dim inputData

Open “C:\\test.txt” For Input As # 1 Do While Not EOF(1) Line Input # 1 ,InputData Loop Close Close #1 MsgBox InputData End sub

程序最后弹出的消息对话框的内容是（ ）

A. 什么也没有 B.1 C.100 D.文件的全部内容 31． Cls方法可以清除窗体或图片框中的（ ）内容。 A运行阶段产生的图形和文字 B在设计阶段放置的控件 C 在设计阶段使用Picture 属性设置的背景位图 D以上全部内容

32． 通过设置Shape 控件的（ ）属性可以绘制多种形状的图形。 A Shape B BorderStyle C FillStyle D Style

33. 语句Line(200,200)-(600,600),vbRed , BF 的功能是（ ） A 在窗体上绘制一个红色的空心矩形 B 在窗体上绘制一个红色的实心形 C 在窗体上绘制一个红色的实线 D 在窗体上绘制一个红色的点划线

34． 语句 Line (100,100)-Step (500,500) 将在窗体（ ）画一直线。 A. (200,200)到（400，400） B（100，100）到（500，500） C （100，100）到（600，600） D（100，100）到（400，400） 35．下面程序段的功能是（ ） Form1.FillColor= vbBlue Form1.fillStyle=0

Line(200,120)-(500,500),vbRed ,B

A 在窗体上绘制一个边框为蓝色、填充色为红色的矩形 B窗体上绘制一个边框为红色、填充色为蓝色的矩形

高二《Visual Basic程序设计》试卷 第 3 页 共 5 页

C在窗体上绘制一个边框为红色、填充色为红色的矩形 D在窗体上绘制一个边框为红色、填充色为窗体背景颜色的矩形

二、判断题（共5小题，每题1分，共5分。请将答案填涂在答题卡相应位置，正确涂A，错误涂B）

36. 窗体的Enabled属性设为False时，窗体题的按钮、文本框控件就不会对用户的操作做出反应。（ ）

37. Image 控件的Picture 属性用来指定一个图形是否要调整大小，以适应Image 控件的大小。（ ）

38. 变量名可以包含内嵌的类型声明符。（ ）

39.在执行Select Case语句时，所有Case子句均按出现的次序被顺序执行。（ ） 40. 随机文件可以按任意次序读写，每一行或每个记录的长度也可以不相同。( )

Dim mm(6) AS Integer Dim k%

Open “c:\\b1.dat” For Output As #1 For i=1 to 6 J=I * I * i Print #1 , j Next i Close #1

Open “c:\\b1.dat” for Input As #2 K=0

Do while Not EOF(2) K=k+1

Input #2 , mm(k)

卷II（主观题，共45分）

三、填空题（共5小题，每题2分，共10分。请将答案写在答题纸相应位置上） 41、当对象得到焦点时，会触发 事件。

42．在过程的 定 义中 ，如 想 使 用 按 值传 递 的 参 数 传 递 方 式 ，则 必 须 在 相 应 的 形 参 前 加 上____________关键字 。

43．为了显示弹出式菜单，可以使用_______________方法。

44．使用Circle方法在窗体Form1上以（25，25）为圆心，20为半径画圆，相应的代码为

45．Visual Basic中有一种控件组合了文本框和列表框的特性,这种控件是_______。 四、写运行结果（共3小题，每题5分，共15分） 46．下列程序段的执行结果是

For K=5 To 1 Step -1

For J=1 To 6 - K

Print Tab（J+5）；“*”；

Loop Close #2

For i=k to k/2 step -1 Form1.Print mm(i) Next i End Sub

它的输出结果是

48．命令按钮的Click事件过程如下。程序运行结果为______________。 Option Base 1

Private Sub Command1_Click() Dim a(4, 4) For i = 1 To 4 For j = 1 To 4

a(i, j) = (i - 1) * 3 + j Next j Next i For i = 2 To 3 For j = To 3

Next J Print

Next K

47．有以下程序：

Private Sub form_Click( )

高二《Visual Basic程序设计》试卷 第 4 页 共 5 页

Print a(j, i); Next j Print Next i End Sub

五、程序填空（共5个空，每空4分，共20分）

49．一个数组y有10个元素，已按升序排列，现又输入一个元素插入到该数组中，插入后该数组中的元素仍然按升序排列。试补充以下程序。 Private Sub Command1_Click() Dim y

y = Array(3, 23, 34, 56, 66, 67, 78, 85, 89, 90) ReDim Preserve y(1 To 11) n = Val(InputBox(\请输入一个数\For i = 10 To 1 Step -1

If___①_____Then y(i + 1) = n: Exit For y(__②___)= y(i) Next i

y(__③____) = n For i = 1 To 11

Print y(i); Space(1); Next i End Sub

50．以下程序代码实现单击命令按钮Command1时输出一个主对角线上元素值为1，其余元素为0的6×6方阵。完成程序。 Private Sub(6 , 6) For i=1 to 6 For j=1 to 6 If i=j then ④ Else

⑤

End If

Print a(I , j); Next j Print Next i End sub

高二《Visual Basic程序设计》试卷 第 5 页 共 5 页