Question

VB中Msgbox的提示比较多，用chr(13)+chr(10)

Private Sub Command1_Click()
sl = InputBox("请输入所用水的吨数：", 输入用水量)
sf = sl * 1.95
dl = InputBox("请输入所用电的度数：", 输入用电量)
df = dl * 0.65
mql = InputBox("请输入所用煤气的立方数：", 输入用煤气量)
mqf = mql * 3.25
MsgBox "水电煤气费用如下：" + Chr(13) + Chr(10)
+"用水的吨数为"+sl+"水费为："+str(sf)+Chr(13)+chr(10)
+"用电度数为"+dl+"电费为："+str(df)+ Chr(13) + Chr(10)
+"用煤气立方数为"+mql+"煤气费为："+str(mqf),0,"计算各种费用")
End Sub
编了一个小程序，但是不能运行，从“Msg到最后”都 是红颜色，不知道哪里错误，请高手指点，谢谢

Answer 1

1、MsgBox是一个函数，可以让它给某个变量赋值，即写为x=MsgBox…………
2、MsgBox后面漏了一个左括号（。
最后改为
dd = MsgBox("水电煤气费用如下：" + Chr(13) + Chr(10) + "用水的吨数为" + sl + "水费为：" + Str(sf) + Chr(13) + Chr(10) + "用电度数为" + dl + "电费为：" + Str(df) + Chr(13) + Chr(10) + "用煤气立方数为" + mql + "煤气费为：" + Str(mqf), 0, "计算各种费用")

Answer 2

sl = InputBox("请输入所用水的吨数：", 输入用水量)
sf = sl * 1.95
dl = InputBox("请输入所用电的度数：", 输入用电量)
df = dl * 0.65
mql = InputBox("请输入所用煤气的立方数：", 输入用煤气量)
mqf = mql * 3.25
MsgBox "水电煤气费用如下：" + Chr(13) + Chr(10)
+"用水的吨数为"+sl+"水费为："+str(sf)+Chr(13)+chr(10)
+"用电度数为"+dl+"电费为："+str(df)+ Chr(13) + Chr(10)
+"用煤气立方数为"+mql+"煤气费为："+str(mqf),0,"计算各种费用")

Answer 3

change Chr(13) + Chr(10) with vbCrLf, use & instead of +