Public Class Util
Private Sub New()
End Sub
Public Shared Function QuoteIt(ToQuote as String, Author As String) As String
Return ToQuote + " - " + Author
End Function
Public Shared Function UpperLower(ToChange as String) As String
Dim i as Integer
Dim stringBuilder as New Text.StringBuilder(ToChange)
For i = 0 To ToChange.Length - 1
stringBuilder.Chars(i) = Char.ToUpper(stringBuilder.Chars(i))
Next
Return stringBuilder.ToString()
End Function
End Class
Module Test
Sub Main
Console.WriteLine(Util.QuoteIt("A", "B"))
Console.WriteLine(Util.UpperLower("AAaa"))
End Sub
End Module
|