VB计算器制作(DOC可编).docVIP

Command1（1 ?1、创建控件组的方法、首先创建一个命令按钮，调整其大小宽、高为?495，名称为Command1，aption?属性为数字?0?。、然后进行“复制”和“粘贴”，当选择“粘贴”时，出现对话框提示已有一个同名控件，询问是否创建控件组，选择“是”后，即创建了一个名为 Command”的控件组。这时，第一个按钮的Index属性值默认为“0”，第二个的Index属性值自动设为“1”，并且大小与第一个按钮相同，只需修改其Caption?属性为数字“1”并将其拖至合适位置即可。此后继续使用“粘贴”的方法建立其他控件组中其余按钮，共个按钮，每建立一个，就将它拖到合适处，并修改相应的Caption属性值。?? 、各控件属性设置如下：?? 控件名称?Caption? 窗体?Form?1?计算器Command1（9）???Caption???0?～?9???按钮?Command?2（0）?+ 按钮?Command?2（1）?-?? 按钮Command?按钮?Command4 *? 按钮?Command?3?按钮?Command?按钮?Command?5 按钮?command?6?command?7 平方 按钮Command??± 按钮?Command?command?10 立方 Command11 1/x?? command?12 平方根?? 各个属性修改后得到如图所示的界面程序Dim shu1 As Single, shu2 As Single, suanfu As String 定义两个单精度数变量用与存放参与运算的数,一个字符型存放运算符 Private Sub Command1_Click Index As Integer Text1.Text Text1.Text Command1 Index .Caption 将command1的单击事件与文本框显示的内容连接 End Sub Private Sub Command10_Click Text1.Text Text1.Text * Text1.Text * Text1.Text End Sub Private Sub Command11_Click Text1.Text 1 / Text1.Text End Sub Private Sub Command12_Click Dim isDot As Boolean Dim i As Integer For i 1 To Len Trim Text1.Text If Mid Trim Str Sqr Val Text1.Text , i, 1 . Then isDot True Exit For End If Next i If isDot False Then Text1.Text Str Sqr Val Text1.Text . Else Text1.Text Str Sqr Val Text1.Text End If End Sub Private Sub Command2_Click Index As Integer shu1 Val Text1.Text 将shu1隐藏起来 suanfu Command2 Index .Caption Text1.Text End Sub Private Sub Command4_Click Text1.Text Text1.Text + . If InStr Text1.Text, . 1 Then 第一位不能为小数 Text1.Text End If 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 开始加减乘除的运算 shu2 Val Text1.Text Select Case suanfu Case + Text1.Text shu1 + shu2 Case - Text1.Text shu1 - shu2 Case * Text1.Text shu1 * shu2 Case / If shu2 0 Then Text1.Text Else Text1.Text shu1 / shu2 End If End Select End Sub Private Sub Command3_Click 假如输入错误,可每次退后一格 If Text1.Text Then Exit Sub