简单计算器VB完美教程

1、简单计算器完美教程方法及步骤：第一步：在窗口中放置控件。要点：十个数字按钮为按钮数组（画一个，其余几个拷贝出来），四个运算符为按钮数组，其它控件及按钮单独建立（一个一个的画出来）。第二步：配置各个控件的属性，调整大小和位置第三步：编写代码备注：代码可以直接从本文中拷贝过去，但不是太建议这样子做，自己编写的时候可以学到更多的知识。窗口属性代码Dim s1 As Single, s2 As Single, ysf As String, cfs As SinglePrivate Sub Command1_Click(Index As Integer)If cfs > 0 Then '输

2、入数字之前判断是否为重复计算（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 SubPri

3、vate 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 '小数点录入的时候不能是第一位Te

4、xt1.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, L

5、en(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" &