2018年9月计算机二级VB考试巩固练习及答案(2)

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

　　A.Width和Height

　　B.Width或Height

　　C.Top和Left

　　D.Top或Left

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

　　Private Sub Command1_Click( )

　　Text1.Text = "Visual"

　　Me.Text1 = "Basic"

　　Text1 = "Program"

　　End Sub

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

　　A.Visual

　　B.Basic

　　C.Program

　　D.出错

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

　　A."ABC">"AbC"

　　B."the"<>"they"

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

　　D."Integer">"Int"

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

　　A.0

　　B.1

　　C.2

　　D.3

　　5.在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为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

　　6.在窗体上画一个名称为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

　　7.一个工程中含有窗体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

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

　　A.Drive1_Change

　　B.Drive1_Click

　　C.Dir1_Click

　　D.Dir1_KeyPress

　　9.在窗体上画一个命令按钮(其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

　　10.在窗体上画一个名称为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之间的数值的输入

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

　　Private Sub Command1_Click( )

　　n = Val(Text1.Text)

　　If n2 = n/2 Then

　　f = f1(n)

　　Else

　　f = f2(n)

　　End If

　　Print f; n

　　End Sub

　　Public Function f1(ByRef x)

　　x=x*x

　　f1=x+x

　　End Function

　　Public Function f2(ByVal x)

　　x=x*x

　　f2=x+x+x

　　End Function

　　程序运行后，在文本框中输入3，然后单击命令按钮，窗体上显示的是(D)(单)

　　A.72 36

　　B.108 36

　　C.72 6

　　D.27 3

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

　　Private Sub Command1_Click( )

　　c = "1234"

　　For i = 1 To 4

　　c1 = Trim(Str( ))

　　Print　c1

　　Next i

　　End Sub

　　程序运行后，单击命令按钮，要求在窗体上显示如下内容

　　1

　　12

　　123

　　1234

　　则在下划线处应填入的内容为(B)(单)

　　A.Right(c1,i)

　　B.Left(c1,i)

　　C.Mid(c1,i,1)

　　D.Mid(c1,i,i)

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

　　Private Sub Command1_Click( )

　　n = Val(Text1.Text)

　　For i = 2 To n

　　For j = 2 To sqr(i)

　　If i Mod j = 0 Then Exit For

　　Next j

　　If j >Sqr(i) Then Print i

　　Next i

　　End Sub

　　该事件过程的功能是(C)(单)

　　A.输出n以内的奇数

　　B.输出n以内的偶数

　　C.输出n以内的素数

　　D.输出n以内能被j整除的数

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

　　Private Function f(m As Integer)

　　If m Mod 2 = 0 Then

　　f = m

　　Else

　　f = 1

　　End If

　　End Function

　　Private Sub Command1_Click( )

　　Dim i As Integer

　　s = 0

　　For i = 1 To 5

　　s = s + f(i)

　　Next

　　Print s

　　End Sub

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

　　A.11

　　B.10

　　C.9

　　D.8

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

　　Private Sub Command1_Click( )

　　Dim array1(10, 10) As Integer

　　Dim i As Integer, j As Integer

　　For i = 1 To 3

　　For j = 2 To 4

　　array1(i, j) = i + j

　　Next j

　　Next i

　　Text1.Text = array1(2, 3) + array1(3, 4)

　　End Sub

　　程序运行后，单击命令按钮，在文本框中显示的值是(D)(单)

　　A.15

　　B.14

　　C.13

　　D.12

　　16.Visual Basic应用程序中标准模块文件的扩展名是【BAS或.BAS】(注意不要写点)。

　　17.在菜单编辑器中建立一个菜单，其主菜单项的名称为mnuEdit，Visible属性为False，程序运行后，如果用鼠标右键单击窗体，则弹出与mnuEdit相应的菜单。

　　Private Sub Form_ 【mousedown】 (Button As Integer, Shift As Integer, X As Single, Y As Single)

　　If Button=2 Then

　　popupmenu mnuEdit

　　End If

　　End Sub

　　18.在菜单编辑器中建立一个菜单，其主菜单项的名称为mnuEdit，Visible属性为False，程序运行后，如果用鼠标右键单击窗体，则弹出与mnuEdit相应的菜单。以下是实现上述功能的程序，请填空。

　　Private Sub Form mousedown (Button As Integer, Shift As Integer, X As Single, Y As Single)

　　If Button=2 Then

　　【popupmenu】 mnuEdit

　　End If

　　19.为了使计时器控件Timer1每隔0.5秒触发一次Timer事件，应将Timer1控件的【Interval】属性设置为500。

　　20.为了使计时器控件Timer1每隔0.5秒触发一次Timer事件，应将Timer1控件的Interval属性设置为【500】。