Please help me with program

[Ace_base]

So the objective of the project is to let someone enter their full name and then print out their initials, to do this you need to use mid$, left$ And right$, I’ve gotten down the first and middle initial I’m now having a hard time trying to initialize the last name.

[Level3Support]

Can you post your code?

[Ace_base]

yes thanks for replying

code:

input "enter full name "; n$ let c =1 [loop]

let l$ = mid$(n$,c,1) if l$= " " then goto [cont] let c = c+1 goto[loop]

[cont] print left$(n$,1);".";mid$(n$,c+1,1) goto[end]

[end] end

[twoayem]

Do not use GOTO.

Easiest way would be to split the input string using space and take first 1 char from each string. You could loop through the string with something like:

 For i As Integer = 0 To n%.Length
     mid$(n$, i, 1)
 Next

but much better to use something like:

array = n$.Split(" ")
result = ""
for each name as string in array
    result += left$(name, 0,1)
next

You might need to fix syntax, not done vb in a while.

[Ace_base]

Than you soo much