Question

VB程序设计中的变量是如何定义的，请大家帮帮忙告诉我

Answer 1

那要看你是要定义什么变量了！
如果是全局变量可以用模板定义也　可以直接在窗体中定义。
如：dim Type SA
s As String
a As Long
b As integer
c As sing
如果是全局变量：通过在窗体frm_form1中定义public aaa as integer
在原窗体中可以直接使用，在这里就不说了！
在其他的窗体中可以用：窗体名.aaa 来使用！
如：
在用到的变量的窗体中frm_form2,用bbb=frm1_form.aaa来传递

Answer 2

String($)：字符串型
Integer(%):整型 Long:长整型（&） Single：单精度型（！） Double:双精度型（#）
Currency:货币型（@）
Variant:变体型
Boolean:布尔型
Date:日期型

dim 变量名 as 类型 如：dim x as string /dim x$
static 变量名 as 类型 静态变量
const 常量名 ＝表达式
还有很多private 、public 、global 、redim ...去网上找吧

Answer 3

很多的..常用的

dim a as string '定义字符型
dim i as integer '定义整型
dim x as boolean '定义布尔型,也就是 YES/NO 0/1
...很多...

Answer 4

Numeric 数据类型
Visual Basic 支持几种 Numeric 数据类型— Integer（整型）、Long（长整型）、Single（单精度浮点型）、Double（双精度浮点型）和 Currency（货币型）。与 Variant 类型相比，Numeric 类型占用的存储空间通常要少。
如果知道变量总是存放整数（如 12 ）而不是带小数点的数字（如 3.57），就应当将它声明为 Integer 类型或 Long 类型。整数的运算速度较快，而且比其它数据类型占据的内存要少。在 For...Next 循环内作为计数器变量使用时，整数类型尤为有用。

Byte 数据类型
如果变量包含二进制数，则将它声明为 Byte 数据类型的数组。（本章后面的“数组”中将讨论数组）。在转换格式期间用 Byte 变量存储二进制数据就可保留数据。当 String 变量在 ANSI 和 Unicode 格式间进行转换时，变量中的任何二进制数据都会遭到破坏。

String 数据类型
如果变量总是包含字符串而从不包含数值，就可将其声明为 String 类型。

Private S As String

然后可将字符串赋予这个变量，并用字符串函数对它进行操作。

S = "Database"
S = Left (S,4)

按照缺省规定，String 变量或参数是一个可变长度的字符串，随着对字符串赋予新数据，它的长度可增可减。 也可以声明字符串具有固定长度。可用以下语法声明一个定长字符串：

String * size

例如，为了声明一个长度为 50 字符的字符串，可用下列语句：

Dim EmpName As String * 50

Boolean 数据类型
若变量的值只是“true/false”、“yes/no”、“on/off”信息，则可将它声明为 Boolean 类型。Boolean 的缺省值为 False。在下面的例子中，blnRunning 是 Boolean 变量，存储简单的 yes/no 设置。

Dim blnRunning As Boolean
'查看磁带是否在转。
If Recorder.Direction = 1 Then
blnRunning = True
End if

Date 数据类型
Date 和 Time 值既可包含在特定的 Date 数据类型中，又可包含在 Variant 变量中。一般的 Date 特性适用于这两种类型。

Object 数据类型
Object 变量作为 32 位（4 个字节）地址来存储，该地址可引用应用程序中或某些其它应用程序中的对象。可以随后（用 Set 语句）指定一个被声明为 Object 的变量去引用应用程序所识别的任何实际对象。

Dim objDb As Object
Set objDb = OpenDatabase ("c:\Vb5\Biblio.mdb")

Variant 数据类型
Variant 变量能够存储所有系统定义类型的数据。如果把它们赋予 Variant 变量，则不必在这些数据的类型间进行转换； Visual Basic 会自动完成任何必要的转换。例如：

Dim SomeValue '缺省为 Variant。
SomeValue = "17" 'SomeValue包含 "17"（双字符的串）。
SomeValue = SomeValue - 15 '现在， SomeValue 包含数值 2。
SomeValue = "U" & SomeValue '现在， SomeValue 包含 "U2" （双字符的串）。

交换字符串和数字
如果字符串表示数值，则可将字符串赋予数值变量。也可将数值赋予字符串变量。例如，将命令按钮、文本框和列表框放置在窗体中。在命令按钮的 Click 事件中输入下列代码。运行应用程序并单击命令按钮。

Private Sub Command1_Click ()
Dim intX As Integer
Dim strY As String
strY = "100.23"
intX = strY '将字符串传递给数值变量。
List1.AddItem Cos (strY) '将字符串中数值的余弦值。
'添加到列表框中。
strY = Cos (strY) '将余弦值传递给字符串变量。
Text1.Text = strY '在文本框中显示字符串。
End Sub

Visual Basic 会自动强制变量为适当的数据类型。在转换字符串和数值时要小心；如果传送字符串中的值不是数值，则在运行时会出错。

转换数据类型
Visual Basic 提供了几种转换函数，可用来将值转换成特定数据类型。例如，用 CCur 函数将值转换成 Currency 类型：

PayPerWeek = CCur (hours * hourlyPay)

转换函数 将表达式转换成
Cbool Boolean
Cbyte Byte
Ccur Currency
Cdate Date
CDbl Double
Cint Integer
CLng Long
CSng Single
CStr String
Cvar Variant
CVErr Error