Private Sub Contatenacao_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim aString As String = "Concatenating"
Dim bString As String = "Without"
Dim cString As String = "With"
Dim dString As String = "Spaces"
' Displays "ConcatenatingWithoutSpaces".
MsgBox(aString & bString & dString)
' Displays "Concatenating With Spaces".
MsgBox(aString & " " & cString & " " & dString)
End Sub
End Class
Nenhum comentário:
Postar um comentário
Surpreenda com o seu conhecimento...