Print si, sj, sk, i, j, k End Sub
5．下面程序运行后输出的结果是( )。 Private Sub Command1_Click() For i=0 To 3
Print Tab(5*i+1)；\；\； Next i End Sub
6．下面程序运行后输出的结果是( )。 Private Sub Command1_Click() a$=\：B$=\ For i=1 To 4
If i Mod 2=0 Then
x$=String(Len(a$)+i，B$) Else
x$=String(Len(a$)+i，a$) End If
Print x$； Next i End Sub
7．输入任意长度的字符串，要求将字符顺序倒置，例如，将输入的“ABCDEFG”变换咸GFEDCBA”。
Private Sub Command1_Click() Dim a$，i%，cc$，d$
a=InputBox$(“输入字符串”) n=( )
For i=1 To ( ) c=Mid(a，i，1)
Mid(a，i，1)=( ) ( )=c Next i Print a End Sub
8．找出被3、5、7除，余数为1的最小的5个正整数。
Private Sub Command1_Click( ) Dim CountN%，n% CountN=0 n=1 Do
21
n=n+1
if( ) Then Print n
CountN=CountN+1 End If
Loop( ) End Sub
9．某次大奖赛，有七个评委打分，如下程序对一名参赛者，输入七个评委的
打分分数，去掉一个最高分、一个最低分后，求出平均分为该参赛者的得分。
Private Sub Command1_Click()
Dim mark!，aver!，i%，max1!，min1! aver=0
For i=1 To 7
mark=InputBox(\输入第\位评委的打分\ If i=1 Then
max1=mark：( ) Else
If mark< min1 Then ( ) Else lf mark>max1 Then ( ) End If End If
( ) Next i
aver=( ) Print aver End Sub 4.3 编程题
1．有一个长阶梯，如果每步跨2阶最后剩1阶，如果每步跨3阶最后剩2阶，如果每步跨4阶最后剩3阶，如果每步跨5阶最后剩4阶，如果每步跨6阶最后剩5阶，只有当如果每步跨7阶时恰好走完，问这个阶梯有多少阶？ [提示]
利用其肯定是7的倍数这个条件，然后根据同时满足除n余m(n=2，3，4，5，6；m=1，
2，3，4，5)的逻辑关系即可。
习题四 参考答案
4.1 选择题
22
1.B 2.C 3.B 4.C 5.B 6.A 7.B 8.A 9.B 10.B 11.A 12.D 13.D 14.A 15.C
4.2 填空题
1.33 根据循环次数计算公式得。
2.10 该题相当于统计两重循环执行了多少次。 3.4 相当于统计外循环体执行多少次。 12 相当于统计两重循环体执行多少次。 4.2 3 2 3 3 4 5.2 20 3 21 4 22 5 23 6.**$$$****$$$$$
7.Len(a) 解该题的思路是将字符串从两头往中间对应交换位置int(n/2) 或 n\\2 Mid(a，n-i+1，1) Mid(a，n-i+1，1)
8.n Mod 3=1 And n Mod 5=1 And n Mod 7=1 Until CountN=5或While CountN<5 9.min1=mark 对最低分初始化。 min1=mark max1=mark
aver=aver+mark
(aver-max1-min1)／5 4.3 编程题
1、 Private Sub Command1_Click()
For i = 7 To 1000 Step 7 k = 0
For m = 1 To 5 n = m + 1
If i Mod n <> m Then Exit For Else
k = k + 1 End If Next m
If k = 5 Then Print i
Exit For End If
Next i
23
End Sub
24
习 题 五
5.1 选择题
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 2. 以下说法不正确的是（ ）。
（A）使用ReDim语句可以改变数组的维数 （B）使用ReDim语句可以改变数组的类型
（C）使用ReDim语句可以改变数组的每一维的大小
（D）使用ReDim语句可以对数组中的所有元素进行初始化 3. 假如用复制、粘贴的方法建立了一个命令按钮数组Command1，一下对该数
组的说法错误的是（ ）。
（A）命令按钮的所有Caption属性都是Command1 （B）在代码中访问命令按钮只需使用名称Command1 （C）命令按钮的大小都相同
（D）命令按钮共享相同的事件过程
4. 要分配存放如下方阵的数据，可使用数组声明语句（ ）来实现（不能
浪费空间）。
?1.1 2.2 3.3??4.4 5.5 6.6?????7.7 8.8 9.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 Integer
5. 如下数组声明语句，数组a包含元素的个数为（ ）。 Dim a（3，-2 to 2,5）
（A）120 （B）75 （C）60 （D）13 6. 以下程序输出的结果是（ ）。 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
25