发布时间 : 星期日 文章福建高职计算机类VB综合试卷（第1-10章）原创 - 图文更新完毕开始阅读9db44c86b9d528ea80c77904
do while x>=0 if x>amax then amax=x if ___________ amin=x x=inputbox（”输入分数”） loop
print Max=；amax，Min=；amin end sub
16、阅读以下程序：
private sub form_click（） dim k，n，m as integer n=10: m=1: k=1 do while k<=n m=m*2 k=k+1 loop print m end sub
程序运行后，单击窗体，输出结果为___________。 17、以下循环的执行次数是___________。 k=0
do while k<=10 k=k+1 loop
18、下面程序运行后的输出结果为 Private Sub Form_Click()
Dim m As Integer, n As Integer m = 10 Do
m = m + n
For n = 10 To m Step -1 m = m + n Next n
Loop While m < 50 Print m;n End Sub
19体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim num As Integer num = 1
Do Until num > 6 Print num;
num = num + 2.4 Loop
37
End Sub
程序运行后，单击命令按钮，则窗体上显示的内容是
A）1 3.4 5.8 B）1 3 5 C）1 4 7 D）无数据输出
20在窗体上画一个名称为Command1的命令按钮，然 后编写如下事件过程： Private Sub Command1_Click() Dim a As Integer, s As Integer a = 8 s = 1 Do
s = s + a a = a－1
Loop While a <= 0 Print s; a End Sub
程序运行后，单击命令按钮，则窗体上显示的内容是__________ 21．
Private Sub Command1_Click() x = 1: y = 2: z = 3 Do
Print x, y x = x + y y = y + x z = z + 1 Loop Until z > 7 End Sub
运行结果是： ______________
22、下列程序完成求斐波那契数列（l，l，2，3，5，8，13，??）的前50项和sum并输出。程序清单如下：
Private sub command1_click() A＝l B＝l I＝2 SUM＝2
DO WHILE I___________ 50 T＝___________ A＝B
B=___________
SUM＝SUM十___________ I＝I＋l LOOP
PAINT“SUM＝”，___________ End sub
四、多重循环
38
1、有如下程序 Private Sub Command1_Click() Dim a(3, 3) As Integer For m = 1 To 3 For n = 1 To 3
a(m - 1, n - 1) = m + n - 1 Next n Next m
For m = 0 To 2 For n = 0 To 2 Print a(n, m); Next n Print Next m
End Sub
运行时输出的结果是______________________
2、本程序的功能是实现打印如下的图案 (第四行的图案开始于第一列，各星号之间有空格)：
*
* * * * * * * * * * * * * * * FOR I = 1 TO __________ PRINT __________ FOR J= 1 TO I
PRINT _________ NEXT J _________ NEXT I
3 以下程序代码使用二维数组A表示矩阵，实现单击命令按钮Command1时使矩阵的两条对角线上的元素值全为1，其余元素值全为0 Private Sub Command1_Click() Dim A(4,4) For i=1 to 4
For j=1 to 4
A________=0 Next j
A_______=1 A_______=1 Next i
For i=1 to 4 For j=1 to 4
Print A(i,j); Next j
39
Print Next i End Sub
4、勾股定理中3个数的关系是：a2+b2=c2。编写程序，输出30以内满足上述关系的整数组合，例如3、4、5就是一个整数组合。
5、在窗体上画一个命令按钮，然后编写如下事件过程： private sub command1_click（） a=0
for i=1 to 2 for j=1 to 4
if j mod 2<>0 then a=a+1 end if a=a+1 next j next i print a end sub
程序运行后，单击命令按钮，输出结果是___________。 6、假定有以下程序段 for i=1 to 3
for j=5 to 1 step －1 print i*j next j，i
则语句print i*j的执行次数是___________
7、在窗体上画一个命令按钮，然后编写如下事件过程： private sub command1_click（） for i=1 to 4 x=4
for j=1 to 3 x=3
for k=1 to 2 x=x+6 next k next j next i print x end sub
程序运行后，单击命令按钮，输出结果是__________ 8、阅读下面的程序段： Private Sub command1_click() For I = 1 To 3 For j = 1 To I For k = j To 3 a = a + 1 Next k Next j
40