VB编写的超级简单计算器

没办法，不写也得写。VB你大爷的……

直接上源代码

@@@@@@@@@@@@@@@@@@@@@@@华丽的分割线@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

Dim a As Single, b As Single, c As Single, fh As String ’定义变量a,b为单精度变量，用以储存数；定义fh变量为字符型变量，储存运算符号

Private Sub Command1_Click(Index As Integer)
Text1.Text = Text1.Text & Command1(Index).Caption ’输入数字并在text上显示出来
End Sub

Private Sub Command2_Click(Index As Integer) ’输入运算符
a = Text1.Text
fh = Command2(Index).Caption
Text1.Text = ""
End Sub

Private Sub Command3_Click() ’退格实现
Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1)
End Sub

Private Sub Command4_Click() ’小数点
Text1.Text = Text1.Text + "."
c = InStr(Text1.Text, ".") ’instr查找某字符串在另一个字符串中首次出现的位置并将值赋给c
If (c < 2) Then
Text1.Text = "错误，小数点不能在首位，请在在点击CE后重新输入整个算式"
End If ’判断小数点位置，防止小数点出现在首位
Dim w As Integer ’小数点的个数
    w = 0
    For i = 1 To Len(Text1) ’循环，len函数求出字符串的长度
        Select Case Mid(Text1, i, 1) ’texe1中从第i个字符开始取，每次取一个字符
            Case "." ’判断所取字符是不是“.”
                w = w + 1 ’1则w+1,0继续
           End Select ’通过循环计小数点存在个数赋值给w

    Next
    If (w >= 2) Then
    Text1.Text = "错误，出现&w&个小数点,请在在点击CE后重新输入整个算式"

   End If ’判断小数点个数，防止出现多个小数点

End Sub

Private Sub Command5_Click() ’运算
b = Text1.Text
Select Case fh
     Case "+"
Text1.Text = a + b
    Case "-"
Text1.Text = a - b
     Case "*"
Text1.Text = a * b
     Case "/"
If (b = 0) Then
Text1.Text = "错误，分母不能为0，请在在点击CE后重新输入整个算式"
Else
Text1.Text = a / b
End If
End Select
End Sub

Private Sub Command6_Click() ’CE作用：变量全部清零
Text1.Text = ""
a = 0
b = 0
fh = ""
End Sub

Private Sub Command7_Click() ’正负号转换
Text1.Text = 0 - Text1.Text
End Sub

注释不少，应该都能看清了，省的某些人总说我写的东西你们看不懂，其实那是水平问题，好不！！！，小猴，看到之后给我测试编代码。老二，your too.

#About Me