VS2008--VB编程实例(2)

End Sub

Sub setrx(ByVal val As Integer) rx = val End Sub

Sub setry(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 As System.EventArgs) Handles MyBase.Load

Dim mt As My_class mt = New My_class mt.setlx(10) mt.setly(10) mt.setrx(150) mt.setry(200)

Label1.Text = mt.getdata End Sub End Class

在窗体中添加标签控件(Label1)用来显示类（方法）计算结果。

图8、显示类（方法）记录类型 6.枚举类型

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 = \

Label2.Text = \ & my_color.m_rod Label3.Text = \ & my_color.m_green Label4.Text = \ & my_color.m_blue End Sub End Class

图9、显示枚举类型数据

7.变量和变量命名

变量相当于一个容器，它对应着计算机内存的存储单元，因此它可以保存数据。 7.1.变量命名规则：

（1）变量只能由英文、汉字、数字及下划线组成。 （2）变量名必须由英文字母或汉字开头，最后一个符号可以是数据类型声明符，如Dim a%。 （3）变量名长度可达255个字符，有效字符为40个。 （4）VB中的关键字不能作为变量名。

（5）不能在变量名中出现标点符号、空格或者嵌入！、@、#、$、%、&等字符。 （6）在变量有效的范围内不能用同名命名变量。 （7）变量名不区分大小写。 7.2.变量声明的方式

（1）显式声明变量：使用声明语句声明变量。

Dim mydata As Integer Private m_p As String

Public m_color As Byte Static itLenght As Integer

（2）隐式声明变量：不声明直接使用变量。

a=153 itWidth=35 7.3.变量的作用域

一个变量被声明后，只在声明它的区域内有效。例如在一个过程内声明的变量，只在该过程内有效；一个在模块的通用声明声明的变量，只在该模块内的所有过程中有效；用Public语句声明的变量，不仅对于同一模块内的所有过程有效，甚至对于整个应用程序的所有过程也都有效。 8、常量的声明

当程序中需要重复使用一个其值始终不发生改变的量时，可用#Const 语句来声明常量。 #Const PI = 3.1415926 9、运算符

在VB中有4种运算符：算术运算符、关系运算符、连接运算符和逻辑运算符。

9.1.算术运算符 运算名称 指数运算 乘法运算 除法运算 求余数运算 整除运算 加法运算 减法运算 Dim a As Integer, b As Integer a = 100 b = a Mod 3 MsgBox(b)

运算符号 ^ * / Mod \\ + -

图10、求余运算

9.2关系运算符：用于比较运算符左、右两边表达式之间的大小关系。其运算结果为布尔型数据（True\\False）。

VB中的关系运算符有：等于（＝）、大于（>）、小于（<）、大于等于（>=）、小于等于（<=）和不等于（<>）

Public Class Form1

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

Dim mt As Integer, mk As Integer Label1.Text = \关系运算\

Label2.Text = \大数红色小数蓝色\ Randomize()

mt = Int(Rnd() * 6 + 1) mk = 4

If mt > mk Then

Label2.ForeColor = Color.Red End If

If mt < mk Then

Label2.ForeColor = Color.Blue End If End Sub End Class

图11、关系运算结果 图12、关系运算结果 上面程序演示了关系运算的过程，不同的时间运行程序结果会不一样。 9.3连接运算符

连接运算符有两个：“+”和“&”。“&”连接符用于强制把两个表达式作为字符串连接。“+”运算符是两个表达式都为同一类型，如果是字符串将两个字符串连接，如果是数字，则结果为两个数字相加的和。

Public Class Form1

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

Dim strA As String, strB As String, intA As Integer strA = \连接\ strB = \运算\ intA = 55

Label1.Text = strA & strB

Label2.Text = strA & intA Label3.Text = 10 + intAa End Sub End Class

图13、连接运算 9.4逻辑运算符

逻辑非（Not）、逻辑与（And）、逻辑或（Or）、逻辑异或（Xor）、逻辑等于（Eqv）和逻辑蕴含（Imp）。

Public Class Form1

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

Label1.Visible = False Label2.Visible = False End Sub …… 此处隐藏：608字，全部文档内容请下载后查看。喜欢就下载吧 ……