11高三计算机专业VB试题（五）

11年级计算机专业VB第三次间周考试卷

出题人:马玉辉

2014.04.15

一、填空题：(每题1份,共30分)

1、窗体的print方法用于________。 2窗体的Cls方法用于________。

3、在程序运行当中，一个窗体得到焦点时，最先触发的是________事件。 4、窗体的Line方法用于________，线的宽度取决于________属性值。 5、窗体Load事件在________时发生。 6、窗体的Click事件在________时发生。 7、窗体的Resize事件在________时发生。 8、窗体的unload事件在________时发生。

9、当程序运行载入窗体时，最先触发的时________事件。 10、窗体的keypress事件在________时发生。

11、Keydowm事件当________时发生，keyup事件当________发生。

12、当用户按下键盘上的某个键时，将会触发拥有输入焦点的控件________事件。

13、窗体的Mousedown事件时当________时发生的事件，窗体的Mouseup事件时当________时发生的事件，Mousemove事件时当________时发生的事件。

14、语句“Private Sub form Mousemove（Button As Integer,Shift As Integer,x As Single, y As Single)”中“Button”用来标识该________，值可以时________、________、和________，分别对应于________、________、及________。

15、鼠标指针移动经过控件时，将触发控件的________事件。

16、在鼠标事件过程Mousedown和Mouseup中，参数Button的值为1、2、4时，分别代表按下鼠标的________、________和________。 17、当按下的鼠标键释放后，触发________事件。 18、窗体的________事件当一个窗体称谓活动窗口时发生。

19、InputBox函数用来在一个对话框来中显示提示，等待用户________，并返回________。 20、在“Msgbox(Prompt[,Buttons][,Title][,Helpfile,Context])”中，如果参数Prompt内容超过一行，则可以用________或者________将各行分割开来。

21、在Msgbox函数对话框显示“取消”按钮时，按________键与单单击“取消”按钮的效果相同。

22、下列程序弹出对话框中按钮的个数为________。

23、Msgbox\确认!\提示\创建MDI应用程序应从________菜单中选择________命令。

24、要创建一个MDI子窗体，先________或者________，然后把它的________属性设为True。 25、SDI是指________界面，MDI是指________界面。 26、一个应用程序最多可以有________个MDI父窗体。

27、快速显示窗口一般作为________使用，这种窗口一般没有________和________。

28、制作快速显示窗体时，在工程中新建一个窗体，将窗体的Borderstyle属性设置为________，Controlbox属性设置为________，Caption属性设置为________，并在该窗体中添加一些文字和图片。此外，还必须通过设置________，把快速显示窗体设置为应用程序的启动对象。 29、标签控件的Borderstyle属性指定________。 30、标签控件的Move方法用于________。

二、选择题：(每题2分,共40分)

１、使用Array函数给某X赋值时，X必须是（ ）

A.已经声明的静态数组 B.Variant类型变量

C.已经声明的动态数组且该动态数组的类型为Vairant D.已经声明的动态数组

２、可以通过（ ）方法来输出一个二维数组中的各个元素 A.引用数组的两个下标 B.将数组名赋值给变量 C.通过引用数组的一个小标 D.以上都不正确

３、假定建立了一个名为command1的命令按钮数组，则下列说法错误的是（ ） A.数组中每个命令按钮的名称（名称属性）均为command1 B.数组中每个命令按钮的标题（caption属性）都一样 C.数组中所有命令按钮可以使用一个事件过程

D、用名称command1（下标）可以访问数组中 的每个命令按钮

４、在窗体上放置一个文本框，然后对其复制粘贴，当粘贴出现对话框，单击“是”按钮，粘贴3次，共4给文本框，适当调整其位置，再放置一个命令按钮，然后编写如下事件过程： Option Base 1

Private Sub Command1_Click() Dim i As Integer For i = 1 To 4

text1(i) = text1(i).Index Next i End Sub

程序运行后，单击命令按钮4个文本框中显示的内容分别为 （ ） A、0123 B、1234 C、0000 D、出错信息 C.数组元素或变量名 D.变量名或数组名

１1、在子过程sub ??end sub 中使用的形式参数可以是（ ） A.常数、简单变量、数组变量和运算式 B.简单变量、数组变量和数组元素 C.常数、简单变量、数组变量 D.简单变量、数组变量和运算式

１2、过程拥有3中，它们分别是（ ） ５、以下（ ） 是VB合法的数组元素表示。 A.X[10] B.X(i+1) C.X10

D.X(1 to 10)

６、VB应用程序中，下列关于过程的说法正确的是（ ） A.过程的定义可以嵌套，但过程的调用不能嵌套 B.过程的定义不可以嵌套，但过程的调用可以嵌套 C.过程的定义和调用都可以嵌套 D.过程的定义和调用都不能嵌套

７、下列关于Sub过程的叙述正确的是（ ） A.一个Sub过程必须有一个Exit sub 语句 B.一个sub过程必须有一个end sub语句 C.在sub过程中可以定义一个function过程 D.可以用GOTO语句退出sub过程 ８、现有如下过程 Sub aaa(x,y,z) X=y+z End sub

下列选项中所有参数的虚实结合都是按地址传递方式调用的是（ A.call aaa(6,9,z) B.Call aaa(x,y,z)

C.Call aaa(3+x,5+y,z) D.Call aaa(x+y,x-y,z)

9、下列过程语句的说明正确的是（ ） A.sub f1（byval x() as integer) B.Sub n (x%()) as integer C.Function f1%(f1%)

D.Function f1%(x as integer)

１0、在自定义过程语句中使用的<参数表>可以是下列哪种（ ）A.常量或变量名 B.表达式或变量名 A.Sub过程、函数过程和属性过程 B.事件过程、函数过程和通用过程 C.Sub过程、函数过程和通用过程 D.事件过程、子过程和函数过程

１3、sub过程与function过程最根本的区别是（ ）

A.sub过程可以使用call语句或直接使用过程名调用，而function过程不可以 B.Function过程可以有参数，sub过程不能有参数 C.两种过程的参数的传递方式不同

D.Sub过程的过程名不能有返回值，而function过程能通过过程名返回值 １4、下面过程定义语句中合法的是（ ） A.SUB PI (Byval x()) B.Sub pi (x) as single C.Function pi ( p1)) D.Function p1(byval x)

１5、在窗体模块的通用声明中声明变量时，不能使用的关键字是（ ） A.Dim B.Private C.Public D.Static

１6、执行“工程”菜单中的（ ）命令，可以添加一个标准模块 A.添加过程 B.标准模块 C.添加模块 D.通用过程

１7、不能脱离控件（包括窗体）而独立存在的过程是（ ） A.事件过程 B.通用过程 C.Sub过程 D.函数过程

１8、窗体上有两个文本框text1和text2及一个命令按钮command1，编写下列程序 Dim y As Integer

Private Sub Command1_Click()

） Dim x As Integer x = 2

text1.Text = p2(p1(x), y) Text.Text = p1(x) End Sub

Private Function p1(x As Integer) As Integer x = x + y y = x + y p1 = x + y End Function

Private Function p2(x As Integer, y As Integer) As Integer p2 = 2 * x + y End Function

当单击一次和单击两次命令按钮后，文本框text1和text2内的值分别为（ ）A、24 B、24 24 48

C、4 4 D、10 10 8 8 58 58 19、有如下函数过程

Function fun(a As Integer, n As Integer) As Integer While a >= n a = a - n m = m + 1 Wend fun = m

End Function

该函数过程的返回值是（ ） A.a乘以n的乘积 B.a加n的和 C.a减n的差

D.a除以n的商（不含小数部分）

２0、编写了一个能够返回数组a中10个数中最大数的函数过程，代码如下：Function maxval(a() As Integer) As Integer Dim max max = 1

For k = 2 To 10

If a(k) > a(max) Then max = k End If Next k

maxval = max End Function

程序运行时，发现函数过程的返回值是错的，需要修改，下列修改方案中正确的是（ ） A.语句max=1应改为max=a（1）

B.语句for k=2 to 10 应改为 for k = 1 to 10

C.If 语句中的条件a（k）>a(max)应改为a（k）>max D.语句maxvalue=max 应改为maxvalue=a(max)

三、判断题：(每题1分,共10分)

1、Msgbox函数在对话框中显示消息，等待用户单击按钮，并返回一个整数表明用户单击了哪一个按钮。（ ）

2、Msgbox函数在对话框中显示消息，消息的最大长度不能超过255个字符。（ ）

3、标签控件能够响应多数鼠标事件，但由于标签所显示的文本不能被编辑，因此标签不能4、获得焦点，也不能响应与焦点相关的事件和键盘事件。（ ）

5、如果需要在窗体上添加多个相同类型的控件，可以先添加一个控件并设置其属性，然后通过以下复制操作来添加其他控件。（ ）

6、如果单击按钮被选中，则该单击按钮的value值为单选按钮的文字字符串。（ ）

7、如果列表框控件的项目总数超过了可显示的项目数，就自动在列表框控件上添加滚动条。（ ）

8、当列表框中得项目较多，超过了列表框的长度时，系统会自动在列表框边上加一个滚动条。（ ）

9、列表框控件不支持Dblclick事件，但支持click事件。（ ） 10、图像框专门用于显示图像。（ ）

11、图像框也是容器对象，可以在此控件中放置其他控件。（ ）

四、程序分析(每题4分,共20分)

１、下列程序段的运行结果是什么？ Sub aaa()

Dim n As Integer i = 21 n = 3

Do While i > n i = i - n Loop Print i End Sub

Private Sub Command1_Click() Call aaa

End Sub

___________________________________________ ２、有如下事件过程：

Private Sub Command1_Click() b = 10

Do Until b = -1

a = InputBox(\请输入a的值\a = Val(a)

b = InputBox(\请输入b的值\b = Val(b) a = a * b Loop Print a End Sub

程序运行后，依次输入数值10，20,30，-1后，输出结果是什么？

___________________________________________

３、设有如下程序代码 Option Base 1

Private Sub Command1_Click()

Dim a(-4 To 2) As Integer, b() As Variant b = Array(1, 3, 5, 7, 8)

Print LBound(a); UBound(a); Print LBound(b); UBound(b) End Sub

运行后，单击命令按钮command1，输出结果是什么___________________________________________

４、下面程序段的运行结果是什么？ Static happy(3)

happy(0) = #6/7/2011# happy(1) = \是王二小\happy(2) = 17

happy(3) = \岁生日\

Print happy(0); happy(1); happy(2); happy(3) _________________________________________

５、窗体中有一个命令按钮，命令按钮的单击事件过程如下： Private Sub Command1_Click() Dim a

Dim k As Integer, s As Integer a = Array(1, 2, 3, 4, 5, 6, 7, 8, 9) For k = 4 To 6 s = s * a(k) Next k Print s End Sub

程序运行后，单击命令按钮，输出结果是什么？_______________________________________