初级 VB6.0问题，请大家帮看看！谢谢先！

shvictor · 发表于 2007-10-9 00:37

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？注册

x

请大家帮看看这段代码有什么错误！怎么就是不能运行:mad:
本人是个刚开始的菜鸟，希望大家不要笑我 $郁闷$ 谢谢！

Option Compare Database
option Explicit
Dim Menge, Ustproz, Nettobetrag, Ust, Bruttobetrag
Sub Berechnen()
Eingabe (Kommentar)
Menge = IntputBox("bitte menge eingeben" )
Preis = InputBox("Preis eingeben" )
Ustproz = 0.1
Verarbeitung
Nettobetrag = Menge * Preis
Ust = Nettobetrag * Ustproz
Bruttobetrag = Nettobetrag + Ust
Ausgabe
Msg Box("Nettobetrag" ) = " & Nettobetrag"
Msg Box("Umsatzsteuer" ) = " & Ust"
Msg Box("Brutto" ） = " & Bruttobetrag"
End Sub

lovely1234 · 发表于 2007-10-9 13:42

Option Compare Database
option Explicit
Dim Menge, Ustproz, Nettobetrag, Ust, Bruttobetrag
Sub Berechnen()
Eingabe (Kommentar)
Menge = IntputBox("bitte menge eingeben" )
Preis = InputBox("Preis eingeben" )
Ustproz = 0.1
Verarbeitung
Nettobetrag = Menge * Preis
Ust = Nettobetrag * Ustproz
Bruttobetrag = Nettobetrag + Ust
Ausgabe
Msg Box "Nettobetrag= " & Nettobetrag
Msg Box "Umsatzsteuer= " & Ust
Msg Box "Brutto= " & Bruttobetrag
End Sub

账号		自动登录	找回密码
密码			注册

萍聚头条

初级 VB6.0问题，请大家帮看看！ 谢谢先！

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

初级 VB6.0问题，请大家帮看看！谢谢先！