VB.Net - 声明 - VB.NET教程-OStack程序员社区-中国程序员成长平台

OStack程序员社区-中国程序员成长平台 › 门户 › 编程› VB.NET›VB.NET教程

VB.Net - 声明

原作者: [db:作者] 来自: [db:来源] 收藏邀请

statement 声明是Visual Basic程序中的完整指令。它可以包含关键字，运算符，变量，字面值，常量和表达式。

语句可以分类为：

1、Declaration statements 声明语句 - 这些语句是您命名变量，常量或过程的语句，也可以指定数据类型。

2、Executable statements 可执行语句 - 这些是启动动作的语句。这些语句可以调用方法或函数，通过代码块循环或分支，或者将值或表达式赋值给变量或常量。在最后一种情况下，它被称为Assignment语句。

声明语句

声明语句用于命名和定义过程、变量、属性、数组和常量。当你声明的编程元素时，您还可以定义其数据类型、访问级别和范围。

您可以声明的编程元素包括变量、常数、枚举、类、结构、模块、接口、程序、过程参数、函数返回值、外部过程的引用、运算符、属性、事件和委托。

以下是在 VB.Net 中的声明语句︰


Dim number As Integer
Dim quantity As Integer = 100
Dim message As String = "Hello!"
Const maximum As Long = 1000
Const naturalLogBase As Object 
= CDec(2.7182818284)
Enum CoffeeMugSize
    Jumbo
    ExtraLarge
    Large
    Medium
    Small
End Enum 
Class Box
Public length As Double
Public breadth As Double   
Public height As Double
End Class
Structure Box
Public length As Double           
Public breadth As Double   
Public height As Double
End Structure
Public Module myModule
Sub Main()
Dim user As String = 
InputBox("What is your name?") 
MsgBox("User name is" & user)
End Sub 
End Module
Public Interface MyInterface
    Sub doSomething()
End Interface 
Function myFunction
(ByVal n As Integer) As Double 
    Return 5.87 * n
End Function
Sub mySub(ByVal s As String)
    Return
End Sub 
Declare Function getUserName
Lib "advapi32.dll" 
Alias "GetUserNameA" 
(
  ByVal lpBuffer As String, 
  ByRef nSize As Integer) As Integer 
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 
ReadOnly Property quote() As String 
    Get 
        Return quoteString
    End Get 
End Property
Public Event Finished()
Delegate Function MathOperator( 
    ByVal x As Double, 
    ByVal y As Double 
) As Double 

可执行语句

可执行语句执行操作。调用过程，分支到代码中的另一个地方，循环使用几个语句或评估表达式的语句是可执行语句。赋值语句是可执行语句的一种特殊情况。

示例

以下示例演示了一个决策语句：

Module decisions
   Sub Main()
      'local variable definition '
      Dim a As Integer = 10

      ' check the boolean condition using if statement '
      If (a < 20) Then
         ' if condition is true then print the following '
         Console.WriteLine("a is less than 20")
      End If
      Console.WriteLine("value of a is : {0}", a)
      Console.ReadLine()
   End Sub
End Module

当上述代码被编译和执行时，它产生了以下结果：