Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Sub main()
- Console.Write("How many Emoji : ")
- Dim a As String = Console.ReadLine
- Dim em As Integer = 0
- Dim emoji(3) As String
- emoji(0) = ":)"
- emoji(1) = ":("
- emoji(2) = "):"
- emoji(3) = "(:"
- For i = 1 To a.Length - 1
- Dim crr As Char = a(i - 1)
- Dim nxt As Char = a(i)
- Dim crm As String = crr & nxt
- If emoji.Contains(crm) Then
- em += 1
- End If
- Next
- Console.WriteLine("Emoji Numbers : " & em)
- End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement