6．用随机函数产生一个100～200的整数（不包括100及200，其VB表达式为： （26） 。
7．表达式 32\\7 MOD 3^2 的值是 （27） 。 8. Private Sub cmdSum_Click() static Sum as integer Sum=2*Sum+1 End Sub
问：第三次单击命令按钮cmdSum后，Sum的值为： （28） 。
9．欲定义一个定长为10的字符串变量Mystr，可写成： （29） 。 10．欲使在自己设计VB程序运行过程中，不中止本程序的运行，同时又可调用系统中
已有的应用程序c:\\windows\\Calc.exe,可在程序代码窗口必要的地方添加语句： （30） 。
四、 程序阅读题（每小题6分，共18分） 阅读下列各题的程序，写出运行结果。 1. 程序1:
Private Sub Form_Click()
Dim a1 As Integer,a2 As Integer a1=10:a2=100 wu a1,a2
print “a1=”;a1,”a2=”;a2 End Sub
Private Sub wu(b1 As Integer,Byval b2 As Integer) b1=b1\\2:b2=b2 Mod 13
print “b1=”;b1,”b2=”;b2 End Sub
写出程序运行时单击窗体后,在Form1上的输出结果。
结果为： （31） 2．程序2：
Private Sub Form_Click( )
Dim k as integer, s as integer, j as integer Form1.cls For k=1 to 5 s=0
for j=k to 5 s=s+1 next j next k
Print “s=”,s End Sub
写出程序运行时单击窗体后的输出结果。
结果为： （32） 3．程序3：
Private Sub Form_click()
Dim a As Integer, b As Integer, c As Integer, k As Integer Open \ a=3 : b=5
Print #1,\ Print #1,\ For k=3 To 5 c=b-a
Print #1,\ b =a a=c Next k
Close #1 End Sub
写出文件file1.dat的最终结果。
结果为： （33） 五、 程序填空题：20’
a) 程序说明：已知C的公式表示如下： n! C=
(n-m)!*m!
本程序利用函数过程fac( )求k！，程序代码如下： Private Function fac(k as integer) as single Dim x as single, j as integer x=1
for j=1 to k
x= （34） next j
（35） End Function
Private Sub Form_Click( ) Dim C as Single
Dim m as integer, n as integer
m=Val(inputbox(“请输入一个整数：”)) n=Val(inputbox(“请输入一个整数：”)) C= （36） Print “C=”; C End Sub
b) 程序说明：利用随机函数产生40个二位整数,通过点击窗体上名为cmdSort的命令按钮，完成对这40个数的由小到大的排序，并以每行8个数进行打印在立即窗口上。 Private Sub cmdSort_Click()
Dim i As Integer, nposition As Integer, j As Integer Print \产生40个两位随机数分别是：\
For i = 1 To 40
anumber(i) = （37） Print anumber(i); Next i
For i = 1 To 39
nposition = i
For j = （38） To 40
If anumber(nposition) > anumber(j) Then nposition = j Next j
If （39） Then ntemp = anumber(i)
anumber(i) = anumber(nposition) anumber(nposition) = ntemp End If Next i Print
Print \排序的结果是：\ For i = 1 To 40 If i mod 8=0 then Print anumber(i) Else
Print （40） End if Next i End Sub
六、 程序设计题：（每小题12分，共24分）
1．已知某椭圆轨道的长轴为3000、短轴为2400，且轨道中心坐标为（4000，3000），现要求在窗体上绘制一背景为黑色的图片框picDispRot（8000X6000）显示一个半径为400的球体（红色）在已知的椭圆轨道上运行动态效果画面。可利用定时器进行编程；也可利用Timer函数进行编程。但必须Form_Load中对图片框、定时器等进行初始化，设定动画频率为0.1秒，通过点击“开始”命令按钮（cmdStart）进行动画显示。
2．输入30个小于100的成绩随机数，并统计出优、良、及格、不及格数的个数。
参考答案： 一、选择题：
1．D 2．A 3．D 4．B 5．A 6．D 7．A 8．D 9．C 10 . A 二、判断题：
11．F 12．F 13．T 14．F 15．F 16．T 17．T 18．F 19．F 20.T 三、填空题：
21. （2*3.14159*r+exp(-8)）*log(x)/(a+b)
22. True
23. a=1 xor b=1 24. 6
25. 绘制了一个以对角点为（2000，2000）和（4000，3500）的实心矩形。 26. 101+int(99*rnd) 27. 4 28. 7
29. Dim Mystr as String *10 30. shell(“c:\\windows\\Calc.exe”) 四、程序阅读：
31． b1=5 b2=9 a1=5 a2=100 32. s=1
33. NO. 1 3 NO. 2 5 NO. 3 2 NO. 4 1 NO. 5 1 五、程序填空： 34. x*j 35. fac=x
36. fac(n)/fac(n-m)/fac(m) 37. 10+int(90*rnd) 38. i+1
39. nposition<>i 40. anumber(i); 六、综合编程题： 1． 2．
Option Explicit
Private Sub Form_Click()
Dim k,a,bjg,jg,zd,lh,yx As Integer Randomize
For k=1 To 30
A=Int(Rnd()*100) Select Case a
Case 0 To 60 Bjg=bjg+1 Case 61 To 69 Jg=jg+1 Case 70 To 79 Zd=zd+1 Case 80 To 89 Lh=lh+1
