如何在VB一或二个文本框中显示一个计算结果同时也显示上次计算结果

Question

我举个例子如在VB视窗中有text1,text2,command1三个控件（或者text1,command1也可以）。
第一次：当点击command1时显示出InputBox（输入框）输入 x（如2）根据计算公式在text1显示出计算答案，text2显示为""。
第二次：当点击command1时显示出InputBox（输入框）输入 x（如3）根据计算公式在text1显示出计算答案，同时text2显示上次（x=2时）的计算答案。
第三次：当点击command1时显示出InputBox（输入框）输入 x（如4）根据计算公式在text1显示出计算答案，同时text2显示上次（x=3）的计算答案。
第四次：......
或在一个text1完成如上的显示（是不是可以用上行和下行代替text1和text2？）
按照你们的答案我去弄了 结果不管输入什么结果都是0？
我在补充下假设一个简单点的方程是
f(x)= 50-x*x ( x<=10)
(x*x-50)^2 ( x>10)
其他的条件就按上面的

Answer 1

Private Sub Command1_Click()
Dim a As Single, b As String
b = Text1 '将上一次的结果保存在变量B中
a = InputBox("请输入X:")
Text1 = js(a)
Text2 = b
End Sub
Function js(a As Single) As Single'这是计算公式,你可以改其他的
If a <= 10 Then
js = 50 - a ^ 2
Else
js = (a ^ 2 - 50) ^ 2
End If
End Function
该代码经过测试,绝对可用!!
记得多给点分哦!

Answer 2

先在窗体中放入text1,text2,command1,在复制如下代码就ok了

Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
End Sub

Private Sub command1_click()
Dim a As Integer
a = InputBox("请输入X:")
a = F(a) '关于a的公式
Text2.Text = Text1.Text
Text1.Text = Str(a)
End Sub

Public Function F(x As Integer)
F = x '因为你的公式没有具体给出，我自己写了个简单的，你可以根据你的公式自己修改
End Function

Answer 3

private sub command1_click()
dim a
a=inputbox("问题")
a=func(a) '关于a的公式
text2.text=text1.text
text1.text=str(a)
end sub