VB期中试卷

- 1 -

衢州学院 2011-2012 学年 第二 学期

《VB 程序设计》期中试卷

一、判断题（用T 表示正确、F 表示错误，20％）

1、若定义变量I 为Integer 类型变量，则赋值语句I=50000将出现错误。

2、赋值语句“y+1=x+1”不符合VB 的语法规则。

3、在VB 中使用“!”运算符来计算某整数的阶乘值是可行的。

4、语句Print “5+5”的执行结果是输出10。

5、在VB 程序设计语言中，Abs(x)用于得到x 的绝对值。

6、Len 函数用来得到字符串的长度。

7、程序代码If x>=0 then

y=x Else x<0 Then

y=-x

End If

是符合VB 的语法规则的。

8、For/Next 语句中，“Step 1”可以缺省。 9、以下程序代码是符合VB 语法规则的。

k=10 For n=1 To k

Print n; Next k

10、任何For/Next 结构程序段都可以改写成Do/Loop 结构。

二、单项选择题（20％）

1、用户使用VB 编译系统编写一个完整的应用程序时，首先要做的是

（1） ，然后是 （2） ，最后是调试编译程序，这样即可完成整个应用程序的设计工作。 (A)代码设计 (B)设置控件属性 (C)界面设计 (D)添加控件

2、Int(10+Rnd*20)表示的是__ (3)___范围内的整数。

（A ）[9,30] （B ）[10,30] （C ）[9,29] （D ）[10,29] 3、设a = "MicrosoftVisualBasic" ，则以下使变量b 的值为“VisualBasic”的语句是__ (4)___。

（A ）b = Left(a, 11) （B ）b = Right(a, 11) （C ）b = Mid(a, 11) （D ）b = Mid(a, 11, 10) 4、下列__ (5)___组语句可以将变量A 、B 值互换。

（A ）A=B : B=A （B ）A=A+B : B=A-B: A=A-B （C ）C=A : A=B : B=C （D ）A=(A+B)/2 : B=(A-B)/2 5、要从For/Next 循环中退出循环，应使用__ (6)___语句。 （A ）Exit （B ）Exit For （C ）Continue （D ）Stop Loop

6、由“For i=1 To 16 Step 3”决定的循环结构被执行__ (7)___次。 （A ）4 （B ）5 （C ）6 （D ）7

7、用语句“Dim A(3 To 5) As Integer ”定义的数组包括__ (8)___个数组元素。

（A ）2 （B ）3

（C ）4

（D ）5

8、假设有以下程序段

For m=1 To 6 Step 2 For n=1 To m

Print m*n

Next n

Next m

则语句“Print m*n ”的执行次数是__ (9)___。

（A ）3 （B ）9 （C ）15 （D ）m 9、下列不属于对象的基本特征的是__ (10)___。 (A)属性 (B)函数 (C)方法 (D)事件

三、填空题（20％）

1、定义变量x 为单精度浮点数类型数据的语句是 （1） 。

2、已知Print “m+n=” ; m+n 的执行结果 （2） 。

3VB 表达式 （3） 。 4、将“a 与b VB 表达式 （4） 。

5、如果要求整数k 是偶数，那么只要关系表达式 （5） 结果是True 。

6、已知c 是单字符的字符串型变量，如果要求c 是一个小写英文字母，那么只要逻辑表达式 （6） 结果是True 。

7、要将如下For/Next 循环改写成While/Wend 循环，请完成程序填空，使两段程序完成相同功能。

8、假设程序中有如下代码片段

If 条件1 Then

语句1

If 条件2 Then

语句2

Else

语句3

End If

Else

语句4

End If

写出当条件1满足且条件2不满足时，程序将执行的语句是（8）、

（9）。

9、下面程序定义了一个包含10个元素的数组，并将a(1)赋值为19、a(2)赋值为17、a(3)赋值为15、……、a(10)赋值为1。请完成该程序。

Dim a(1 to 10) As Integer

For k=1 To 10

（10）

Next k

四、写出程序执行结果（20％）

1、Private Sub Command1_Click()

Dim x1 As Integer, x2 As Integer

Dim y1 As Integer, y2 As Integer

x1=3 : y1=4

x2=x1+y1

y1=y1+ x2

y2=y1+x1+x2

print x1 ; x2 ; y1 ; y2

End Sub

当用户点击Command1按钮后，写出程序在窗体上的输出。

- 3 -

2、Private Sub Command1_Click()

Dim Str1 As String, Str2 As String

Str1= “Abc123”

Str2=Right(Str1,2) & Mid(Str1,2,2) & Left(Str1,2)

print “Str2=” ; Str2 , “Length of Str2=” ; Len(Str2)

End Sub

当用户点击Command1按钮后，写出程序在窗体上的输出。

3、Private Sub Command1_Click()

Dim s As Integer, k As Integer

k=5: s=0

Do While k>0

s=s+k

k=k-1

Loop

print k ; s

End Sub

当用户点击Command1按钮后，写出程序在窗体上的输出。

4、Private Sub Command1_Click()

Dim m(1 To 6) As Integer, k As Integer

m(1)=1 : Print m(1);

m(2)=2 : Print m(2);

m(3)=3 : Print m(3);

For k=4 to 6

m(k)=m(k-1)+m(k-2)+m(k-3)

Print m(k);

Next k

End Sub

当用户点击Command1按钮后，写出程序在窗体上的输出。

五、编程题（20％）

1、使用InputBox函数输入x，然后按下式计算y的值并输出y的值。

x3+x+1 (x<0)

y= x2+1 (0≤x≤9)

√x +79 (x>9)

2、产生10个[10,99]之间随机整数并存储在数组中，然后用Print语句输出其最大值。