《vb程序设计初步》PPT课件.ppt
2023/11/6,1,第1章visual basic概述,学习目标掌握VB应用程序开发的一般步骤掌握命令按钮、文本框和标签的使用和Msgbox函数的用法理解赋值语句、变量的概念、理解对象、属性、方法和事件的概念及其之间的区别和联系，理解面向对象的原理,2023/11/6,2,VB程序开发的一般方法VB程序打包开发的一般方法Time时间控件的用法Msgbox语句的用法变量和赋值语句的使用方法,2023/11/6,3,实例：倒计时器 请输入倒计时的分针数,text1,开始,Interval(时间间隔）1000（1秒钟运行一次）Enabled(flase),2023/11/6,4,Dim m as longPrivate sub command-click()Time1.Enabled=Turem=Val(text1.text)*60lable1.caption=“现在开始”Command1.visible=FalseEnd sub,2023/11/6,5,Private sub timer1-timer()m=m-1If m0 thenTimer1.enabled=flaseMsgbox“时间到！”，0，“倒计时”Label1.caption=“请输入倒计时的分钟数”Text1.text=“”Command1.visible=trueElseText1.text=mEnd ifEnd sub,2023/11/6,6,程序设计的8个步骤：设计应用程序界面、在界面上放置所需的控件、设置控件的属性、编写代码、保存运行工程、将工程编译成可执行文件、打包制作安装程序、在其它机器上安装运行,2023/11/6,7,变量：其值可变的量当执行了dim语句后，vb程序就会在计算机内存中预留一个区域，准备存放数据例：dim m as long,变量名,数据类型,赋值语句：m=val(text1.text)*60,2023/11/6,8,msgbox语句命令格式：msgbox提示信息，对话框类型，对话框标题函数格式变量=msgbox(提示信息，对话框类型，对话框标题）,2023/11/6,9,Time时钟控件主要用途：常用于进行后台程序的中断处理主要属性：以毫秒（ms）为单位Enabled属性 Interval=0或设置 Enabled=false都可关闭计时器主要事件（唯一）：Timer事件,2023/11/6,10,小结初步知识变量赋值MsgboxTime时钟控件,2023/11/6,11,小结程序开发过程1、添加窗体控件，完成窗体控件的设置属性2、在窗体上放置标签、文本框、命令按钮等控件，并设置它们的属性3、对窗体等控件的事件进行编程4、运行、排错、保存、编译5、制作安装包,2023/11/6,12,msgbox,请输入信息提示语句,你好吗？,Msgbox演示,2023/11/6,13,Msgbox,Private sub command-click()Msgbox text1.text,vbokonly(或vbokonly+vbinformation),“信息提示”（标题名）,2023/11/6,14,Msgbox,Private sub command-click()If msgbox(“你真的要删除数据吗？”,vbyesno+vbcritical,“信息提示”)=vbyes then Text1.text=“你选择的是yes”ElseText1.text=“你选择的是no”End if End sub,2023/11/6,15,常用控件,窗体文本框命令按钮标签,2023/11/6,16,常用控件,窗体的属性：标题（Caption）、名称（Name）窗体的事件：单击（click）事件 双击（Dblclick）事件 鼠标移动（Mouse Move）事件窗体的方法：移动（Move）,2023/11/6,17,常用控件,窗体的基本属性：标题属性（Caption）、名称属性（Name）、MaxButton和MinButton属性、BorderStyle边框样式属性、Picture属性、Icon属性、Visible属性、Windows State属性窗体的常用方法：show方法、Hide方法、Print方法、Cls方法、Move方法窗体的常用事件：click事件、Dbclick事件、Load事件、Unload事件、Activate和DeActivate事件,2023/11/6,18,常用控件,命令按钮常用属性：Name Caption、Enabled（可用不可用）常用方法：SetFocus（获得焦点）常用事件：Click（单击）在按钮上单击鼠标焦点在按钮上，按空格和回车键在代码中将按钮Value属性设为True在Caption属性中用&符号链接一访问键，在运行时按Alt+访问键,2023/11/6,19,常用控件,标签常用属性AutiSize属性、Alignment属性、BorderStyle属性、BackStyle属性、WordUrap属性,2023/11/6,20,常用控件,文本框常用属性：Text属性、Multiline属性（多行显示）、Password Char属性（输入符号，显示为*）、ScrollBars属性（滚动条）常用方法：SetFocuse常用事件：Chage事件（输入内容，值就会发生变化）、KeyPress事件（按下键盘）、LoseFocus和GotFocus事件（获得、失去焦点）,2023/11/6,21,时间换算程序请输入小时数、分钟数、秒数,text4,计算,2023/11/6,22,Private sub command-click()Dim m as long M=Val(text1.text)*3600+Val(text2.text)*60+Val(text3.text)Text4.text=mEnd sub,2023/11/6,23,除法计算器编写求两个数相除的程序，若除数为0，用消息对话框提示用户重新输入。被除数 除数 相除结果,2023/11/6,24,Private sub command-click()If Val(text2.text)=0 thenMsgbox“除数不能为0，Vbokonly”,“信息提示”ElseText3.text=Val(text1.text)/Val(text2.text)End if End sub,2023/11/6,25,角度转换程序要求在文本框中输入角的弧度值，按“转换为角度”按钮，文本框中角的弧度值转换为角度值。请输入一个弧度 转换为角度,text1,text2,返回,2023/11/6,26,Private sub command-click()Pi=3.1415926 text2.text=360*Val(text1.text/2*Pi)End sub Private sub commad-click()end 或unload Me End sub,
