PTT數位生活區 / Visual_Basic

[VB6 ] 計算機

看板Visual_Basic作者 (昨日之死)時間19年前 (2005/06/09 15:52), 編輯推噓10(10推 0噓 9→)
留言19則, 2人參與, 最新討論串1/51 (看更多)
小弟這次作業想做計算機 但是我一直不知道我的程式問題出在哪 有人可以幫在下看一下嗎 現在最大的困難在於要將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
推
61.222.155.162 06/09, , 1F
command1 和command2 怎麼會有參數...
61.222.155.162 06/09, 1F
推
61.222.155.162 06/09, , 2F
Or 不是這樣用的
61.222.155.162 06/09, 2F
推
61.222.155.162 06/09, , 3F
instr 的第三個參數為"D" ？
61.222.155.162 06/09, 3F
推
218.162.88.136 06/09, , 4F
因為那些參數是用來做計算機按鈕的
218.162.88.136 06/09, 4F
推
61.222.155.162 06/09, , 5F
參數不能自訂吧
61.222.155.162 06/09, 5F
→
218.162.88.136 06/09, , 6F
可以阿
218.162.88.136 06/09, 6F
推
61.222.155.162 06/09, , 7F
你把你的表單架構說明一下吧
61.222.155.162 06/09, 7F
→
61.222.155.162 06/09, , 8F
事件參數不能自訂...
61.222.155.162 06/09, 8F
→
218.162.88.136 06/09, , 9F
只要複製貼上他的Index就會一直增加
218.162.88.136 06/09, 9F
→
61.222.155.162 06/09, , 10F
有一定的規則在...
61.222.155.162 06/09, 10F
→
61.222.155.162 06/09, , 11F
是Index ，不是I
61.222.155.162 06/09, 11F
推
61.222.155.162 06/09, , 12F
把你的表單架構說明一下，或把檔案上傳...
61.222.155.162 06/09, 12F
推
218.162.88.136 06/09, , 13F
正在上傳
218.162.88.136 06/09, 13F
→
218.162.88.136 06/09, , 14F
一開始是Index 後來我把他改成I
218.162.88.136 06/09, 14F
推
61.222.155.162 06/09, , 15F
這樣你連編譯都不會過...
61.222.155.162 06/09, 15F
→
218.162.88.136 06/09, , 16F
D適用來代替+-號的,該不會是這裡錯了吧^^
218.162.88.136 06/09, 16F
→
218.162.88.136 06/09, , 17F
sorry,我是初學者,請大大指導^^
218.162.88.136 06/09, 17F
推
61.222.155.162 06/09, , 18F
錯很多喔...
61.222.155.162 06/09, 18F
→
61.222.155.162 06/09, , 19F
語法和語意都有錯...
61.222.155.162 06/09, 19F
‣ 更多 TrueFeeling 的文章
文章代碼(AID): #12f_L7s1 (Visual_Basic)
討論串 (同標題文章)
以下文章回應了本文 (最舊先)：
完整討論串 (本文為第 1 之 51 篇)：
排序： 最舊先 | 最新先 | 留言數
10
19
[VB6 ] 計算機
TrueFeeling
19年前, 06/09
2
3
Re: [VB6 ] 計算機
fumizuki
19年前, 06/09
在新視窗開啟完整討論串 (共51篇)
Visual_Basic 近期熱門文章
更多 近期熱門文章 >>
PTT數位生活區 即時熱門文章
更多 即時熱門文章 >>
‣ 更多 TrueFeeling 的文章
文章代碼(AID): #12f_L7s1 (Visual_Basic)