diff options
Diffstat (limited to 'vb/demo/Ice/value/DerivedPrinterI.vb')
| -rwxr-xr-x | vb/demo/Ice/value/DerivedPrinterI.vb | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/vb/demo/Ice/value/DerivedPrinterI.vb b/vb/demo/Ice/value/DerivedPrinterI.vb index 091c7fcd170..1d7770fb4f1 100755 --- a/vb/demo/Ice/value/DerivedPrinterI.vb +++ b/vb/demo/Ice/value/DerivedPrinterI.vb @@ -13,17 +13,17 @@ Public Class DerivedPrinterI Inherits DerivedPrinter Public Overloads Overrides Sub printBackwards(ByVal current As Ice.Current) - Dim arr() As Char = message.ToCharArray() - For i As Integer = 0 To arr.Length / 2 - 1 - Dim tmp As Char = arr(arr.Length - i - 1) - arr(arr.Length - i - 1) = arr(i) - arr(i) = tmp - Next - System.Console.Out.WriteLine(New String(arr)) + Dim arr() As Char = message.ToCharArray() + For i As Integer = 0 To arr.Length / 2 - 1 + Dim tmp As Char = arr(arr.Length - i - 1) + arr(arr.Length - i - 1) = arr(i) + arr(i) = tmp + Next + System.Console.Out.WriteLine(New String(arr)) End Sub Public Overloads Overrides Sub printUppercase(ByVal current As Ice.Current) - System.Console.Out.WriteLine(derivedMessage.ToUpper()) + System.Console.Out.WriteLine(derivedMessage.ToUpper()) End Sub End Class |