我又做了一些改变 这样好像比较接近答案 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