第九课 循环结构——Do循环 知识点题库
Private Sub Command 1_Click()
a=10
for k=1 to 5 Step -1
a=a -k
Next k
Print a， k
End sub
for<循环变量>in< >:
<语句块>
空白处应该填写（ ）
珠穆朗玛峰简称“珠峰”，珠峰海拔约为8844米，是世界第一高峰。如果有一张足够大的纸（厚0.1毫米），对折多少次，纸张的厚度可以超过珠穆朗玛峰的高度？
程序如图：
-
（1） 请将程序补充完整：While：
-
（2） 该循环语句根据条件进行循环，当条件为时，循环体重复执行。
-
（3） 程序中的自定义的变量为和 。
a=4
s=0
while a>=0：
s=s+a
a=a-1
print(s，a)
i=1
while i<=100:
print(“*”)
i=i+1
-
（1） 林娜编制了一个验证乘法运算结果的小程序（如下图所示），当在“输入结果”右边的文本框中输入60时，输出内容为。
-
（2） Private Sub Form_Click()
Dim i As Integer, sum As Integer
sum = 0
For i = 2 To 10
If i Mod 2 <> 0 And i Mod 3 = 0 Then
sum = sum + i
End If
Next i
Print sum
End Sub
程序运行后，单击窗体，输出结果为。
……
Next x
B . for x=3 to -3 step -3……
next x
C . for x=1 to 10Re
Next x
If I=10 then go to re
D . for x= 3 to step 3……
Next y
|
图1
图2 |
Private sub Form1_click( )
For s= to 1 step
Print “无人机继续向前移动”
Print“无人机停止移动，并转向”
End sub
s = 0
For i = 1 To 3
s = s + i
Next i
1)系统随机生成一个1~100的数字；
2)用户总共有5次猜数字的机会；
3)如果用户猜测的数字大于系统给出的数字，打印“too big"；
4)如果用户猜测的数字小于系统给出的数字，打印"too small"；
5)如果用户猜测的数字等于系统给出的数字，打印"恭喜"，并且退出循环；
编写程序代码如下，请完善代码：
#导入random模块
#随机生成1-100的整数并赋值给变量game
time=5
while time>0：
guess=int (input ("请输入你所猜的数字："))
if (guess>game) ：
print ("too big")
elif ：
print(" too small' )
else：
print ("恭喜”)
break
time=time-1
print("游戏结束，正确的结果是："，game)
For k=15 To 1 Step -5
Print k
Next
程序运行后，k的值是：
i=1 #定义记录循环次数的变量
sum=0 #定义结果变量，存放总和
while i <=100:
i=i+1 #处理计数器
print("1~100之间的数字之和为:",sum) # 输出结果
