日期:2014-05-20 浏览次数:20962 次
Public Sub Test(ByVal name as String,
ByVal Age as String)
MessageBox.Show("Name is " & name &
"and age is " & age)
End Sub
Function关键字实例
Dim nums() As Integer = {1, 2, 3, 4, 5}
nums = Array.FindAll(nums, Function(n)
Console.WriteLine("testing " & n)
Return n > 2
End Function)
Sub关键字实例
Array.ForEach(nums, Sub(n)
Console.Write("Number: ")
Console.WriteLine(n)
End Sub)
Private _FirstName As String
Property FirstName() As String
Get
Return _FirstName
End Get
Set(ByVal value As String)
_FirstName = value
End Set
End Property
Property FirstName() As String
Property FirstName() As String = "George" '中文译音为:饺子
'List
Dim list As New List(Of String) From {"abc", "def", "ghi"}
'Dictionary
Dim dict As New Dictionary(Of Integer, String) From {{1, "abc"},{2, "def"}}
'当然,你也可以不用声明类型,编译器会根据集合的类型来识别
Dim a = {1, 2, 3} '编译器会推断为 Integer()
Dim b = {1, 2, 3.5} '编译器会推断为 Double()
Dim c = {"1", "2", "3"} '编译器会推断为 String()
Dim d = {1, "123"} '编译器会推断为 Object() 如果设置了Option Strict On,会有警告
Dim e = {{1, 2, 3}, {4, 5, 6}} '编译器会推断为 Integer(,)
Dim f = {({1, 2, 3}), ({4, 5, 6})} '编译器会推断为 Integer()()