VB编写计算器(转载)

　　一．实验目的
　　二．实验要求
　　2．能够实现退格和清除功能；
　　4．小数点不能重复输入；
　　6．应用控件数组实现。
　　 1、创建控件组的方法
　　b、然后进行“复制”和“粘贴”，当选择“粘贴”时，出现对话框提示已有一个同名控件，询问是否创建控件组，选择“是”后，即创建了一个名为“Command”的控件组。这时，第一个按钮的Index属性值默认为“0”，第二个的Index属性值自动设为“1”，并且大小与第一个按钮相同，只需修改其 Caption 属性为数字“1”并将其拖至合适位置即可。此后继续使用“粘贴”的方法建立其他控件组中其余按钮，共19个按钮，每建立一个，就将它拖到合适处，并修改相应的Caption属性值。
　　2、各控件属性设置如下：
　　控件 名称 Caption 控件 名称 Caption
　　按钮 Command 3 退格 按钮 Command 2（1） -
　　按钮 Command 5 = 按钮 Command 2（3） /
　　按钮 Command 1（0）～Command1（9） Caption 0 ～ 9
　　
　　Dim shu1 As Single, shu2 As Single, suanfu As String
　　
　　Text1.Text = Text1.Text & Command1(Index).Caption
　　End Sub
　　Private Sub Command2_Click(Index As Integer)
　　 suanfu = Command2(Index).Caption
　　End Sub
　　Private Sub Command4_Click()
　　Text1.Text = Text1.Text + "."
　　 Text1.Text = ""
　　If InStr(Text1.Text, ".") < Len(Text1.Text) Then 　　Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1) 　　End If 　　End Sub 　　Private Sub Command5_Click() ’开始加减乘除的运算 　　 Select Case suanfu 　　 Text1.Text = shu1 + shu2 　　 Text1.Text = shu1 - shu2 　　 Text1.Text = shu1 * shu2 　　 If shu2 = 0 Then 　　"错误" ’错误提示框图下所示 　　 Else 　　 End If 　　End Sub 　　Private Sub Command3_Click() ’假如输入错误,可每次退后一格 　　Exit Sub 　　Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1) 　　 　　 Text1.Text = "" ’清除 　　Private Sub Command7_Click() ’平方运算 　　End Sub 　　If Left(Text1.Text, 1) <> "-" Then
　　 Else
　　End If