VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 简易股票税率计算器
发表评论(0)作者:gx820714, 平台:VB6.0+Win98, 阅读:15460, 日期:2001-02-24
简易股票税率计算器
作者:gx820714
Const sl As Single = 0.0075
Private Sub Command1_Click()
If Option1 = True Then
If Text2.Text * Text1.Text < 1428.57 Then
MsgBox Text2.Text * Text1.Text * 0.004 + 5, , _
"您的税率是:"
Else: MsgBox Text2.Text * Text1.Text * sl, , _
"您的税率是:"
End If
Else
If Text4.Text * Text3.Text < 2857.14 Then
MsgBox Text4.Text * Text3.Text * 0.004 + 11, , _
"您的税率是:"
Else: MsgBox Text4.Text * Text3.Text * sl + 1, , _
"您的税率是:"
End If
End If
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
End Sub

Private Sub Command2_Click()
If Option1 = True Then
If Text2.Text * Text1.Text < 1428.57 Then
MsgBox ((Text2.Text * Text1.Text * 1.004 + 5) * 1.004 + 5) / Text2.Text _
, , "您的成本是:"
Else: MsgBox Text1.Text * 1.015, , "您的成本:"
End If
Else
If Text4.Text * Text3.Text < 2857.14 Then
MsgBox ((Text4.Text * Text3.Text * 1.004 + 11) * 1.004 + 11) / Text4.Text _
, , "您的成本是:"
Else: MsgBox Text3.Text * 1.015 + 2 / Text4.Text, , _
"您的成本是:"
End If
End If
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
End Sub