dowhile课堂练习

Dowhile 循环课堂练习
班级__________姓名__________学号__________
一．导入
要求：求数字1到10之和，将结果放入变量s 中。

上述方框中的Do 循环语句的循环次数是____________
二．Do while 语法分析：
Do while 条件表达式
Loop
do while 和loop 是do while 循环语句的关键字，其包裹的部分为循环体，即重复执行的语句。

当条件表达式的值为True 的时候，执行循环体；当条件表达式的值为False 时，退出循环。

故do while 语句的循环次数取决于条件表达式，适用于循环次数未知的情况。

三．认识ListBox
控件ListBox常用方法：
list1.AddItem 变量
每执行一次addItem方法，list1中就新增一条数据，数据内容为additem后方的变量。

试一试：
在list中输出1-10以内的偶数。

Private sub command1_click()
Dim i as integer
i = 2
do while i _______
_________________
_________________
loop
End sub
四．课堂练习
1.计算10的阶乘。

在label1中输出。

阶乘：一个正整数的阶乘是所有小于及等于该数的正整数的积。

自然数n的阶乘写作n! n!=1×2×3×...×n
2.在list1中输出十条数据，分别为1，-2，3，-4，……，9，-10。

3.地球到月球的距离约为38.4千米，假如有一张可以无限对折的纸，其厚度为0.2毫米的纸，对折多少次可以到达月球？
Dim d as single,h as single,count as integer
d = 38.4*1000*1000
h = 0.2
count = 0
do while _________
____________
____________
loop
label1.capiton = “经过”+str(count)+ “次对折，即可到达月球。

”
4.某公司2018年1月是生产总值是100万元，若以后每个月的生产总值都增长5%，求多少个月后该公司的生产总值翻两番。

s = 100
i = 1
n = 0
do while _____________
loop
label1.caption = str(i)+“个月后该公司身产总值翻两番。

”。