VB(2.7)棋盘上的麦粒数

1、汝南县职业教育中心汝南县职业教育中心第2章 Visual Basic编程语言 任务任务7 棋盘上的麦粒数棋盘上的麦粒数汝南县职业教育中心汝南县职业教育中心第5章目录任务7 棋盘上的麦粒数【知识回顾】例：评定成绩等级例：评定成绩等级90100：“优优”8089：“良良”7079：“中中”6069：“及格及格”60分以下为分以下为“不及格不及格”汝南县职业教育中心汝南县职业教育中心第5章目录任务7 棋盘上的麦粒数【知识点】n For循环n While循环汝南县职业教育中心汝南县职业教育中心第5章目录汝南县职业教育中心汝南县职业教育中心第5章目录计数循环语句 For-Next条件循环语句 While

2、-Wend 汝南县职业教育中心汝南县职业教育中心任务7 棋盘上的麦粒数1、For循环：(一般用于循环次数已知)按确定的次数执行循环体。语法格式为：第5章目录汝南县职业教育中心汝南县职业教育中心任务7 棋盘上的麦粒数第5章目录汝南县职业教育中心汝南县职业教育中心任务7 棋盘上的麦粒数第5章目录) 1(步长初值终值Int0 初值终值 ( 终值=0 死循环汝南县职业教育中心汝南县职业教育中心任务7 棋盘上的麦粒数第5章目录Private Sub Form_click() Dim s As Single, i As Integer n = Val(InputBox(请输入请输入n, 提示提示) s =

3、 0 For i = 1 To n Step 1 s = s + I Next i Print 1到到; n; 之和为：之和为：; sEnd Sub汝南县职业教育中心汝南县职业教育中心第5章目录NY结束汝南县职业教育中心汝南县职业教育中心第5章目录汝南县职业教育中心汝南县职业教育中心任务7 棋盘上的麦粒数第5章目录汝南县职业教育中心汝南县职业教育中心第5章目录 Private Sub Command1_Click() s = 0 For k = 1 To 3 If k = 1 Then x = 1 ElseIf k = 2 Then x = 2 ElseIf k = 3 Then x = 3

4、Else x = 4 End If s = s + x Next k Print s End Sub汝南县职业教育中心汝南县职业教育中心任务7 棋盘上的麦粒数1、While循环：（循环执行的次数不确定，但循环结束条件知道时使用。循环执行的次数不确定，但循环结束条件知道时使用。）按指定条件重复执行循环体。语法格式为：第5章目录While 循环体循环体Wend开始开始条件判断条件判断循环体循环体（包含循环变量的变化）结束结束成立成立不成立不成立汝南县职业教育中心汝南县职业教育中心任务7 棋盘上的麦粒数第5章目录例例1 1：求：求 1+2+3+ +20 = 1+2+3+ +20 = ？代码如下：代码

5、如下：s = 0 i = 1While i = 20 s = s + i i = i + 1WendText1= s流程图：流程图：条件条件循环体循环体汝南县职业教育中心汝南县职业教育中心第5章目录For循环语句：循环语句：While 循环语句：循环语句：代码：代码：代码：代码：?汝南县职业教育中心汝南县职业教育中心任务7 棋盘上的麦粒数第5章目录求求 1+2+3+ +100 = 1+2+3+ +100 = ？For循环语句：循环语句：While 循环语句：循环语句：代码：代码：代码：代码：s=0For i = 1 To 100 Step 1 s = s + iNext iText1= ss=

6、0i =1While i 100,1+2+3+ +X 100,求求X X的最小值？的最小值？For循环语句：循环语句：While 循环语句：循环语句：代码：代码：代码：代码：While s =90 then=90 thenLabel1.Text = Label1.Text = 优优 ElseIf ElseIf mark mark =80 Then=80 ThenLabel1.Text =Label1.Text = 良良 ElseIf ElseIf mark mark =70 Then=70 ThenLabel1.Text =Label1.Text = 中中 ElseIf ElseIf mark

7、 mark =60 Then=60 ThenLabel1.Text =Label1.Text = 及格及格 ElseElse Label1.Text=Label1.Text= 不及格不及格 End IfEnd If汝南县职业教育中心汝南县职业教育中心Select Case markSelect Case mark Case 90 To 100 Case 90 To 100 Label1.Text= Label1.Text=优秀优秀 Case 80 To 89 Case 80 To 89 Label1.Text= Label1.Text=良好良好 Case 70 To 79 Case 70 To 79 Label1.Text= Label1.Text=中等中等 Case 60 To 69 Cas