VB计算机如何实现多次计算

Question

就是可以不通过等于获得结果，可以按运算符号直接获得
求代码
计算器额

Answer 1

VB中App.PrevInstance 可以用来判断当前程序是否已经执行。
在Form_Load 中加入下面得代码，或者（推荐）放在Sub Main()中
要打开第一次运行得窗口 也就是要激活它。

If App.PrevInstance Then
'程序实例已经运行
dim mHwnd as long
mHwnd= FindWindow(vbNullString, "程序名") '查找窗口句柄
SetActiveWindow mHwnd '激活窗口
End IF

说明：
SetActiveWindow和FindWindow是API函数，到API浏览器里面可以声明函数。
另外,虚机团上产品团购,超级便宜

Answer 2

Function FuhaoKey(ByVal fu As Char) As Char

If lB Then 'lB这个变量用于判断要不要连续运数
DengHao()
End If
S = txtPrint.Text

Fuhao = fu
'---------------------
tB = True '这个变量跟你的问题没关
lB = True

End Function
Sub DengHao()
Select Case Fuhao
Case "+"
S2 = S + txtPrint.Text
txtPrint.Text = S2
Case "-"
S2 = S - txtPrint.Text
txtPrint.Text = S2
Case "*"
S2 = S * txtPrint.Text
txtPrint.Text = S2
Case "/"
S2 = S / txtPrint.Text
txtPrint.Text = S2
End Select

End Sub

---------------------
这最近也在弄计算器，，，我是用2008弄的。。。要的话可以给我你的邮箱，我发你。要6.0的我也会。。。

Answer 3

print 1+3*6/(4.3-1)-22
是这样吗？

追问

计算器

追答

你想用VB编个计算器？

追问

额，差不多

追答

http://zhidao.baidu.com/question/56560076.html