2018年9月计算机二级VB语言程序设计试题及答案(4)

 　1.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：

　　Private Sub Command1_Click( )

　　Move 500，500

　　End Sub

　　程序运行后，单击命令按钮，执行的操作为(A)(单)

　　A.命令按钮移动到距窗体左边界、上边界各500的位置

　　B.窗体移动到距屏幕左边界、上边界各500的位置

　　C.命令按钮向左、上方向各移动500

　　D.窗体向左、上方向各移动500

　　2.在窗体上有若干控件，其中有一个名称为Text1的文本框。影响Text1的Tab顺序的属性是(D)(单)

　　A.TabStop

　　B.Enabled

　　C.Visible

　　D.TabIndex

　　3.在窗体上画一个名称为List1的列表框，为了对列表框中的每个项目都能进行处理，应使用的循环语句为(A)(单)

　　A.For i=0 To List1.ListCount-1 ......　 Next i

　　B.For i=0 To ListCount-1 ...... Next i

　　C.For i=1 To List1.listCount 　...... Next i

　　D.For i=1 To ListCount ...... Next i

　　4.以下Case语句中错误的是(C)(单)

　　A.Case 0 To 10

　　B.Case Is>10

　　C.Case Is>10 And Is<50

　　D.Case 3,5,Is>10

　　5.以下关于图片框控件的说法中，错误的是(D)(单)

　　A.可以通过Print方法在图片框中输出文本

　　B.清空图片框控件中图形的方法之一是加载一个空图形

　　C.图片框控件可以作为容器使用

　　D.用图片框控件的Stretch属性可以自动调整图片框中图形的大小

　　6.执行语句s=Len(Mid("VisualBasic",1,6))后，s的值是(A)(单)

　　A.Visual

　　B.Basic

　　C.6

　　D.11

　　7.以下叙述中错误的是(D)(单)

　　A.下拉式菜单能用菜单编辑器建立

　　B.在多窗体程序中，每个窗体都可以建立自己的菜单系统

　　C.能够对菜单项的Click事件编程

　　D.如果把一个菜单项的Enabled属性设置为False，则该菜单项不可见

　　8.在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：

　　Private Sub Command1_Click( )

　　a = "12345"

　　Print Format$(a, "000.00")

　　End Sub

　　程序运行后，单击命令按钮，窗体上显示的是(B)(单)

　　A.123.45

　　B.12345.00

　　C.12345

　　D.00123.45

　　9.以下关于函数过程的叙述中，正确的是(A)(单)

　　A.函数过程形参的类型与函数返回值的类型没有关系

　　B.在函数过程中，过程的返回值可以有多个

　　C.当数组作为函数过程的参数时，既能以传值方式传递，也能以传址方式传递

　　D.如果不指明函数过程参数的类型，则该参数不能有数据类型的参数

　　10.以下关于变量作用域的叙述中，正确的是(C)(单)

　　A.用dim定义变量是静态变量

　　B.静态变量必须在标准模块中声明

　　C.用public定义变量是全局变量

　　D.Static类型变量的作用域范围是它所在的窗体或模块文件

　　11.确定一个控件在窗体上的位置的属性是(C)(单)

　　A.Width和Height

　　B.Width或Height

　　C.Top和Left

　　D.Top或Left

　　12.在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：

　　Private Sub Command1_Click( )

　　Text1.Text = "Visual"

　　Me.Text1 = "Basic"

　　Text1 = "Program"

　　End Sub

　　程序运行后，如果单击命令按钮，则在文本框中显示的是(C)(单)

　　A.Visual

　　B.Basic

　　C.Program

　　D.出错

　　13.以下关系表达式中，其值为False的是(A)(单)

　　A."ABC">"AbC"

　　B."the"<>"they"

　　C."VISUAL"=UCase("Visual")

　　D."Integer">"Int"

　　14.语句Print int(5/4*65) Mod 2的输出结果是(B)(单)

　　A.0

　　B.1

　　C.2

　　D.3

　　15.在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Text1、Label1和Command1，然后编写如下两个事件过程：

　　Private Sub Command1_Click( )

　　strText = InputBox("请输入")

　　Text1.Text = strText

　　End Sub

　　Private Sub Text1_Change( )

　　Label1.Caption = Right(Trim(Text1.Text), 3)

　　End Sub

　　程序运行后，单击命令按钮，如果在输入对话框中输入abcdef，则在标签中显示的内容是(D)(单)

　　A.空

　　B.abcdef

　　C.abc

　　D.def

　　16.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：

　　Private Sub Command1_Click( )

　　x = -5

　　If x >0 Then

　　y = x ^ 2

　　Else

　　y = x

　　End If

　　Print y

　　End Sub

　　程序运行后，单击命令按钮，窗体上显示的是(A)(单)

　　A.-5

　　B.25

　　C.1

　　D.-1

　　17.一个工程中含有窗体Form1、Form2和标准模块Model1，如果在Form1中有语句Pubilc X As

　　Integer，在Model1中有语句Pubilc Y As Integer，则以下叙述中正确的是(A)(单)

　　A.变量X、Y的作用域相同

　　B.Y的作用域是Model1

　　C.在Form1的任何地方中可以直接使用Y

　　D.在Form2中可以直接使用X和Y

　　18.在窗体上画一个名称为Drive1的驱动器列表框，一个名称为Dir1的目录列表框。当改变当前驱动器时，目录列表框应该与之同步改变。设置两个控件同步的命令放在一个事件过程中，这个事件过程是(A)(单)

　　A.Drive1_Change

　　B.Drive1_Click

　　C.Dir1_Click

　　D.Dir1_KeyPress

　　19.在窗体上画一个命令按钮(其NAME属性为Command1)，然后编写如下代码：

　　Option Base 1

　　Private Sub Command1_Click( )

　　Dim a

　　s = 0

　　a = Array(1, 2, 3, 4)

　　For I = 4 To 1 Step -1

　　s = s + a(I)

　　Next I

　　Print s

　　End Sub

　　运行上面的程序，单击命令按钮，其输出结果是(D)(单)

　　A.4321

　　B.1234

　　C.34

　　D.10

　　20.在窗体上画一个名称为Text1的文本框，编写以下代码：

　　Private Sub Text1_KeyPress(KeyAscii As Integer)

　　If KeyAscii < 65 　Or　 KeyAscii> 90 Then

　　msgBox "请输入大写字母"

　　KeyAscii = 0

　　End If

　　End Sub

　　以下能说明该事件过程正确是(A)(单)

　　A.要求文本框只能接收大写字母的输入

　　B.要求文本框只能接收小写字母的输入

　　C.要求文本框只能接收数字的输入

　　D.要求文本框只能接收65到90之间的数值的输入