代码如下:
Private Sub Form_Load()
Text1.Text="0.6"
Text2.Text="0.1"
Text3.Text=""
End Sub
Private Sub Command1_Click()
Dim a As Currency, b As Currency, c As Currency
a = Text1.Text
b = Text2.Text
c = Fix(a / b)
Text3.Text = c
End Sub
Private Sub Command2_Click()
Dim a As Currency, b As Currency, c As Currency
a = Text1.Text
b = Text2.Text
c = a / b
Text3.Text = c
End Sub
分别编码成pcode和本地代码后,分别点两个按钮,在本地代码编译中,会发现加了fix以后结果就会变成5
有人知道如何解决这个问题不
Private Sub Form_Load()
Text1.Text="0.6"
Text2.Text="0.1"
Text3.Text=""
End Sub
Private Sub Command1_Click()
Dim a As Currency, b As Currency, c As Currency
a = Text1.Text
b = Text2.Text
c = Fix(a / b)
Text3.Text = c
End Sub
Private Sub Command2_Click()
Dim a As Currency, b As Currency, c As Currency
a = Text1.Text
b = Text2.Text
c = a / b
Text3.Text = c
End Sub
分别编码成pcode和本地代码后,分别点两个按钮,在本地代码编译中,会发现加了fix以后结果就会变成5
有人知道如何解决这个问题不