Do-While循环

(3)编写程序代码
程序通过Print方法把处理结果输出在标签的下方。
Private Sub Form_Load()
Show
CurrentX = 0 : CurrentY = 1500 '确定开始显示的坐
标
Print , "五元", "二元", "一元"
n=0
'记录解的组数
For a = 0 To 10
Next i
End Sub
15
16 17 25 26 27 35 36
37
注意内、外循环层次要分清，不能交叉
编一程序，输出下列所示的图形
本例可采用两重循环来实现。外循环控制输出7行，内 循环控制每行输出要求的字符数。
在进入内循环之前，使用Print Tab()来对起始输出位置 定位，退出内循环后，使用Print来控制换行。
While
[循环体]
条件表达式
False
Loop True
和For语句相比，Do语句没有循环变量 和步长，但需知道什么时候循环结束。
循环体
例如：计算1+2+3+…+100 i=1:S = 0 Do While i <= 100
s=s+i i=i+1 Loop
结束
For 循环与do 循环比较
For循环 通过次数控制循环的计算过程
Dim i As Integer, s As Integer s = 0: i = 1 Do While i <= 100 s=i*3 i=i+1 Loop Text1.Text = Str(s) （1）刚退出循环时，变量i的值是 ▲① 。 （2）程序中划线处的表达式应更正为 ▲② 。
（1）因为范围i<=100，故退出循环时i=101
数学运算:1+2+3+…+100
Do 循环 通过条件控制循环的计算过程
S=1+2+3+……+n，当n为多少时，S大于10000
1.有如下Visual Basic程序： Private Sub Command1_Click() Dim s As Integer, i As Integer s=1 For i = 1 To 10
For b = 0 To 10
c = 10 - b - a
If a + 2 * b + 5 * c = 25 And c >= 0 Then
n=n+1
Print "("; n; ")", c, b, a
End If
Next b, a
End Sub
思考题
请回答问题
想一想
执行下列程序段后，变量t 的值是___B___。 t=0 For x = 2 To 3 n=1 Do While n<=x t=t+n n=n+1 Loop Next x
采用Print直接在窗体上输出结果，程序代码如下： Private Sub Form_Load() Show For i = 1 To 7 Print Tab(10 - i);’输出每行前面空格 For j = 1 To 2 * i - 1 Print Chr(i + 48);’分号表示不换行 Next j Print ‘每行换行 Next i End Sub
hile循环
分别用for和do语句求N！
N!=n*(n-1)*…*2*1,例如4!=4*3*2*1;
• For 语句
do 语句
For语句和Do语句
For语句
格式：
For <循环变量=初值> To <终值> Step [步
长] [循环体]
Next <循环变量>
开始
这里是当步长>0时的情
况。如果步长<0，这里 应该是判断循环变量<
s=s+1 Next i Text1.Text = Str(s) End Sub 问： （1）程序运行后，变量s的值为_____1_1______。 （2）循环刚退出时，变量i的值为_____1_1 ______。
以下Visual Basic程序的功能是：计算表达式1×3＋2×3＋ 3×3＋…＋100×3的值，并在文本框Text1中输出计算结果。
Print Chr(i+48)与Print i有所不同
取一元、二元、五元的硬币共十枚，付 给25元钱，有多少种不同的取法?
(1)分析：设一元硬币为a枚，二元硬币为b枚，五元硬币 为c
a+b+c=10 a+2b+5c=25 采用两重循环，外循环变量a从0～10，内循环变量b从0～ 10 (2)创建应用程序的用户界面
（2）因为题目是计算所有N×3的累积和，故使用累积
S=S+i*3
多重循环
多重循环是指循环体内含有循环语句的循环
多重循环程序示例
程序运行结果
Private Sub Form_Load()
Show For i = 1 To 3
For j = 5 To 7
‘外循环 ’内循环
Print i, j
Next j
A. 8
B. 9
C.10
D. 11
思考题
请回答问题
执行下列程序段后，显示的结果是______ 显示结果为： 16
s=0
For m = 1 To 4 Step 2
n=1
Do While n<=m s=s+n
想一想
n=n+1
Loop
Next m
Print s + m + n
循环变量←初
值
终值
循环变量>终
True
值?False
例如：计算1+2+3+…+100
循环体
S=0 For i = 1 to 100 step 1
s=s+i
循环变量←循环变量+
步长
Next i
结束
（如果步长为1，step 1可以省略）
循Do语环句 结构（For语句和Do语句）
格式：
开始
Do While <条件表达式>