1、vsvb编程实例VS2008-VB编程实例 VS2008VB编程实例(入门教程)1. VB(Visual Basic)的发展微软公司在1991年推出了建立在Window开发平台基础上的开发工具。随着Window操作平台的不断完善,微软公司也相继推出了Visual Basic2.0 、和,这些版本主要用于在环境中的16位计算机上开发应用程序。1997年微软公司推出了Visual Basic5.0可以在Window9x或者Window NT环境中32位计算机上开发应用程序。1998年又推出,它的功能更加完善。1.关键字:关键字是指系统使用的具有特定含义的字符。常用的关键字有:Dim、Private
2、 , Sub , Public , End , If , Else , Form , Me , Single , As , Integer , Unload , Do , While , MessageBox , For , Next等。2.标识符:标识符是指编写代码时定义的名称。在VB中所有的常量、变量、模块、函数、类、对象及其属性都有各自的名称,这些名称就是标识符。例如: 工程1:一个工程的标识符。 Form1:一个窗体的标识符。 Class1:一个类模块的标识符。 Module1:一个模块的标识符。数据类型类型名称存储空间变长字符型String10字节加字符串长度定长字符型String字
3、符串长度整数型Integer2字节长整型Long4字节单精度型(双精度型)Single(Double)4字节(8字节)字节型Byte1字节布尔型Boolean2字节日期型Date8字节对象型Object4字节变体型Variant按需分配4.常用数据类型:(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 Label
4、1.Text = strA End SubEnd Class上面代码是在VS2008VB类里建立了Window窗体应用程序,并在窗体上添加一个标签控件(Label1),用关键字Dim 声名一个字符型变量 strA 并赋值“Hello world”,再把它赋给标签(Label1)。 图1、执行结果 数值型可分为5种,Integer , Long , Single , Double , Byte 。Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
5、 Handles MyBase.Load Dim It As Integer, lt As Long, st As Single, dt As Double, bt As Byte It = 123 lt = 12345678 bt = 9 TextBox1.Text = It TextBox2.Text = lt TextBox3.Text = st TextBox4.Text = dt TextBox5.Text = bt End SubEnd Class上面代码是对5种数值型数据声名和赋值并在窗体里显示出来(在窗体里添加5个文本框TextBox控件)。4.3布尔型:又称逻辑类型。变量值只
6、是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.O
7、bject, ByVal e As System.EventArgs) Handlesled = True Label2.Visible = True Label2.Text = 我很喜欢VB语言编程 End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Enabled = False Label2.Visible = True Label2.Text = 我对它不感兴趣 End SubEnd Class上面代码是在VS2008VB
8、类中建立Window窗体应用程序项目,并在窗体中添加2个标签控件(Label1 ,Label2)和2个按钮控件(Button1 , Button2)并添加了2个按钮的单击事件。在窗体触发连接事件中把Label2的可视属性设置为假(False布尔型) 图3、执行结果 图4、按Yes键结果 图5、按No键结果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
9、 = #1/1/2015# Me.Visible = False MsgBox(mydate) Me.Close() End SubEnd Class上面代码是声明日期型变量,并赋值和用信息框显示它。 图6、显示日期5.记录类型:用户自定义类型也称记录类型。Public Structure My_data Dim name As String Dim xh As String Dim xb As String Dim score As StringEnd StructurePublic Class Form1 Private Sub Form1_Load(ByVal sender As Sys
10、tem.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim mt As My_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() End SubEnd Class上面代码显示了记录类型的定义和显示过程。
11、图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 End Sub Sub setrx(ByVal val As Integer) rx = val End Sub Sub set
12、ry(ByVal val As Integer) ry = val End Sub Function getdata() getdata = (rx - lx) * (ry - ly) End Function End Class Private Sub Form1_Load(ByVal sender As System.Object, ByVal e Asrgs) Handles MyBase.Load Dim mt As My_class mt = New My_class mt.setlx(10) mt.setly(10) mt.setrx(150) mt.setry(200) End
13、SubEnd Class在窗体中添加标签控件(Label1)用来显示类(方法)计算结果。 图8、显示类(方法)记录类型Public Class Form1 Enum my_color m_rod = 190 m_green = 90 m_blue = 165 End Enum Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Label1.Text = My_color Label2.Text = m_rod Label3.Text = m
14、_green Label4.Text = m_blue End SubEnd Class 图9、显示枚举类型数据变量相当于一个容器,它对应着计算机内存的存储单元,因此它可以保存数据。7.1.变量命名规则:(1)变量只能由英文、汉字、数字及下划线组成。(2)变量名必须由英文字母或汉字开头,最后一个符号可以是数据类型声明符,如Dim a%。(3)变量名长度可达255个字符,有效字符为40个。(4)VB中的关键字不能作为变量名。(5)不能在变量名中出现标点符号、空格或者嵌入!、#、$、%、&等字符。(6)在变量有效的范围内不能用同名命名变量。(7)变量名不区分大小写。(1)显式声明变量:使用声明语句
15、声明变量。Dim mydata As IntegerPrivate m_p As StringPublic m_color As ByteStatic itLenght As Integer(2)隐式声明变量:不声明直接使用变量。a=153itWidth=35一个变量被声明后,只在声明它的区域内有效。例如在一个过程内声明的变量,只在该过程内有效;一个在模块的通用声明声明的变量,只在该模块内的所有过程中有效;用Public语句声明的变量,不仅对于同一模块内的所有过程有效,甚至对于整个应用程序的所有过程也都有效。8、常量的声明当程序中需要重复使用一个其值始终不发生改变的量时,可用#Const 语句来声明常量。#Const9、运算符 在VB中有4种运
copyright@ 2008-2022 冰豆网网站版权所有
经营许可证编号:鄂ICP备2022015515号-1