变量定义

'int
Dim 变量名 As Int32 = 0
'string
Dim 变量名 As String = ""
'bool
Dim 变量名 As Boolean = False
'枚举
Dim 变量名 As 枚举名
'数组
Dim array(256) As String
'自定义指针类
Dim 变量名 As 类名 = Nothing

函数定义

Function 函数名(ByRef 参数名 As 参数类型,同前逗号分隔可添加多个变量) As Int32 '好像是返回值'dosomething    
End Function

控制台输入输出

Console.WriteLine("输入内容")
Console.Write("输入内容")
Console.WriteLine("Write Path:")
Dim path As String = ""
path = Console.ReadLine()
Console.WriteLine("Path is {0}:",path)
Dim key As Char = Console.ReadKey().KeyChar
Dim Idx As UInt32 = (Convert.ToUInt32(key) - Convert.ToUInt32(Chr(&H30)))

switch case语句

 Select Case IdxCase 1Console.WriteLine("1")Case 2Console.WriteLine("2")Case 3Console.WriteLine("3")Case ElseConsole.WriteLine("Case Else")End Select

IF语句

Dim rtn As Int32 = 0
If rtn = 0 ThenConsole.WriteLine("rtn = 0 ")
ElseConsole.WriteLine("rtn != 0")
End If

FOR循环语句

Dim i As Int32 = 0
For i = 0 To 10Console.WriteLine("i:{0}", i)i=i+1
Next

不等于

' 不等于 <> 等于=
If a <> b Then
'dosomething
End If

逻辑运算符

' 按优先级 非（Not）>与（And）>或（Or）>异或（Xor）