Question

visual basic write a program that requires a name and calls a sub procedure to display the birthday song with the name inserted into the song

Answer 1

EXPLAIN

HERE THE PROGRAM IS DONE WITH VISUAL BASIC(AS PER QUESTION) WITH VB 6.0 APPLICATION.

IN PART 1 THE BIRTHDAY SONG WITH THE NAME IS DISPLAYED THROUGH MESSAGE BOX

IT CAN BE DISPLAYED THROUGH LABEL ALSO. THE CODE IS GIVEN IN PART 2.

PART 1.

Private Sub Command1_Click()
' call sub procedure birthday_display
Call birthday_display(Text1.Text)
Text1.Text = ""
End Sub

'define sub procedure
Sub birthday_display(ByVal b_name As String)
Dim song As String
' store the entire song in song string
song = "Happy Birthday to You" & vbNewLine
song = song + "Happy Birthday to You" & vbNewLine
' insert the name with string b_name in the song
song = song + "Happy Birthday Dear " & b_name & vbNewLine
song = song + "Happy Birthday to You "
'here the birthday song is displayed through message box
MsgBox song, , "happy birthday song"
End Sub

SCREEN SHOT

OUTPUT

PART 2

Private Sub Command1_Click()
' call sub procedure birthday_display
Call birthday_display(Text1.Text)
Text1.Text = ""
End Sub

'define sub procedure
Sub birthday_display(ByVal b_name As String)
Dim song As String
' store the entire song in song string
song = "Happy Birthday to You" & vbNewLine
song = song + "Happy Birthday to You" & vbNewLine
' insert the name with string b_name in the song
song = song + "Happy Birthday Dear " & b_name & vbNewLine
song = song + "Happy Birthday to You "
'here the birthday song is displayed through label
Label2.Caption = song
End Sub

SCREEN SHOT

OUTPUT