（本科）第5章 循环结构程序设计ppt课件.pptx

《（本科）第5章 循环结构程序设计ppt课件.pptx》由会员分享，可在线阅读，更多相关《（本科）第5章 循环结构程序设计ppt课件.pptx（17页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、课程主讲人：第5章 循环结构程序设计第5章 循环结构程序设计3案例引入4【例5-1】开卷有益。“一日不读书，胸臆无佳想。一月不读书，耳目失精爽” 。读书和不读书到底有多大差距呢？分析：根据题目要求，如果读书学习能力值比前一天提升（1+0.01），不读书学习能力值比前一天下降（1-0.01），一年每天都坚持读书学习能力值是（1+0.01）365。5.1 For循环语句5语句形式如下：For 循环变量 = 初值 To 终值 Step 步长循环体Exit ForNext 循环变量该语句的作用是按规定的次数执行循环体语句。6【例5-2】累加和。求S=1+2+3+.+N的和值，程序段如下： Dim n,

2、 s, i As Integer n = Val(InputBox(请输入一个整数：) s = 0 For i = 1 To n s = s + i Next5.2 Do循环语句7形式1语句格式如下Do While|Until 条件表达式 循环体 Exit DoLoop形式2语句格式如下Do 循环体Exit DoLoop While|Until 条件表达式该语句的作用是通过判断条件决定是否执行循环体语句，形式1先判断后执行，有可能一次也不执行；形式2先执行后判断，至少执行一次。8【例5-3】猜数字。游戏规则，电脑产生一个1100之间的整数，由玩家来猜，猜中即胜出；若猜错，提示“大了”或“小了”

3、。分析：根据题目要求，使用Rnd函数产生随机整数；InputBox函数输入所猜数字；玩家猜数次数超过5次，则游戏结束，MsgBox给予提示，Exit语句强制退出循环。5.3 循环嵌套9 For i = 1 To 5 For j = 1 To 4 . Next j Next i10【例5-4】换零钱。顾客有面值100元的钱，希望在银行换成5元和10元的零钱，会有多少种可能性Public Class Form1 Private Sub Button1_Click(.) Handles Button1.Click Dim x, y, n As Integer For x = 0 To 20 5元张数

4、的可能性 For y = 0 To 10 10元张数的可能性 If x * 5 + 10 * y = 100 Then符合100元的组合 TextBox1.Text &= Str(x).PadLeft(8) & Str(y).PadLeft(14) & vbCrLf n = n + 1统计可能的组合数 End If Next Next Label3.Text &= n & 种 End SubEnd Class5.4 常用控件115.4.1 5.4.1 滚动条（滚动条（HScrollBarHScrollBar和和VScrollBarVScrollBar）属性说明Value滑块当前位置的值，默认值

5、为0Maximum滑块在滚动条最右端的位置值，默认值为100Minimum滑块在滚动条最左端的位置值，默认值为0LargeChange单击滚动条的空白区域时滑块移动的距离， 默认值为10SmallChange单击滚动条两端的箭头时滑块移动的距离，默认值为112【例5-5】相片缩放。拖动滚动条改变相片的尺寸Public Class Form1 Private Sub Form1_Load(.) Handles MyBase.Load HScrollBar1.Minimum = PictureBox1.Width HScrollBar1.Maximum = 2 * PictureBox1.Widt

6、h VScrollBar1.Minimum = PictureBox1.Height VScrollBar1.Maximum = 2 * PictureBox1.Height End Sub Private Sub HScrollBar1_Scroll(.) Handles HScrollBar1.Scroll PictureBox1.Width = HScrollBar1.Value End Sub Private Sub VScrollBar1_Scroll(.) Handles VScrollBar1.Scroll PictureBox1.Height = VScrollBar1.Val

7、ue() End SubEnd Class5.4.2 滑动条（TrackBar）13属性说明Value滑块在控件上的当前位置值Maximum控件的最大值，默认值为10Minimum控件的最小值，默认值为0LargeChange单击空白区域时滑块移动的距离， 默认值为5SmallChange滑块短距离移动时对Value属性进行增减的值，默认值为1Orientation控件是水平方向还是垂直方向，默认值为HorizontalTickFrequency控件上绘制的刻度线之间的间隔值，默认值为1数字框（NumericUpDown）14属性说明Value控件当前显示的数值Maximum控件的最大值，默认

8、值为100Minimum控件的最小值，默认值为0Increment单击箭头时控件数值增减的步长，默认值为1UpDownAlign箭头显示在左边还是右边，默认值为Right15【例5-6】咖啡点单。顾客选择咖啡的份数，计算订单总金额5.4.4 进度条（ProgressBar）16属性说明Value进度条当前填充位置值Maximum控件的最大值，默认值为100Minimum控件的最小值，默认值为0Step控件调用PerformStep方法时增加的步长方法说明Increment按指定的数量增加进度条Value值PerformStep按Step属性值来增加进度条Value值17【例5-7】进度条。实现进度条循环滚动Public Class Form1 Private Sub Timer1_Tick(.) Handles Timer1.Tick If ProgressBar1.Value ProgressBar1.Maximum Then ProgressBar1.Value = ProgressBar1.Value + 1 Else ProgressBar1.Value = ProgressBar1.Minimum End If End SubEnd Class