答案：Private Sub form_Click()
Dim w, p, money As Single
w = InputBox("输入西瓜重量:", " 计算西瓜款")
If w < 4 Then
p = 1
ElseIf w <= 7 Then
p = 1.3
Else
p = 1.1
End If
m = p * w
MsgBox "应收瓜款" & m & "元"
End Sub
简单使用 你试下那是两个函数，函数是有一个返回值的。
VB里，如果你不需要返回值就可以直接msgbox "aaa"
如果需要返回值r = msgbox("aaa")
按规范的写法来说，函数后面必须写括号，原因很简单，假设调用一个自己写的函数，不写括号的话，别人在看你的程序的时候，就要去查这里写的是一个变量，还是一个函数，加上括号，一眼就可以看出来这是调用一个函数。。 所以规范的写法
如果不需要返回值则：
call msgbox("aaa")
需要返回值则：
r = msgbox("aaa")
你的程序在msgbox那一句时有错误。 字符串连接有明显的错误
改为：
MsgBox "西瓜重" & w & "公斤,单价" & p & "元,应收瓜款" & m & "元,计算西瓜款"
注意“,” 逗号的地方， 我给你改的和你自己的程序对比一下不明白！ed这个很简单啦:
加括号
a=msgbox("",,"")
不加括号
msgbox "",,""
意思是说,如果加括号,作为函数来调用,是要返回值的,是要加赋值的,如果以过程来调用,就不要加括号,如果要加括号,也要在前面加call 如call msgbox("",,"")这个你可以根据MSDN 看看你不知道吗?程序改为如下:
Private Sub form_Click()
Dim w, p, money, m As Single
w = InputBox("输入西瓜重量:", " 计算西瓜款")
If w < 4 Then
p = 1
ElseIf w <= 7 Then
p = 1.3
Else
p = 1.1
End If
m = p * w
MsgBox "西瓜重" & w & "公斤" & Chr(13) & "单价" & p & "元" & Chr(13) & "应收瓜款" & m & "元", , "计算西瓜款"
End Sub补充：
chr(10)起回车作用
chr(13)回车换行
你的程序没有定义变量m
msgbox 后面 ”，“ 号太多
其它地方写得可以记得新世纪VB教程里有称瓜的~``联系我: 26405485我帮你解决!136143587 jia wo
上一个：什么是VB编程
下一个：vb编程紧急紧急。。
