频道直达 - 专题 - 新闻 - 技巧 - 组网 - 开发 - 安全 - web编程 - 图像 - 操作系统 - 数据库 - 教育 - 旅游 - 健康 - 时尚 - 驱动 - 软件 - 游戏 - 多媒体 - ERP - 讨论组

简易股票税率计算器

来源: 作者: 出处:巧巧读书 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  

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

进入讨论组讨论。
收藏此文】【 】【打印】【关闭
相关图文阅读
频道图文推荐
健 康 咨 询
时 尚 咨 询
巧巧读书宗旨
相关专题
最新论坛文章
站内各频道最新更新文档
站内最新制作专题
热门关键字导读
Photoshop教 程照片处理 照片制作 PS快捷键 抠图
计 算 机 故 障XP系统修复
艺 术 与 设 计设计 流媒体 设计欣赏 边框
计 算 机 安 全ARP
站内频道文章精选
巧巧电脑频道编辑信箱  告诉我们您想看的专题或文章