讲课次上机次

讲课次上机次2.1结构化程序设计的三种结构

（第3次课）计算机语言提供三种基本控制结构

顺序、分支、循环

顺序结构按照语句在代码中出现的顺序，自上而下逐条执行；每一条语句都被且只被执行一次。

第2页,共124页，2024年2月25日，星期天

分支结构根据判断项的值有条件地执行相应语句，也称选择结构。

循环结构根据判断项的值有条件地反复执行程序中的某些语句。第3页,共124页，2024年2月25日，星期天【例2.1】顺序结构程序示例。在窗体上添加2 个文本框、3个标签和2个命令按钮单击时在标签中显示两个数的计算和单击时结束整个程序的运行输入数据只显示数据第4页,共124页，2024年2月25日，星期天文本框控件常用于数据的显示、输入或编辑

推荐使用的控件前缀

txt

文本框内显示的文本保存在Text属性中第5页,共124页，2024年2月25日，星期天文本框与标签相同点：都可以用于显示信息不同点：文本框---程序运行时可直接在框内输入 或编辑文本； 通过Text属性编辑和显示信息

标签---只能显示数据 通过Caption属性显示信息

第6页,共124页，2024年2月25日，星期天cmdCal_Click过程执行过程按顺序执行a=txtOp1中的值b=txtOp2中的值a+b的值放在lblAnswer中开始结束第7页,共124页，2024年2月25日，星期天编写代码PrivateSubcmdCal_Click()a=Val(txtOp1.Text) b=Val(txtOp2.Text) lblAnswer.Caption=Str(a+b)EndSubPrivateSubcmdExit_Click()EndEndSub将数字字符串转换成对应数值将数值转换成对应的数字字符串可省略，系统将自动进行转换第8页,共124页，2024年2月25日，星期天2.2VB语言基础2.2.1VB语句的书写规则2.2.2常量、变量与变量定义2.2.3算术运算符与表达式第9页,共124页，2024年2月25日，星期天2.2.1VB语句的书写规则通常一行写一条语句，语句可从任意列开始，但一行内不超过255个字符;一行内可写多条语句，但语句间需用冒号隔开;一条语句可写在连续的多行上，需在行尾处使用续行符。续行符由1个空格和1个下划线组成;不区分大小写字母第10页,共124页，2024年2月25日，星期天2.2.2常量、变量与变量定义1．常量与变量【例2.2】计算圆的周长和体积。第11页,共124页，2024年2月25日，星期天文本框标签计算并显示圆的周长和体积

结束程序第12页,共124页，2024年2月25日，星期天PrivateSubcmdCal_Click()

ConstPI=3.1415926DimrAsInteger:DimlAsDoubleDimvAsDoubler=Val(txtRds.Text)l=2*PI*rlblLen.Caption=lv=4/3*PI*r^3lblV.Caption=vEndSub常量其值不会发生改变变量其值可随时发生变化’计算圆的周长

’计算圆的体积

程序代码声明符号常量PI，等价于3.1415926第13页,共124页，2024年2月25日，星期天由字母、数字和下划线组成;以字母开头，其中不能含有小数点、空格等字符;字符数最多不超过255个;不能使用VB的保留字。变量的命名规则保留字：VB中定义的语句、函数名和运算符等第14页,共124页，2024年2月25日，星期天2．变量定义使用变量存放临时数据往变量中存放数据的操作称为赋值可以给同一变量多次赋值，但变量中存放的是最后一次赋予它的值未经赋值的变量，其值默认为0

2.2.2常量、变量与变量定义第15页,共124页，2024年2月25日，星期天2．变量定义根据变量中所存数据的种类不同，可将变量分为整型、实型和字符型等多种类型DimrAsInteger

定义变量r，其类型为Integer（整型）

DimvAsDouble

定义变量v，其类型为双精度实型2.2.2常量、变量与变量定义第16页,共124页，2024年2月25日，星期天2．变量定义根据变量中所存数据的种类不同，可将变量分为整型、实型和字符型等多种类型建议：变量先定义后使用，以利日后调试 和维护常用变量类型：Integer、Long、Single、 Double、String2.2.2常量、变量与变量定义第17页,共124页，2024年2月25日，星期天【例2.3】计算两数乘积。程序运行时，随机产生2个三位整数显示在标签上；用户在文本框中输入计算结果；单击“参考答案”按钮，在窗体下部的标签中显示正确答案；单击“下一题”按钮，清除文本框及标签中的内容，重新生成2个数据显示在标签上。第18页,共124页，2024年2月25日，星期天

PrivateSubForm_Load()

DimaAsInteger

DimbAsInteger

a=Int(Rnd*900)+100

b=Int(Rnd*900)+100

lblOp1.Caption=alblOp2.Caption=bEndSub声明整型变量a,b每次运行程序时产生不同随机数

随机产生3位整数Randomize有不足之处程序代码第19页,共124页，2024年2月25日，星期天产生随机数的方法

Rnd：产生一个(0,1)之间的随机数

Int(x)：求不超过x的最大整数

Int(Rnd*N)：产生0~N-1之间的整数

Int(Rnd*N)+M：产生M~M+N-1之间的整数Randomize的使用

程序说明第20页,共124页，2024年2月25日，星期天PrivateSubcmdKey_Click()DimanAsLongan=Val(lblOp1.Caption)* Val(lblOp2.Caption)lb1Key.Caption=anEndSub

声明长整型变量an字符串连接运算符“正确答案是:”

&an程序代码第21页,共124页，2024年2月25日，星期天程序说明变量定义定义变量an为长整型，以防止溢出Integer型变量范围：-32768~32767Long型变量范围：-2147483648~2147483647定义变量的格式

Dim变量名As类型第22页,共124页，2024年2月25日，星期天程序说明字符串连接运算符&将两个字符串进行连接“My”&“Name”值为“MyName”“123”&“456”值为“123456”&与前后两个字符串间必须用空格隔开

注意区分an与“an”

的不同第23页,共124页，2024年2月25日，星期天PrivateSubcmdNext_Click()Form_LoadxtAnswer.Text="“lblKey.Caption=""txtAnswer.SetFocusEndSub

如同将Form_Load中的所有语句复制到此一样将光标定位到文本框上

程序代码……a=Int(Rnd*900)+100b=Int(Rnd*900)+100lblOp1.Caption=alblOp2.Caption=b第24页,共124页，2024年2月25日，星期天【例2.4】假设有字符串a，其值为“ABCDefg”，单击“确定”按钮后，在窗体上输出不同的字符串。第25页,共124页，2024年2月25日，星期天PrivateSubcmdOK_Click()DimaAsString,bAsStringDimcAsString,dAsStringa="ABCDefg"b=Left(a,3)c=Mid(a,2,3) d=LCase(a) Print"字符串："&aPrint"从左起取3个字符："&bPrint"从第2个字符起取3个字符："&cPrint"转换为小写字母："&dEndSub从左起截取3个字符从第2个字符开始截取3个字符大写字母转换为小写字母在窗体中输出字符串程序代码声明字符型变量a,b,c,d第26页,共124页，2024年2月25日，星期天字符串：用双引号括起来的一串字符， 可包含所有西文字符和汉字

语句DimaAsString，bAsString定义字符型变量a和b，声明它们只能存放字符型数据。注意：不能写成

Dima，bAsString

与字符串操作有关的函数

Left、Right、Mid、LCase、UCase、Len程序说明第27页,共124页，2024年2月25日，星期天运算符含义举例+加5+3.2的结果为8.2-减15-5.0的结果为10.0*乘2.5*3的结果为7.5/除1/2的结果为0.5\整除1\2的结果为0Mod求余6Mod4的结果为2-负号-12.3^乘方2^3的结果为82.2.3算术运算符与表达式

第28页,共124页，2024年2月25日，星期天

运算符+、-、*、/的作用与数学中的+、-、

×、÷相对应；运算符\

用于整数除法，若参加运算的数据含有小数部分，则先按四舍五入原则自动将其转换成整数后再进行运算，如18\3.5=4

；参加算术运算的操作数应是数值型数据，对于数字字符或逻辑型数据则需先进行转换。说明第29页,共124页，2024年2月25日，星期天

在VB中，逻辑值True对应数值-1，False对应数值0

在进行算术运算时不要超出数据取值范围

对于除法运算，应保证除数不为零

说明第30页,共124页，2024年2月25日，星期天

算术表达式

由算术运算符、圆括号和运算对象（包括常量、变量、函数、对象等）组成，且符合VB语法规则的的表达式为算术表达式。高低^-（负号）*/\Mod+-算术运算符的优先级2.2.3算术运算符与表达式

第31页,共124页，2024年2月25日，星期天【例2.5】将数学式改写成VB的算术表达式【解】VB的算术表达式为:3.14159/(a^2+Sqr(b))第32页,共124页，2024年2月25日，星期天课堂练习最大字符长度为18单击时推算出的生日第33页,共124页，2024年2月25日，星期天1．结构化程序设计的3种结构2．顺序结构的执行过程3．常量和变量的概念4．产生随机数的方法5．交换算法和计算每位数字之和的方法6．文本框的使用方法7．Val、Str、Left、Right、Mid、LCase、Ucase8．Integer、Long、Single、Double、String型9．算术运算符和字符串连接符教学总结第34页,共124页，2024年2月25日，星期天习题2中：第1~6题课堂上未做完的内容作业例2.6~例2.8预习第35页,共124页，2024年2月25日，星期天2.3数据赋值（第4次课）【例2.6】交换两个标签中的内容。单击时交换两标签中内容第36页,共124页，2024年2月25日，星期天PrivateSubcmdSwap_Click()

EndSub通过临时变量t实现交换操作DimtAsStringt=lbl1.Caption

lbl1.Caption=lbl2.Captionlbl2.Caption=t程序代码第37页,共124页，2024年2月25日，星期天赋值语句的一般形式

变量名=表达式

先计算等号右侧表达式的值，然后再赋值赋值语句既可以给普通的变量赋值，也可以给对象的属性赋值程序说明第38页,共124页，2024年2月25日，星期天【例2.7】使用图像框显示图片。img鼠标移动到某图像框时该图像框显示图片第39页,共124页，2024年2月25日，星期天对象属性名属性值窗体Caption加载图所有图像框Stretch

TrueBorderStyle1-FixedSingle自动调节图片大小以适应图像框的大小第40页,共124页，2024年2月25日，星期天PrivateSubimgCock_MouseMove(ButtonAs

Integer,ShiftAsInteger,XAs Single,YAsSingle)

imgCock.Picture=LoadPicture("D:\MyVB\ cock.gif")

imgDuck.Picture=LoadPicture("")

EndSub加载指定图片清除图片程序代码第41页,共124页，2024年2月25日，星期天图像框中可使用.bmp、.ico、.gif、.jpg和.wmf等图形文件；LoadPicture函数的调用格式

LoadPicture（"文件路径及名称"）

该文件所在完整路径及文件名后缀在imgCock.Picture中若省略imgCock，则图片被加载到窗体上程序说明第42页,共124页，2024年2月25日，星期天【例2.8】计算各位数字之和。等待重新输入数字

输入数字后自动计算每位数字之和并显示第43页,共124页，2024年2月25日，星期天对象属性名属性值文本框1（名称）txtOpMaxLength

3取整数x的个位数字基本算法取整数x的百位数字xMod10取整数x的十位数字x\10Mod10x\100第44页,共124页，2024年2月25日，星期天编写代码文本框的Change事件

当文本框中的内容发生变化时触发，每输入或删除一个字符时就触发一次Change事件。第45页,共124页，2024年2月25日，星期天PrivateSubtxtOp_Change()

EndSubDimxAsInteger:DimaAsInteger

DimbAsInteger:DimcAsIntegerx=Val(txtOp.Text)a=xMod10b=x\10Mod10c=x\100lblAnswer.Caption=a+b+c第46页,共124页，2024年2月25日，星期天PrivateSubcmdClear_Click()txtOp.Text=""lblAnswer.Caption=""txtOp.SetFocus EndSubPrivateSubcmdEnd_Click()EndEndSub

第47页,共124页，2024年2月25日，星期天程序错误主要分为编译错误和逻辑错误编译错误---编辑时系统自动提示逻辑错误---错误的运行结果程序的测试与调试查找、定位和排除错误的过程，常常需要反复多次进行，直至测试结果完全正确为止

调试方法介绍——F8单步调试

第48页,共124页，2024年2月25日，星期天课堂练习1单击窗体形状控件标签第49页,共124页，2024年2月25日，星期天课堂练习2图像框图像框第50页,共124页，2024年2月25日，星期天课堂练习2单击时第51页,共124页，2024年2月25日，星期天课堂练习2单击时清空4幅图第52页,共124页，2024年2月25日，星期天课堂练习2单击窗体时第53页,共124页，2024年2月25日，星期天1．交换数据需要使用三条赋值语句实现2．结合使用“\”与“Mod”运算符对一个整数进行分解得到各位数字3．装载图片使用LoadPicture函数实现4．用F8单步执行程序，便于检查每一步教学总结第54页,共124页，2024年2月25日，星期天用F8单步执行的方法调试例2.6和例2.7中的程序课堂上未做完的内容作业例2.9~例2.12预习第55页,共124页，2024年2月25日，星期天2.4数据输出（第5次课）

【例2.9】输出阴影文字1、通过标签或文本框控件输出文本实现手段第56页,共124页，2024年2月25日，星期天对象属性名属性值标签1Caption实现阴影效果BorderStyle1-FixedSingle

Left、Top

240、465

标签2Caption实现阴影效果BackStyle

0-TransparentBorderStyle0-NoneForeColor白色Left、Top330、525第57页,共124页，2024年2月25日，星期天当控件间位置重叠时，位于上层的控件会遮挡住下层控件；可通过设置上层控件的BackStyle属性使其背景模式变成透明以露出下层控件；程序说明第58页,共124页，2024年2月25日，星期天PrivateSubcmdShow_Click()lbl2.Visible=True

cmdHide.Enabled=TruecmdShow.Enabled=False

EndSub

PrivateSubcmdHide_Click()lbl2.Visible=FalsecmdHide.Enabled=FalsecmdShow.Enabled=TrueEndSub程序代码第59页,共124页，2024年2月25日，星期天2、通过消息框输出文本信息【例2.10】密码校验2.4数据输出

最多6位第60页,共124页，2024年2月25日，星期天对象属性名属性值文本框Alignment2-CenterMaxlength6PasswordChar*Text（置空）第61页,共124页，2024年2月25日，星期天PrivateSubcmdCheck_Click()DimsAsStrings="您输入的密码是:"&txtPassword.TextMsgBoxsEndSub自动弹出消息框，并在其中显示变量s的值程序代码单击时关闭并返回到原窗体第62页,共124页，2024年2月25日，星期天3、通过另一窗体输出文本信息【例2.11】修改例2.10，在另一窗体中显 示密码信息。2.4数据输出

结束程序第63页,共124页，2024年2月25日，星期天一个工程中可包含多个窗体添加窗体的方法【工程】|【添加窗体】

单击工具栏中的“添加窗体”按钮在工程资源管理器中单击右键|【添加】|【添加窗体】程序说明第64页,共124页，2024年2月25日，星期天默认情况下，建立的第1个窗体为启动窗体自定义启动窗体【工程】|【属性】程序说明第65页,共124页，2024年2月25日，星期天PrivateSubcmdCheck_Click() DimaAsInteger:DimsAsString a=Len(txtPassword.Text) s=txtPassword.Text frmEx2_11_2.lblPassword.Caption=s frmEx2_11_2.lblLen.Caption=a frmEx2_11_1.Hide frmEx2_11_2.ShowEndSub第一个窗体中的程序代码求字符串长度显示窗体隐藏窗体必须写第66页,共124页，2024年2月25日，星期天PrivateSubcmdEnd_Click()EndEndSub第二个窗体中的程序代码第67页,共124页，2024年2月25日，星期天【例2.12】单击“开始”按钮，汽车向前行驶；单击“停止”按钮，汽车停止行驶。2.4数据输出

4、通过图像框输出图片第68页,共124页，2024年2月25日，星期天

在窗体上添加计时器和图像框tmr程序运行时不可见第69页,共124页，2024年2月25日，星期天如何实现小车向前移动？每隔一定的时间间隔，改变小车位置（向前移动一定距离）窗体(x,y)图像框的Left、Top属性改变小车位置图像框.Left=图像框.Left-100只需改变Left属性值如何指定？第70页,共124页，2024年2月25日，星期天使用计时器计时器控件能够以一定的时间间隔，自动触发执行Timer事件；Interval：设定计时器触发Timer事件的 时间间隔，单位：毫秒。Enabled：值为True时计时器工作，值为 False时计时器关闭；第71页,共124页，2024年2月25日，星期天对象属性名属性值计时器名称tmrMoveEnabledFalseInterval100第72页,共124页，2024年2月25日，星期天PrivateSubcmdStart_Click()

EndSub

PrivateSubcmdStop_Click()

EndSub

PrivateSubtmrMove_Timer()

EndSub启动计时器关闭计时器图片向左移动tmrMove.Enabled=TruetmrMove.Enabled=FalseimgCar.Left=imgCar.Left–100程序代码第73页,共124页，2024年2月25日，星期天图像框向右移动

imgCar.Left=imgCar.Left+100

图像框向下移动imgCar.Top=imgCar.Top+100

图像框向上移动imgCar.Top=imgCar.Top-100程序说明向左上角移动？第74页,共124页，2024年2月25日，星期天课堂练习1向左移动向上移动均停止移动第75页,共124页，2024年2月25日，星期天课堂练习2单击单击“黄”、“绿”，显示相应的灯

第76页,共124页，2024年2月25日，星期天课堂练习2切换到窗体1单击第77页,共124页，2024年2月25日，星期天课堂练习2单击切换到窗体1第78页,共124页，2024年2月25日，星期天1．计时器的使用方法2．MsgBox方法与函数3．多个窗体的添加以及多窗体之间的切换4．Len函数的使用教学总结第79页,共124页，2024年2月25日，星期天习题2中：第7题课堂上未做完的内容作业例2.13~例2.15预习第80页,共124页，2024年2月25日，星期天2.5数据输入（第6次课）【例2.13】程序运行时在文本框中分别输入0-255之间的整数，单击显示按钮则以输入值作为红、绿、蓝三分量合成颜色并显示在图片框中。1、通过文本框输入文本信息Pic第81页,共124页，2024年2月25日，星期天对象属性名属性值文本框1Alignment2-CenterTabIndex0文本框2Alignment2-CenterTabIndex1文本框3Alignment2-CenterTabIndex2图片框TabStopFalse第82页,共124页，2024年2月25日，星期天TabStop属性

True---程序运行时可通过Tab键选定TabIndex属性响应Tab键的顺序，值从0开始通常TabStop与TabIndex联合使用程序说明第83页,共124页，2024年2月25日，星期天图片框比图像框的功能强

但所占系统资源多，显示速度慢

只用于显示图片时一般不用图片框

程序说明第84页,共124页，2024年2月25日，星期天PrivateSubcmdShow_Click()DimrAsInteger,gAsInteger,bAsIntegerr=Val(txtRed.Text)g=Val(txtGreen.Text)b=Val(txtBlue.Text)picColor.BackColor=RGB(r,g,b)EndSub合成颜色，并赋给图片框的背景色程序代码第85页,共124页，2024年2月25日，星期天RGB函数根据红、绿、蓝三原色产生合成色调用格式：RGB（red,green,blue）red、green、blue的取值范围均是0到255，代表红、绿、蓝三原色的成分黑色：RGB(0,0,0)白色：RGB(255,255,255)程序说明第86页,共124页，2024年2月25日，星期天2、通过输入框输入信息【例2.14】修改例2.13，单击输入按钮时弹出 输入框输入红、绿、蓝三原色值。2.5数据输入改为标签第87页,共124页，2024年2月25日，星期天InputBox函数产生输入对话框接收并返回用户输入的字符串调用格式

InputBox(提示信息,对话框标题,默认输入值)

例：a=InputBox(“aaa”,“bb”,“c”)程序说明提示信息输入框标题默认输入值第88页,共124页，2024年2月25日，星期天InputBox函数单击按钮后关闭输入框单击“确定”按钮，将输入数据以字符串形式返回给变量a单击“取消”按钮，系统将返回空串例：a=InputBox(“aaa”,“bb”,“c”)程序说明第89页,共124页，2024年2月25日，星期天PrivateSubcmdInput_Click()DimrAsInteger,gAsInteger,bAsIntegerr=Val(InputBox(“请输入0-255之间的整 数：","输入框",0))g=Val(InputBox(“请输入0-255之间的整 数：","输入框",0))b=Val(InputBox(“请输入0-255之间的整 数：","输入框",0))lblRed.Caption=r:lblGreen.Caption=glblBlue.Caption=bEndSub程序代码第90页,共124页，2024年2月25日，星期天PrivateSubcmdShow_Click()

DimrAsInteger

DimgAsIntegerDimbAsIntegerr=lblRed.Caption

g=lblGreen.Captionb=lblBlue.CaptionpicColor.BackColor=RGB(r,g,b)EndSub程序代码能否删除？第91页,共124页，2024年2月25日，星期天3、通过滚动条输入数据【例2.15】修改例2.13，通过拖动滚动条输入 红、绿、蓝三原色的值。hsb2.5数据输入水平滚动条第92页,共124页，2024年2月25日，星期天对象属性名属性值水平滚动条1~3LargeChange5Max255Min0SmallChange1第93页,共124页，2024年2月25日，星期天程序说明滚动条有水平滚动条和垂直滚动条两种

滚动条常用属性

Min---滚动条最小取值

Max---滚动条最大取值

Value---滑块当前位置所代表的值，即 滚动条当前值vsb第94页,共124页，2024年2月25日，星期天程序说明滚动条有水平滚动条和垂直滚动条两种

滚动条常用属性

SmallChange---单击滚动条左右箭头 时，Value值改变量

LargeChange---单击滚动条白色区域 时，Value值改变量第95页,共124页，2024年2月25日，星期天滚动条改变滚动条Value值的操作

单击或

SmallChange

直接拖动滑块单击滑块与箭头间的位置LargeChange程序说明第96页,共124页，2024年2月25日，星期天程序说明滚动条滚动条主要事件

Change---当滚动条的Value属性值发生 变化时触发

Scroll---用鼠标直接拖动滚动条滑块时 触发

产生Scroll事件时也必然产生Change事件第97页,共124页，2024年2月25日，星期天程序代码PrivateSubcmdShow_Click()

DimrAsInteger

DimgAsIntegerDimbAsInteger

r=hsbRed.Valueg=hsbGreen.Valueb=hsbBlue.ValuepicColor.BackColor=RGB(r,g,b)EndSub如何即时显示颜色变化？第98页,共124页，2024年2月25日，星期天程序运行时综合实例2（课时不够时留作业）

单击“交换”按钮交换两图像框中的小狗图像

停止交换

调整交换速度

返回初始窗体

第99页,共124页，2024年2月25日，星期天程序运行时单击“放大”按钮输入文字并选中部分文字显示放大后的文字

返回初始窗体

综合实例2（课时不够时留作业）

第100页,共124页，2024年2月25日，星期天程序运行时单击“退出”按钮结束程序综合实例2（课时不够时留作业）

第101页,共124页，2024年2月25日，星期天程序说明图片框中显示艺术字在Word中设计艺术字，复制在VB中选中图片框，粘贴为命令按钮设置热键

在Caption属性中指定热键字母，并在该字母前加&即可按下Alt+热键字母，等同于单击按钮第102页,共124页，2024年2月25日，星期天交换图形添加一临时图像框，将其Visible设为False借助计时器Interval属性，实现图形交换在滚动条的Change事件中更改计时器的Interval属性，以调整交换速度程序说明在本窗体中引用其他窗体中的控件采用“窗体名.控件名.属性名”的形式，明确指出控件所在窗体第103页,共124页，2024年2月25日，星期天窗体1的程序代码PrivateSubcmdLarge_Click()frmZh2_3.ShowfrmZh2_1.HideEndSubPrivateSubcmdSwap_Click()frmZh2_2.ShowfrmZh2_1.HideEndSub第104页,共124页，2024年2月25日，星期天窗体1的程序代码PrivateSubcmdEnd_Click()MsgBox"欢迎再次光临！",64, "退出程序"EndEndSub第105页,共124页，2024年2月25日，星期天窗体2的程序代码PrivateSubcmdStart_Click()tmrSwap.Enabled=TrueEndSubPrivateSubcmdStop_Click()tmrSwap.Enabled=FalseEndSub第106页,共12