第三章循环控制结构.pptVIP

3.1 滚动条;3.1 滚动条;3.1 滚动条;实例;对象;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 新建一个工程，设计一个“调色板”程序。;对象;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.2 计时器;3.2 计时器; 设置为False可使时钟控件无效，即计时器停止工作。 ;3.2 计时器;实例;对象;;;对象;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 过 程 ;内容回顾 1.3.2 过程——Sub过程; Sub过程; Sub过程; Sub过程; Sub过程;Sub过程;Sub过程; Sub过程; Function过程;Function过程;Function过程; 形参 Sub过程和Function函数过程中的参数列表中的参数称为形式参数. 实参 在程序中调用Sub过程和Function函数过程时参数列表中称为实际参数。过程调用，就是实参与形参结合的过程。;3.3 过程——传址与传值;过程之间参数的传递; Sub Form_Click() Dim a As Integer，b As Integer a=10：b=20 tryout a，b Print ?a=?；a，?b=?；b End Sub;2. 按值传递参数 ;在Visual Basic中，按值传递参数是通过关键字ByVal来实现的。也就是说，在定义过程时，如果形参前面有关键字ByVal，则按值传递该参数，否则按地址传递该参数。　　 在【例3-6】中，如果用传值方式编写通用过程，则运行结果是不一样的。改为传值方式的;Sub tryout (ByVal x As Integer，ByVal y As Integer) x=x + 100 y=y ? 6 Print ?x=?；x，?y=?；y End Sub 事件过程Form_Click不用作任何修改。程序运行后，输出结果如下： x=110 y=120 a=10 b=20;3.4 Do while…Loop循环控制;例3-7 计算S=1+2+3+….+100; For 循环使用一个叫做计数器的变量，每重复一次循环之后，计数器变量的值就会增加或者减少。 For 循环的语法如下： For 循环变量 = 初值 To 终值 [Step 步长] 循环体 Next [循环变量