Private Sub Command1_Click( ) Dim n%,Factor%,First As Boolean n = InputBox(＂输入一个正整数＂) Factor = 2 First = True Do
Do While ________ `内循环考虑到有多个相同的质因数 If First Then
Print n;＂=＂;Factor Else
Print＂*＂;Factor End If ________ First = False Loop
Factor = Factor + 1 Loop Until Factor > n
End Sub
13. 以下程序的功能是：生成20个200—300之间的随机整数,输出其中能被5整除的数并求出它们的和。请填空。
Private Sub Cornrnand1_Click() For i=l To 20
x=Int(Rnd*200+100) If ______ Then Print x S=S+x End If Next i
Print \End Sub
14.在窗体上画一个命令按钮,其名称为Command1,然后编写如下事件过程:
Private Sub commandl- Click () a=1: b=a
Do Until a>=5 X=a*b
Print Str(a) &\a=a+b b=b+a Loop Print e End Sub
程序运行后,单击命令按钮,输出结果为 三. 编程题
1. 有一长阶梯，如果每步跨2阶最后剩1阶，如果每步跨3阶最后剩2阶，如果每步跨4
- 52 -
2.
3. 4. 5.
阶最后剩3阶，如果每步跨5阶最后剩4阶，如果每步跨6阶最后剩5阶，只有如果每步跨7阶时恰好走完，问这个阶梯有多少阶。
提示：利用其肯定是7的倍数这个条件，然后根据同时满足除n项余m（n = 2，3，4，5，6； m = 1，2，3，4，5）的逻辑关系即可。
一个球从100 m高度自由下落，每次落地后反跳回原高度的一半，再落下。求它在第10次落地时，共经过多少米？落地10次反弹高度多少？ 提示：解题思路参照配套教材中猴子吃桃问题。 输出100～200之间不能被3整除的数。 求 n！（即输入n值，求出其阶乘）
第五章 数 组
一. 选择题
1. 如下数组声明语句，_________正确。
（A）Dim a [3,4] As Integer （B）Dim a(3,4) As Integer （C）Dim a (n,n) As Integer （D）Dim a (3 4) As Integer
?1.12.23.3???2. 要分配存放如下方阵的数据，4.45.56.6 ????7.78.89.9??可使用数组声明语句_________来实现（不能浪费空间）。
（A）Dim a (9) As Single （B）Dim a (3,3) As Single
（C）Dim a (- 1 To 1 , -5 To - 3) As Single （D）Dim a (- 3 To - 1 , 5 To 7) As Single 3. 如下数组声明语句中，数组a包含元素的个数为_________。 Dim a (3, -2 to 2,5)
（A）120 （B）75 （C）60 （D）13 4. 以下程序输出的结果是_________。 Dim a
a = Array (1,2,3,4,5,6,7)
For i = Lbound (a) To Ubound (a) a(i) = a(i) * a(i) Next i Print a(i)
（A）49 （B）0 （C）不确定 （D）程序出错 5. 以下程序输出的结果是_________。 Option Base 1
Private Sub Command1_Click( ) Dim a%(3,3) For i = 1 To 3 For j = 1 To 3
If j > 1 And i >1 Then
a(i,j) = a(i-1,j-1),a(i,j-1) ) + 1 Else
- 53 -
a(i,j) = i * j End If
Print a(i,j);＂＂; Next j Print Next i End Sub
（A）1 2 3 （B）1 2 3 （C） 1 2 3 （D）1 1 1 2 3 1 1 2 3 2 4 6 2 2 2 3 2 3 1 2 3 3 6 9 3 3 3 6. 以下程序输出的结果是_________。 Option Base 1
Private Sub Command1_Click( ) Dim a,b (3,3)
a = Arrary(1,2,3,4,5,6,7,8,9) For i = 1 To 3 For j = 1 To 3 b(i,j) = a(i * j)
If (j > = i) Then Print Tab(j * 3) ; format(b(i,j),＂###＂); Next j Print Next i End Sub
（A）1 2 3 （B）1 （C）1 4 7 （D）1 2 3 4 5 6 4 5 2 4 6 4 6 7 8 9 7 8 9 3 6 9 9 7. 下列一维数组说明语句错误的是_________。
(A) Dim b(100) As Double (B) Dim b(-5 To 0) As Byte (C) Dim b(-10 to –20 ) As Integer (D) Dim b(5 to 5) As String
8. 若有数组说明语句为Dim a(-3 to 8) , 则数组a包含元素的个数是_________。 (A) 5 (B) 8 (C) 11 (D) 12
9. 设有数组说明语句Dim c(1 to 10) , 则下面表示数组c的元素选项中_________是错误的。 (A) c(I - 1) (B) c(5+0.5) (C) c(0) (D) c(10) 10. 下列数组说明语句中正确的是_________。
(A) Dim a(-1 to 5,8) As String (B) Dim a(n,n) As Integer
(C) Dim a(0 to 8,5 to -1 ) As Single (D) Dim a(10 to -10) As Double 11. 设有数组说明语句Dim b(2, 2) , 则数组b中元素的个数是_________。 (A) 9 (B) 4 (C) 16 (D) 20
12. 若有数组说明语句Dim a( ) As Integer, 则数组a被定义为_________。 (A) 定长数组 (B) 可调数组 (C) 静态数组 (D) 可变类型数组
13. 若有数组说明语句Dim t(1 to 10 ) As Variant, 则数组t被定义为_________。 (A) 数值数组 (B) 可调数组 (C) 字符串数组 (D) 可变类型数组 14．在窗体上画一个命令按钮，其名称为Command1，然后编写程序如下代码：
Option Base 1
- 54 -
Private Sub Command1-Click () Dim a
A=Array (1,2,3,4) j=1
For i=4 to 1 Step -1 s=a (i)*j Print s； Next i End Sub
程序运行后，单击命令按钮，其输出结果是_________
(Ａ）4321 (B)1 (C)34 (D)1234 15．在窗体上画一个命令按钮,然后编写如下程序:
Option Base 1
Private Sub command1_Click() Dim arr(4, 4) For i = 1 To 4 For J = 1 To 4
arr(i, J) = (i - l) * 3 + J Next J Next i
For i = 1 To 2 For J = 1 To 2 Print arr(i, J); Next J Print Next i End Sub
程序运行后,单击命令按钮,输出结果是_________。
(A) 3 4 (B) 7 8 (C) 4 5 D) 4 5 6 7 10 12 7 8 6 7
16. 在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click() Dim a( )
a=Array(1,3,5,7) s=0
For i=0 To 3 s=s*10+a(i) next i print s End Sub
程序运行后，输出结果为_________ (A）1357 (B）357 (C）7531 (D）753
- 55 -