Yahoo奇摩知識+將於 2021 年 5 月 4 日 (美國東部時間) 終止服務。自 2021 年 4 月 20 日 (美國東部時間) 起,Yahoo奇摩知識+服務將會轉為唯讀模式。其他Yahoo奇摩產品與服務或您的Yahoo奇摩帳號都不會受影響。如需關於Yahoo奇摩知識+ 停止服務以及下載您個人資料的資訊,請參閱說明網頁。

請可以幫我看哪裡錯了vb6.0

我設計一個點菜系統

產品名稱 數量 產品名稱 數量

紐約客牛排$399 □□□(txtQty0) 洋蔥豬排$125 □□□(txtQty6)

肋眼牛排$320 □□□(txtQty1) 迷迭雞排$130 □□□(txtQty7)

沙朗牛排$288 □□□(txtQty2)

菲力牛排$220 □□□(txtQty3)

牛小排$189 □□□(txtQty4)

平價牛排$120 □□□(txtQty5)

------------------------------------------------------------------------------------------------------------

總額 □□□(txtSum) ■■■(結算cmdSum)

收現 □□□(txtTch) ■■■(確定cmdDrt)

找零 □□□(txtLfz) ■■■(結束cmdEnd)

------------------上面是場景部份--------------------------------------------------------------

幫我看程式哪錯了

Private Sub Form_Load()

Price1 = 399

Price2 = 320

Price3 = 288

Price4 = 220

Price5 = 189

Price6 = 120

Price7 = 125

Price8 = 130

End Sub

---------------------------------------------------------------------

這部份是按了結算會將值放到txtSub裡面

Private Sub cmdSum_Click()

Sum = 0

For i = 0 To 2

Sum = Sum + (txtQty(i).Text * Price(i))

Next i

txtSum.Text = Sum

End Sub

--------------------------------------------------------------------------------------------------------

這部份是要在收現那輸入金額按了確定會自動扣掉總額將值放到找零

Sumt = txtTch.Text - txtSum.Text

txtLfz.Text = Sumt

End Sub

-------------------------------------------------------------------------------------------------------

※急,請高手或達人可以幫我看哪錯了嗎?

已更新項目:

我照著樓下的大大打了那些指令一樣不行ㄟ

Private Sub cmdSub_Click()

Dim I As Integer, Sum As Integer

For I = 0 To 7

Sum = Sum + Controls("txtQty" & I).Text * 【Price】(I)

Next

txtSum.Text = Sum

End Sub

※【】的地方他偵測是錯誤,編譯錯誤:沒有定義這個Sub或Founction

2 個解答

評分
  • W.J.S.
    Lv 7
    2 0 年前
    最佳解答

    Dim PricePrivate Sub Form_Load()        Price = Array(399, 320, 288, 220, 189, 120, 125, 130)End SubPrivate Sub cmdSum_Click()Dim I As Integer, Sum As IntegerFor I = 0 To 7    '若你的文字方塊是命名為txtQty0~txtQty7的話,就用以下這行    Sum = Sum + Controls("txtQty" & I).Text * Price(I)    '若你的文字方塊是命名為txtQty,其Index是0~7的話,就用以下這行    Sum = Sum + txtQty(I).Text * Price(I)NexttxtSum.Text = SumEnd SubPrivate Sub cmdDrt_Click()Dim Sumt As IntegerSumt = txtTch.Text - txtSum.TextIf Sumt < 0 Then MsgBox "金額不足": Exit SubtxtLfz.Text = SumtEnd Sub

    2006-05-31 17:05:20 補充:

    請參考你之前問的另外一題:http://tw.knowledge.yahoo.com/question/?qid=130605...

    2006-06-01 18:16:08 補充:

    你有將Price宣告成全域變數嗎?

  • 2 0 年前

    你後面的程式碼是使用陣列運算,可是這裡的宣告卻只是一般的變數

    Private Sub Form_Load()

    Price1 = 399

    Price2 = 320

    Price3 = 288

    Price4 = 220

    Price5 = 189

    Price6 = 120

    Price7 = 125

    Price8 = 130

    End Sub

    改成這樣試試

    Private Price(1 To 8) As Integer

    Private Sub Form_Load()

    Price(1) = 399

    Price(2) = 320

    Price(3) = 288

    Price(4) = 220

    Price(5) = 189

    Price(6) = 120

    Price(7) = 125

    Price(8) = 130

    End Sub

還有問題?馬上發問,尋求解答。