这是前面板，计算的时候是数值1运算数值2，比如数值1数值2运算控件就是用指针滑动杆改的，右键单击属性文本标签里就能设置，每种运算都有个对一个的数，用这些数就能驱动后台的选择结构来选择运算不要忘记。
一般都是用角度值求三角函数，需要把角度值换算成弧度值代码如下Dim a Dim pin As Double Private Sub Form_Loadpin = 379 End Sub Private Sub Command1_Click #39求sin按键 a = SinTex_in。
1打开VB新建一个EXE2如图画上4个按钮控件表示加减乘除，再画上3个文本控件表示两个数与和数，再画一个标签控件加入“=”号当然，界面可以自己发挥3画好之后，就可以把控件进行命名，注意是属性栏的Caption项。
quotIf Op2 = 0 Then MsgBox quot除数不能为 0quot， 48， quot计算器quotElse Op1 = CDblOp1 CDblOp2End If Case quot=quotOp1 = CDblOp2Case quot%quotOp1 = CDblOp1 * CDblOp2。
切记，必须要先写上你要乘，除，加，减或二次方的数字再点击加减乘除符号，否则会造成数据复位，前面的会白算的，这与计算器是一个道理举例来说本来是2+22的按扭顺序，在这里是2 + 2 2 举。
这个计算器是要想电脑里用的那种，界面有27个CommandButtn就是在程序中附件里的那个计算器 这个计算器是要想电脑里用的那种，界面有27个CommandButtn就是在程序中附件里的那个计算器 展开。
