初级 VB6.0问题，请大家帮看看！ 谢谢先！
请大家帮看看这段代码有什么错误！ 怎么就是不能运行: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 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
页:
[1]