blob: 3541216d0a00e5c27d277f9705cd0c59eb55597c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
' **********************************************************************
'
' Copyright (c) 2003-2009 ZeroC, Inc. All rights reserved.
'
' This copy of Ice is licensed to you under the terms described in the
' ICE_LICENSE file included in this distribution.
'
' **********************************************************************
Imports Demo
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))
End Sub
Public Overloads Overrides Sub printUppercase(ByVal current As Ice.Current)
System.Console.Out.WriteLine(derivedMessage.ToUpper())
End Sub
End Class
|
