简单计算器VB完美教程.doc

简单计算器完美教程方法及步骤：第一步：在窗口中放置控件。要点：十个数字按钮为按钮数组（画一个，其余几个拷贝出来），四个运算符为按钮数组，其它控件及按钮单独建立（一个一个的画出来）。第二步：配置各个控件的属性，调整大小和位置第三步：编写代码备注：代码可以直接从本文中拷贝过去，但不是太建议这样子做，自己编写的时候可以学到更多的知识。窗口属性代码Dim s1 As Single, s2 As Single, ysf As String, cfs As SinglePrivate Sub Command1_Click(Index As Integer)If cfs 0 Then 输入数字之前判断是否为重复计算（cfs重复算）Text1.Text = 重复算就清零之前的显示cfs = 0 重复算代码清零End IfText1.Text = Text1.Text & Command1(Index).Caption 数字框按钮与文本框关联If Len(Text1.Text) 13 Then 限制录入13位数字MsgBox 数字不能大于13位Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1)End IfEnd SubPrivate Sub Command2_Click(Index As Integer)s1 = Text1.Text 按运算符时存数据1ysf = Command2(Index).Caption 提取运算符Text1.Text = 清除文本框里的数据1，等待录入数据2End SubPrivate Sub Command3_Click()Text1.Text = Text1.Text + .If InStr(Text1.Text, .) = 1 Then 小数点录入的时候不能是第一位Text1.Text = End IfIf InStr(Text1.Text, .) Len(Text1.Text) Then 小数点出现的位置只有等于字长才让录入Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1) 出现第二个小数点会删除End IfEnd SubPrivate Sub Command4_Click()If Text1.Text = ThenExit SubEnd IfText1.Text = Left(Text1.Text, Len(Text1.Text) - 1) 删除最后一位数End SubPrivate Sub Command5_Click()cfs = cfs + 1 按“=”号后重复算代码加1s2 = Val(Text1.Text) 提取数据2Select Case ysf 根据运算符进行运算Case +Text1.Text = s1 + s2Case -Text1.Text = s1 - s2Case *Text1.Text = s1 * s2Case /If s2 = 0 Then 避免除以零MsgBox 分母不能为零Text1.Text = ElseText1.Text = s1 / s2End IfEnd SelectIf Left(Text1.Text, 1) = . ThenText1.Text = o & Te