VB期末考试试题

用心、精心、决心、匠心

Select Case Sgn(x) + 2 Case 1

Print \ Case 2

Print \ Case 3

Print \ End Selec End Sub

2． Private Sub command1_click() Dim a, b, c, d, e As String a = \

b = \ c = a + \

d = Left(a, 1) + Mid(a, 7, 1) e = Left(b, 1) + Mid(b, 12, 1) Print c Print d; e End Sub

3．设有Sub过程：

Private Sub p1(x As Integer, ByVal y As Integer) x = 4 ：y = 5 ：z = 6

呕心沥血整理word6

用心、精心、决心、匠心

End Sub

则如下程序段的运行结果是: Private Sub Command1_Click() Dim x As Integer, y As Integer x = 1: y = 2: z = 3 Print x, y, z Call p1(x, y) Print x, y, z End Sub

4． Private Sub command1_click() k = 0

For i = 1 To 3 k = k + 1 a = i * i * k Print a; Next i End Sub

5． Private Sub command1_click() Dim a(5, 5) As Integer For i = 1 To 5 For j = 1 To 5

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

呕心沥血整理word7

用心、精心、决心、匠心

Print a(i, j); Next j Print Next i End Sub

6．设有Function过程: Private Function f1(b, a) a = a * a: b = b * b f1 = a - b End Function

则如下程序段的运行结果是什么？ Private Sub command1_click() a = 4: b = 3 a = f1(a, b) Print a End Sub

七．编程题（共30分）

注意：艺术类学生（环艺、装潢、表演、服设）做第1、2、5、6小题； 其他学生做 第1、2、3、4 小题。

1．给出一个百分制的成绩，要求输出成绩的相应等级。（7分）

90分以上为“A”，80～89分为“B”，70～79分为“C”，60～69分为“D”，60分以下为“E”。

呕心沥血整理word8

用心、精心、决心、匠心

2．求n!,n由键盘输入。（7分）

3．产生20个 [0，99] 之间的随机整数，并按从小到大的顺序输出。（8分） 4．产生并输出一个6×6的二维数组A：（8分）

（1）两条对角线上元素的值为1，其余元素为小于30的随机整数。 （2）计算各行元素的平均值，输出平均值最大和平均值最小的行号。

5．输出1+2+……+100的和，并求出1～100 之间能被17整除的数据的个数（8分） 6．从键盘输入10个数，求出其中的最大数，最小数和平均值。（8分） VB试题答案及评分标准

一、 单项选择题（每题1分，共10分） 1．B 2．A 3．C 4．C 5．D 6．D 7．A 8．B 9．D 10．B 二、 填空题（每空1分，共10分） 1．n Mod 13=0 And n Mod 17=0 1、 对象

3．LEFT(“Visual Basic 6.0”,6) 4．6 5．False 6．Autosize

7． ： 8．Option Explict 9．Const Dim 三、 将下列数学表达式转换成VB表达式（每题1分，共6分） 1、 a^2+2*a*b+b^2 2、 8*exp(x)*log(10)

呕心沥血整理word9

用心、精心、决心、匠心

3、 2*sin(3.1416/4)*cos(3.1416/4) 四、 判断题（每题1分，共10分） 1．× 2．√ 3．× 4．√ 5．× 6．√ 7．× 8．× 9．× 10．√

五、 根据题意，将下列程序补充完整（每空1分，共10分） 1．（1） int(rnd*91)+10 （2） I<10 2．（1） i*j （2） next i

3．（1）int(sqr(x))或者x-1 （2） flag=1 4．（1）dim f(15) as integer （2）f(I-1)+f(I-2) 六、 写出下面程序的输出结果（每题4分，共24分） 1、 y=65

2、 Zheng Zhou Zhong Yuan Gong Xue Yuan 2分 ZZZG 2分 3．1 2 3 4 2 3 4．1 8 27 5．3 4 5 6 7 5 6 7 8 9 7 8 9 10 11 9 10 11 12 13 11 12 13 14 15 6．-7

呕心沥血整理word10