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：一个模块的标识符。

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 = "Hello world"

Label1.Text = strA

End Sub

End Class

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

图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 = "Yes"

Button2.Text = "No"

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键结果