刚学ASP.Net，学了个简单的计算器
日期：2014-01-18 浏览次数：20489 次
<html>
<head>
<title>Calculator</title>
<script language="vb" Runat="server">
dim c as char
dim str as string
dim len as integer
dim Is2 as Boolean
dim num1 as double
dim num2 as double
dim result as double
'**************************************************
Sub btClick(Sender as Object , E as EventArgs)
If(Sender.Equals(btResult)) Then
Len = LoadStr.Text.Length()
If(Len = 0) Then Exit Sub
Len = LoadStr.Text.Length()
c = Right(LoadStr.Text,1)
str = Left(LoadStr.Text,Len-1)
num1 = Val(str)
num2 = Val(tbExps.Text)
result = num2
Select Case Asc(c)
Case 43
result = num1 + num2
Case 45
result = num1 - num2
Case 42
result = num1 * num2
Case 47
If(num2 = 0) Then
tbExps.Text = "除数不可以为零"
Exit Sub
End If
result = num1/num2
End Select
str = CStr(result)
Ltrim(str)
tbExps.Text = str
LoadStr.Text = ""
End If
'**************************************************
If(Sender.Equals(btAdd)) Then
LoadStr.Text = tbExps.Text + "+"
tbExps.Text = ""
End If
'**************************************************
If(Sender.Equals(btMin)) Then
LoadStr.Text = tbExps.Text + "-"
tbExps.Text = ""
End If
'**************************************************
If(Sender.Equals(btMul)) Then
LoadStr.Text = tbExps.Text + "*"
tbExps.Text = ""
End If
'**************************************************
If(Sender.Equals(btDiv)) Then
LoadStr.Text = tbExps.Text + "/"
tbExps.Text =""
End If
'**************************************************
If(Sender.Equals(btCls)) Then
tbExps.Text = ""
End If
'**************************************************
If(Sender.Equals
免责声明： 本文仅代表作者个人观点，与爱易网无关。其原创性以及文中陈述文字和内容未经本站证实，对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。
