VB循环结构练习题

Loop Until i<10 Print i End Sub

27. 下面的程序运行后输出的结果是________ For i=1 to 2 S=i

For j=0 to i-1 S=S+S*i Next j Print s Next i

28. 以下程序输出的结果为________。 x=1 y=4

Do Until y>4 X=X*Y y=y+1

Loop Print X

29. 下列程序运行后，输出结果为________。 b = 1

Do While b < 40 b = b * (b + 1) Loop Print b

30．当变量x=2，y=5时，以下程序的输出结果为________。 Do Until y>5 x=x*y y=y+1

Loop Print x

二、程序填空（每题4分，共40分）

1) 下列程序的作用是将三个数按从大到小进行排序，请补充完该程序。 If a

EndIf

If a

If_____Then d=b:b=c:c=d EndIf

Print a,b,c

2) 给定年份，下列程序用来判断该年是否闰年，请补充完该程序。

提示：闰年的条件是年号可以被4整除但不能被100整除，或者能被400整除。

Private Sub Command6_Click() Dim y As Integer

y=InputBox(\请输入年号\

If(y Mod 4=0________________________________y Mod 100<>0) or (y Mod 400=0) Then

Print \是闰年\

Else Print \是普通年份\End If

End Sub

3) 以下的程序用来输出100到2000间不能被3整除的数字，请补充完该程序。

Private Sub Commmand1_Click() Dim x As Integer x = 100

Do Until x > _____

If x Mod 3 <> 0 Then Print x End If x = x + 1 Loop

End Sub

4) 下列循环语句，要求和数达到10既停止累加，退出循环，请补充完程序。

For j=1 to 10 s=s+j

If s>=10 then______。 Next j

5) 下列程序用来计算1+2+3??+10的值，请补充完程序。 Dim t,k as single K=0

DO While k<10 K=k+1:______ loop

print t

6. 找出被3、5、7除，余数为1的最小的5个正整数。 Private sub command1_click() Dim countN%, n% CountN = 0 n = 1

Do

n = n + 1 If ________ then Print n

CountN = countN + 1 End If

Loop while countN<5 End sub

7. 有一个长阶梯，如果每步跨2阶最后剩1阶，如果每步跨3阶最后剩2阶，如果每步跨4阶最后剩3阶，如果每步跨5阶最后剩4阶，如果每步跨6阶最后剩5阶，只有当如果每步跨7阶时恰好走完，显示这个阶梯至少要有多少阶。 sub command1_click() dim n%, m%

for n = 7 to 10000 step 7

if n mod 2 = 1 and ________ then print n

exit for end if next n end sub

8. 期末某班在一周6天内考三门分别为x, y, z的考试课程，规定一天只能考一门，课程依次按先考x,后考y，最后考z，最后一门课程最早周五考。用计算机排考试，列出满足条件的方案和方案数. sub command1_click() dim x%, y%, z% n = 0

for x = 1 to 4 for y = x+1 to 5 for z = 5 to 6 if y < z then

print x & space(9) & y & space(9) & z ________ end if

next z next y next x

print “满足条件的方案数为;” & n end sub

9. 某次大奖赛，有七个评委打分，下列程序对一名参赛者，输入7个评委的打分分数，去掉一个最高分、一个最低分后，求出平均分为该参赛者的得分。

sub command1_click()

dim mark!, aver!, i%, max1!, min1! aver=0

For i = 1 to 7

mark = inputbox(“请输入第” & i & ”位评为的打分”) If i = 1 then

max1 = mark : min1=mark

Else

If mark < min1 then

min1=mark

Elseif mark > max1 then max1=mark End if End if ________ Next i

aver = (aver-max1-min1)/5 Print aver End sub

10. 下列程序功能是判断100以内的孪生素数。所谓孪生素数是指两个数相差2的素数对。例如3和5，5和7，11和13等都是孪生素数。 Private sub command1_click()

Dim p1 as boolean, p2 as Boolean, i%,j% p1 = true

For i = 5 to 97 step 2 For j = 2 to sqr(i)

If i mod j = 0 then ________ Next j

If j > sqr(i) then p2 =true else p2 = false If p1 and p2 then Print i – 2, i End if p1 = p2 Next i End sub