Visual Basic 语句

Dim 语句

为一个或多个变量声明和分配存储空间。

Dim number As Integer
Dim quantity As Integer = 100
Dim message As String = "Hello!"

Const 语句

声明和定义一个或多个常量。

Const maximum As Long = 1000
Const naturalLogBase As Object = CDec(2.7182818284)

Enum 语句

声明枚举并定义其成员的值。

Enum CoffeeMugSize
   Jumbo
   ExtraLarge
   Large
   Medium
   Small
End Enum

Class 语句

声明类的名称，并介绍该类所包含的变量、属性、事件和过程的定义。

Class Box
Public length As Double
Public breadth As Double   
Public height As Double
End Class

Structure 语句

声明结构的名称，并介绍结构所包含的变量、属性、事件和过程的定义。

Structure Box
Public length As Double           
Public breadth As Double   
Public height As Double
End Structure

Module 语句

声明模块的名称，并介绍模块所包含的变量、属性、事件和过程的定义。

Public Module myModule
Sub Main()
Dim user As String = 
InputBox(“What is your name?”) 
MsgBox(“User name is” & user)
End Sub 
End Module

Interface 语句

声明接口的名称，并介绍接口包含的成员的定义。

Public Interface MyInterface
   Sub doSomething()
End Interface

Function 语句

声明定义函数过程的名称、参数和代码。

Function myFunction
(ByVal n As Integer) As Double 
   Return 5.87 * n
End Function

Sub 语句

声明定义子过程的名称、参数和代码。

Sub mySub(ByVal s As String)
   Return
End Sub

Declare 语句

声明对外部文件中实现的过程的引用。

Declare Function getUserName
Lib “advapi32.dll” 
Alias “GetUserNameA” 
(
   ByVal lpBuffer As String, 
   ByRef nSize As Integer) As Integer

Operator 语句

声明在类或结构上定义运算符过程的运算符符号、操作数和代码。

Public Shared Operator +
(ByVal x As obj, ByVal y As obj) As obj
   Dim r As New obj
' implemention code for r = x + y
   Return r
End Operator

Property 语句

声明属性的名称，以及用于存储和检索属性值的属性过程。

ReadOnly Property quote() As String 
   Get 
      Return quoteString
   End Get 
End Property

Event 语句

声明用户定义的事件。

Public Event Finished()

Delegate 语句

用于声明委托。

Delegate Function MathOperator( 
   ByVal x As Double, 
   ByVal y As Double 
) As Double