【VB教学】第十二章 当型循环的运用
一、教学目标:
1、 理解当型循环
2、 能灵活的运用当型循环
二、教学重点:
1、 当型循环的运用
三、所需课时:2课时
四、教学过程:
(一)、输入一个整数n,求1到n的奇数之和
n=val(inputbox(“输入n的值”,”练习一”))
s=0
I=1
do while I<=n
s=s+I
I=I+2
Loop
(二)、输入一个整数n,求s=1-2+3-4.....+n
n=val(inputbox(“输入n的值”,”练习二”))
s=0
I=1
do while I<=n
if I mod 2 <> 0 then
s=s+i
else
s=s-i
end if
I=I+1
Loop
( 三)、输入7个数字,打印出其中最大的数。
n=val(inputbox(“输入n的值”,”练习一”))
max=n
do while I<=6
n=val(inputbox(“输入n的值”,”练习一”))
if max<n then max=n
I=I+1
Loop