typemembersg.vb

来自「大名鼎鼎的mono是.NET平台的跨平台(支持linux」· VB 代码 · 共 33 行

VB
33
字号
'Author:'   V. Sudharsan (vsudharsan@novell.com)'' (C) 2005 Novell, Inc.Option Strict OffClass C    Function fun(ByRef a As Long, ByRef a1 As Integer)        a = a + 10        a1 = a1 + 20    End Function    Function fun(ByRef a As Integer, ByRef a1 As Long)        a = a + 20        a1 = a1 + 10    End FunctionEnd ClassModule M    Function Main() As Integer        Dim a As Integer = 10        Dim a1 As Long = 10        Dim o As Object = New C()        o.fun(a, a1)        If a <> 30 Then            System.Console.WriteLine("#A1 - Latebinding not working. a = " & a) : Return 1        End If        If a1 <> 20 Then            System.Console.WriteLine("#A1 - Latebinding not working. a1 = " & a) : Return 1        End If    End FunctionEnd Module

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?