Private Sub 计算_Click()
Dim 单价, 数量, 折扣金额, 消费金额, 应付金额 As String
消费金额 = Val(单价) * Val(数量)
If 消费金额 > 200 Then
折扣金额 = Val(消费金额) * 0.1
应付金额 = Val(消费金额) - Val(折扣金额)
Else
消费金额 = 应付金额
End If
End Sub


上面这段代码运行没 有计算出应有的结果.没有任何反应.我不知道错在那里?有人能给讲解一下吗?'

谢谢.是因为没有赋值的原因

谢谢