【VB教学】第十讲：直到型循环
一、教学目标：
1、 理解直到型循环的循环过程
2、 理解inputbox函数
3、 理解print方法
二、教学重点：
1、 直到型循环的循环过程
2、 inputbox函数
3、 print方法
三、所需课时：2课时
四、教学过程
（一）、引入直到型循环
题目：假设你从近年开始，第1个月为“希望工程”存入1元钱，第2个月存入2元，第3个月存入3元，……以此类推，问存满500元需要几个月？存满1000元需要几个月？
i s
1 1 i=0+1 s=0+1
2 3 i=1+1 s=1+2
3 6 i=2+1 s=3+3
4 10 i=3+1 s=6+4
|
开始 |
|
s=s+i |
|
i，s 赋初值 |
|
i=i+1 |
|
输入n |
|
结束 |
|
true |
|
false |
|
s>=n |
|
输出? |
i=i+1 s=s+i
（二）、直到型循环的过程
(三)、语句
Do
循环体
Loop until 条件
注意事项：1、先执行循环语句再进行判断，直到符合条件跳出循环
2、不管符不符合条件，至少要执行一次循环语句
3、条件要设置正确，防止永远不能达到条件变成死循环
（四）、分析
|
S=0 Do
S=S+i
Print i |
（五）、Inputbox函数输入数据
Inputbox函数提供一个输入数据的对话框。
1、语法格式
Inputbox(“提示信息”,”对话框标题”)
2、例如：
x = InputBox(“请输入一个大于0的正整数x：”, “数据输入”)
如果x是数值，最好用val函数
x = Val(InputBox(“请输入一个大于0的正整数x：”, “数据输入”))
（六）、print语句输出
Print语句的功能是在窗体上打印出表达式的值。
1、Print语句格式
Print [输出列表]
输出列表：tab(n),表达式1[分隔符]表达式2 [分隔符]表达式3 [分隔符] ……
2、例
a = "b52"
print a,3+2,"ccc"
print tab(6),a;3+2;"ccc";
print a
3、分隔符
“，”分区格式，以14个字符位置为单位把一个输出行分成若干区段，每个区段输出一个表达式的值。
“；”紧凑格式，后一项紧跟前一项输出，但要在每个数值后面增加一个空格。
表达式后面什么都没有，则自动换行。
tab(n)，表示在指定的第n个位置上输出数据。
print不跟表达式，输出一个空行。
（七）、学生练习
