奔走相告!计算机等级考试还有3天,快来刷二级VB试题!

发布于 2018-09-12 09:58  编辑:simi
0
计算机等级考试题库 扫码微信刷题


考无忧小编送福利-计算机等级考试题库~以下是一些计算机二级VB试题,希望能帮到你们~



1.设有如下程序段:

x=2

For c=1 To 4 Step 2

x=x+c

Next c

运行以上程序后,x的值是(A)

A.6

B.7

C.8

D.9

 

2.以下叙述中错误的是(A)

A.KeyPress事件过程中不能识别键盘键的按下与释放

B.KeyPress事件过程中不能识别回车键

C.KeyDownKeyUp事件过程中,从键盘输入的字母"A"和字母"a"对应的KeyCode视作相同的字母

D.KeyDownKeyUp事件过程中,从大键盘上输入的"1"和从右侧小键盘上输入的"1"被视作不同的字符

 

3.执行如下两条语句,窗体上显示的是(C)

A=9.8596

Print Format(a,"000.00")

A.0,009.86

B.9.86

C.009.86

D.0,009.86

 

4.在窗体上画一个名称为CommandDialog1 的通用对话框,一个名称为Command1的命令按钮。然后编写如下事件过程:

Private Sub Command1_Click( )

CommonDialog1.FileName =""

CommonDialog1.Filter="All file|*.*|(*.Doc)|*.Doc|(*.Txt)|*.Txt"

CommonDialog1.FilterIndex=1

CommonDialog1.DialogTitle="VBTest"

CommonDialog1.Action=1

End Sub

对于这个程序,以下叙述中错误的是(D)

A.该对话框被设置为"打开"对话框

B.在该对话框中指定的文件名为空

C.该对话框的标题为VBTest

D.在该对话框中指定的默认文件类型为文本文件(*.Txt)

 

5.设一个工程由两个窗体组成,其名称分别为Form1Form2,在Form1上有一个名称为Command1的命令按钮。窗体Form1的程序代码如下:

Private Sub Command1_Click( )

Dim a As Integer

a=10

Call g(Form2,a)

End Sub

Private Sub g(f As Form,x As Integer)

y=Iif(x>10,100,-100)

f.Show

f.Caption=y

End Sub

运行以上程序,正确的结果是(B)

A.Form1Caption属性值为100

B.Form2Caption属性值为-100

C.Form1Caption属性值为-100

D.Form2Caption属性值为100

 

6.在窗体上画一个名称为Command1的命令按钮,并编写如下程序:

Private Sub Command1_Click( )

Dim x As Integer

Static y As Integer

x=10

y=5

Call f1(x,y)

Print x,y

End Sub

Private Sub f1(ByRef x1 As Integer, y1 As Integer)

x1=x1+2

y1=y1+2

End Sub

程序运行后,单击命令按钮,在窗体上显示的内容是(D)

A.10 5

B.12 5

C.10 7

D.12 7

 

7.Option Base 1

Private Sub Command1_Click( )

Dim a(10) As Integer

Dim n As Integer

n=3

If n<10 Then

Call GetArray(a,n)

End If

End Sub

Private Sub GetArray(b( ) As Integer,n As Integer)

Dim c(10) As Integer

j=0

For t=1 To n

b(t)=Rnd*100

If b(t)/2=b(t)\2 Then

j=j+1

c(j)=b(t)

End If

Next t

Print j

End Sub

以下叙述中错误的是(C)

A.数组b中的数范围为0-100

B.c数组下标的下界从1开始

C.GetArray过程的参数n是按值传送的

D.语句If b(t)/2=b(t)\2 Then 是判断数组b中元素的值是否为整数

 

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

Option Base 1

Private Sub Command1_Click( )

Dim a

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

For c=1 To Ubound(a)

a(c) = a(c)+c-1

Next c

Print a(3)

End Sub

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

A.4

B.5

C.6

D.7

 

9.阅读程序:

Option Base 1

Private Sub Form_Click( )

Dim arr

Dim Sum%

Sum = 0

arr = Array(1, 3, 5, 7, 9)

For t = 1 To 5

Sum = Sum + arr(t)

Next t

Print Sum

End Sub

程序运行后,单击窗体,输入结果为(B)

A.5

B.9

C.25

D.15

 

10.在窗体上画一个名称为File1的文件列表框,并编写如下程序:

Private Sub File1_DblClick( )

x=Shell(File1.FileName,1)

End Sub

以下关于该程序的叙述中,错误的是(A)

A.x没有实际作用,因此可以将该语句写为:Call Shell(File1,FileName,1)

B.双击文件列表框中的文件,将触发该事件过程

C.要执行的文件的名字通过File1.FileName指定

D.File1中显示的是当前驱动器、当前目录下的文件





考无忧小编为大家介绍一款实用的考无忧网校:计算机等级考试题库,涵盖了计算机等级各方面内容,同样所有习题交互式答题,有答案,有解析,相信会在您的备考道路上,助您一臂之力!以上的二级VB试题,也会助您考试成功的!






文章推荐:

全国计算机等级考试可以不考一级直接考二级吗?

2018年全国计算机等级考试题库“二级MS Office 高级应用考试大纲”

全国计算机等级考试报考成功后可以退费吗?(内附计算机等级考试题库)



温馨提示:

考试想拿高分吗?更多计算机等级考试题库二级ms office试题请点击查看>>>二级ms office

想要了解更多的计算机等级考试题库请点击下载>>>计算机等级考试题库

想知道更多关于计算机等级考试题库的最新资讯吗?点击进入>>>计算机等级考试题库资讯


本文网址:http://www.k51.com.cn/info/jsjdjks/1809/1247254.html
选择分享到: