当前位置: 首页 > 图文教程 > 网络编程 > ASP.NET > 刚学ASP.Net，学了个简单的计算器

ASP.NET
.net开发绑定到LINQ查询的结果实例
vc.net中配置OpenOffice的SDK应用开发
用.NET读取 Flash格式文件信息
点缩略图弹出随图片大小自动调整的页面
关于VS 2008和.NET 3.5 Beta2新特性介绍
网友分享：详细解读.NET中的代码动态编译
基于.NET Framework 微软Silverlight下载
Asp.net多层架构中的变量引用与传递
VS2008中查看.NET源码的设置方法
Asp.net中如何过滤html,js,css代码
ASP.NET 2.0中CSS失效解决方案
使用ADO.NET2.0提升数据交互性能(1)
使用ADO.NET2.0提升数据交互性能(2)
使用ADO.NET2.0提升数据交互性能(3)
使用ADO.NET2.0提升数据交互性能(4)
使用ADO.NET2.0提升数据交互性能(5)
解决CSV字段数据带有双引号的问题
VB.net实现sql数据库的备份与恢复
Asp.net FMS 开发视频网站
.Net平台下开发中文语音应用程序

No. « 23 24 25 26 »

技术文章搜索

关键字

ASP.NET 中的 刚学ASP.Net，学了个简单的计算器

出处:互联网   整理: 软晨网（RuanChen.com）   发布: 2009-11-03   浏览: 172 ::
收藏到网摘: n/a

<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(btBack)) Then
      If