[VB6 ] 計算機

[TrueFeeling (昨日之死)]

小弟這次作業想做計算機
但是我一直不知道我的程式問題出在哪
有人可以幫在下看一下嗎

現在最大的困難在於要將text輸入的字元轉換成數學表示式

於是我就先嘗試作數字的加減運算,
目前用InStr嘗試將+-號作為分割字串的標準
能請大大們幫我看看哪裡出錯了嗎


Dim A() As Double
Dim B() As String
Dim G() As Double
Private Sub Command1_Click(I As Integer)
    Text1.Text = Text1.Text + Command1(I).Caption
End Sub
Private Sub Command2_Click(I As Integer)
    Text1.Text = Text1.Text + Command2(I).Caption
End Sub
Private Sub Command3_Click()
    H = Text1.Text
    C = Len(Text1.Text)
    N = 0
    D = "+" Or "-"
    Do
        ReDim Preserve A(N)
        ReDim Preserve B(M)
        A(N) = InStr(1, H, "D")
        If A(N) = 0 Then B(N) = H: Exit Do
        B(N) = Left(H, A(N) - 1)
        H = Right(H, C - A(N))
        N = N + 1
    Loop
    H = Text1.Text
    For I = 0 To N
        ReDim Preserve G(N)
        G(N) = Val(B(N))
    Next I
    For I = 0 To N
        If Mid(H, A(I), 1) = "+" Then
            G(I + 1) = Val(G(I + 1))
        Else
            G(I + 1) = -Val(G(I + 1))
        End If
    Next I
    Sum = 0
    For I = 0 To N
        Sum = Sum + G(I)
    Next I
    Label1.Caption = Sum
End Sub
Private Sub Command4_Click()
  Text1.Text = ""
End Sub
Private Sub Command5_Click()
   End
End Sub




--
少年讀書，如隙中窺月；
中年讀書，如庭中望月；
老年讀書，如臺上玩月。

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 218.162.88.136
推 fumizuki:command1 和command2 怎麼會有參數...
推 fumizuki:Or 不是這樣用的
推 fumizuki:instr 的第三個參數為"D" ？
推 TrueFeeling:因為那些參數是用來做計算機按鈕的
推 fumizuki:參數不能自訂吧
→ TrueFeeling:可以阿
推 fumizuki:你把你的表單架構說明一下吧
→ fumizuki:事件參數不能自訂...
→ TrueFeeling:只要複製貼上他的Index就會一直增加
→ fumizuki:有一定的規則在...
→ fumizuki:是Index ，不是I
推 fumizuki:把你的表單架構說明一下，或把檔案上傳...
推 TrueFeeling:正在上傳
→ TrueFeeling:一開始是Index 後來我把他改成I
推 fumizuki:這樣你連編譯都不會過...
→ TrueFeeling:D適用來代替+-號的,該不會是這裡錯了吧^^
→ TrueFeeling:sorry,我是初學者,請大大指導^^
推 fumizuki:錯很多喔...
→ fumizuki:語法和語意都有錯...