VB测试卷及答案

VB期中测试卷

班级：学号：姓名：

一、判断题（1×10分）

（1）VB是可视化的、面向对象的、采用事件驱动的结构化高级程序设计语言。

（2）VB的Double类型数据可以精确表示其数值范围内的所有实数。

（3）要使文本框出现垂直滚动条，只要将该文本框的ScrollBars属性设置为2就可以了。（4）执行“Unload Form1”语句后，窗体Form1消失，而且释放其所占的内存。

（5）同一个窗体文件只能用于一个工程中。

（6）xxx.vbp文件是用来管理构成应用程序xxx的所有文件和对象的清单。

（7）决定对象是否可见的属性是Visible属性，决定对象可用性的属性是Enabled属性。（8）在逻辑运算符Not、Or、And中，运算优先级由高到低依次为Not、Or、And。

（9）过程中的静态变量是局部变量，当过程再次被执行时，它的值是上一次过程调用后的值。（10）使用On Error GoTo语句并编写相应程序，可以捕获程序中的编译错误。

二、选择题（2×10分）

第1题：在设计模式双击窗体中的对象后，Visual Basic将显示的窗口是。

A、属性窗口

B、代码窗口

C、工具箱

D、工程窗口

第2题：Integer类型的变量可存的最大整数为______。

A、255

B、256

C、32768

D、32767

第3题：下列哪个函数返回值为Ascii码值？

A、Chr(x)

B、Str(x)

C、Space(n)

D、Asc(x)

第4题：下列关于Select Case之测试表达式的叙述中，错误的是______。

A、只能是变量名

B、可以是整型

C、可以是字符型

D、可以是浮点类型

第5题：执行___语句后，执行语句“Text1.SelStart = 0 : Text1.SelLength = Len(Text1)”，可以使文本框控件Text1中的文本突出显示。

A、Text1.Enabled=True

B、Text1.SetFocus

C、Text1.Locked = False

D、Text1.Move

第6题：设置命令按钮cm1的背景色为红色，可以执行语句。

A、cm1.BackColor=vbred

B、cm1.BackColor = vbred: cm1.style=1

C、cm1.Picture = RGB(255, 0, 0)

D、cm1.BackColor = RGB(255, 0, 0):cm1.enabled=True

第7题：以下关于VB的叙述中错误的是。

A、是事件驱动型可视化编程工具

B、应用程序中不具有明显的开始和结束语句

C、某些控件的某些属性只能在运行时设置

D、VB工具箱中的所有控件都具有Width和Height属性

第8题：下列不属于对象的基本特征的是______。

A、事件

B、函数

C、方法

D、属性

第9题：InputBox函数用来返回用户输入的值，该值的类型是______。

A、整型

B、字节型

C、字符串型

D、逻辑型

第10题：若i的初值为8，则下列循环语句的循环次数为______次。

Do While i<=17

i=i+2

Loop

A、3次

B、4次

C、5次

D、6次

三、程序填空题（2×10分）

第1题：用π/4≈1 - 1/3 + 1/5 - 1/7 + ……公式求π的近似值。

Private Sub Command1_Click()

Dim s As Integer

Dim n As Single, t As Single, pi As Single

t = 1: pi = 0: n = 1: s = 1:

While (Abs(t) > 0.000001)

pi = pi + t

n=__1__

s = -s

t=__2__

Wend

pi=__3__

Print "pi="; pi

End Sub

第2题：

以下的程序能使二维数组的主对角线为1，辅对角线元素为0，其它元素为其行列下标之和。请为程序填空。

Const SIZE = 4

Private Sub Command1_Click()

Dim a(SIZE, SIZE) As Integer, I As Integer, j As Integer

For I = 0 To SIZE

For j = 0 To SIZE

if __4__ then

a(I, j) = 1

elseif __5__ then

a(I, j) = 0

Else

___6__

End If

Next j

Next I

For I = 0 To SIZE

For j = 0 To SIZE

Print a(I, j);

Next j

print

Next I

End Sub

第3题：

在text1中输入一行字符，回车后统计并输出其中英文字母、数字和其他字符的个数。Private Sub Text1_KeyPress(KeyAscii As Integer)

Dim digit%, I%, letter%, other%

Dim ch As String * 1

digit = 0: letter = 0: other = 0

If ___7__ Then

For I = 1 To ___8__

ch = ___9__

If (ch >= "a" And ch <= "z") Or (ch >= "A" And ch <= "Z") Then

letter = letter + 1

ElseIf ch >= "0" And ch <= "9" Then

digit = digit + 1

Else

___10__

End If

Next I

Print "letter="; letter, "digit="; digit, "other="; other

End If

四、程序阅读题（4×5分）

第1题：

阅读程序，写出运行结果。

Dim a%, b%, c%

a=1:b=4:c=3