VB程序设计培训

VisualBasic程序设计余杭高级中学姚国忠VB程序设计概述1.VB的发展20世纪60年代中期，Basic（BeginnersAll-PurposeSymbolInstructionCode初学者通用指令代码）语言问世1991年，微软推出VisualBasic1.01999年，微软推出VisualBasic6.02002年，微软推出VisualStudio.NET（VB.Net）2.VB特点

简单、易学，可视化编程，基于事件驱动的编程方式（事件，即用户的动作控制程序的流向）、快速开发（特别是非常界面设计方便）VB程序概述3.面向对象程序设计对象：数据（若干属性）和代码（若干事件与方法过程）的集合属性：用来描述和反映对象特征的参数方法：是对象具有的特定的行为或功能，实质上是用来完成特定操作的过程和函数事件：发生在对象上的事情，对象能识别的动作类：同一种对象的统称，是一个抽象的整体概念，对象是类的实例VB程序概述4.创建VB应用程序的一般步骤建立工程——界面设计——代码编写——运行调试——保存编译5.VB应用程序包含的文件工程文件(*.vbp)窗体文件(*.frm)窗体二进制文件(*.frx)标准模块文件(*.bas)自定义类文件(*.cls)VB程序概述4.创建VB应用程序的一般步骤建立工程——界面设计——代码编写——运行调试——保存编译5.VB程序常用调试方法断点调试、单步调试（F8）、立即窗口调试VB程序概述6.VB应用程序包含的文件工程文件(*.vbp)窗体文件(*.frm)窗体二进制文件(*.frx)标准模块文件(*.bas)自定义类文件(*.cls)VB程序设计基础语法1.VB数据类型VB程序设计基础语法2.变量、符号常量定义变量定义：Dim变量名As数据类型Dim变量名Dim变量名1As数据类型,变量名2As数据类型OptionExplicit（要求变量定义）符号常量定义Const常量名=常量值VB程序设计基础语法一维数组变量定义：Dim变量名(下界To上界)

As数据类型Dim变量名(常数)As数据类型例如：Dimx(3)AsInteger（有4个数组元素，默认下标从0开始，可以使用OptionBase语句改变数组下标的起始值，比如：OptionBase1）VB程序设计基础语法动态数组；Dima()AsIntegerRedimx(n)或者RedimPreservex(n)多维数组:Dim变量名(下界To上界,下界To上界,…)

As数据类型Dim变量名(常数1,常数2,…)As数据类型VB程序设计基础语法3.VB运算符VB程序设计基础语法4.VB常用系统函数VB程序设计基础语法VB程序设计基础语法VB程序设计基础语法输入输出对话框函数：InputBox、MsgBoxPrint语句例如：Print1+1Print"1+1=";1+1,"2+2=",4Print

Print"Hello"VB程序设计基础语法5、三种基本控制结构顺序结构、选择结构、循环结构赋值语句：变量名=表达式VB程序设计基础语法块IF语句：If条件表达式1

Then

语句块1Elseif条件表达式2

Then

语句块2Elseif条件表达式3

Then

语句块3…Else语句块EndIf

实现选择结构的语句行IF语句：If条件表达式1

Then语句1Elseif条件表达式2

Then语句2VB程序设计基础语法SelectCase语句：SelectCase测试表达式Case表达式列表1

语句块1Case表达式列表2

语句块2….CaseElse语句块n+1EndSelect

VB程序设计基础语法For语句：For循环变量=初值To终值Step步长

语句块Next循环变量Do语句：Dowhile表达式

语句块Loop实现循环结构的语句：VB程序设计基础语法上机练习1：在窗体上打印九九乘法表VB程序设计基础语法上机练习2：将十进制数转换成十六进制数（不使用Hex函数）上机练习2：在窗体上打印杨辉三角（N层）VB程序设计基础语法6、函数和过程自定义函数的声明：[Public|Private]Function函数名(参数列表)As数据类型

函数体EndFunctionVB程序设计基础语法自定义函数的过程：[Public|Private]Sub过程名(参数列表)

函数体EndSub函数和过程的参数传递：按值传递（ByVal）按地址传递（ByRef）‘按值传递PrivateSubf1(ByValxAsInteger)x=x+1EndSub‘按地址传递PrivateSubf2(ByRefxAsInteger)x=x+1EndSubPrivateSubCommand1_Click()DimaAsIntegera=10f1aMsgBoxaEndSubPrivateSubCommand2_Click()DimaAsIntegera=10f2aMsgBoxaEndSubVB程序设计基础语法7、标准模块从工程菜单中添加标准模块文件(*.bas)8、变量、函数、过程的作用域局部变量、模块变量、全局变量（Public、Global）VB程序设计基础语法9、异常处理OnErrorResumeNextOnErrorGoto标号上机练习3：编写一个随机生成双色球号码的程序VB常用控件使用2.常用控件

命令按钮、标签、文本框、复选框、单选框列表框、组合框、定时器、图片框、图像框1.窗体3.菜单、弹出式菜单使用4.添加第三方控件VB常用控件使用5.VB基础绘图画点：容器对象名.Pset(x,y),Color画线：容器对象名.Line(x1,y1)-(x2,y2),Color画矩形：容器对象名.Line(x1,y1)-(x2,y2),Color,B画圆：容器对象名.Circle(x,y),radius,colorVB常用控件使用上机练习1：编写彩票号码生成器程序（使用基础控件改进前一个程序）上机练习2：编写一个简易画图板程序文件基础操作1.文本文件的读写打开文本文件Open文件名For[Input/Outpt/Append]As#FileNumber例如：n=FreeFileOpen“c:\1.txt”ForInputAsn‘以只读方式打开Open“c:\1.txt”ForOutputAsn‘以写文件方式打开Open“c:\1.txt”ForAppendAsn‘以追加方式打开关闭文件：Close文件号文件基础操作读取文本文件LineInput#FileNum,字符串变量名‘一次读入一行文本例如：DimnAsInteger,sAsStringn=FreeFileOpen"c:\data.txt"ForInputAsnDoWhileNotEOF(n)LineInput#n,sText1.Text=Text1.Text&s&vbCrLfLoopClosen文件基础操作写文本文件Print#FileNum,表达式列表（与Print语句输出到窗体效果一样）例：n=FreeFileOpen“c:\data.txt”ForOutputAsn‘改为Append，为追加方式写入Print#n,Text1.text;Closen文件基础操作写文本文件：Print#FileNum,表达式列表（与Print语句输出到窗体效果一样）例：n=FreeFileOpen“c:\data.txt”ForOutputAs#n‘改为Append，为追加方式写入Print#n,Text1.text;Closen文件基础操作2.文件打开、保存对话框使用（CommandDialog）调用打开文件对话框CommandDialog1.ShowOpensFile=CommandDialog1.Filename调用保存文件对话框CommandDialog1.Show