更新：
·添加论坛入口
·精简更多无用功能
·打印功能优化
·增加连乘器
·增加无用数据删除功能
·全面支持vista
特别感谢：史皓宇
申请测试请回贴
vista测试图：
下载：
多功能计算器.exe (40 KB)
源代码：
'本程序制作人郑界涵
'基本体积，面积计算部分（6种）由郑界涵，史皓宇共同开发
Private Sub Form1_Load() '程序加载时设置被乘数文本框字号
beichengshu.FontSize = 20
End Sub
Private Sub beichengshu_Change() '在被乘数文本框中的文字发生变化时，更改字号
beichengshu.FontSize = 20
End Sub
Private Sub Command1_Click() '打印部分
Printer.Font = "幼圆"
Printer.FontSize = 20
Printer.Print "您的输入:" + vbCrLf + "l=" & l.Text; vbCrLf + "r=" & r.Text; vbCrLf + "h=" & h.Text; vbCrLf + "被乘数为 " + beichengshu.Text; vbCrLf + "指数为 " + zhishu.Text; vbCrLf + "计算结果为 " & jieguo.Caption; vbCrLf + "结果使用郑界涵制作的多功能计算器计算。" + vbCrLf + "我们的论坛:
http://hchg.5d6d.com" + vbCrLf + "欢迎多多点击论坛中的Google广告！" + vbCrLf + "打印时间: " + dt.Caption
MsgBox "此功能为测试功能，在打印时本程序必须关闭，如需继续使用请手动打开", vbOKOnly + vbInformation, "打印机提示"
End
End Sub
Private Sub Command2_Click() '乘方器部分
'已做完无用数据删除
jieguo.Caption = beichengshu.Text ^ zhishu.Text
r.Text = ""
h.Text = ""
l.Text = ""
End Sub
Private Sub jzc_Click() '圆周长
'已做完无用数据删除
jieguo.Caption = r.Text * 2 * 3.14
h.Text = ""
l.Text = ""
beichengshu.Text = ""
zhishu.Text = ""
End Sub
Private Sub yjtj_Click() '圆锥体积
'已做完无用数据删除
jieguo.Caption = r.Text * r.Text * h.Text * 3.14 / 3
l.Text = ""
beichengshu.Text = ""
zhishu.Text = ""
End Sub
Private Sub ymj_Click() '圆面积
'已做完无用数据删除
jieguo.Caption = r.Text * r.Text * 3.14
h.Text = ""
l.Text = ""
beichengshu.Text = ""
zhishu.Text = ""
End Sub
Private Sub yzbmj_Click() '圆柱表面积
'已做完无用数据删除
jieguo.Caption = r.Text * r.Text * 3.14 * 2 + r.Text * 2 * 3.14 * h.Text
l.Text = ""
beichengshu.Text = ""
zhishu.Text = ""
End Sub
Private Sub yzhbmj_Click() '圆锥表面积
'已做完无用数据删除
jieguo.Caption = 3.14 * r.Text * l.Text + 3.14 * r.Text * r.Text
h.Text = ""
beichengshu.Text = ""
zhishu.Text = ""
End Sub
Private Sub yztj_Click() '圆柱体积
'已做完无用数据删除
jieguo.Caption = r.Text * r.Text * 3.14 * h.Text
l.Text = ""
beichengshu.Text = ""
zhishu.Text = ""
End Sub
Private Sub reset_Click() '重置按钮
l.Text = ""
r.Text = ""
h.Text = ""
beichengshu.Text = ""
zhishu.Text = ""
jieguo.Caption = ""
Label4.Caption = "计算结果"
End Sub
Private Sub Timer1_Timer() '时间部分
dt.Caption = Date + Time
End Sub
Private Sub 黄小非官方论坛_Click()
jieguo.Caption = "http://hchg.5d6d.com"
Label4.Caption = "论坛地址"
Shell "explorer.exe
http://hchg.5d6d.com/"
End Sub
Private Sub 退出_Click() '退出按钮
End
End Sub
