网页资讯视频图片知道文库贴吧地图采购
进入贴吧全吧搜索
vb吧 关注：156,118贴子：1,166,169

求高手制作一下VB计算器的代码



msgbox eval(inputbox("计算器","在这里输入算式")) '我是vb的弟弟vbs…


2025-06-26 16:42:39
广告
Public Class Form1
     Dim strdx() As String = {"0", "0", "0"}
     Dim calcount1 As String = "0"     
   Dim calcount2 As String = "0"
     Dim strvalue As Boolean = False     Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
         If strdx(0) = "0" Then
             TextBox1.Text = strdx(0)
         ElseIf strvalue = False Then
             strdx(0) = strdx(0) & "0"
             TextBox1.Text = strdx(0) & "0"
         Else
             strdx(0) = strdx(0) & "0"
             TextBox1.Text = strdx(0)
         End If
     End Sub
     Private Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
         strvalue = True
         strdx(0) = strdx(0) & "."
         TextBox1.Text = strdx(0)
     End Sub
     Private Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.Click
         strdx(0) = "0"
         strdx(1) = "0"
         strdx(2) = "0"
         calcount1 = "0"
         calcount2 = "0"
         strvalue = False
         TextBox1.Text = "0"
     End Sub
     Private Sub Button5_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button5.Click
         If strdx(2) = "0" Then
             Select Case calcount1
                 Case "+"
                     TextBox1.Text = Str(Val(strdx(1)) + Val(strdx(0)))
                 Case "-"
                     TextBox1.Text = Str(Val(strdx(1)) - Val(strdx(0)))



                 Case "*"
                     TextBox1.Text = Str(Val(strdx(1)) * Val(strdx(0)))
                 Case "/"
                     If strdx(0) = "0" Then
                         TextBox1.Text = "error!"
                     Else
                         TextBox1.Text = Str(Val(strdx(1)) / Val(strdx(0)))
                     End If
             End Select
         Else : calcount2 = "/"
             strdx(0) = Str(Val(strdx(2)) / Val(strdx(0)))
             Select Case calcount1
                 Case "+"
                     TextBox1.Text = Str(Val(strdx(1)) + Val(strdx(0)))
                 Case "-"
                     TextBox1.Text = Str(Val(strdx(1)) - Val(strdx(0)))
                 Case "*"
                     TextBox1.Text = Str(Val(strdx(1)) * Val(strdx(0)))
                 Case "/"
                     If strdx(0) = "0" Then
                         TextBox1.Text = "error!"
                     Else
                         TextBox1.Text = Str(Val(strdx(1)) / Val(strdx(0)))



                     End If
             End Select
         End If
     End Sub
     Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
         If strdx(0) = "0" Then
             strdx(0) = "1"
             TextBox1.Text = strdx(0)
         ElseIf strvalue = False Then
             strdx(0) = strdx(0) & "1"
         Else
             strdx(0) = strdx(0) & "1"
             TextBox1.Text = strdx(0)
         End If
     End Sub
     Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
         If strdx(0) = "0" Then
             strdx(0) = "2"
             TextBox1.Text = strdx(0)
         ElseIf strvalue = False Then
             strdx(0) = strdx(0) & "2"
         Else
             strdx(0) = strdx(0) & "2"
             TextBox1.Text = strdx(0)
         End If
     End Sub
     Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
         If strdx(0) = "0" Then
             strdx(0) = "3"
             TextBox1.Text = strdx(0)
         ElseIf strvalue = False Then
             strdx(0) = strdx(0) & "3"
         Else
             strdx(0) = strdx(0) & "3"
             TextBox1.Text = strdx(0)
         End If



     End Sub
     Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
         If calcount1 = "0" Then
             calcount1 = "+"
             strdx(1) = strdx(0)
             strdx(0) = "0"
         Else : Select Case calcount1
                 Case "+"
                     strdx(1) = Str(Val(strdx(0)) + Val(strdx(1)))
                     strdx(0) = "0"
                     calcount1 = "+"
                 Case "-"
                     strdx(1) = Str(Val(strdx(0)) - Val(strdx(1)))
                     strdx(0) = "0"
                     calcount1 = "+"
                 Case "*"
                     strdx(1) = Str(Val(strdx(0)) * Val(strdx(1)))
                     strdx(0) = "0"
                     calcount1 = "+"
                 Case "/"
                     strdx(1) = Str(Val(strdx(0)) / Val(strdx(1)))
                     strdx(0) = "0"
                     calcount1 = "+"
             End Select
         End If
     End Sub
     Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click



         If calcount1 = "0" Then
             calcount1 = "-"
             strdx(1) = strdx(0)
             strdx(0) = "0"
         Else : Select Case calcount1
                 Case "+"
                     strdx(1) = Str(Val(strdx(0)) + Val(strdx(1)))
                     strdx(0) = "0"
                     calcount1 = "-"
                 Case "-"
                     strdx(1) = Str(Val(strdx(0)) - Val(strdx(1)))
                     strdx(0) = "0"
                     calcount1 = "-"
                 Case "*"
                     strdx(1) = Str(Val(strdx(0)) * Val(strdx(1)))
                     strdx(0) = "0"
                     calcount1 = "-"
                 Case "/"
                     strdx(1) = Str(Val(strdx(0)) - Val(strdx(1)))
                     strdx(0) = "0"
                     calcount1 = "-"
             End Select
         End If
     End Sub
     Private Sub button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
         If strdx(0) = "0" Then
             strdx(0) = "4"



             TextBox1.Text = strdx(0)
         ElseIf strvalue = False Then
             strdx(0) = strdx(0) & "4"
         Else
             strdx(0) = strdx(0) & "4"
             TextBox1.Text = strdx(0)
         End If
     End Sub
     Private Sub button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
         If strdx(0) = "0" Then
             strdx(0) = "5"
             TextBox1.Text = strdx(0)
         ElseIf strvalue = False Then
             strdx(0) = strdx(0) & "5"
         Else
             strdx(0) = strdx(0) & "5"
             TextBox1.Text = strdx(0)
         End If
     End Sub
     Private Sub button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
         If strdx(0) = "0" Then
             strdx(0) = "6"
             TextBox1.Text = strdx(0)
         ElseIf strvalue = False Then
             strdx(0) = strdx(0) & "6"
         Else
             strdx(0) = strdx(0) & "6"
             TextBox1.Text = strdx(0)
         End If
     End Sub
     Private Sub button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click
         If calcount1 = "0" Then
             calcount1 = "*"
             strdx(1) = strdx(0)
             strdx(0) = "0"
         Else : Select Case calcount1



2025-06-26 16:36:39
广告
                 Case "+"
                     calcount2 = "*"
                     strdx(2) = strdx(0)
                     strdx(0) = "0"
                 Case "-"
                     calcount2 = "*"
                     strdx(2) = strdx(0)
                     strdx(0) = "0"
                 Case "*"
                     strdx(1) = Str(Val(strdx(0)) * Val(strdx(1)))
                     strdx(0) = "0"
                     calcount1 = "*"
                 Case "/"
                     strdx(1) = Str(Val(strdx(0)) / Val(strdx(1)))
                     strdx(0) = "0"
                     calcount1 = "*"
             End Select
         End If
     End Sub
     Private Sub button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click
         If calcount1 = "0" Then
             calcount1 = "/"
             strdx(1) = strdx(0)
             strdx(0) = "0"
         Else : Select Case calcount1
                 Case "+"
                     calcount2 = "/"



                     strdx(2) = strdx(0)
                     strdx(0) = "0"
                 Case "-"
                     calcount2 = "/"
                     strdx(2) = strdx(0)
                     strdx(0) = "0"
                 Case "*"
                     strdx(1) = Str(Val(strdx(0)) * Val(strdx(1)))
                     strdx(0) = "0"
                     calcount1 = "/"
                 Case "/"
                     strdx(1) = Str(Val(strdx(0)) / Val(strdx(1)))
                     strdx(0) = "0"
                     calcount1 = "/"
             End Select
         End If
     End Sub
     Private Sub button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click
         If strdx(0) = "0" Then
             strdx(0) = "7"
             TextBox1.Text = strdx(0)
         ElseIf strvalue = False Then
             strdx(0) = strdx(0) & "7"
         Else
             strdx(0) = strdx(0) & "7"
             TextBox1.Text = strdx(0)
         End If
     End Sub
     Private Sub button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.Click



         If strdx(0) = "0" Then
             strdx(0) = "8"
             TextBox1.Text = strdx(0)
         ElseIf strvalue = False Then
             strdx(0) = strdx(0) & "8"
         Else
             strdx(0) = strdx(0) & "8"
             TextBox1.Text = strdx(0)
         End If
     End Sub
     Private Sub button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button18.Click
         If strdx(0) = "0" Then
             strdx(0) = "9"
             TextBox1.Text = strdx(0)
         ElseIf strvalue = False Then
             strdx(0) = strdx(0) & "9"
         Else
             strdx(0) = strdx(0) & "9"
             TextBox1.Text = strdx(0)
         End If
     End Sub
     Private Sub button19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button19.Click
         TextBox1.Text = 0
     End Sub
     Private Sub button20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button20.Click
         Me.Close()
     End Sub
End Class



Public Class Form1
     Dim strdx() As String = {"0", "0", "0"}
     Dim calcount1 As String = "0"     
   Dim calcount2 As String = "0"
     Dim strvalue As Boolean = False     Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
         If strdx(0) = "0" Then
             TextBox1.Text = strdx(0)
         ElseIf strvalue = False Then
             strdx(0) = strdx(0) & "0"
             TextBox1.Text = strdx(0) & "0"
         Else
             strdx(0) = strdx(0) & "0"
             TextBox1.Text = strdx(0)
         End If
     End Sub
     Private Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
         strvalue = True
         strdx(0) = strdx(0) & "."
         TextBox1.Text = strdx(0)
     End Sub
     Private Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.Click
         strdx(0) = "0"
         strdx(1) = "0"
         strdx(2) = "0"
         calcount1 = "0"
         calcount2 = "0"
         strvalue = False
         TextBox1.Text = "0"
     End Sub
     Private Sub Button5_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button5.Click
         If strdx(2) = "0" Then
             Select Case calcount1
                 Case "+"
                     TextBox1.Text = Str(Val(strdx(1)) + Val(strdx(0)))
                 Case "-"
                     TextBox1.Text = Str(Val(strdx(1)) - Val(strdx(0)))



                 Case "*"
                     TextBox1.Text = Str(Val(strdx(1)) * Val(strdx(0)))
                 Case "/"
                     If strdx(0) = "0" Then
                         TextBox1.Text = "error!"
                     Else
                         TextBox1.Text = Str(Val(strdx(1)) / Val(strdx(0)))
                     End If
             End Select
         Else : calcount2 = "/"
             strdx(0) = Str(Val(strdx(2)) / Val(strdx(0)))
             Select Case calcount1
                 Case "+"
                     TextBox1.Text = Str(Val(strdx(1)) + Val(strdx(0)))
                 Case "-"
                     TextBox1.Text = Str(Val(strdx(1)) - Val(strdx(0)))
                 Case "*"
                     TextBox1.Text = Str(Val(strdx(1)) * Val(strdx(0)))
                 Case "/"
                     If strdx(0) = "0" Then
                         TextBox1.Text = "error!"
                     Else
                         TextBox1.Text = Str(Val(strdx(1)) / Val(strdx(0)))



                     End If
             End Select
         End If
     End Sub
     Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
         If strdx(0) = "0" Then
             strdx(0) = "1"
             TextBox1.Text = strdx(0)
         ElseIf strvalue = False Then
             strdx(0) = strdx(0) & "1"
         Else
             strdx(0) = strdx(0) & "1"
             TextBox1.Text = strdx(0)
         End If
     End Sub
     Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
         If strdx(0) = "0" Then
             strdx(0) = "2"
             TextBox1.Text = strdx(0)
         ElseIf strvalue = False Then
             strdx(0) = strdx(0) & "2"
         Else
             strdx(0) = strdx(0) & "2"
             TextBox1.Text = strdx(0)
         End If
     End Sub
     Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
         If strdx(0) = "0" Then
             strdx(0) = "3"
             TextBox1.Text = strdx(0)
         ElseIf strvalue = False Then
             strdx(0) = strdx(0) & "3"
         Else
             strdx(0) = strdx(0) & "3"
             TextBox1.Text = strdx(0)
         End If



2025-06-26 16:30:39
广告
     End Sub
     Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
         If calcount1 = "0" Then
             calcount1 = "+"
             strdx(1) = strdx(0)
             strdx(0) = "0"
         Else : Select Case calcount1
                 Case "+"
                     strdx(1) = Str(Val(strdx(0)) + Val(strdx(1)))
                     strdx(0) = "0"
                     calcount1 = "+"
                 Case "-"
                     strdx(1) = Str(Val(strdx(0)) - Val(strdx(1)))
                     strdx(0) = "0"
                     calcount1 = "+"
                 Case "*"
                     strdx(1) = Str(Val(strdx(0)) * Val(strdx(1)))
                     strdx(0) = "0"
                     calcount1 = "+"
                 Case "/"
                     strdx(1) = Str(Val(strdx(0)) / Val(strdx(1)))
                     strdx(0) = "0"
                     calcount1 = "+"
             End Select
         End If
     End Sub
     Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click



扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频！
分享到: