sendkeys
vbs SendKey用法
F12 {F12}
F13 {F13}
F14 {F14}
F15 {F15}
F16 {F16} Dim opt As String
Private Sub Command1_Click()
opt = "+"
End Sub
Private Sub Command2_Click()
opt = "-"
End Sub
Private Sub Command3_Click()
opt = "*"
End Sub
Private Sub Command4_Click()
opt = "/"
End Sub
Private Sub Command5_Click()
Dim a, b, result As Double
a = Text1.Text
b = Text2.Text
Select Case opt
Case "+"
result = Val(a) + Val(b)
Case "-"
result = Val(a) - Val(b)
Case "*"
result = Val(a) * Val(b)
Case "/"
result = Val(a) / Val(b)
End Select
Text3.Text = result
End Sub
可以用,我已近发过很多遍给人家了。“计算”一般都与“+,-,×,÷,乘方,开方,等”有关,在VB中的计算方法,除了与正常的算法相同外,还可以编写子程序,然后通过调用子程序,来进行比较、取舍。F12 {F12} 他可就不好说了,是应该的吧.还可能是VB的原理.这个问题问得太概括了吧,如果是这么问那么只能回答你:从头来,从基础学起,弄懂VB的原理,设计好程序结构,只有反复编写调试,才会不断进步提高,不多说了,说不如做。