32 lines
777 B
Plaintext
32 lines
777 B
Plaintext
Sub TheGameName(nombre As String)
|
|
Dim As String x = Lcase(nombre)
|
|
x = Ucase(Mid(x,1,1)) + (Mid(x,2,Len(x)-1))
|
|
Dim As String x0 = Ucase(Mid(x,1,1))
|
|
|
|
Dim As String y
|
|
If x0 = "A" Or x0 = "E" Or x0 = "I" Or x0 = "O" Or x0 = "U" Then
|
|
y = Lcase(x)
|
|
Else
|
|
y = Mid(x,2)
|
|
End If
|
|
|
|
Dim As String b = "b" + y, f = "f" + y, m = "m" + y
|
|
|
|
Select Case x0
|
|
Case "B" : b = y
|
|
Case "F" : f = y
|
|
Case "M" : m = y
|
|
End Select
|
|
|
|
Print x + ", " + x + ", bo-" + b
|
|
Print "Banana-fana fo-" + f
|
|
Print "Fee-fi-mo-" + m
|
|
Print x + "!" + Chr(10)
|
|
End Sub
|
|
|
|
Dim listanombres(5) As String = {"Gary", "EARL", "billy", "FeLiX", "Mary", "ShirlEY"}
|
|
For i As Integer = 0 To Ubound(listanombres)
|
|
TheGameName(listanombres(i))
|
|
Next i
|
|
Sleep
|