用心、精心、决心、匠心
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
VB期末考试试题
