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
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text = TextBox2.Text And Val(TextBox1.Text) > 10 Then Label2.Visible = False Button1.Visible = False GroupBox1.Visible = False Label1.Enabled = True Label1.Visible = True
Label1.Text = \欢迎登录本网站\ End If
If TextBox1.Text <> TextBox2.Text Or Val(TextBox1.Text) = 0 Or Val(TextBox2.Text) = 0 Then
Label1.Enabled = False