神马品牌网迅雷游戏盒子好用吗:求助。。VB程序制作
来源：百度文库 编辑：神马品牌网 时间：2024/05/10 11:35:24
模拟的计算器编程的时候应该把输入操作符定义为什么呀？假如Dim Op%,Op=Val(text3)?为什么答案是0呢？
Private Sub Form_Load()
Dim num1%, num2%, Op As Integer（Op$)(Op%)－－用哪一个都不行啊，
num1 = Val(Text1)
num2 = Val(Text2)
Op = Sgn(Text3)－－用Val则结果等于0。
Select Case Op
Case "+"
Result = num1 + num2
Case "-"
Result = num1 - num2
Case "*"
Result = num1 * num2
Case "/"
Result = num1 / num2
End Select
最后结果不是说等于0就是说
Case "+"类型不匹配
究竟应该怎么用啊？应该用什么？
Private Sub Form_Load()
Dim num1%, num2%, Op As Integer（Op$)(Op%)－－用哪一个都不行啊，
num1 = Val(Text1)
num2 = Val(Text2)
Op = Sgn(Text3)－－用Val则结果等于0。
Select Case Op
Case "+"
Result = num1 + num2
Case "-"
Result = num1 - num2
Case "*"
Result = num1 * num2
Case "/"
Result = num1 / num2
End Select
最后结果不是说等于0就是说
Case "+"类型不匹配
究竟应该怎么用啊？应该用什么？
Dim num1%, num2%, Op As Integer（Op$)(Op%)
应该是:
Dim num1 as Single, num2 as Single, Op As String
num1 = Val(Text1)
num2 = Val(Text2)
Op = Sgn(Text3)
应该是:
num1 = Val(Text1.text)
num2 = Val(Text2.text)
Op = Text3.text