VB编写简易计算器附图互联网

1、用vb6.0编写简易计算器效果图：废话不多说，直接上步骤一、创建控件组1、创建控件组的方法  首先创建一个命令按钮，调整其大小（觉得合适就行），名称为command1，caption 属性为数字 0 ；然后进行“复制”和“粘贴”，当选择“粘贴”时，出现对话框提示已有一个同名控件，询问是否创建控件组，选择“是”后，即创建了一个名为“command”的控件组。这时，第一个按钮的index属性值默认为“0”，第二个的index属性值自动设为“1”，并且大小与第一个按钮相同，只需修改其 caption 属性为数字“1”并将其拖至合适位置即可。此后继续使用“粘贴”的方法建立其他控件组

2、中其余按钮，共20个按钮，每建立一个，就将它拖到合适处，并修改相应的caption属性值。2、各控件组其属性设置如下：控件名称功能/属性窗体form 1简易计算器按钮command1command1（0） command1（9）即：caption 0 9按钮command2小数点“.”按钮command3等于号“=”按钮command4退格按钮command5清除按钮command6command6（0） command6（3）即：caption +、-、*、/按钮command7负数按钮command8平方设置效果如下图所示：二、编写代码dim s1 as single, s2 as sin

3、gle, ysf as string'定义两个单精度数变量用与存放参与运算的数,一个字符型存放运算符private sub command1_click(index as integer)text1.text = text1.text & command1(index).caption'将command1的单击事件与文本框显示的内容连接end subprivate sub command2_click()text1.text = text1.text + "."if (instr(text1.text, ".") = 1) the

4、n '第一位不能为小数 text1.text = ""end ifif instr(text1.text, ".") < len(text1.text) then '防止出现两个小数点 text1.text = left(text1.text, len(text1.text) - 1)end ifend subprivate sub command3_click()s2 = val(text1.text) '开始加减乘除运算 select case ysf case "+" text1.text = s1

5、 + s2 case "-" text1.text = s1 - s2 case "*" text1.text = s1 * s2 case "/" if s2 = 0 then msgbox "分母不能为零!" text1.text = "" else text1.text = s1 / s2 end if end selecttext1 = iif(left(text1.text, 1) = ".", 0 & text1.text, text1.text) 

6、9;这个很关键，如果没有这个的话，得出小于1的小数前面没有0end subprivate sub command4_click()if text1.text = "" then '文本为空就结束exit subend iftext1.text = left(text1.text, len(text1.text) - 1) '文本退一格end subprivate sub command5_click()text1.text = "" '清除当前框内文本end subprivate sub command6_click(index

7、as integer)s1 = val(text1.text) '将s1隐藏起来ysf = command6(index).captiontext1.text = ""end subprivate sub command7_click()if left(text1.text, 1) <> "-" then '判断作为负数text1.text = "-" & text1.textelsetext1.text = right(text1.text, len(text1.text) - 1)end ifend subprivate sub command8_click()text1.text = text1.text * text1.text '平方end sub各位朋友，可以将红色代码复制到相应位置，不清楚的可以全选复制，但是一