讲课次上机次(与“变量”有关的文档共124张)

Click to edit Master title style,Click to edit Master text styles,Second level,Third level,Fourth level,Fifth level,11/7/2009,#,*,单击此处编辑母版标题样式,单击此处编辑母版文本样式,第二级,第三级,第四级,第五级,讲课次上机次,第一页，共124页。,2.1,结构化程序设计的三种结构,（第,3,次课）,计算机语言提供三种基本控制结构,顺序、分支、循环,顺序结构,按照语句在代码中出现的顺序，,自,上而下逐条,执行；,每一条语句都,被且只被执行一次,。,第二页，共124页。,分支结构,根据判断项的值,有条件地执行,相应语句，也称选择结构。,循环结构,根据判断项的值,有条件地反复执行,程序中,的某些语句。,第三页，共124页。,【,例,2.1】,顺序结构程序示例。在窗体上添加,2,个文本框、,3,个标签和,2,个命令按钮,单击时在标签中显示两个数的计算和,单击时结束整个程序的运行,输入数据,只显示数据,第四页，共124页。,文本框控件,常用于数据的,显示、输入或编辑,推荐使用的控件前缀,txt,文本框内显示的文本保存在,Text,属性,中,第五页，共124页。,文本框与标签,相同点：都可以用于显示信息,不同点：,文本框,-,程序运行时可,直接在框内输入 或编辑,文本；,通过,Text,属性,编辑和显示信息,标签,-,只能显示,数据,通过,Caption,属性,显示信息,第六页，共124页。,cmdCal_Click,过程执行过程,按,顺,序,执,行,a = txtOp1,中的值,b = txtOp2,中的值,a+b,的值放在,lblAnswer,中,开始,结束,第七页，共124页。,编写代码,Private Sub cmdCal_Click(),a = Val(txtOp1.Text),b = Val(txtOp2.Text),lblAnswer.Caption = Str(a + b),End Sub,Private Sub cmdExit_Click(),End,End Sub,将数字字符串转换成对应数值,将数值转换成对应的数字字符串,可省略，系统将自动进行转换,第八页，共124页。,2.2 VB,语言基础,2.2.1 VB,语句的书写规则,2.2.2,常量、变量与变量定义,2.2.3,算术运算符与表达式,第九页，共124页。,2.2.1 VB,语句的书写规则,通常一行写一条语句，语句可从,任意列开始,，但一行内,不超过,255,个字符,;,一行,内可写,多条,语句，但语句间需用,冒号,隔开,;,一条,语句可写在连续的,多行,上，需在行尾处使用,续行符,。续行符由,1,个空格和,1,个下划线组成,;,不区分大小写,字母,第十页，共124页。,2.2.2,常量、变量与变量定义,1,常量与变量,【,例,2.2】,计算圆的周长和体积。,第十一页，共124页。,文本框,标签,计算并显示圆的周长和体积,结束程序,第十二页，共124页。,Private Sub cmdCal_Click(),Dim r As Integer : Dim l As Double,Dim v As Double,r = Val(txtRds.Text),l = 2 * PI * r,lblLen.Caption = l,v = 4 / 3 * PI * r 3,lblV.Caption = v,End Sub,常量,其值不会发生改变,变量,其值可随时发生变化,计算圆的周长,计算圆的体积,程序代码,声明符号常量,PI,，等价于,3.1415926,第十三页，共124页。,由,字母、数字和下划线,组成,;,以,字母开头,，其中不能含有小数点、空格等字符,;,字符数最多不超过,255,个,;,不能使用,VB,的,保留字,。,变量的命名规则,保留字：,VB,中定义的语句、函数名和运算符等,第十四页，共124页。,2,变量定义,使用变量存放,临时数据,往变量中存放数据的操作称为,赋值,可以给同一变量多次赋值，但变量中存放的是,最后一次,赋予它的值,未经赋值的变量，其值,默认为,0,2.2.2,常量、变量与变量定义,第十五页，共124页。,2,变量定义,根据变量中所存数据的种类不同，可将变量分为整型、实型和字符型等多种类型,Dim r As Integer,定义变量,r,，其类型为,Integer,（整型）,Dim v As Double,定义变量,v,，其类型为双精度实型,2.2.2,常量、变量与变量定义,第十六页，共124页。,2,变量定义,根据变量中所存数据的种类不同，可将变量分为整型、实型和字符型等多种类型,建议：变量,先定义后使用,，以利日后调试和维护,常用变量类型：,Integer,、,Long,、,Single,、,Double,、,String,2.2.2,常量、变量与变量定义,第十七页，共124页。,【,例,2.3】,计算两数乘积。程序运行时，随机产生,2,个三位整数显示在标签上；用户在文本框中输入计算结果；单击“参考答案”按钮，在窗体下部的标签中显示正确答案；单击“下一题”按钮，清除文本框及标签中的内容，重新生成,2,个数据显示在标签上。,第十八页，共124页。,Private Sub Form_Load(),Dim a As Integer,Dim b As Integer,a=,Int,(,Rnd,*900)+100,b=Int(Rnd*900)+100,lblOp1.Caption = a,lblOp2.Caption = b,End Sub,声明整型变量,a ,b,每次运行程序时产生不同随机数,随机产生,3,位整数,Randomize,有不足之处,程序代码,第十九页，共124页。,产生随机数的方法,Rnd,：,产生一个,(0,1),之间的随机数,Int(x),：,求不超过,x,的最大整数,Int(Rnd * N),：,产生,0,N-1,之间的整数,Int(Rnd * N)+ M,：,产生,M,M+N-1,之间的整数,Randomize,的使用,程序说明,第二十页，共124页。,Private Sub cmdKey_Click(),Dim an As,Long,an = Val(lblOp1.Caption)* Val(lblOp2.Caption),lb1Key.Caption = an,End Sub,声明长整型变量,an,字符串连接运算符,“,正确答案是,:,”,&,an,程序代码,第二十一页，共124页。,程序说明,变量定义,定义变量,an,为长整型，以防止溢出,Integer,型变量范围：,-32 76832 767,Long,型变量范围：,-2 147 483 6482 147 483 647,定义变量的格式,Dim,变量名,As,类型,第二十二页，共124页。,程序说明,字符串连接运算符,&,将两个字符串进行连接,“,My” & “Name”,值为“,MyName”,“123” & “456”,值为“,123456”,&,与前后两个字符串间必须用,空格,隔开,注意区分,an,与,“,an,”,的不同,第二十三页，共124页。,Private Sub cmdNext_Click(),Form_Load,xtAnswer.Text = “,lblKey.Caption = ,End Sub,如同将,Form_Load,中的所有语句复制到此一样,将光标定位到文本框上,程序代码,a=,Int,(,Rnd,*900)+100,b=Int(Rnd*900)+100,lblOp1.Caption = a,lblOp2.Caption = b,第二十四页，共124页。,【,例,2.4】,假设有字符串,a,，其值为“,ABCDefg”,，单击“确定”按钮后，在窗体上,输出不同的字符串。,第二十五页，共124页。,Private Sub cmdOK_Click(),Dim a As String , b As String,Dim c As String , d As String,a = ABCDefg,b = Left(a, 3),c = Mid(a, 2, 3),d = LCase(a),Print ,字符串：, & a,Print ,从左起取,3,个字符：, & b,Print ,从第,2,个字符起取,3,个字符：, & c,Print ,转换为小写字母：, & d,End Sub,从左起截取,3,个字符,从第,2,个字符开始截取,3,个字符,大写字母转换为小写字母,在窗体中输出字符串,程序代码,声明字符型变量,a,b,c,d,第二十六页，共124页。,字符串：用,双引号,括起来的一串字符， 可包含所有西文字符和汉字,语句,Dim a As String,，,b As String,定义字符型变量,a,和,b,，声明它们只能存放字符型数据。注意：不能写成,Dim a,，,b As String,与字符串操作有关的函数,Left,、,Right,、,Mid,、,LCase,、,UCase,、,Len,程序说明,第二十七页，共124页。,运算符,含义,举 例,+,加,5 + 3.2,的结果为,8.2,-,减,15-5.0,的结果为,10.0,*,乘,2.5 * 3,的结果为,7.5,/,除,1 / 2,的结果为,0.5,整除,1 2,的结果为,0,Mod,求余,6 Mod 4,的结果为,2,-,负号,-12.3,乘方,23,的结果为,8,2.2.3,算术运算符与表达式,第二十八页，共124页。,运算符,+,、,-,、*、,/,的作用与数学中的,+,、,-,、,、,相对应；,运算符,用于整数除法，若参加运算的数据含有小数,部分，则先按,四舍五入,原则自动将其转换成,整数后再进行运算，如,18 3.5 = 4,；,参加算术运算的操作数应是数值型数据，对,于数字字符或逻辑型数据则需先进行转换。,说明,第二十九页，共124页。,在,VB,中，逻辑值,True,对应数值,-1,，,False,对,应数值,0,在进行算术运算时不要超出数据取值范围,对于除法运算，应保证除数不为零,说明,第三十页，共124页。,算术表达式,由算术运算符、圆括号和运算对象（包括常量、变量、函数、对象等）组成，且符合,VB,语法规则的的表达式为算术表达式。,高,低, -,（负号） *,/ Mod + -,算术运算符的优先级,2.2.3,算术运算符与表达式,第三十一页，共124页。,【,例,2.5】,将 数学式改写成,VB,的算术表达式,【,解,】,VB,的算术表达式为,:,3.14159 / ( a 2 + Sqr(b) ),第三十二页，共124页。,课堂练习,最大字符长度为,18,单击时,推算出的生日,第三十三页，共124页。,1,结构化程序设计的,3,种结构,2,顺序结构的执行过程,3,常量和变量的概念,4,产生随机数的方法,5,交换算法和计算每位数字之和的方法,6,文本框的使用方法,7,Val,、,Str,、,Left,、,Right,、,Mid,、,LCase,、,Ucase,8,Integer,、,Long,、,Single,、,Double,、,String,型,9,算术运算符和字符串连接符,教学总结,第三十四页，共124页。,习题,2,中：第,16,题,课堂上未做完的内容,作业,例,2.6,例,预习,第三十五页，共124页。,2.3,数据赋值（第,4,次课）,【,例,2.6】,交换两个标签中的内容。,单击时交换两标签中内容,第三十六页，共124页。,Private Sub cmdSwap_Click() End Sub,通过临时变量,t,实现交换操作,Dim t As String,lbl2.Caption = t,程序代码,第三十七页，共124页。,赋值语句的一般形式,变量名,=,表达式,先计算等号右侧表达式的值，然后再赋值,赋值语句既可以给普通的变量赋值，也可以给对象的属性赋值,程序说明,第三十八页，共124页。,【,例,2.7】,使用图像框显示图片。,img,鼠标移动到某图像框时该图像框显示图片,第三十九页，共124页。,对 象,属性名,属性值,窗 体,Caption,加载图,所有图像框,Stretch,True,BorderStyle,1-Fixed Single,自动调节图片大小以适应图像框的大小,第四十页，共124页。,Private Sub imgCock_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single),imgCock.Picture = LoadPicture(D:MyVB cock.gif),imgDuck.Picture = LoadPicture(),End Sub,加载指定图片,清除图片,程序代码,第四十一页，共124页。,图像框中可使用,.bmp,、,.ico,、,.gif,、,.jpg,和,.wmf,等图形文件；,LoadPicture,函数的调用格式,LoadPicture,（,文件路径及名称,）,该文件所在完整路径及文件名后缀,在中若省略,imgCock,，则图片被加载到窗体上,程序说明,第四十二页，共124页。,【,例,2.8】,计算各位数字之和。,等待重新输入数字,输入数字后自动计算每位数字之和并显示,第四十三页，共124页。,对 象,属性名,属性值,文本框,1,（名称）,txtOp,MaxLength,3,取整数,x,的个位数字,基本算法,取整数,x,的百位数字,x Mod 10,取整数,x,的十位数字,x 10 Mod 10,x 100,第四十四页，共124页。,编写代码,文本框的,Change,事件,当文本框中的,内容发生变化,时触发，每,输入或删除,一个字符时就触发一次,Change,事件。,第四十五页，共124页。,Private Sub txtOp_,Change,( ),End Sub,Dim x As Integer : Dim a As Integer,Dim b As Integer : Dim c As Integer,x = Val( txtOp.Text ),a = x Mod 10,b = x 10 Mod 10,c = x 100,lblAnswer.Caption = a + b + c,第四十六页，共124页。,Private Sub cmdClear_Click(),txtOp.Text = ,lblAnswer.Caption = ,txtOp.SetFocus,End Sub,Private Sub cmdEnd_Click(),End,End Sub,第四十七页，共124页。,程序错误主要分为,编译错误,和,逻辑错误,编译错误,-,编辑时系统自动提示,逻辑错误,-,错误的运行结果,程序的测试与调试,查找、定位和排除错误的过程，常常需要反复多次进行，直至测试结果完全正确为止,调试方法介绍, F8,单步调试,第四十八页，共124页。,课堂练习,1,单击窗体,形状控件,标签,第四十九页，共124页。,课堂练习,2,图像框,图像框,第五十页，共124页。,课堂练习,2,单击时,第五十一页，共124页。,课堂练习,2,单击时清空,4,幅图,第五十二页，共124页。,课堂练习,2,单击窗体时,第五十三页，共124页。,1,交换数据需要使用三条赋值语句实现,2,结合使用“,”与“,Mod,”运算符对一个整数进行分解得到各位数字,3,装载图片使用,LoadPicture,函数实现,4,用,F8,单步执行程序，便于检查每一步,教学总结,第五十四页，共124页。,用,F8,单步执行的方法调试例和例中的程序,课堂上未做完的内容,作业,例,2.9,例,预习,第五十五页，共124页。,2.4,数据输出（第,5,次课）,【,例,2.9】,输出阴影文字,1,、通过标签或文本框控件输出文本,实现手段,第五十六页，共124页。,对 象,属性名,属性值,标签,1,Caption,实现阴影效果,BorderStyle,1-Fixed Single,Left,、,Top,240,、,465,标签,2,Caption,实现阴影效果,BackStyle,0-Transparent,BorderStyle,0-None,ForeColor,白色,Left,、,Top,330,、,525,第五十七页，共124页。,当控件间位置重叠时，位于上层的控件会遮挡住下层控件；,可通过设置上层控件的,BackStyle,属性,使其背景模式变成透明以露出下层控件；,程序说明,第五十八页，共124页。,Private Sub cmdShow_Click(),lbl2.,Visible,= True,cmdHide.,Enabled,= True,cmdShow.Enabled = False,End Sub,Private Sub cmdHide_Click(),lbl2.Visible = False,cmdHide.Enabled = False,cmdShow.Enabled = True,End Sub,程序代码,第五十九页，共124页。,2,、通过消息框输出文本信息,【,例,2.10】,密码校验,2.4,数据输出,最多,6,位,第六十页，共124页。,对 象,属性名,属性值,文本框,Alignment,2-Center,Maxlength,6,PasswordChar,*,Text,（置空）,第六十一页，共124页。,Private Sub cmdCheck_Click(),Dim s As String,s = ,您输入的密码是,MsgBox s,End Sub,自动弹出消息框，并在其中显示变量,s,的值,程序代码,单击时关闭并返回到原窗体,第六十二页，共124页。,3,、通过另一窗体输出文本信息,【,例,2.11】,修改例，在另一窗体中显 示密码信息。,2.4,数据输出,结束程序,第六十三页，共124页。,一个工程中可,包,含,多个窗体,添加窗体的方法,【,工程,】|【,添加窗体,】,单击工具栏中的“添加窗体”按钮,在工程资源管理器中单击右键,|【,添加,】|【,添加窗体,】,程序说明,第六十四页，共124页。,默认情况下，建立的第,1,个窗体为,启动窗体,自定义启动窗体,【,工程,】|【,属性,】,程序说明,第六十五页，共124页。,Private Sub cmdCheck_Click(),Dim a As Integer : Dim s As String,a = Len(txtPassword.Text),frmEx2_11_2.lblPassword.Caption = s,frmEx2_11_2.lblLen.Caption = a,End Sub,第一个窗体中的程序代码,求字符串长度,显示窗体,隐藏窗体,必须写,第六十六页，共124页。,Private Sub cmdEnd_Click(),End,End Sub,第二个窗体中的程序代码,第六十七页，共124页。,【,例,2.12】,单击,“,开始,”,按钮，汽车向前行驶；单击,“,停止,”,按钮，汽车停止行驶。,2.4,数据输出,4,、通过图像框输出图片,第六十八页，共124页。,在窗体上添加计时器和图像框,tmr,程序运行时不可见,第六十九页，共124页。,如何实现小车向前移动？,每隔,一定,的,时间间隔,，改变小车位置（向前移动一定距离）,窗体,(x , y),图像框的,Left,、,Top,属性,改变小车位置,图像框,.Left =,图像框,.Left - 100,只需改变,Left,属性值,如何指定？,第七十页，共124页。,使用,计时器,计时器控件能够以,一定的时间间隔,，,自动,触发,执行,Timer,事件,；,Interval,：,设定计时器,触发,Timer,事件的 时间间隔，单位,：,毫秒。,Enabled,：,值为,True,时计时器,工作,，值为,False,时计时器关闭,；,第七十一页，共124页。,对 象,属性名,属性值,计时器,名称,tmrMove,Enabled,False,Interval,100,第七十二页，共124页。,Private Sub cmdStart_Click(),End Sub,Private Sub cmdStop_Click(),End Sub,Private Sub tmrMove_Timer(),End Sub,启动计时器,关闭计时器,图片向左移动,tmrMove.Enabled = True,tmrMove.Enabled = False,imgCar.Left = imgCar.Left 100,程序代码,第七十三页，共124页。,图像框向右移动,imgCar.Left = imgCar.Left + 100,图像框向下移动,imgCar.Top = imgCar.Top + 100,图像框向上移动,imgCar.Top = imgCar.Top - 100,程序说明,向左上角移动？,第七十四页，共124页。,课堂练习,1,向左移动,向上移动,均停止移动,第七十五页，共124页。,课堂练习,2,单击,单击“黄”、“绿”，显示相应的灯,第七十六页，共124页。,课堂练习,2,切换到窗体,1,单击,第七十七页，共124页。,课堂练习,2,单击,切换到窗体,1,第七十八页，共124页。,1,计时器的使用方法,2,MsgBox,方法与函数,3,多个窗体的添加以及多窗体之间的切换,4,Len,函数的使用,教学总结,第七十九页，共124页。,习题,2,中：第,7,题,课堂上未做完的内容,作业,例,2.13,例,预习,第八十页，共124页。,2.5,数据输入（第,6,次课）,【,例,2.13】,程序运行时在文,本框中分别输入,0-255,之间,的整数，单击显示按钮则,以输入值作为红、绿、蓝,三分量合成颜色并显示在,图片框中。,1,、通过文本框输入文本信息,Pic,第八十一页，共124页。,对 象,属性名,属性值,文本框,1,Alignment,2-Center,TabIndex,0,文本框,2,Alignment,2-Center,TabIndex,1,文本框,3,Alignment,2-Center,TabIndex,2,图片框,TabStop,False,第八十二页，共124页。,TabStop,属性,True -,程序运行时可通过,Tab,键选定,TabIndex,属性,响应,Tab,键的顺序，值从,0,开始,通常,TabStop,与,TabIndex,联合使用,程序说明,第八十三页，共124页。,图片框比图像框的功能强,但所占系统资源多，显示速度慢,只用于显示图片时一般不用图片框,程序说明,第八十四页，共124页。,Private Sub cmdShow_Click(),Dim r As Integer, g As Integer, b As Integer,r = Val(txtRed.Text),g = Val(txtGreen.Text),b = Val(txtBlue.Text),picColor.BackColor = RGB(r, g, b),End Sub,合成颜色，并赋给图片框的背景色,程序代码,第八十五页，共124页。,RGB,函数,根据红、绿、蓝三原色产生合成色,调用格式：,RGB,（,red, green, blue,）,red,、,green,、,blue,的取值范围均是,0,到,255,，代表红、绿、蓝三原色的成分,黑色：,RGB(0, 0, 0),白色：,RGB(255, 255, 255),程序说明,第八十六页，共124页。,2,、通过输入框输入信息,【,例,】,修改例，单击输入按钮时弹出 输入框输入红、绿、蓝三原色值。,2.5,数据输入,改为标签,第八十七页，共124页。,InputBox,函数,产生输入对话框,接收并返回用户输入的字符串,调用,格式,InputBox(,提示信息,对话框标题,默认输入值,),例：,a = InputBox( “aaa” , “bb” , “c” ),程序说明,提示信息,输入框标题,默认输入值,第八十八页，共124页。,InputBox,函数,单击按钮后关闭输入框,单击“确定”按钮，将输入数据,以字符串,形式返回给变量,a,单击“取消”按钮，系统将返回,空串,例：,a = InputBox( “aaa” , “bb” , “c” ),程序说明,第八十九页，共124页。,Private Sub cmdInput_Click(),Dim r As Integer, g As Integer, b As Integer,r =,Val(,InputBox(“,请输入,0-255,之间的整数：, ,输入框, 0),),g =,Val(,InputBox(“,请输入,0-255,之间的整数：, ,输入框, 0),),b =,Val(,InputBox(“,请输入,0-255,之间的整数：, ,输入框, 0),),lblRed.Caption = r : lblGreen.Caption = g,lblBlue.Caption = b,End Sub,程序代码,第九十页，共124页。,Private Sub cmdShow_Click(),Dim r As Integer,Dim g As Integer,Dim b As Integer,picColor.BackColor = RGB(r, g, b),End Sub,程序代码,能否删除？,第九十一页，共124页。,3,、通过滚动条输入数据,【,例,】,修改例，通过拖动滚动条输入 红、绿、蓝三原色的值。,hsb,2.5,数据输入,水平滚动条,第九十二页，共124页。,对 象,属性名,属性值,水平滚动条,13,LargeChange,5,Max,255,Min,0,SmallChange,1,第九十三页，共124页。,程序说明,滚动条,有,水平,滚动条和,垂直,滚动条两种,滚动条常用属性,Min,-,滚动条最小取值,Max,-,滚动条最大取值,Value,-,滑块当前位置所代表的值，即 滚动条当前值,vsb,第九十四页，共124页。,程序说明,滚动条,有,水平,滚动条和,垂直,滚动条两种,滚动条常用属性,SmallChange,-,单击滚动条左右箭头 时，,Value,值改变量,LargeChange,-,单击滚动条白色区域 时，,Value,值改变量,第九十五页，共124页。,滚动条,改变滚动条,Value,值的操作,单击 或,SmallChange,直接拖动滑块,单击滑块与箭头间的位置,LargeChange,程序说明,第九十六页，共124页。,程序说明,滚动条,滚动条主要事件,Change,-,当滚动条的,Value,属性值发生 变化时触发,Scroll,-,用鼠标直接拖动滚动条滑块时 触发,产生,Scroll,事件时也必然产生,Change,事件,第九十七页，共124页。,程序代码,Private Sub cmdShow_Click(),Dim r As Integer,Dim g As Integer,Dim b As Integer,picColor.BackColor = RGB(r, g, b),End Sub,如何即时显示颜色变化？,第九十八页，共124页。,程序运行时,综合实例,2,（课时不够时留作业）,单击“交换”按钮,交换两图像框中的小狗图像,停止交换,调整交换速度,返回初始窗体,第九十九页，共124页。,程序运行时,单击“放大”按钮,输入文字并选中部分文字,显示放大后的文字,返回初始窗体,综合实例,2,（课时不够时留作业）,第一百页，共124页。,程序运行时,单击“退出”按钮,结束程序,综合实例,2,（课时不够时留作业）,第一百零一页，共124页。,程序说明,图片框中显示艺术字,在,Word,中设计艺术字，复制,在,VB,中选中图片框，粘贴,为命令按钮设置热键,在,Caption,属性,中指定热键字母，并在该,字母前加,&,即可,按下,Alt +,热键字母,，等同于单击按钮,第一百零二页，共124页。,交换图形,添加一临时图像框，将其,Visible,设为,False,借助计时器,Interval,属性，实现图形交换,在滚动条的,Change,事件中更改计时器的,Interval,属性，以调整交换速度,程序说明,在本窗体中引用其他窗体中的控件,采用“,窗体名,.,控件名,.,属性名,”的形式，明确指出控件所在窗体,第一百零三页，共124页。,窗体,1,的程序代码,Private Sub cmdLarge_Click(),End Sub,Private Sub cmdSwap_Click(),End Sub,第一百零四页，共124页。,窗体,1,的程序代码,Private Sub cmdEnd_Click(),MsgBox ,欢迎再次光临！, 64,退出程序,End,End Sub,第一百零五页，共124页。,窗体,2,的程序代码,Private Sub cmdStart_Click(),tmrSwap.Enabled = True,End Sub,Private Sub cmdStop_Click(),tmrSwap.Enabled = False,End Sub,第一百零六页，共124页。,窗体,2,的程序代码,Private Sub tmrSwap_Timer(),End Sub,第一百零七页，共124页。,窗体,2,的程序代码,Private Sub hsbSpeed_Change(),End Sub,Private Sub cmdExit_Click(),End Sub,第一百零八页，共124页。,窗体,3,的程序代码,Private Sub cmdLarge_Click(),End Sub,Private Sub cmdExit_Click(),End Sub,当前选中的文本，设计阶段不可用,第一百零九页，共124页。,窗体,4,的程序代码,Private Sub Form_Unload(Cancel As Integer),End Sub,单击“关闭”按钮时触发,第一百一十页，共124页。,课堂练习,两个滚动条的,Min,和,Value,均为,500,，,Max,分别为,50,和,2000,第一百一十一页，共124页。,课堂练习,调整小鸟大小,小鸟向右下角飞,调整小鸟速度,单击窗体停止飞行,第一百一十二页，共124页。,1,滚动条控件的常用属性及事件,2,InputBox,函数,教学总结,第一百一十三页，共124页。,习题,2,中：第,8,题,阅读并理解综合实例,2,课堂上未做完的内容,作业,节 上机训练中：训练和训练,预习,第一百一十四页，共124页。,完成训练,完成训练,上机实验（第,1,次实验）,第一百一十五页，共124页。,补充实验,无图像,第一百一十六页，共124页。,补充实验,单击时,木马不停地摇摆,第一百一十七页，共124页。,完成训练,完成训练,上机实验（第,2,次实验）,第一百一十八页，共124页。,补充实验,大小与命令按钮相同。,Min,和,Max,分别为,100,和,500,置于命令按钮之后,第一百一十九页，共124页。,补充实验,单击命令按钮,第一百二十页，共124页。,补充实验,输入值,第一百二十一页，共124页。,补充实验,木马以该数据为变换姿态的频率开始摇摆，同时命令按钮不可见，滚动条滑块的位置与所输入的数据一致,输入值,第一百二十二页，共124页。,补充实验,移动滚动条的滑块，可以调整木马变换姿态的频率,输入值,第一百二十三页，共124页。,补充实验,单击木马,第一百二十四页，共124页。,