' the call to GetObject boxes the integer Tmp(i) = CStr(i) Next Dim s As String = String.Join(", ", tmp, 1, 10000) Dim rand As New Random() Sub CanThrowException(ByVal prob As Double)Įnd If End Sub Dim i As Integer Dim prob As Double = 0.01 For i = 1 To 1000000Įnd Try Next Function DoesntThrowException( _Įnd Sub End Class Dim o As New TestObject() ' a call through the main interface o.TestMethod() ' a call through the secondary interface Dim itest As ITestInterface = _ĭirectCast(o, ITestInterface) itest.TestMethod() Dim i As Integer, sum As Long Dim o As New TestObject() For i = 1 To 1000000 Sb.Append(", ") Next ' Get the result as a string Dim s As String = sb.ToString Dim sb As New (60000) Dim tmp(10000) As String Dim i As Integer For i = 1 To 10000 ![]() S
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |