- 博客(0)
- 资源 (5)
- 收藏
- 关注
VB 计算器 VB计算器 VB.NET计算器 C#计算器
代码如下
<%@ Page Language="VB" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<script runat="server">
Class Ent
Public Shared total, num1, num2 As String
Public Shared sign As String
Public Shared Sub click(ByVal a As String)
total = total + a
End Sub
End Class
Sub Count()
Ent.num2 = TextBox1.Text
Try
Select Case Ent.sign
Case "+"
TextBox1.Text = CStr(CDbl(Ent.num1) + CDbl(Ent.num2))
Case "-"
TextBox1.Text = CStr(CDbl(Ent.num1) - CDbl(Ent.num2))
Case "*"
TextBox1.Text = CStr(CDbl(Ent.num1) * CDbl(Ent.num2))
Case "/"
TextBox1.Text = CStr(CDbl(Ent.num1) / CDbl(Ent.num2))
End Select
Catch ex As Exception
Label1.Text = "同志请不要那数字以外的字符开计算器的玩笑!"
TextBox1.Text = "0"
Ent.total = "0"
Ent.sign = ""
End Try
Ent.total = ""
Ent.sign = ""
End Sub
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Ent.click("1")
TextBox1.Text = Ent.total
Call CleanLabel()
End Sub
Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Ent.click("2")
TextBox1.Text = Ent.total
Call CleanLabel()
End Sub
Protected Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Ent.click("3")
TextBox1.Text = Ent.total
Call CleanLabel()
End Sub
Protected Sub Button4_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Ent.click("4")
TextBox1.Text = Ent.total
Call CleanLabel()
End Sub
Protected Sub Button5_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Ent.click("5")
TextBox1.Text = Ent.total
Call CleanLabel()
End Sub
Protected Sub Button6_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Ent.click("6")
TextBox1.Text = Ent.total
Call CleanLabel()
End Sub
Protected Sub Button7_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Ent.click("7")
TextBox1.Text = Ent.total
Call CleanLabel()
End Sub
Protected Sub Button8_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Ent.click("8")
TextBox1.Text = Ent.total
Call CleanLabel()
End Sub
Protected Sub Button9_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Ent.click("9")
TextBox1.Text = Ent.total
Call CleanLabel()
End Sub
Protected Sub Button10_Click(ByVal sender As Object, ByVal e As System.EventArgs)
If Len(Ent.total) > 0 Then
Call CleanLabel()
Ent.click("0")
TextBox1.Text = Ent.total
End If
End Sub
Protected Sub Button18_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Call CleanLabel()
Ent.total = ""
Ent.sign = ""
TextBox1.Text = "0"
End Sub
Protected Sub Button11_Click(ByVal sender As Object, ByVal e As System.EventArgs)
If Len(Ent.total) >= 0 Then
If InStr(Ent.total, ".") = 0 Then
Ent.click(".")
TextBox1.Text = Ent.total
End If
End If
Call CleanLabel()
End Sub
Protected Sub Button12_Click(ByVal sender As Object, ByVal e As System.EventArgs)
If Len(Ent.sign) = 1 Then
Call Count()
Ent.num1 = TextBox1.Text
Ent.sign = "+"
Else
Ent.num1 = TextBox1.Text
TextBox1.Text = "0"
Ent.total = ""
Ent.sign = "+"
End If
End Sub
Protected Sub Button16_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Call Count()
End Sub
Protected Sub Button13_Click(ByVal sender As Object, ByVal e As System.EventArgs)
If Len(Ent.sign) = 1 Then
Call Count()
Ent.num1 = TextBox1.Text
Ent.sign = "-"
Else
Ent.num1 = TextBox1.Text
TextBox1.Text = "0"
Ent.total = ""
Ent.sign = "-"
End If
End Sub
Protected Sub Button14_Click(ByVal sender As Object, ByVal e As System.EventArgs)
If Len(Ent.sign) = 1 Then
Call Count()
Ent.num1 = TextBox1.Text
Ent.sign = "*"
Else
Ent.num1 = TextBox1.Text
TextBox1.Text = "0"
Ent.total = ""
Ent.sign = "*"
End If
End Sub
Protected Sub Button15_Click(ByVal sender As Object, ByVal e As System.EventArgs)
If Len(Ent.sign) = 1 Then
Call Count()
Ent.num1 = TextBox1.Text
Ent.sign = "/"
Else
Ent.num1 = TextBox1.Text
TextBox1.Text = "0"
Ent.total = ""
Ent.sign = "/"
End If
End Sub
Protected Sub Button17_Click(ByVal sender As Object, ByVal e As System.EventArgs)
TextBox1.Text = "0"
Ent.total = ""
Call CleanLabel()
End Sub
Protected Sub Button19_Click(ByVal sender As Object, ByVal e As System.EventArgs)
If Len(TextBox1.Text) > 1 Then
TextBox1.Text = Left(TextBox1.Text, (Len(TextBox1.Text) - 1))
Ent.total = TextBox1.Text
Else : TextBox1.Text = "0"
End If
End Sub
Protected Sub TextBox1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs)
Dim a As Double
Try
a = CDbl(TextBox1.Text)
Call CleanLabel()
Catch ex As Exception
Label1.Text = "同志请不要那数字以外的字符开计算器的玩笑!"
TextBox1.Text = "0"
Ent.total = "0"
Ent.sign = ""
End Try
End Sub
Sub CleanLabel()
Label1.Text = ""
End Sub
</script>
<html xmlns="http://www.w3.org/1999/xhtml" >
<head id="Head1" runat="server">
<title>计算器</title>
</head>
<body>
<form id="form1" runat="server">
<div style=" text-align :center "><h3>计算器</h3></div>
<div style=" text-align :center ">
<asp:Label ID="Label1" runat="server" ForeColor="Red"></asp:Label>
<table style=" width: 164px; border :ridge 1px #000000">
<tr>
<td style="width: 187px">
<div style=" text-align :center ">
<asp:TextBox ID="TextBox1" runat="server" BorderStyle="Solid" BorderWidth="1px" Width="180px" CausesValidation="True" OnTextChanged="TextBox1_TextChanged" ForeColor="Transparent">0</asp:TextBox>
</div>
</td>
</tr>
<tr>
<td style="width: 187px; height: 23px;">
<asp:Button ID="Button19" runat="server" OnClick="Button19_Click" Text="BackSpace" Width="72px" UseSubmitBehavior="False" />
<asp:Button ID="Button17" runat="server" Text="CE" OnClick="Button17_Click" Width="48px" UseSubmitBehavior="False" />
<asp:Button ID="Button18" runat="server" Text="C" OnClick="Button18_Click" Width="47px" UseSubmitBehavior="False" />
</td>
</tr>
<tr><td style="width: 187px;"><asp:Button ID="Button7" runat="server" Text="7" OnClick="Button7_Click" Width="40px" UseSubmitBehavior="False" />
<asp:Button ID="Button8" runat="server" Text="8" OnClick="Button8_Click" Width="40px" UseSubmitBehavior="False" />
<asp:Button ID="Button9" runat="server" Text="9" OnClick="Button9_Click" Width="40px" UseSubmitBehavior="False" />
<asp:Button ID="Button15" runat="server" Text="/" OnClick="Button15_Click" Width="40px" UseSubmitBehavior="False" /></td></tr>
<tr><td style="width: 187px;">
<asp:Button ID="Button4" runat="server" Text="4" OnClick="Button4_Click" Width="40px" UseSubmitBehavior="False" />
<asp:Button ID="Button5" runat="server" Text="5" OnClick="Button5_Click" Width="40px" UseSubmitBehavior="False" />
<asp:Button ID="Button6" runat="server" Text="6" OnClick="Button6_Click" Width="40px" UseSubmitBehavior="False" />
<asp:Button ID="Button14" runat="server" Text="*" OnClick="Button14_Click" Width="40px" UseSubmitBehavior="False" /></td></tr>
<tr><td style="width: 187px;">
<asp:Button ID="Button1" runat="server" Text="1" OnClick="Button1_Click" Width="40px" UseSubmitBehavior="False" />
<asp:Button ID="Button2" runat="server" Text="2" OnClick="Button2_Click" Width="40px" UseSubmitBehavior="False" />
<asp:Button ID="Button3" runat="server" Text="3" OnClick="Button3_Click" Width="40px" UseSubmitBehavior="False" />
<asp:Button ID="Button13" runat="server" Text="-" OnClick="Button13_Click" Width="40px" UseSubmitBehavior="False" /></td></tr>
<tr><td style="width: 187px;">
<asp:Button ID="Button10" runat="server" Text="0" OnClick="Button10_Click" Width="40px" UseSubmitBehavior="False" />
<asp:Button ID="Button11" runat="server" Text="." OnClick="Button11_Click" Width="40px" UseSubmitBehavior="False" />
<asp:Button ID="Button12" runat="server" Text="+" OnClick="Button12_Click" Width="40px" UseSubmitBehavior="False" />
<asp:Button ID="Button16" runat="server" Text="=" OnClick="Button16_Click" Width="40px" UseSubmitBehavior="False" /></td></tr>
</table>
</div>
</form>
</body>
</html>
2009-05-09
10G和11G区别.doc
最终作业—07510554—钟敏—10G和11G区别.doc
最终作业—07510554—钟敏—10G和11G区别.doc
最终作业—07510554—钟敏—10G和11G区别.doc
2008-11-08
windows2008\Windows Server 2008 (x86) - DVD 简体中文版bt下载
windows2008\Windows Server 2008 (x86) - DVD 简体中文版bt下载
2008-09-10
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人