【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