资源描述：
《VS2008--VB编程实例》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。
1、VS2008——VB编程实例（入门教程）1.VB(VisualBasic)的发展微软公司在1991年推出了建立在Window开发平台基础上的开发工具——VisualBasic1.0。随着Window操作平台的不断完善，微软公司也相继推出了VisualBasic2.0、VisualBasic3.0和VisaulBasic4.0，这些版本主要用于在Window3.x环境中的16位计算机上开发应用程序。1997年微软公司推出了VisualBasic5.0可以在Window9x或者WindowNT环境中32位计算机上开发应用程序。1998年
2、又推出VisualBasic6.0，它的功能更加完善。2.VB语言的基础1.关键字：关键字是指系统使用的具有特定含义的字符。常用的关键字有：Dim、Private,Sub,Public,End,If,Else,Form,Me,Single,As,Integer,Unload,Do,While,MessageBox,For,Next等。2.标识符：标识符是指编写代码时定义的名称。在VB中所有的常量、变量、模块、函数、类、对象及其属性都有各自的名称，这些名称就是标识符。例如：工程1：一个工程的标识符。Form1：一个窗体的标识符。Cla
3、ss1：一个类模块的标识符。Module1：一个模块的标识符。3.基本数据类型数据类型类型名称存储空间变长字符型String10字节加字符串长度定长字符型String字符串长度整数型Integer2字节长整型Long4字节单精度型（双精度型）Single(Double)4字节（8字节）字节型Byte1字节布尔型Boolean2字节日期型Date8字节对象型Object4字节变体型Variant按需分配4.常用数据类型：4.1字符型（String）PublicClassForm1PrivateSubForm1_Load(ByValse
4、nderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.LoadDimstrAAsStringstrA="Helloworld"Label1.Text=strAEndSubEndClass上面代码是在VS2008－VB类里建立了Window窗体应用程序，并在窗体上添加一个标签控件（Label1）,用关键字Dim声名一个字符型变量strA并赋值“Helloworld”，再把它赋给标签(Label1)。图1、执行结果4.2数值型数值型可分为5种，Integer,Long,Si
5、ngle,Double,Byte。PublicClassForm1PrivateSubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.LoadDimItAsInteger,ltAsLong,stAsSingle,dtAsDouble,btAsByteIt=123lt=12345678st=3.14dt=3.1415926bt=9TextBox1.Text=ItTextBox2.Text=ltTextBox3.Text=stTex
6、tBox4.Text=dtTextBox5.Text=btEndSubEndClass上面代码是对5种数值型数据声名和赋值并在窗体里显示出来（在窗体里添加5个文本框[TextBox]控件）。4.3布尔型：又称逻辑类型。变量值只是True/False,Yes/No,On/Off等。PublicClassForm1PrivateSubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.LoadLabel1.Text="欢迎参加到VB学习
7、队伍中来！"Label2.Visible=FalseButton1.Text="Yes"Button2.Text="No"EndSubPrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickLabel1.Enabled=TrueLabel2.Visible=TrueLabel2.Text="我很喜欢VB语言编程"EndSubPrivateSubButton2_Click(ByValsenderAsS
8、ystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickLabel1.Enabled=FalseLabel2.Visible=TrueLabel2.Text="我对它不感兴趣
