VB二级考试模拟试题1

一、单项选择题（每题1分，共40分）

1.计算机能直接执行由编写的源程序【A】

A．机器语言 B.汇编语言 C.C语言 D.FORTRAN语言

2.在计算机内存中，每个储存单元都有一个唯一的编号，该编号被称为。【D】

A.标号

B.记录号

C.容量

D.地址

3.将十进制数93转化成八进制数为。【C】

A.(107)8

B.(127)8

C.(135)8

D.(140)8

4.Cache（高速缓存）能提高计算机的运行速度，主要原因是。【B】

A.它扩展了内存的容量

B.它缩短了CPU的存储时间

C.它扩展了外存的容量

D.它提高了计算机的主频

5.下面关于控制面板的描述中，错误的是。【A】

A.控制面板可以管理硬件，但不可以管理软件

B.控制面板可以添加、删除程序

C.控制面板可以添加、删除硬件

D.控制面板可以更改系统的时间和日期

6.是多媒体计算机必备的设备。【C】

A.网卡

B.扫描仪

C.声卡

D.打印机

7.下列属于网络拓扑结构的是。【D】

A.动态型

B.静态型

C.交叉型

D.总线型

8.若要浏览某个网页，则需要在浏览器的中输入网址。【A】

A.地址栏

B.标题栏

C.任务栏

D.状态栏

9.使用杀毒软件可以。【C】

A.查出任何已感染的病毒

B.查出并清除任何病毒

C.清除部分病毒

D.清除已感染的病毒

10.计算机操作系统的主要功能是。【B】

A.进行网络连接

B.管理计算机资源，方便用户使用

C.实现数据共享

D.把高级语言的源程序代码转换为目标代码

11.在Visual Basic集成开发环境中，如果工具箱关闭，可在菜单中操作使它可见。【A】

A.视图

B.窗口

C.文件

D.编辑

12.Visual Basic 过程的编写是在中进行的。【D】

A.窗体窗口

B.工程资源管理器窗口

C.属性窗口

D.代码编辑器窗口

13.在Visual Basic中，声明全局变量应该用关键词。【D】

A.Dim

B.Private

C.Static

D.Public

14.符合“见名知义”命名规则的“年龄”变量名是。【B】

A．P_MONTH B.P_AGE C.P_BIRTH D.P_NUM

15.仅删除字符串尾部空格的函数是。【C】

A.Ltrim()

B.Trim()

C.Rtrim()

D.Mid()

16.下列关于数据类型的描述，正确的是。【B】*

A.所有数据的类型都可以相互转换

B.一些数据类型可以自动转换

C.字符串可以完整转换为数值

D.字符只能转换成ASCII码

17.在Visual Basic 表达式中，运算符的运算顺寻为。【A】

A.算术运算符→字符运算符→关系运算符→逻辑运算符

B.逻辑运算符→关系运算符→字符运算符→算术运算符

C.字符运算符→算术运算符→关系运算符→逻辑运算符

D.关系运算符→逻辑运算符→算术运算符→字符运算符

18.能产生1到7之间随机整数（包括1和7）的表达式为。【D】

A.Rnd*7

B.Int(Rnd*8)+1

C.Rnd*8+1

D.Int(Rnd*7+1)

19.若x为实数，下列函数调用错误的是。【C】

A.Exp(x)

B.Sgn(x)

C.Sqr(x)

D.Int(x)

20.下列正确的赋值语句是。【A】

A. Z=B*B-4*C

B.S/=R*R

C.X-Y=2.17

D.4Z=Y+38

21.不能使用print方法输出信息的对象是。【A】

A.文本框

B.图片框

C.窗体

D.打印机

22.下列能正确输出“a=8”形式的语句是。【B】

A.Print a = 3 + 5

B.Print “a =”;3+5

C.Print “a =3+5”

D.Print a =;3+5

23.在Option Base 1 语句后，正好可以存放1个4*3矩阵的数组定义语句是【C】

A.Dim a(-2 To 0 ,2) As Integer

B.Dim a(3,2) As Integer

C.Dim a(4,3) As Integer

D.Dim a(-1 To -4,-1 To -3) As Integer

24.在程序运行时，可实现信息输入的控件是。【B】

A.窗体

B.单选按钮

C.图片框

D.标签

25.确定控件在窗体上的位置的属性是。【C】

A.Width和Hight

B.Width和Top

C.Top和Left

D.Top和Hight

26.要是文本框可以显示多行文本，需设置属性值为True。【B】

A.Enabled

B.MultiLine

C.Maxlenth

D.Locked

27.要把一个命令按钮设置成不可见，应设置其Visible属性值为。【B】

A.True

B.False

C.Default

D.Cancel

28.窗体上有一个列表框控件list1,其中含有若干列表项，则能表示当前被选中的列表项内

的内容。【D】

A.List1.List

B.List1.ListIndex

C.List1.Index

D.List1.Text

29.若要取消窗体最大化按钮，需要设置它的属性为false。【D】

A.AutoRedraw

B.MinButton

C.Enabled

D.MaxButton

30.若要求在单行文本框中输入密码时只显示*号，则应该在该文本框的属性窗口中设置。

【C】

A.Text属性值为*

B.Caption属性值为*

C.PasswordChar属性值为*

D.Password属性值为True

31.要清除PictureBox控件中的图形，可用语句。【C】

A.Picture1.Picture = LoadPicture()

B.Picture1.Picture = “”

C.Picture1.Picture = LoadPicture(“”)

D.Kill Picture1.Picture

32.若要使命令按钮具有快捷键功能，应在Caption属性值的快捷字符前添加字符。【C】

A.#

B.@

C.&

D.*

33.在Visual Basic 的控件数组中，用于表示控件数组的各个元素的参数是。【B】

A.Tag

B.Index

C.ListIndex

https://www.360docs.net/doc/624863352.html,

34.下列控件中，不能改变控件大小的控件是。【D】

A.TextBox

https://www.360docs.net/doc/624863352.html,bel

C.Frame

D.Timer

35.若要改变窗体的标题内容，应设置该窗体属性的值。【A】

A.Caption

B.Font

https://www.360docs.net/doc/624863352.html,

D.Text

36.在Visual Basic中，菜单控件只有事件。【C】

A.MouseUp

B.MouseDown

C.Click

D.DblClick

37.如果要在菜单中添加一个分隔线，则应将其“标题”设置为。【D】

A.=

B.*

C.&

D.-

38.下列不能直接通过Visual Basic语句访问的数据文件是。【C】

A.顺序文件

B.随机文件

C.数据库文件

D.二进制文件

39.下列不属于Visual Basic数据库访问技术的是。【B】

A.DAO

B.SQL

C.RDO

D.ADD

40.下列叙述中错误的是。【B】

A)注释语句是非执行语句，仅对程序的有关内容起注释作用，它不被解释或编译

B)注释语句可以放在代码中的任何位置

C)注释语句不能放在续行符的后面

D)代码中加入注释语句的目的是提高程序的可读性

二，填空题（每题2分，共20分）

1.Visual Basic 工程文件的扩展名是 *.vbp

2.Visual Basic 的三种工作模式是设计、运行和（中断）调试

3.表达式Abs（-34）+Sqr（100）*Int（-3.4）的值为 34 + 10*-4= -6

4.代数式︱a b

ab

︱的Visual Basic表达式是 Abs（(a+b)/(a*b)）

5.在Visual Basic中所有的控件对象必须是建立在窗体上，它是所有控件的容器。

https://www.360docs.net/doc/624863352.html,bel控件的Caption和 Name 默认的属性值相同。

7.在Visual Basic中，若数组作为被调用过程的参数，则只能通过 ByRef 方式进行传递。

8.以下程序实现每次单击按钮Command1时，标签Label1在窗体Form1中向右移动100个标准单位；

当标签移出窗体右边界时，再次单击Command1，标签Label1回到窗体的右边界

Private Sub Command1_Click()

If Label1.Left > Form1.Width Then

Label1.left=0

Else

Label1.left=Label1.left+100

End If

End Sub

9. 以下程序功能是：把当前目录下的顺序文件smtext.txt 的内容读入内存，并在文本框Text1中

显示出来。

Private Sub Command1_Click()

Dim inData As String

Text1.Text=“”

Open “smtext.txt” For Input As #1

Do While Not EOF(1)

Input #1,inData

Text1.Text = Text1.Text & inData

Loop

Close #1

End Sub

三、阅读理解题（每小题4分，共20分）

1.执行下面过程后，窗体上显示的是Else分支

Private Sub Form＿Click()

Dim x As Integer

x = 2

Select Case x

Case 1,3

Print “分支1”

Case Is > 4

Print “分支2”

Case Else

Print “Else分支”

End Select

End Sub

2.执行下面过程后，窗体上显示的是 a(2,2) + a(3,3)=2*2 + 3*3=4+9=13

Private Sub Form＿Click()

Dim a (10,10) As Integer

Dim i As Integer,j As Integer

For i= 1 To 10

For j = 1 To 10

a（i ,j）= i* j

Next j

Next i

Print a(2,2) + a(3,3)

End Sub

3.执行下面过程后，窗体上显示的是4 5。

Option Base 1

Private Sub Form_Click()

Dim a As Variant

Dim i As Integer,sum As Integer,x As Single

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

Sum = 0

For i = 1 To 5

Sum = Sum + a(i)

Next i

x = Sum/5

For i = 1 To 5

If a(i) > x Then Print a(i);

Next i

End Sub

4．程序运行后，单击两次Command 1 按钮后，窗体上显示的是 4 2。

Private Sub Command1_Click()

Static x As Integer

Dim i As Integer, y As Integer

Cls

For i = 1 To 2

y = y + x

x = x + 2

Next i

Print x, y

End Sub

5.执行下面过程后，窗体上显示的是24。

Private Sub Form_Click()

Print Pd(4)

End Sub

Function Pd(ByVal y As Integer ) As Long

If y = 1 Then

Pd = 1

Else

Pd = y * Pd(y-1)

End If

End Function

四、编程应用（共20分）

1.编写程序，分别用InputBox 函数接收两个整数，在窗体中输出其中较大的数。（6分）

Private Sub Command1_Click()

num1 = Val(InputBox("输入数1"))

num2 = Val(InputBox("输入数2"))

If num1 > num2 Then

Print num1

Else

Print num2

End If

End Sub

2.编写一个通用（或子程序）过程area，以实型变量r 作为形参，计算并在过程中输出圆的面积。（7分）

Const PI = 3.1415926

Private Sub Command1_Click()

Dim s As Single, ra As Single

ra = InputBox("请输入半径")

Call area(ra, s)

Print s

End Sub

Public Sub area(ByVal r As Single, ByRef s)

s = PI * r * r

End Sub

3.电力公司为合理调配某社区用电高峰，拟对该社区居民户每月用电情况进行统计。设定每隔50度用电量为一个统计区间，当大于等于500度时为一个统计区间（即0-49、50-99、100-149，……、450-499、500以上）。试编程统计每个用电区间内的居民户数。（7分）

要求：1）输入的用电量为整数；

2）输入负数时结束数据输入

Private Sub Form_Click()

Dim a(10) As Integer

num = InputBox("输入用电量")

Print num;

Do While num >= 0

n = num \ 50

If n >= 10 Then

a(10) = a(10) + 1

Else

a(num \ 50) = a(num \ 50) + 1

End If

num = InputBox("输入用电量")

Print num;

Loop

Print

For i = 0 To 10

If i = 10 Then

Print ">=500的用户数为" & a(i)

Else

Print i * 50 & "~" & (i + 1) * 50 & "的用户数为" & a(i)

End If

Next i

End Sub