Question

最后一行引起一些麻烦。

MsgBox ("Book Code = " & ISBN & vbNewLine & _
        "Book Title= " & title & vbNewLine & _
        "Unit Price= " & title & vbNewLine & _
        "Quanity = " & UnitCost & vbNewLine & _
        "Quanity = " & CustomerInput & vbNewLine & _
        "Final Price = " & (Format(CustomerInput * UnitCost), Currency))

Answer 1

将UnitCost语句中Format之后的右括号移动到末尾，并且format语句中的Currency必须是字符串（即：用引号引起来）：

MsgBox ("Book Code = " & ISBN & vbNewLine & _
    "Book Title= " & Title & vbNewLine & _
    "Unit Price= " & Title & vbNewLine & _
    "Quanity = " & UnitCost & vbNewLine & _
    "Quanity = " & CustomerInput & vbNewLine & _
    "Final Price = " & (Format(CustomerInput * UnitCost, "Currency")))

尽管上面的方法可行，但是您可以省略一些括号，并可能使代码更容易理解：

MsgBox "Book Code = " & ISBN & vbNewLine & _
    "Book Title= " & Title & vbNewLine & _
    "Unit Price= " & Title & vbNewLine & _
    "Quanity = " & UnitCost & vbNewLine & _
    "Quanity = " & CustomerInput & vbNewLine & _
    "Final Price = " & Format(CustomerInput * UnitCost, "Currency")

谦虚的商务学生-msgbox失败-SOS

1 个答案: