第3单元循环控制结构.pptVIP

实例 例3-1 新建一个工程，完成“改变图形”程序的设计。 具体要求： 1）窗体的标题为“改变图形”，固定边框。 2）在窗体上有一个图像框（image 1），加载一副图片（Scretch=True）；一个水平滚动条（Hscroll1）和一个垂直滚动条（Vscroll1）。 3）程序运行时，改变滚动条可以使图片横向或纵向压缩或拉伸。 Private Sub Form_Load() HScroll1.Max = Image1.Width VScroll1.Max = Image1.Height HScroll1.Value = HScroll1.Max VScroll1.Value = VScroll1.Max End Sub Private Sub hscroll1_scroll() Image1.Width = HScroll1.Value End Sub Private Sub vscroll1_scroll() Image1.Height = VScroll1.Value End Sub 例3-2 新建一个工程，设计一个“调色板”程序。 窗体的标题为“调色板”。固定边框。 将形状控件Shape1设置为长方形，黑色边框。 通过滚动条来选择红、绿、蓝三原色的配色取值，配色效果通过形状控件动态显示。 单击“确定”按钮或回车键，将调配好的颜色运用于标签（Label1）文字“坚持就是胜利” 对命令按钮Command 1进行适当的设置，使得按回车键等效于单击命令按钮。 Private Sub Command1_Click() Label1.ForeColor = Shape1.FillColor End Sub Private Sub HScroll1_Scroll() Shape1.FillColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value) End Sub Private Sub HScroll2_Scroll() Shape1.FillColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value) End Sub Private Sub HScroll3_Scroll() Shape1.FillColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value) End Sub 实例 例 3-3新建一个工程，完成“电子钟”程序的设计。 1）窗体的标题为“电子钟”，固定边框。 2）设计一个定时器Timer1用于显示系统时间，时间间隔为一秒。 3）窗体上有一个标签Label1，用于显示时间，设置Label1的Font为：宋体、粗体、二号、背景白色，文字居中对齐，固定边框。 Private Sub Timer1_Timer() Label1.Caption = Time$ End Sub 例 3-4新建一个工程，利用计时器制作一个自下而上的滚动字幕。 1）窗体背景加载一幅图片 2）窗体上有一个标签Label1，设置Label1的背景透明；前景色为红色；Font为隶书，四号字。 Dim step As Integer Private Sub Form_Load() Label1.Top = Me.ScaleHeight step = Me.ScaleHeight \ 200 End Sub Private Sub Timer1_Timer() Label1.Top = Label1.Top - step If Label1.Top -Label1.Height Then Label1.Top = Me.ScaleHeight End If End Sub 3.3 过程——传址与传值 形参 Sub过程和Function函数过程中的参数列表中的参数称为形式参数. 实参 在程序中调用Sub过程和Function函数过程时参数列表中称为实际参数。过程调用，就是实参与形参结合的过程。 3.3 过程——传址与传值 1. 按值传递参数(Byval) 在VB中，默认情况下实参与形参是传址传递数据的。 3.4 Do while…Loop循环控制 只要 循环条件为 True 就执行 循环体。其语法格式为： Do While 条件 语句块1 [Exit Do] 循环体 语句块1 Loop 语句功能：当条件为真时，执行循环体；当条件为假时，终止循环。 例3-7 计算S=1+2+3+….+100