VS2008--VB编程实例

VS2008——VB编程实例（入门教程） 1. VB(Visual Basic)的发展

微软公司在1991年推出了建立在Window开发平台基础上的开发工具——Visual Basic 1.0。随着Window操作平台的不断完善，微软公司也相继推出了Visual Basic2.0 、Visual Basic3.0和Visaul Basic4.0，这些版本主要用于在Window3.x环境中的16位计算机上开发应用程序。1997年微软公司推出了Visual Basic5.0可以在Window9x或者Window NT环境中32位计算机上开发应用程序。1998年又推出Visual Basic6.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.基本数据类型 数据类型 变长字符型 定长字符型 整数型 长整型 单精度型（双精度型） 字节型 布尔型 日期型 对象型 变体型 4.常用数据类型： 4.1字符型（String）

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim strA As String strA = \ Label1.Text = strA End Sub End Class

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

类型名称 String String Integer Long Single(Double) Byte Boolean Date Object Variant 存储空间 10字节加字符串长度 字符串长度 2字节 4字节 4字节（8字节） 1字节 2字节 8字节 4字节 按需分配

图1、执行结果 4.2数值型

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

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim It As Integer, lt As Long, st As Single, dt As Double, bt As Byte It = 123 lt = 12345678 st = 3.14 dt = 3.1415926 bt = 9

TextBox1.Text = It TextBox2.Text = lt TextBox3.Text = st TextBox4.Text = dt TextBox5.Text = bt End Sub End Class

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

4.3布尔型：又称逻辑类型。变量值只是True/False , Yes/No , On/Off等。

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Label1.Text = \欢迎参加到VB学习队伍中来！\ Label2.Visible = False Button1.Text = \ Button2.Text = \ End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Label1.Enabled = True Label2.Visible = True

Label2.Text = \我很喜欢VB语言编程\ End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Label1.Enabled = False Label2.Visible = True

Label2.Text = \我对它不感兴趣\ End Sub End Class

上面代码是在VS2008－VB类中建立Window窗体应用程序项目，并在窗体中添加2个标签控件（Label1 ,Label2）和2个按钮控件（Button1 , Button2）并添加了2个按钮的单击事件。在窗体触发连接事件中把Label2的可视属性设置为假（False[布尔型]）………

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

图5、按No键结果 4.4日期型

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim mydate As Date mydate = #1/1/2015# Me.Visible = False MsgBox(mydate) Me.Close() End Sub End Class

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

图6、显示日期 5.记录类型：用户自定义类型也称记录类型。

Public Structure My_data Dim name As String Dim xh As String Dim xb As String

Dim score As String End Structure

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim mt As My_data mt.name = \张大山\ mt.xb = \男\ mt.xh = \ mt.score = \优\ Me.Visible = False

MsgBox(\姓名：\ & mt.name & Chr(10) & \性别：\ & mt.xb & Chr(10) & _ \学号：\ & mt.xh & Chr(10) & \成绩：\ & mt.score) Me.Close() End Sub End Class

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

图7、显示记录类型

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

Public Class Form1 Class My_class

Dim lx As Integer Dim ly As Integer Dim rx As Integer Dim ry As Integer

Sub setlx(ByVal val As Integer) lx = val End Sub

Sub setly(ByVal val As Integer) ly = val