【VB开源代码栏目提醒】：本文主要为网学会员提供“VB6.0的小程序计算器 - 其它资料”，希望对需要VB6.0的小程序计算器 - 其它资料网友有所帮助，学习一下!

VB6.0 的小程序 计算器 对于刚入门学习 VB6 的朋友来说肯定会做些小程序吧，这里就是给大家演示个简单的计算器程序，仅供参考啦。

     界面上加减乘除四个按钮分别是 cmdAdd、cmdPlus、cmdMultiple、cmdDevide，小数点按钮是 cmdDot，负号按钮是 cmdMinuse，数字 0～9 为了偷懒，用了控件数组 cmdNumber0cmdNumber9，上面 txtShow 是显示数字和结果用的，txtOperate 是显示中间步骤的。

     思路大致是这样，点加减乘除这类操作符的时候，把当前 txtShow 的值保存在模块变量mstrParam1 里，同时把操作符保存到 mstrOperate 里，按等于号时把先把当前 txtShow 的值保存在模块变量 mstrParam2 里，然后对 mstrParam1 和 mstrParam2 进行运算，当然要记得设法把 String 转换成数值进行运算。

     转换的过程要注意，这里是用的 Variant 数据类型，vParam1 和 vParam2 都是 Variant 类型，保存的是 mstrParam1 和 mstrParam2 的数值。

    之所以不用 integer、long、double 这些标准类型，是因为这些类型都有大小限制，做出来用着不方便，VB 最大的整型 long 才到2147483647，这意味着计算器的计算结果只能限制在 9 位到 10 位。

    而 Variant 类型可以支持非常大的数，具体多大不清楚，但起码几十位是能够支持的。

    另外，最后算完的结果也要做格式化，因为如果数值非常大的话，VB 会自动转成科学计数法，所以要用 Format 函数进行调整。

     如果需要源代码的话在我百度空间里留言。

    http://hi.baidu.com/zhaozhigang517Option ExplicitPrivate Const mstrFORMATDEFAULT As String .Private mstrParam1 As String mstrParam2 As StringPrivate mstrOperate As StringPrivate Sub cmdAdd_Click mstrParam1 TrimtxtShow.Text mstrOperate txtShow.Text txtOperate.Text txtOperate.Text mstrParam1 vbCrLf txtOperate.Text txtOperate.Text mstrOperate vbCrLfEnd SubPrivate Sub cmdPlus_Click mstrParam1 TrimtxtShow.Text mstrOperate - txtShow.Text txtOperate.Text txtOperate.Text mstrParam1 vbCrLf txtOperate.Text txtOperate.Text mstrOperate vbCrLfEnd SubPrivate Sub cmdMultiple_Click mstrParam1 TrimtxtShow.Text mstrOperate txtShow.Text txtOperate.Text txtOperate.Text mstrParam1 vbCrLf txtOperate.Text txtOperate.Text mstrOperate vbCrLfEnd SubPrivate Sub cmdDevide_Click mstrParam1 TrimtxtShow.Text mstrOperate / txtShow.Text txtOperate.Text txtOperate.Text mstrParam1 vbCrLf txtOperate.Text txtOperate.Text mstrOperate vbCrLfEnd SubPrivate Sub cmdDot_Click Dim mstrShow As String Dim i As Integer mstrShow . i InStr1 txtShow.Text mstrShow If i