2013年VB语言期末考试卷

VB 程序设计试题

学年第一学期期末考试试题（A 卷）

院系 专业 级 考试科目 VB

任课教师签名： 院系负责人签名：

分）

一. 选择题(每小题2分，共30分) 下列各题A 、B 、C 、D 四个选项中，只有一个选项是正确的。请将正确选项填在答题卡相应位置上，。 1、 InputBox 函数返回值的类型为（ ）。

A 、 数值

B 、 字符串

C 、 变体

D 、 数值或字符串（视输入的数据而定）

2、 可以同时删除字符串前导和尾部空格的函数是（ ） 。

A 、 Ltrim

B 、Rtrim

C 、Trim

D 、Mid 3、 表达式1+ 45 \ 6 * 4 / 8 Mod 9 的值是（ ）

A

、4 B 、5 C 、6 D 、7 4、 以下可以作为VB 变量名的是 ( )

A 、SIN

B 、AO1

C 、COS （X ）

D 、X （-1）

5、 VB 算术运算符乘或除、整除、求余的优先级，从高到低依次为（ ）。

A 、乘或除、求余、整除

B 、整除、乘或除、求余

C 、整除、求余、乘或除

D 、乘或除、整除、求余

6、 表达式 （ ）可以计算字符串变量x 的长度。

A 、Str(x)

B 、Len(x)

C 、Len(x)-1

D 、Val(x)

7、 将文本框控件的( )属性设置为False ，可正常显示文本但不可编辑。

A 、Locked

B 、Enabled

C 、MultiLine

D、Visible

8、滚动条控件的（）属性用于指定用户单击滚动箭头时Value属性值的增量。

A、LargeChange

B、Change

C、Value

D、SmallChange

9、设窗体上有一个列表框控件List1，其中含有若干列表项。且列表项只能单选,则以下能表示当前被选中的列表项文本内容的是（）.

A、List1.List

B、List1.ListIndex

C、List1.Index

D、

List1. Text

10、以下能够触发文本框Change事件的操作是（）

A、文本框失去焦点

B、文本框获得焦点

C、单击文本框

D、改变文本框的内容

11、在窗体上画一个文本框（其中Name属性为Text1），然后编写如下事件过程：

Private Sub Form_Click()

Text1.Text = ""

Text1.SetFocus

For i = 1 To 5

Sum = Sum + i

Next i

Text1.Text = Sum

End Sub

上述程序的运行结果是（）。

A、在文本框Text1中输出15

B、在文本框Text1中输出0

C、出错

D、在文本框Text1中输出不定值

12、为了暂时关闭计时器，应把该计时器的某个属性设置为False ，这个属性是（）。

A、 Visible

B、Timer

C、Enabled

D、Interval

13、用下面语句定义的数组的元素个数是。

Dim A(-2 To 5) As Integer

A、6

B、7

C、8

D、9

14、Int( Rnd * 100 ) 表示的是（）范围内的一个整数。

A、 [0，100]

B、 [1，99]

C、 [0，99]

D、 [1，100]

15、执行下面的程序段后，x 的值为( )。

x=5

For i=1 To 5 Step 2

x=x+i

Next i

Print x

A、 6

B、 9

C、14

D、 21

二. 填空(每空1分，共20分)

请将每空的正确答案写在答题卡填空题中序号为[1]～[20]的横线上，答在试卷不得分。

1、把数学代数式|x|≤8写成VB的关系表达式 [1]

2、求a与b之积除以c的余数，用Visual Basic表达式可表示为 _______ [2]。

3、#5/20/01#表示 __[3]类型常量。

4、在运行时,系统自动执行启动窗体的______________[4]事件.

5、定时器的____________[5]属性指定Timer事件的时间间隔.

6、以下程序用来计算20！。并将计算的结果打印在窗体上。

Private Sub Command1_Click()

S = ______ [6]

For I = 1 to 20

S = __________ [7]

Next I

Print “20!=” ; _______ [8]

7、以下程序用来计算数组A中的最大值(假定A中已赋值)，并将结果打印在窗体上。

Private Sub Command1_Click()

Dim A(10) as integer

Max = A(1)

For K = _____ [9] To 10

If Max < A(K) then ____________ [10]

Next K

Print “最大值是”；Max

8、以下程序用来产生20个[30,90]之间的随机整数，并将其中的偶数打印出来。

Private Sub Command1_Click()

For I= 1 To _____ [11]

X=Int(Rnd*____________ [12] )

If _____________ [13] Then Print X

Next I

End Sub

9、以下程序用来计算由键盘输入10个数中正数之和，负数之和，正数的个数，负数的

个数。其中用C累加负数之和，IC累加负数的个数，D累加正数之和，ID累加整数

的个数。

Private Sub Command1_Click()

C = 0: IC = 0:

D = 0: ID = 0

For I = 1 to 10

A = Val(Inputbox(“请输入A”))

If A < 0 Then C = ______________ [14]: ________________ [15]

If A > 0 Then D = _______________[16]: ________________ [17]

Next I

Print “负数的个数为：”，IC

Print “负数的和为：”，C

Print “正数的个数为：”，ID

Print “正数的和为：”，D

10、在窗体上画一个标签（名称为Label1）和一个计时器

（名称为Timer1），然后编写如下几个事件过程，程序

运行后，单击窗体，将在标签中显示当前时间，每隔1

秒钟变换一次。请填空。

Private Sub Form_Load()

Timer1.Enabled = False

Timer1.Interval =_________ [18]

End Sub

Private Sub Form_Click()

Timer1.Enabled =_________ [19]

End Sub

Private Sub Timer1_Timer()

Label1.Caption =__________ [20]

End Sub

三. 程序阅读题(每题8分，共32分)

（将答案写在答题卡对应的题号上）

1. 以下程序的输出结果是: ______

n = 0

Do While n<=2

n = n+1

Loop

print n

2．以下程序的输出结果是: ______

Dim A(5) as integer

For I= 1 to 5

A(I) = I * I

Print A(I);

Next I

Print

Print I, A(I-1)

3. 程序运行时单击Command1,且输入的数是9时，写出文本框Text1.Text的内容。

Private Sub Command1_Click()

Dim X As Integer, S As Integer

X = InputBox("请输入一个正整数=")

S = 2

If X > 4 And X < 6 Then

S = S * X

Else

S = S + X

End If

Text1.text = "S=" + Str(S)

End Sub

4. 窗体的Form_Click()事件过程如下，运行时，单击窗体后输入BASIC，写出运行结果。

Private Sub Form_Click()

Dim s As String

Dim n As Integer, i As Integer

s = InputBox("输入字符串")

n = Len(s)

Print s, n

Print Mid(s, n - 1, 2)

End Sub

四. 编程题(第1题8分，第2题10分)

（将答案写在答题卡对应的题号上）

1.写事件过程Command1_Click，执行该过程时调用InputBox函数输入x，如果x≥0，计算其算术平方根，否则计算它的平方,计算结果在窗体上输出。

2.随机产生10个20~100（包括20,100）之间的正整数，存放在数组a中，按从小到大顺序排序，并在窗体上打印输出排序后的结果。（可以不采用过程，也可以采用过程来实现，如果采用过程，需要编写一个对数组进行排序的过程，然后再调用这个过程）。

学年第一学期期末考试答案（A卷）

院系专业级考试科目VB

任课教师签名：院系负责人签名：

六. 填空(每空1分，共20分)

[1] ABS(X) <= 8 [2] a*b mod c [3] 日期 [4] Load [5] Interval [6] 1 [7] S * I [8] S（） [9] 2 [10] Max = A(k) [11] 20 [12] 61+30 [13] X mod 2=0 [14] C=C+A [15] IC=IC+1 [16] D=D+A [17] ID=ID+1 [18] 1000 [19]= true [20] Time

七. 程序阅读题(每题8分，共32分)

(1) 3

(2) 1 4 9 16 25

6 25

(3) S=11

(4) BASIC 5

IC

八. 编程题(第1题8分，第2题10分)

1.写事件过程Command1_Click，执行该过程时调用InputBox函数输入x，如果x≥0，计算其

算术平方根，否则计算它的平方,计算结果在窗体上输出。

1、Private Sub Command1_Click()

Dim x As Single, y As Single

x = InputBox("请输入X的值")

If x >= 0 Then

y = Sqr(x)

Else

y = x ^ 2

End If

Print y

End Sub

2.随机产生10个20~100（包括20,100）之间的正整数，存放在数组a中,按从小到大顺序

排序后打印输出排序结果。（在窗体上显示结果）（可以不采用过程，也可以采用过程来实现，

如果采用过程，需要编写一个对数组进行排序的过程，然后再调用这个过程）。

Private Sub Form_Click()

Dim a(1 To 10) As Integer

For i = 1 To 10

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

print a(i);

Next i

Print

For i = 1 To 9

For j = 1 To 10 - i

If x(j) > x(j + 1) Then

t = x(j): x(j) = x(j + 1): x(j + 1) = t

End If

Next j

Next i

For i = 1 To 10

Print x(i); " ";

Next i

Print

End Sub

使用过程：

Private Sub Form_Click()

Dim a(1 To 10) As Integer

For i = 1 To 10

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

Next i

Call paixu(a())

End Sub

Public Sub paixu(x() As Integer)

a = LBound(x):

b = UBound(x)

For i = a To b - 1

For j = a To b - i

If x(j) > x(j + 1) Then

t = x(j): x(j) = x(j + 1): x(j + 1) = t

End If

Next j

Next i

For i = a To b

Print x(i); " ";

Next i

Print

End Sub

答案

专业级考试科目考试日期任课教师签名：院系负责人签名：

一、判断题：（填写“√”，或“×”，共15分，每题1分）

三、填空题 (共15分，每题1分) 1、（-b+sqr(b^2+4*a*c)）/2 11、 enabled

2、abs(x)<=8 12、使控件获得焦点

3、4 13、testdate=#01/14/2006#

4、颜色 14、text1.passwordchar=”*”

5、string 15、mid(s,7,5)

6、a>8 and a mod 2=0

7、x>=13 and x<67 and x mod 3=0

8、145

9、a*b mod c 10、日期

四 改错题(共10分，每题5分) 1、next i

2、end sub

五、程序阅读及填空题 (共25分，每题5分) 1、结果是: 3

2、结果是: s=11 s=10 s=6

3、结果是: 单击按钮1结果为：123321 单击按钮2结果为：444

4、结果是:

Good 4 doog

5、程序填空题 ① z>y

② z

五、编程序(10分)

Private Sub Command1_Click() Dim x As Single, y As Single x = InputBox("请输入X 的值") If x >= 0 Then y = Sqr(x) Else

y = x ^ 2 End If Print y End Sub

试题

专业 级 考试科目 考试日期

任课教师签名： 院系负责人签名：

一、选择题

1、 VB6.0分为3种版本，这3种版本是企业、专业、学习。

2、与传统的程序设计语言相比,Visual Basic 最突出的特点是 C 。

A) 结构化程序设计 B) 程序开发环境

C) 事件驱动编程机制 D) 程序调试技术

3、构成对象的三要素是属性、方法、事件。

4、假定已在窗体上画了多个控件,并有一个控件是活动的,为了在属性窗口中设置窗体的属性,预先应执行的操作是 A 。

A) 单击窗体上没有控件的地方 B) 单击任一个控件

C) 不执行任何操作 D) 双击窗体的标题栏

5、产生一个100～200（包括100和200）范围内的正整数 INT(RND*101+100) 。

6、表示x是5或7的倍数 X MOD 5=0 OR X MOD 7=0 。

7、取字符变量S中第五个字符起的6个字符 MID(S,5,6) 。

8、X、Y都大于Z X>Z AND Y>Z OR XZ 。

9、X、Y中有一个小于Z X>Z AND YZ 。

10、计算下列表达式的值:

(1) 123+23 mod 10\7+Asc("A") 188

(2) 100+"100"&100 200100

(3) int(68.555*100+0.5)/100 68.56

(4)已知A$="87654321",求表达式Val(Left(A$,4)+Mid$(A$,4,2))的值 876554

（5）Len("VB程序设计") 6

11、填空

(1)可以删除字符串左边空格的函数是（ C ）。

A Ltrim

B Rtrim

C Trim

D Mid

(2)以下语句的输出结果是（D ）。

Print Format$(12345.5,"###,000.00")

A 12345.5

B 12,345.5

C 012,345.50

D 12,345.50

(3)设A= “abcdefghijklm”，下面（B ）的函数值为“jklm”。

A Mid(A,9,14)

B Right(A, 4)

C Mid(A,9,4)

D Left(A,10,4)

(4)设a=2,b=3,c=4,d=5下列表达式的值是（ D ）。

4*c=b^2 And b <> a+c

A -1

B 1

C True

D False

(5) 下列可作为VB的变量名的是(D )

A、end

B、abc.1

C、4ABC

D、a_1

(6) 表达式（B ）可以计算字符串变量x 的长度。

A、Str(x)

B、Len(x)

C、Len(x)-1

D、Val(x)

12、下列不能打开代码窗口的操作是D

A) 双击窗体上的某个控件 B) 双击窗体

C) 按F7键 D) 单击窗体或控件

13、下列说法中正确的是

为了装入一个Visual Basic应用程序,应当D

A) 只装入窗体文件(.frm)

B) 只装入工程文件(.vbp)

C) 分别装入工程文件和标准模块文件

D) 分别装入工程文件、窗体文件和标准模块文件

14、下列可作为Visual Basic的变量名的是D

A) 4-Delta B) Integer

C) xm.frm D) Gzff

15、保存VB应用程序，以下正确的操作是( B )

B、只保存窗体文件(.frm)

C、分别保存窗体和工程文件(.vbp)

D、只保存窗体文件，不保存工程文件。

E、只保存工程文件。

16、Visual Basic窗体设计器的主要功能是 (A )

A.建立用户界面

B.编写源程序代码

C.画图

D.显示文字

17、为了删除窗体上的一个控件，下列正确的操作是：B

A按回车键

B选择要清除的控件，然后按Del键

C按Esc键

D选择要清除的控件，然后按回车键。

*****18、InputBox函数中有5个参数，其中必须写明的参数是( A)

A、指定对话框中显示按钮的数目

B、设置对话框标题

C、提示信息

D、所有参数都是可选的

19、执行下列语句后，列表框中各表项顺序为（ 2 4 6 8 10 ）。

List1.Clear

For i = 2 To 10 step 2

List1.AddItem i

Next i

20、程序运行时可以激活其（B ）事件。

A.Change

B.Load

C.Dblclick

D.Click

21、设组合框Combo1中有5个项目，则以下能删除最后一项的语句是（ D）

https://www.360docs.net/doc/8b3773167.html,bo1.RemoveItem Text

https://www.360docs.net/doc/8b3773167.html,bo1.RemoveItem 2

https://www.360docs.net/doc/8b3773167.html,bo1.RemoveItem 3

https://www.360docs.net/doc/8b3773167.html,bo1.RemoveItem Combo1.ListCount-1

22、确定一个控件大小的属性是（ D ）

A、Width或Height

B、Top和Left

C、Top或left

D、Width和Height

23、假定命令按钮的名称（Name属性）为Command1，则把命令按钮的标题设置为“确定”的语句为（ B ）

https://www.360docs.net/doc/8b3773167.html,mand1.Caption=确定

B.Form1.Caption=“确定”

https://www.360docs.net/doc/8b3773167.html,mand1=“确定”

https://www.360docs.net/doc/8b3773167.html,mand1.Caption=“确定”

24、组合框有三种不同风格的形式:下拉组合框、简单组合框和下拉列表框，通过（A ）属性设置。

A.Style

B.BoderStyle

C.FillStyle

D.Draw

*****25、假定Pic1和Tex1分别为图片框和文本框的名称,下列不正确的语句是。

A) Print 25 B) Pic1.Print 25

C) Tex1.Print 25 D) Debug.Print 25

26、以下语句的输出结果是(□表示空格)C

x=“VB”

y=“程序设计”

Print x；y

A) VB□程序设计 B) □VB□程序设计

C) VB程序设计 D) □VB□程序设计□

27、执行以下程序段后,变量z的值是

x=“Visual Basic Programming”

y=“Quick”

z=y & Ucase(Mid(x,7,6)) & Right(x,12)D

A) Visual BASIC Programming B)Quick Basic Programming

C) QUICK Basic Programming D) Quick BASIC Programming

28、在窗体上画一个命令按钮,然后编写如下事件过程:

Private Sub Command1_Click()

Dim a%, b%

a = InputBox("输入第一个数")

b = InputBox("输入第二个数")

Print b + a

End Sub

程序运行后,单击命令按钮,先后在两个输入对话框中分别输入234和432,则输出结果是B

A) 579 B) 666 C) 456 D) 123456

29、执行下面的语句后,所产生的对话框的标题是

a=InputBox(“ABC”，“DEF”) (C)

A) BBBB B) 空 C) DEF D) 出错，不能产生信息框

30、决定窗体上显示内容的方法是 (D)

A) Text B) Name C) Caption D) Print

31、为了文本框具有垂直滚动条,应先把MuItiLine属性设为True,然后再把ScrollBars属性

设置为 C

A) 0 B) 1 C) 2 D) 3

32、使文本框获得焦点的方法是 B

A) Change B) GotFocus C) SetFocus D) LostFocus

33、表示复选框的状态的属性是 D

A) Align B) Alignment C) Sorted D) Value

****34、设置单选框被选中的属性是 A

A) True B) Alignment C) False D) Value

35、删除列表框中指定的项目所使用的方法为 D

A) Move B) Remove C) Clear D) RemoveItem

36、当拖动滚动条中的滚动块时,将触发滚动条的事件是C

A) Move B) Change C) Scoll D) SetFocus

37、以下正确的语句是 B

A) If a>b Then t=a ; a=b ; b=t

B) If a>b Then t=a : a=b : b=t

C) If a>b Then t=a a=b b=t

D) If a>b Then t=a , a=b , b=t

38、写出程序运行的结果 1 1 1

Private Sub Form＿Click

Dim x as Integer

X=1

If x<=1 Then Print x,

If x<=2 Then Print x;

If x<=3 Then Print x;

Print

End Sub

39、在窗体上添加一文本框和一命令按钮，并编写如下程序：

Private Sub Command1_Click()

Dim x1 As String, x2 As String

x1 = InputBox("请输入x1的值：")

x2 = InputBox("请输入x2的值：")

Text1.Text = x1 + x2

End Sub

在程序运行过程中，单击命令按钮后，在两次出现的输入对话框中的文本框中分别输入23和32并按回车键，则文本框text1中显示的数据是多少？2332

40、写出程序运行的结果 20 。

Private Sub Form＿Click

Dim a as single,b as single, c as single,,m as single

a=-10

b=20

c= -30

m=a

If b>m Then m=b

If c>m Then m=c

Print m

End Sub

41、以下程序段的输出结果为 D 。

x = 1

y = 4

Do Until y > 6

x = x * y

y = y + 1

Loop

Print x

A) 1 B) 4 C) 8 D) 120

42、执行下面的程序段后，s的值为 B 。

s =2

For i = 1 To 10 Step 2

s = s + i \ 4

Next i

A) 21 B) 6 C) 8 D) 24

43、阅读下面的程序段：

For i = 1 To 2

For j = 1 To 2

s = s + 1

Next j

Next i

执行上面的2重循环后，s的值为：B

A) 3 B) 4 C) 14 D) 21

44、事件过程如下：

Private Sub Command1_Click()

Dim a%,b%,c%

x = 0

Do Until x = -1

a = InputBox("请输入a的值")

b = InputBox("请输入b的值")

x = InputBox("请输入x的值")

a = a +

b + x

Loop

Print a

End Sub

程序运行后，单击命令按钮，依次在对话框中输入5、4、3、2、1、-1，则输出结果为：2

A) 2 B) 3 C) 14 D) 15

45、用下面的语句所定义的数组的元素个数是。

Dim A(-2 To 6) As Integer

A)6 B)7 C)8 D)9

46、在窗体上画一个命令按钮（其Name属性为Command1），然后编写如下代码：

Private Sub Command1_Click()

Dim s(10) As Integer

For i = 1 To 3

s(i) = i+1

Print s(i)；

Next i

Print s(i)

End Sub

写出输出结果是

A)1 2 3 0(显示在一列上) D)2 3 4 0(显示在一行上)

B)1 2 3 C)1 2 3 4