我又做了一些改變 這樣好像比較接近答案 text2~4是看不見的 我把text4作為保留最後答案 text1是之後我們可以看到的 text4的答案會傳到text1顯示 text2和3是做運算的數字 也就是第一個輸入的數在text2 之後輸入第2個數字時 text2的數字會變到text3去 新數字一樣在text2 這樣也可做累加的計算 懂嗎> < 可是我按等於沒辦法出現答案 If Text4.Text = "" Then Text1.Text = Val(Text1.Text & Index) Text2.Text = Text1.Text Else Text1.Text = Val(Text1.Text & Index) Text2.Text = Text1.Text End If End Sub Private Sub Command2_Click(Index As Integer) If Text3.Text = "" And Text4.Text = "" Then Text1.Text = "" Text3.Text = Text2.Text End If If Index = 4 Then If Text4.Text = "" Then Select Case Index Case Index = 0 Text4.Text = LTrim(Str(Val(Text3.Text) + Val(Text2.Text))) Text1.Text = Text4.Text Case Index = 1 Text4.Text = LTrim(Str(Val(Text3.Text) - Val(Text2.Text))) Text1.Text = Text4.Text Case Index = 2 Text4.Text = LTrim(Str(Val(Text3.Text) * Val(Text2.Text))) Text1.Text = Text4.Text Case Index = 3 Text4.Text = LTrim(Str(Val(Text3.Text) / Val(Text2.Text))) Text1.Text = Text4.Text End Select Text1.Text = Text4.Text Else Text3.Text = Text4.Text Select Case Index Case Index = 0 Text4.Text = LTrim(Str(Val(Text3.Text) + Val(Text2.Text))) Text1.Text = Text4.Text Case Index = 1 Text4.Text = LTrim(Str(Val(Text3.Text) - Val(Text2.Text))) Text1.Text = Text4.Text Case Index = 2 Text4.Text = LTrim(Str(Val(Text3.Text) * Val(Text2.Text))) Text1.Text = Text4.Text Case Index = 3 Text4.Text = LTrim(Str(Val(Text3.Text) / Val(Text2.Text))) Text1.Text = Text4.Text End Select End If End If End Sub Private Sub Command3_Click() Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" End Sub Private Sub Form_Load() ne = "" Text1.Text = "" End Sub ※ 引述《a886759 (我的世界很美麗)》之銘言： : 有看到版上有解答 : 可是以目前我所會的看不懂板上的計算機 : 我想要用if than或select case 做計算機 : 並且是顯示在text裡 : 我目前知道的是 : Command1 是0~9 : Command2 是+-*/= : Command3 是清除鍵 : 貼上我目前寫的 : Private Sub Command1_Click(Index As Integer) : If Text1.Text = "" Then : Text1.Text = LTrim(Str(Index)) : Else : Text1.Text = Text1.Text + LTrim(Str(Index)) : End If : Text2.Text = Text1.Text : End Sub : Private Sub Command2_Click(Index As Integer) : If Index = "0" Then : Text1.Text = "" : Text3.Text = Text2.Text + Text1.Text : End If : End Sub : Private Sub Command3_Click() : text1.text = "" : text2.text = "" : text3.text = "" : End Sub : Private Sub Form_Load() : text1.text = "" : text2.text = "" : text3.text = "" : End Sub : command2運算還沒寫完 : 全部也都還不充足 : 我希望之後還可以加入小數點及x^2等等 : 不過打算先完成十位數及一般運算 : 不這樣就已經足以難倒我了> < : 麻煩各位聰明的大大了 : 謝謝 --

※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 218.168.131.240