简易股票税率计算器

来源： 作者： 出处：巧巧读书 2006-11-03 进入讨论组

• 关 键 词：

　　简易股票税率计算器
作者：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  

• 用Photoshop给漂亮的烫发MM抠图 
• Photoshop透明婚纱抠图大法 
• Photoshop:让MM做个“变色龙” 
• 用Photoshop来制作一款精美的宝宝照片墙 
• Photoshop绝色美女通道抠图法 
• 用Photoshop教你打造绚丽光芒效果 

   巧巧读书:http://www.qqread.com/vb/g258213.html

进入讨论组讨论。

【收藏此文】【大 中 小】【打印】【关闭】

较早的文章：告诉你两种判断闰年的简单方法！

较新的文章：建立Floating Window(Top Most的window)