VB期中考试题

一、填空题

1、Visual Basic是一种面向__________的可视化程序设计语言，采取了__________的编程机制。

2、在VB中工程文件的扩展名是____________，窗体文件的扩展名是____________，标准模块文件的扩展名

3、一个控件在窗体的位置由_______和________属性决定，其大小由__________和_________属性决定。

4、设置控件背景颜色的属性名称是______________________。

5、

x=InputBox(___ __, , )

6、写出显示下图信息框的MsgBox函数

MsgBox( , , )

二、选择题

1、下面不是VB工作模式的是( )

A.设计模式

B.运行模式

C.汇编模式

D.中断模式

2、可视化编程的最大优点是( )

A.具有标准工具箱

B.一个工程文件由若干个窗体文件组成

C.不需要编写大量代码来描述图形对象

D.所见即所得

3、下列不能打开属性窗口的操作是( )

A.执行“视图”菜单中的“属性窗口”命令

B.按F4键

C.按Ctrl+T

D.单击工具栏上的“属性窗口”按钮

4、下列可以打开立即窗口的操作是( )

A.Ctrl+D

B.Ctrl+E

C.Ctrl+F

D.Ctrl+G

5、Visual Basic的编程机制是( )

A.可视化

B.面向对象

C.面向图形

D.事件驱动

6、以下能够触发文本框Change事件的操作是( )

A.文本框失去焦点

B.文本框获得焦点

C.设置文本框的焦点

D.改变文本框的内容

7、应用程序设计完成后，应将程序保存，保存的过程是( )

A.只保存窗体文件即可

B.只保存工程文件即可

C.先保存工程文件，之后保存窗体文件

D.先保存窗体文件(或标准模块文件)，之后还要保存工程文件

8、任何控件都具有的属性是( )

A.TEXT

B.CAPTION

https://www.360docs.net/doc/1d1923555.html,

D.FORECOLOR

5、决定控件上文字的字体、字形、大小及效果的属性是( )

A.TEXT

B.CAPTION

https://www.360docs.net/doc/1d1923555.html,

D.FONT

9、在窗体上建立了多个控件，如TEXT、LABEL1、COMMAND1，若要使程序一运行焦点就定位在COMMAND1控件上，应将COMMAND1控件的( )设置为0

A.INDEX

B.TABINDEX

C.TABSTOP

D.ENABLED

10、运行时，当用户向文本框输入新的内容，或在程序代码中对文本框的TEXT属性进行赋值从而改变了文本框的TEXT属性值时，将触发文本框的( )事件

A.CLICK

B.DBLCLICK

C.GOTFOCUS

D.CHANGE

11、以下窗体名中哪些是非法的窗体名( )。

A._aform

B.3frm

C.f_1

D.frm 5

E.f_1*

12、一个名称为myfrm,标题属性为form1的窗体，它的单击事件名应为( )。

A. myfrm_click

B.form1_click

C.form_click

D.me_click

13、执行下面语句：print “5*20” 的结果是( )。

A.“5*20”

B.出现错误信息

C.5*20

D.100

14、下列语句代码不可正常执行的是( )。

A、Print 32765 + 3

B、Print 5 + 7 = 14

C、Print 256 / 128

D、Print "14" + 12

15、当用户单击命令按钮时，( )属性可以使得命令按钮对激发事件无效。

A. Name

B.Enabled

C.Default

D.Cancel

16、下列语句中的( )语句可以用来正确地声明一个动态数组。

A.Private A(n) as integer

B.Dim A() as integer

C.Dim A(,) as integer

D.Dim a(1 to n)

16、以下选顶中，不是Visual Basic 6.0默认控件名称的是

https://www.360docs.net/doc/1d1923555.html,mand1

B.Text1

C.Option1

https://www.360docs.net/doc/1d1923555.html,be1

17、表达式Fix(－26.99)+Int(24.56)的值为

A.－2

B.－3

C.－1

D.0

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

Dim a(－3 T0 3，2)as Integer

A.6

B.12

C.14

D.21

19、在Visual Basic 6.0的立即窗口中，表达式Print 5>2的输出是

A.1

B.0

C.True

D.False

20、Visual Basic 6.0变量名Num@的类型是

A.字符串类型

B.单精度型

C.整型

D.货币

三、写出运算或程序执行的结果

1、设s1,s2均为字符串变量，s1=”Visual Basic”,s2=”b”,写出下面关系表达式中结果。

A.Mid(s1,8,1)>s2

B.Len(s1)<>2*Instr(s1,”l”)

C.Chr(66) & Right(s1,4)=”Basic”

D.Instr(Left(s1,6),”a”)+60>Asc(Ucase(s2))

2、求出下列表达式的运算结果;

A.Mid("visual basic", 1, 12) = Right("Programming language visual basic", 12)

B. "ABCRG" >= "abcde"

C. Int(134.69) >= CInt(134.69)

D. 78.9 / 32.77 <= 97.5 / 43.87 And -45.4 > -4.98

E. Str(32.345) = CStr(32.345)

3、Private Sub Form_Click()

Dim x As Integer, y As Integer

Dim z As Single

x = 0.2

y = 1

If (x >= 1) Then

z = Log(x)

ElseIf x >= 0 And x < 1 And y >= 0 Then

z = 2 * x - y

Else

z = Exp(x + y)

End If

Print "z=" + Str(z)

End Sub

4、Private Sub Form_Click()

Dim ch As String, i As Integer

ch = "c"

Select Case ch

Case "A", "a"

i = 1

Case "B", "b"

i = 2

Case "C", "c"

i = 3

Case "D", "d"

i = 4

Case Else

i = 5

End Select

Print "运行结果" + Ucase(ch) + Str(i)

End Sub

5、运行下面的程序，单击窗体后在窗体上的内容是( );若将程序中的A语句与B语句的位置互换，再次执行程序，单击窗体后在窗体上显示的内容是( )

Private Sub Form_Click()

Dim a As Integer, b As Integer

a = 0:

b = 0

Do While a <= 8

a = a + 2 'A语句

b = b + a * a 'B语句

Loop

Print a, b

End Sub

6、窗体上显示的结果：

Private Sub Form_Click()

Dim p As Integer, i As Integer, n As Integer

p = 2: n = 20

For i = 1 To n Step p

p = p + 2

n = n - 3

i = i + 1

If p >= 10 Then Exit For

Next i

Print i, p, n

End Sub