vsvb编程实例.docx

vsvb编程实例.docx

《vsvb编程实例.docx》由会员分享，可在线阅读，更多相关《vsvb编程实例.docx（17页珍藏版）》请在冰豆网上搜索。

vsvb编程实例

VS2008--VB编程实例

VS2008——VB编程实例（入门教程）

1.VB（VisualBasic）的发展

微软公司在1991年推出了建立在Window开发平台基础上的开发工具——。

随着Window操作平台的不断完善，微软公司也相继推出了VisualBasic2.0、和，这些版本主要用于在环境中的16位计算机上开发应用程序。

1997年微软公司推出了VisualBasic5.0可以在Window9x或者WindowNT环境中32位计算机上开发应用程序。

1998年又推出，它的功能更加完善。

1.关键字：

关键字是指系统使用的具有特定含义的字符。

常用的关键字有：

Dim、Private,Sub,Public,End,If,Else,Form,Me,Single,As,Integer,Unload,Do,While,MessageBox,For,Next等。

2.标识符：

标识符是指编写代码时定义的名称。

在VB中所有的常量、变量、模块、函数、类、对象及其属性都有各自的名称，这些名称就是标识符。

例如：

工程1：

一个工程的标识符。

Form1：

一个窗体的标识符。

Class1：

一个类模块的标识符。

Module1：

一个模块的标识符。

数据类型

类型名称

存储空间

变长字符型

String

10字节加字符串长度

定长字符型

String

字符串长度

整数型

Integer

2字节

长整型

Long

4字节

单精度型（双精度型）

Single（Double）

4字节（8字节）

字节型

Byte

1字节

布尔型

Boolean

2字节

日期型

Date

8字节

对象型

Object

4字节

变体型

Variant

按需分配

4.常用数据类型：

（String）

PublicClassForm1

PrivateSubForm1_Load（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesMyBase.Load

DimstrAAsString

strA="Helloworld"

Label1.Text=strA

EndSub

EndClass

上面代码是在VS2008－VB类里建立了Window窗体应用程序，并在窗体上添加一个标签控件（Label1）,用关键字Dim声名一个字符型变量strA并赋值“Helloworld”，再把它赋给标签（Label1）。

图1、执行结果

数值型可分为5种，Integer,Long,Single,Double,Byte。

PublicClassForm1

PrivateSubForm1_Load（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesMyBase.Load

DimItAsInteger,ltAsLong,stAsSingle,dtAsDouble,btAsByte

It=123

lt=12345678

bt=9

TextBox1.Text=It

TextBox2.Text=lt

TextBox3.Text=st

TextBox4.Text=dt

TextBox5.Text=bt

EndSub

EndClass

上面代码是对5种数值型数据声名和赋值并在窗体里显示出来（在窗体里添加5个文本框[TextBox]控件）。

4.3布尔型：

又称逻辑类型。

变量值只是True/False,Yes/No,On/Off等。

PublicClassForm1

PrivateSubForm1_Load（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesMyBase.Load

Label1.Text="欢迎参加到VB学习队伍中来！

"

Label2.Visible=False

Button1.Text="Yes"

Button2.Text="No"

EndSub

PrivateSubButton1_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）Handles

led=True

Label2.Visible=True

Label2.Text="我很喜欢VB语言编程"

EndSub

PrivateSubButton2_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）Handles

Label1.Enabled=False

Label2.Visible=True

Label2.Text="我对它不感兴趣"

EndSub

EndClass

上面代码是在VS2008－VB类中建立Window窗体应用程序项目，并在窗体中添加2个标签控件（Label1,Label2）和2个按钮控件（Button1,Button2）并添加了2个按钮的单击事件。

在窗体触发连接事件中把Label2的可视属性设置为假（False[布尔型]）………

图3、执行结果图4、按Yes键结果

图5、按No键结果

PublicClassForm1

PrivateSubForm1_Load（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesMyBase.Load

DimmydateAsDate

mydate=#1/1/2015#

Me.Visible=False

MsgBox（mydate）

Me.Close（）

EndSub

EndClass

上面代码是声明日期型变量，并赋值和用信息框显示它。

图6、显示日期

5.记录类型：

用户自定义类型也称记录类型。

PublicStructureMy_data

DimnameAsString

DimxhAsString

DimxbAsString

DimscoreAsString

EndStructure

PublicClassForm1

PrivateSubForm1_Load（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesMyBase.Load

DimmtAsMy_data

mt.name="张大山"

mt.xb="男"

mt.xh="201403001"

mt.score="优"

Me.Visible=False

MsgBox（"姓名：

"&mt.name&Chr（10）&"性别：

"&mt.xb&Chr（10）&_

"学号：

"&mt.xh&Chr（10）&"成绩：

"&mt.score）

Me.Close（）

EndSub

EndClass

上面代码显示了记录类型的定义和显示过程。

图7、显示记录类型

上面用的是结构体记录类型，下面的代码用类（方法）实现记录类型。

PublicClassForm1

ClassMy_class

DimlxAsInteger

DimlyAsInteger

DimrxAsInteger

DimryAsInteger

Subsetlx（ByValvalAsInteger）

lx=val

EndSub

Subsetly（ByValvalAsInteger）

ly=val

EndSub

Subsetrx（ByValvalAsInteger）

rx=val

EndSub

Subsetry（ByValvalAsInteger）

ry=val

EndSub

Functiongetdata（）

getdata=（rx-lx）*（ry-ly）

EndFunction

EndClass

PrivateSubForm1_Load（ByValsenderAsSystem.Object,ByValeAsrgs）HandlesMyBase.Load

DimmtAsMy_class

mt=NewMy_class

mt.setlx（10）

mt.setly（10）

mt.setrx（150）

mt.setry（200）

EndSub

EndClass

在窗体中添加标签控件（Label1）用来显示类（方法）计算结果。

图8、显示类（方法）记录类型

PublicClassForm1

Enummy_color

m_rod=190

m_green=90

m_blue=165

EndEnum

PrivateSubForm1_Load（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesMyBase.Load

Label1.Text="My_color"

Label2.Text="m_rod"

Label3.Text="m_green"

Label4.Text="m_blue"

EndSub

EndClass

图9、显示枚举类型数据

变量相当于一个容器，它对应着计算机内存的存储单元，因此它可以保存数据。

7.1.变量命名规则：

（1）变量只能由英文、汉字、数字及下划线组成。

（2）变量名必须由英文字母或汉字开头，最后一个符号可以是数据类型声明符，如Dima%。

（3）变量名长度可达255个字符，有效字符为40个。

（4）VB中的关键字不能作为变量名。

（5）不能在变量名中出现标点符号、空格或者嵌入！

、@、#、$、%、&等字符。

（6）在变量有效的范围内不能用同名命名变量。

（7）变量名不区分大小写。

（1）显式声明变量：

使用声明语句声明变量。

DimmydataAsInteger

Privatem_pAsString

Publicm_colorAsByte

StaticitLenghtAsInteger

（2）隐式声明变量：

不声明直接使用变量。

a=153

itWidth=35

一个变量被声明后，只在声明它的区域内有效。

例如在一个过程内声明的变量，只在该过程内有效；一个在模块的通用声明声明的变量，只在该模块内的所有过程中有效；用Public语句声明的变量，不仅对于同一模块内的所有过程有效，甚至对于整个应用程序的所有过程也都有效。

8、常量的声明

当程序中需要重复使用一个其值始终不发生改变的量时，可用#Const语句来声明常量。

#Const

9、运算符

在VB中有4种运