VS2008--VB编程实例.doc
上传人:qw****27 上传时间:2024-09-12 格式:DOC 页数:19 大小:1.3MB 金币:15 举报 版权申诉
预览加载中,请您耐心等待几秒...

VS2008--VB编程实例.doc

VS2008--VB编程实例.doc

预览

免费试读已结束,剩余 9 页请下载文档后查看

15 金币

下载此文档

如果您无法下载资料,请参考说明:

1、部分资料下载需要金币,请确保您的账户上有足够的金币

2、已购买过的文档,再次下载不重复扣费

3、资料包下载后请先用软件解压,在使用对应软件打开

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年又推出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:一个窗体的标识符。Class1:一个类模块的标识符。Module1:一个模块的标识符。3.基本数据类型数据类型类型名称存储空间变长字符型String10字节加字符串长度定长字符型String字符串长度整数型Integer2字节长整型Long4字节单精度型(双精度型)Single(Double)4字节(8字节)字节型Byte1字节布尔型Boolean2字节日期型Date8字节对象型Object4字节变体型Variant按需分配4.常用数据类型:4.1字符型(String)PublicClassForm1PrivateSubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.LoadDimstrAAsStringstrA="Helloworld"Label1.Text=strAEndSubEndClass上面代码是在VS2008-VB类里建立了Window窗体应用程序,并在窗体上添加一个标签控件(Label1),用关键字Dim声名一个字符型变量strA并赋值“Helloworld”,再把它赋给标签(Label1)。图1、执行结果4.2数值型数值型可分为5种,Integer,Long,Single,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=stTextBox4.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学习队伍中来!"Label2.Visible=FalseButton1.Text="Yes"Button2.Text="No"EndSubPrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickLabel1.Enabled=TrueLabel2.Visible=TrueLabel2.Text="我很喜欢VB语言编程"EndSubPrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem