Skip to content

Instantly share code, notes, and snippets.

Created July 29, 2016 22:42
Show Gist options
  • Save anonymous/bebef840fd45c0d70473cb0cb3aacd5f to your computer and use it in GitHub Desktop.
Save anonymous/bebef840fd45c0d70473cb0cb3aacd5f to your computer and use it in GitHub Desktop.
End Sub
Sub FnRev()
System.Console.WriteLine("Type in text and press ENTER to reverse it.")
Dim input1 As String = System.Console.ReadLine()
Dim revstring As String = StrReverse(input1)
System.Console.WriteLine(revstring)
End Sub
Sub FnCharCnt()
System.Console.WriteLine("Type in text and press ENTER to see how many characters there are.")
Dim input2 As String = System.Console.ReadLine()
Dim CharCnt_input2 As Integer = Len(input2)
System.Console.WriteLine("The total amount of character are: ")
System.Console.WriteLine(CharCnt_input2)
End Sub
Sub FnWordCnt()
System.Console.WriteLine("Type in text and Press ENTER to count how many words there are.")
Dim input3 As String = System.Console.ReadLine()
Dim WordCnt_input3 As Integer = System.Console.WriteLine(input3.Length)
'As above it tells me that it doesn't produce a value so what did I do wrong?
System.Console.WriteLine("The total number of words are: ", WordCnt_input3)
'I also can't remember how to write the value on the same line as my text as above but it doesn't print the integer.
End Sub
End Module
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment