2015-2016第一学期vb试卷A

2015~2016学年第一学期VB期末试卷答题纸（A卷）学院专业班级：学号：姓名：成绩

一、单选题(用铅笔把选中的方格涂黑：1分×50=50分)

1 2 3 4

5 6 7 8

9 10 11 12

13 14 15 16

17 18 19 20

21 22 23 24

25 26 27 28

29 30 31 32

33 34 35 36

37 38 39 40

41 42 43 44

45 46 47 48

49 50

二、填空题（每空占一行，每行写一个答案：2分×20=40分）

1. 2.

3. 4.

5. 6.

7. 8.

9. 10.

11. 12.

13. 14.

15. 16.

17. 18.

19. 20.

三、编程题（10分×1=10分）

编写程序找出给定范围之内的回文数，运行界面如下图所示。所谓回文数是指正读与倒读都相同的数。如121，454就是回文数。要求：

1、单击“查找”按钮(Command1)，用InputBox函数分别输入查找范围的下界和上界（如查找100到999之间的回文数，则下界为100，上界

为999），并将回文数显示在列表框（List1）中。

2、单击“清除”按钮(Command2)将列表框（List1）

内容清空。

3、单击“退出”按钮(Command3)结束程序运行。

4、编写一个判断回文数的函数过程，函数过程名为

Reverse。

2015~2016学年第一学期VB期末试卷（A卷）

（考试对象：15级土木、测绘、资环、交通、水务、水文等）

学院专业班级：学号：姓名：成绩

一、选择题（1分×50=50分）

1. 以下叙述中错误的是。

A、.frm 文件是窗体文件，一个窗体可以包含.bas 文件

B、.vbp 文件是工程文件，一个工程可以包含.bas 文件

C、.vbp 文件是工程文件，一个工程可以由多个.frm 文件组成

D、.vbg 文件是工程组文件，一个工程组可以由多个工程组成

2．以下合法的VB 变量名是。

A、case

B、name10

C、t-name

D、x*y

3．窗体Form1 上有一个名称为Command1 的命令按钮，以下对应窗体单击事件的事件过程是。

A、Private Sub Form 1_Click()

B、Private Sub Form_Click()

……

End Sub End Sub

C、Private Sub Commandl_Click()

D、Private Sub Command_Click()

……

EndSub End Sub

4. 下面定义窗体级变量a 的语句中错误的是。

A、Dim a%

B、Private a%

C、Private a as Integer

D、Static a%

5. 设x=3.3，y=4.5，表达式x-Int(x)+Fix(y)的值是

A、3.5

B、4.8

C、4.3

D、4.7

6. 不论何种控件，都具有且在运行时不能更改其值的属性是。

A. Text

B. Name

C. Caption

D. Value

7. 用来设置文字字体是否斜体的属性是。

A、FontUnderline

B、FontBold

C、FontSlope

D、Fontltalic

8. 以下叙述中错误的是。

A、在通用过程中，多个形式参数之间可以用逗号作为分隔符

B、在Print 方法中，多个输出项之间可以用逗号作为分隔符

C、在Dim 语句中，所定义的多个变量可以用逗号作为分隔符

D、当一行中有多个语句时，可以用逗号作为分隔符

9. 下列表达式中不能判断x 是否为偶数的是。

A、x/2=Int(x/2)

B、x Mod 2=0

C、FiX(x/2)=x/2

D、x\2=0

10.下列可以正确定义2 个整型变量和1 个字符串变量的语句是。

A、Dim n,m As Integer,s As String

B、Dim a%,b$，c As String

C、Dim a As Integer,b,c As String

D、Dim x%,y As Integer,z As String

11. 把数学表达式6

23

5-+y x 表示为正确的VB 表达式应该是 。

A 、(5x+3)/(2y-6)

B 、x*5+3/2*y-6

C 、(5*x+3)÷(2*y-6)

D 、(x*5+3)/(y*2-6)

12. 下列叙述中错误的是 。 A 、一个工程中可以包含多个窗体文件 B 、在一个窗体文件中用Public 定义的通用过程不能被其他窗体调用 C 、窗体和标准模块需要分别保存为不同类型的文件 D 、用Dim 定义的窗体级变量只能在该窗体中使用

13. 下面的数据类型中，哪种类型所占的内存最小： 。

A 、Integer

B 、Single

C 、Byte

D 、Double

14. 在窗体上画一个命令按钮（名称为Command1）和一个文本框（名称为Text1），然 后编写下列事件过程： Private Sub Command1_Click( ) x=Val(Text1.Text) Select Case x Case 1,3 y=x*x Case Is>=10,Is<=-10 y=x Case -10 To 10 y=-x End Select End Sub

程序运行后，在文本框中输入3，然后单击命令按钮，则下列叙述中正确的是 。 A 、执行y=x*x B 、执行y=-x C 、先执行y=x*x ，再执行y=-x D 、程序出错

15. 设x 是小于10的非负数。对此陈述，以下正确的VB 表达式是 。 A 、0≤x<10 B 、0<=x<10 C 、x>=0 And x<10 D 、X>=0 Or x<=10

16. 在Do 循环条件下，如果循环体不改变控制条件，循环就会无限地执行下去。终止一个无限循环的方法是 。

A 、 按【Ctrl 】+【Break 】键

B 、 按【Alt 】+【

C 】键 C 、 按【Shift 】+【C 】键

D 、 按【Ctrl 】+【C 】键 17. 下面的哪个窗口可以用来调试程序： 。

A 、 属性窗口

B 、 本地窗口

C 、 工程窗口

D 、 窗体布局窗口 18．在VB 中可以作为容器的是 。

A 、 Form 、TextBox 、PictureBox

B 、Form 、PictureBox 、Frame

C 、 Form 、TextBox 、Label

D 、Label 、PictureBox 、ListBox 19. 以下的控件或方法具有输入和输出双重功能的为 。 A 、Print B 、Textbox C 、Optionbutton D 、Checkbox 20. 下列关于函数过程的叙述中，正确的是 。

A、如果不指明函数过程参数的类型，则该参数没有数据类型

B、函数过程的返回值可以有多个

C、当数组作为函数过程的参数时，既能按值方式传递，也能按地址方式传递

D、函数过程形参的类型与函数返回值的类型没有关系

21.以下描述中错误的是。

A、窗体的标题通过其Caption 属性设置

B、窗体的名称（Name 属性）可以在运行期间修改

C、窗体的背景图形通过其Picture 属性设置

D、窗体最小化时的图标通过其Icon 属性设置

22. 现有语句：y=IIf(x>0,x Mod 3,0)，设x=10，则y 的值是。

A、0

B、3

C、1

D、语句有错

23. 为了给x,y,z 三个变量赋初值1, 下面正确的赋值语句是。

A、X = 1 ,Y = 1 ,Z = 1

B、X=1 : Y =1 : Z =1

C、X = Y = Z = 1

D、Xyz = 1

24. 下列叙述中错误的是。

A、顺序文件中的数据只能按顺序读写

B、可以用不同的文件号以不同的读写方式同时打开同一个文件

C、执行Close 语句，可将文件缓冲区中的数据写到文件中

D、随机文件中各记录的长度是定长的

25. 下列控件中，控件不论其属性如何改变，它在程序运行时永远是不可见的。

A、 Label

B、Timer

C、Command

D、Image

26. 下面窗体的哪个事件在窗体从加载到卸载这个过程中只可能触发一次：。

A、GotFocus

B、Activate

C、Load

D、Deactivate

27. VB窗体文件的扩展名是。

A、.Frm

B、.Bas

C、 .Vbp

D、 .Xls

28. 设有如下数组声明语句：

Dim arr(-2 To 2, 0 To 3) As Integer

该数组所包含的数组元素个数是。

A、20

B、16

C、15

D、12

29. 若窗体中已经有若干个不同的单选按钮，要把它们改为一个单选按钮数组，在属性窗口中需要且只需要进行的操作是。

A、把所有单选按钮的Index 属性改为相同值

B、把所有单选按钮的Index 属性改为连续的不同值

C、把所有单选按钮的Caption 属性值改为相同

D、把所有单选按钮的名称改为相同，且把它们的Index 属性改为连续的不同值

30. VB是一种________的可视化程序设计语言。

A、B、C、面向问题D、面向对象

31．列表框的ListIndex属性为列表项索引。列表框中的第二项，其索引值为。

A、-1

B、2

C、 1

D、0

32. 下列是正确的VB常量。

A、#08/32/2015#

B、E-5

C、7D

D、True

33. 一个二维数组可以存放一个矩阵。在程序开始有语句Option Base 0，则下面定义的数组中正好可以存放一个4×3 矩阵（即只有12 个元素）的是。

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 34．下列能从字符串"VisualBasic"中直接取出子字符串"Basic"的函数是。

A、Left

B、Mid

C、String

D、Instr

35. 设在名称为Myform 的窗体上只有1 个名称为C1 的命令按钮，下列叙述中正确的是。

A、窗体的Click 事件过程的过程名是Myform_Click

B、命令按钮的Click 事件过程的过程名是C1_Click

C、命令按钮的Click 事件过程的过程名是Command1_Click

D、上述3 种过程名称都是错误的

36. 设在窗体上有一个名称为Commandl 的命令按扭和一个名称为Textl 的文本框。要求单击Commandl 按钮时可把光标移到文本框中。下列正确的事件过程是。

A、Private Sub Commandl_Click( )

Textl.GotFocus

End Sub

B、Private Sub Commandl_Click( )

Commandl.GotFocus

End Sub

C、Private Sub Commandl_Click( )

Textl.SetFocus

End Sub

D、Private Sub Commandl_Click( )

Commandl.SetFocus

End sub

37．设x=5，执行语句Print x=x+10，窗体上显示的是。

A、15

B、5

C、True

D、False

38. 要使一个文本框可以显示多行文本，应设置为True 的属性是。

A、Enabled

B、MultiLine

C、MaxLenth

D、Width

39. 表达式Int(Rnd*50)所产生的随机数范围是。

A、[0,50]

B、[1,50]

C、[0,49]

D、[1,49]

40. 选项按钮被选中其Value属性为________。

A、0

B、1

C、True

D、False

41.Print方法使用在上输出数据。

①窗体②列表框③复选框④组合框⑤文本框⑥立即窗口⑦图片框

A、①④⑦

B、①③⑤

C、①②⑥

D、①⑥⑦

42. 下列函数中，返回值是数值型的是。

A、InStr

B、Mid

C、Chr

D、Space

43. 下面正确的赋值语句是_________。

A、X + Y = 30

B、Y = π*R*R

C、3y = X

D、Y = X + 30

44.在利用菜单编辑器设计菜单时，为了把组合键“Alt+X”设置为“退出(x)”菜单项的访问键，可以将该菜单项的标题设置为。

A、退出(X&)

B、退出(&X)

C、退出(X#)

D、退出(#X)

45. 若要获得文本框中输入的数据，可使用的属性是。

A、Name

B、Font

C、Text

D、Enabled

46. 设有如下程序：

Private Sub f(x As Integer, ByVal y As Integer)

x = 2 * x

y = y + x

End Sub

Private Sub Command1_Click()

Dim a As Integer, b As Integer

a = 6:

b = 35

Call f(a, b)

Print a, b

End Sub

程序运行后，单击命令按钮Command1，输出结果为。

A、6 47

B、12 47

C、6 35

D、12 35

47．字符型变量的默认初始值为。

A、0

B、False

C、一个空格

D、空字符串

48. 在Visual Basic 集成环境中，可以列出工程中所有模块名称的窗口是。

A、工程资源管理器窗口

B、窗体设计窗口

C、属性窗口

D、代码窗口

49、下列叙述中正确的是。

A、一个Sub 过程至少要有一个Exit Sub 语句

B、一个Sub 过程必须有一个End Sub 语句

C、可以在Sub 过程中定义一个Function 过程，但不能定义Sub 过程

D、调用一个Function 过程可以获得多个返回值

50. 设程序中有如下数组定义和过程调用语句：

Dim a(10) As Integer

……

Call p(a)

如下过程定义中，正确的是。

A、Private Sub p(a As Integer)

B、Private Sub p(a() As Integer)

C、Private Sub p(a(10) As Integer)

D、Private Sub p(a(n) As Integer)

二、填空题（2分×20=40分）

1．为了使标签能自动调整大小以显示标题（Caption 属性）的全部文本内容，应把该标签的AutoSize属性设置为(1) 。

2. Integer类型的变量可存放的最大整数为____(2)________。

3.设变量S与I分别为字符型与整型，在文本框Text1与Text2中分别输入20与30，则执行以下赋值语句后，S的值为（3），I的值为(4) 。

S=Val(Text1.Text)+Text2.Text

I=Val(Text1.Text) & Text2.Text

4.变量的作用域包括三个等级，用于说明全局变量的语句是(5) 。

5. 若要清除列表框显示的信息,可用的方法是_ _(6)_______。

6. VB中有两种Sub过程，即事件过程和（7）。

7.程序运行时，单击命令按钮，则在窗体上显示的是（8）。

Private Sub Command1_Click( )

Print fun("ABCDEFG")

End Sub

Function fun(st As String)As string

stlen=Len(st)

temp=""

For k=1 To stlen/2

temp=temp+Mid(st,k,1)+Mid(st,stlen-k+1,1)

Next k

fun=temp

End Function

8．程序运行后，在窗体输出结果为（9），arr(3,3)值是（10）。

Option Base 1

Dim arr( )As Integer

Private Sub Form_Click( )

Dim i As Integer, j As Integer

ReDim arr(3,2)

For i = 1 To 3

For j = 1 To 2

arr(i,j)=i*2+j

Next j

Next i

ReDim Preserve arr(3,4)

For j=3 to 4

arr(3,j)=j+9

Next j

Print arr(3,2)+arr(3,4)

End Sub

9、窗体上有名称为Command1的命令按钮。运行程序，并单击命令按钮，则窗体上显示的值是（11）。

Private Sub Command1_Click()

Dim x As Integer, y As Integer, z As Integer

x = 3

y = 5

z = fy(y)

Print fx(fx(x)), z

End Sub

Function fx(ByVal a As Integer)

a = a + a

fx = a

End Function

Function fy(ByRef a As Integer)

a = a + a

fy = a

End Function

10．执行下面程序，单击按钮Cmd1后，在InputBox函数对话框中输入4（或直接单击“确定”按钮），窗体第三行显示的内容是（12）。

Option Explicit

Private Sub Cmd1_Click()

Dim days As Integer

days = InputBox("输入正整数", , 4)

Print fun(days)

End Sub

Private Function fun(D As Integer) As Integer

If D = 1 Then

fun = 1

Else

fun = 2 * fun(D - 1) + 1

Print D; fun

End If

End Function

11．以下程序的功能是从随机产生的20 个20~200（含20 和200）的整数中，找出能够同时被3和5 整除的数的最大值，并显示出来。请完善程序。

Option Base 1

Private Sub Command1_Click()

Dim a(20) As Integer

m = 0

For i = 1 To 20

a(i) = Int(Rnd * (13) ) + 20

If a(i) Mod 3 = 0 and a(i) Mod 5 = 0 Then

If a(i) > m Then m = a(i)

End If

Next i

If (14) Then

Print "没有满足条件的数"

Else

Print "满足条件的数是"; m

End If

End Sub

12、以下程序的功能是：先将随机产生的10 个不同的整数放

入数组a 中，再将这10 个数按升序方式输出。请完善程序。

Private Sub Form_Click()

Dim a(10) As Integer, i As Integer

Randomize

i = 0

Do

num = Int(Rnd * 90) + 10

For j = 1 To I '检查新产生的随机数是否与以前的相同，相同的无效

If num = a(j) Then Exit For

Next j

If j > i Then

i = i + 1

a(i) = （15）

End If

Loop While i < 10

For i = 1 To 9

For j = （16）To 10

If a(i) > a(j) Then

temp = a(i)

a(i) = a(j)

（17）

End If

Next j

Next i

For i = 1 To 10

Print a(i)

Next i

End Sub

13、以下程序的功能是：找出指定范围内包含因子个数最多的整数，允许因子个数最多的整数不止一个，若有多个则全部输出到文本框中。请完善程序。

Option Explicit

Option Base 1

Private Sub Command1_Click()

Dim i As Integer, j As Integer, m As Integer, n As Integer

Dim s As String, mx As Integer

Dim yz() As Integer, c() As Integer

m = Text1: n = Text2

ReDim c(m To n)

For i = （18）

s = i & ":"

Call qyz(i, yz)

c(i) = UBound(yz)

For j = 1 To UBound(yz)

s = s & yz(j) & ","

Next j

s = Left(s, Len(s) - 1)

List1.AddItem s

Next i

mx = c(m)

For i = m+1 To n

If c(i) > mx Then mx = c(i)

Next i

For i = m To n

If c(i) = mx Then Text3 = Text3 & i & ","

Next i

Text3 = Left(Text3, Len(Text3) - 1)

End Sub

Private Sub qyz(ByVal n As Integer, yz() As Integer) ' 统计因子个数的过程Dim i As Integer, p As Integer

For i = 1 To n - 1

If （19）Then

p = p + 1

（20）

yz(p) = i

End If

Next i

End Sub

三、编程题（10分×1=10分）

题目见答题纸。