code100a.txt

来自「VB大全（精华版）源代码」· 文本 代码 · 共 12 行

Public Sub Main()
  Dim His_Name$, Her_Name$, Combination As String

  His_Name = "Billy Johnson"
  Her_Name = "Johnson, Jane"

  Combination = "Should we refer to them as " & Left(His_Name, 6) & " and " & Right(Her_Name, 4) & Right(His_Name, 8) & "?"
  Debug.Print Combination
  Combination = "Or, Should we refer to them as " & Right(Her_Name, 4) & " and " & His_Name & "?"
  Debug.Print Combination
End Sub