Created
July 29, 2016 22:42
-
-
Save anonymous/bebef840fd45c0d70473cb0cb3aacd5f to your computer and use it in GitHub Desktop.
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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