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

 　1.以下能判断指针是否指向文件尾的函数是(D)(单)

　　A.BOF

　　B.LOC

　　C.LOF

　　D.EOF

　　2.如果一个工程含有多个窗体及标准模块，则以下叙述中错误的是(B)(单)

　　A.如果工程中含有Sub Main过程，则程序一定首先执行该过程

　　B.不能把标准模块设置为启动模块

　　C.用Hide方法只是隐藏一个窗体,不能从内存中清除该窗体

　　D.任何时刻最多只有一个窗体是活动窗体

　　3.窗体的过程Form_MouseDown (Button As Integer, Shift As Integer, X As Single, YAs Single) ，有4个参数，关于这些参数，正确的描述是(D)(单)

　　A.通过Button参数判定当前按下的是键盘上哪一个键

　　B.Shift参数只能用来确定是否按下Shift键

　　C.Shift参数只能用来确定是否按下Alt和Ctrl键

　　D.参数x,y用来设置鼠标当前位置的坐标

　　4.设组合框Combo1中有3个项目，则以下能删除最后一项的语句是(B)(单)

　　A.Combo1.RemoveItem Text

　　B.Combo1.RemoveItem 2

　　C.Combo1.RemoveItem 3

　　D.Combo1.RemoveItem Combo1.Listcount

　　5.以下关于焦点的叙述中，错误的是(A)(单)

　　A.如果文本框的Enabled属性为False，能接收从键盘上输入的数据

　　B.当文本框失去焦点时，触发LostFocus事件

　　C.当文本框的Enabled属性为False时，其Tab顺序不起作用

　　D.可以用TabIndex属性改变Tab顺序

　　6.如果要在菜单中添加一个分隔线，则应将其Caption属性设置为(D)(单)

　　A.=

　　B.*

　　C.&

　　D.-

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

　　Private Sub Command1_Click( )

　　n = val(Text1.Text )

　　Select Case n

　　Case 1 To 20

　　x = 10

　　Case 2, 4, 6

　　x = 20

　　Case Is < 10

　　x = 30

　　Case 10

　　x = 40

　　End Select

　　Text2.Text = x

　　End Sub

　　程序运行后，如果在文本框Text1中输入10，然后单击命令按钮，则在Text2中显示的内容是(A)(单)

　　A.10

　　B.20

　　C.30

　　D.40

　　8.设有以下循环结构

　　Do

　　循环体

　　Loop While <条件>

　　则以下叙述中错误的是(A)(单)

　　A.若"条件"是一个为0的常数，则一次也不执行循环体

　　B."条件"可以是关系表达式、逻辑表达式或常数

　　C.循环体中可以使用Exit Do语句

　　D.如果"条件"总是为True，则不停地执行循环体

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

　　Private Sub Command1_Click( )

　　Dim num As Integer

　　num = 1

　　Do Until num > 6

　　Print num;

　　num = num + 2.4

　　Loop

　　End Sub

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

　　A.1 3.4 5.8

　　B.1 3 5

　　C.1 4 7

　　D.无数据输出

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

　　Private Sub Command1_Click( )

　　Dim a As Integer, s As Integer

　　a = 8

　　s = 1

　　Do

　　s = s + a

　　a = a-1

　　Loop While a <= 0

　　Print s; a

　　End Sub

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

　　A.7 9

　　B.34 0

　　C.9 7

　　D.死循环

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

　　有如下通用过程：

　　Public Function f(x As Integer)

　　Dim y As Integer

　　x = 20

　　y = 2

　　f = x * y

　　End Function

　　Private Sub Command1_Click( )

　　Static x As Integer

　　x = 10

　　y=5

　　y = f(x)

　　Print x; y

　　End Sub

　　程序运行后，如果单击命令按钮，则在窗体上显示的内容是(C)(单)

　　A.10 5

　　B.20 5

　　C.20 40

　　D.10 40

　　12.设有如下通用过程：

　　Public Sub Fun(a( ), ByVal x As Integer)

　　For i = 1 To 5

　　x = x + a(i)

　　Next I

　　End Sub

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

　　Private Sub Command1_Click( )

　　Dim arr(5) As Variant

　　For i = 1 To 5

　　arr(i) = i

　　Next I

　　n = 10

　　Call Fun(arr( ), n)

　　Text1.Text = n

　　End Sub

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

　　A.10

　　B.15

　　C.25

　　D.24

　　13.在窗体上画一个名称为Command1的命令按钮，然后编写如下代码：

　　Option Base 1

　　Private Sub Command1_Click( )

　　d = 0

　　c = 10

　　x = Array(10, 12, 21, 32, 24)

　　For i = 1 To 5

　　If x(i) > c Then

　　d = d + x(i)

　　c = x(i)

　　Else

　　d = d-c

　　End If

　　Next i

　　Print d

　　End Sub

　　程序运行后，如果单击命令按钮，则在窗体上输出的内容为(C)(单)

　　A.89

　　B.99

　　C.23

　　D.77

　　14.在窗体上画两个滚动条，名称分别为Hscroll1、Hscroll2;六个标签，名称分别为Label1、Label2、Label3、Label4、Label5、Label6，其中标签Label 4、Label6分别显示"A"、"B"、"A*B"等文字信息，标签Label1、Label2分别显示Hscroll1、Hscroll2滚动条的数值，Label3显示A*B的计算结果。当移动滚动条时，在相应的标签中显示滚动条的值。当单击命令按钮"计算"时，对标签Label1、Label2中显示的两个值求积，并将结果显示在Label3中。以下不能实现上述功能的事件过程是(C)(单)

　　A.Private Sub Command1_Click( )

　　Label3.Caption = =Str(Val(Label1.Caption)*Val( Label2.Caption))

　　End Sub

　　B.Private Sub Command1_Click( )

　　Label3.Caption = HScroll1.Value *HScroll2.Value

　　End Sub

　　C.Private Sub Command1_Click( )

　　Label3.Caption = HScroll1 * HScroll2

　　End Sub

　　D.Private Sub Command1_Click( )

　　Label3.Caption = HScroll1. Text *HScroll2.Text

　　End Sub

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

　　Private Sub Command1_Click( )

　　For n = 1 To 20

　　If n Mod 3 <> 0 Then m = m + n 3

　　Next n

　　Print n

　　End Sub

　　程序运行后，如果单击命令按钮，则窗体上显示的内容是(C)(单)

　　A.15

　　B.18

　　C.21

　　D.24

　　16.在窗体上画一个名称为Text1的文本框，并编写如下程序：

　　Private Sub Form_Load( )

　　Show

　　Text1.Text = ""

　　Text1.SetFocus

　　End Sub

　　Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X AsSingle, Y As Single)

　　Print "程序设计"

　　End Sub

　　Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)

　　Print "Visual Basic";

　　End Sub

　　程序运行后，如果按"A"键，然后单击窗体，则在窗体上显示的内容是(A)(单)

　　A.Visual Basic

　　B.程序设计

　　C.A程序设计

　　D.Visual Basic程序设计

　　17.设有如下程序：

　　Private Sub Command1_Click( )

　　Dim sum As Double, x As Double

　　sum = 0

　　n = 0

　　For i = 1 To 5

　　x = n / i

　　n = n + 1

　　sum = sum + x

　　Next

　　End Sub

　　该程序通过For循环计算一个表达式的值，这个表达式是(C)(单)

　　A.1+1/2+ 2/3+3/4+4/5

　　B.1+1/2+2/3+3/4

　　C.1/2+2/3+3/4+4/5

　　D.1+1/2+1/3+1/4+1/5

　　18.以下有关数组定义的语句序列中，错误的是(D)(单)

　　A.Static arr1(3) ：arr1(1) = "100" ：

　　arr1(2) = "Hello" ：arr1(3) = "123.45"

　　B.Dim arr2( ),size As Integer

　　Private Sub Command2_Click( )

　　size =InputBox("输入：") ReDim arr2(size) ......

　　End Sub

　　C.Option Base 1 Private Sub Command3_Click( )

　　Dim arr3(3) As Integer ......

　　End Sub

　　D.Dim n As Integer Private Sub Command4_Click( )

　　Dim arr4(n) As Integer......

　　End Sub

　　19.执行下面的程序段后，I的值为【5.6】

　　s = 2

　　For I = 3.2 To 4.9 Step 0.8

　　s = s + 1

　　Next I

　　Print i

　　52170.执行下面的程序段后，S的值为【5】

　　Private Sub Command1_Click( )

　　s = 2

　　For c = 3.2 To 4.9 Step 0.8

　　s = s + 1

　　Next c

　　Print s

　　End Sub