1、用 VB6.0 编写简易计算器效果图：废话不多说，直接上步骤一、创建控件组1、创建控件组的方法 首先创建一个命令按钮，调整其大小（觉得合适就行），名称为 Command1，Caption 属性为数字 0 ；然后进行“复制”和“粘贴”，当选择“粘贴”时，出现对话框提示已有一个同名控件，询问是否创建控件组，选择“是”后，即创建了一个名为“Command”的控件组。这时，第一个按钮的 Index 属性值默认为“0”，第二个的 Index 属性值自动设为“1”，并且大小与第一个按钮相同，只需修改其 Caption 属性为数字“1”并将其拖至合适位置即可。此后继续使用“粘贴”的方法建立其他控件组中其余按
2、钮，共 20 个按钮，每建立一个，就将它拖到合适处，并修改相应的 Caption 属性值。2、各控件组其属性设置如下：控件 名称 功能/属性窗体 Form 1 简易计算器按钮 Command1 Command1（0） Command1（9）即：Caption 0 9按钮 Command2 小数点“.”按钮 Command3 等于号“=”按钮 Command4 退格按钮 Command5 清除按钮 Command6 Command6（0） Command6（3）即：Caption +、-、*、/按钮 Command7 负数按钮 Command8 平方设置效果如下图所示：二、编写代码Dim s1
3、As Single, s2 As Single, 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) Then 第一位不能为小数Te
4、xt1.Text = “End IfIf InStr(Text1.Text, “.“) “-“ 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各位朋友，可以将红色代码复制到相应位置，不清楚的可以全选复制，但是一定要按照我的步骤和给的名称来哦！还可以再添加按钮Private Sub Command9_Click() 这是退出代码EndEnd Sub三、测试，成功的话给个好评哦！谢谢各位下载与支持！这个可以编写作为作业哦！
