Question

请教各位，VB中出现子程序或函数未定义，确实不知道怎么办了！

在form1中申明了如下代码：

Public intcount As Integer '货物数量
Public strname As String '货物名称
Public price As Single '货物单价
Public foresum As Single '折扣前的货物金额
Public sum As Single '折扣后的货物金额
-------------------------------------------------
Public Function fundj(x！) As Single
Dim zk As Single
Select Case x
Case Is >= 500
zk = 0.7 * x
Case Is >= 300
zk = 0.8 * x
Case Is >= 100
zk = 0.9 * x
Case Else
zk = x
End Select
fundj = zk
End Function
然后在form2中需要调用该函数：
Private Sub command2_click() '单击成交按钮
intcount = Val(Text2.Text)
strname = Mid(Combo1.Text, 1, 3)
price = Val(Mid(Combo1.Text, 5, 1))
foresum = intcount * price
sum = fundj(foresum)
End Sub
却始终显示子程序或函数未定义，请教大家，具体是什么原因？
就是到sum = fundj(foresum)的时候就报错了！
光标定义到fundj说子程序或函数未定义！

Answer 1

为什么不写在同一个form里呢
或者改为
sum = form1.fundj(foresum)

Public foresum As Single '折扣前的货物金额要放form2定义吧？

Answer 2

把form1中的代码放在模块中

Answer 3

调试一下，哪句错了 ？