计算机二级2018VB题库百度云,2018年9月计算机二级VB考试巩固练习及答案(2)

2018上半年计算机二级VB考试已经结束，课课家小编为大家准备了2018年9月计算机二级VB考试试题及答案，供大家参考学习。

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*6\\5) 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 n\\2 = 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】。

想要报考2018年计算机等级考试的朋友现在就可以开始备考了，可以报名课课家计算机等级学院，课课家计算机等级学院含有计算机等级考试各科目赠送：辅导教材、历年真题、作业题、在线模拟测试题库，还有老师专属答疑指导等，帮助大家顺利通过考试。

>>>>>>点击进入计算机等级考试专题