62,025
社区成员
发帖
与我相关
我的任务
分享
<%@ WebService Language="VB" Class="X801" %>
Imports System
Imports System.Web.Services
Public Class X801: Inherits WebService
<WebMethod()> Public Function Divide(A As System.Single,B As System.Single) As System.Single
If B = 0
Return -1
End If
Return Convert.ToSingle(A / B)
End Function
End Class
<%@ Import Namespace="X801" %>
<!--第六步:引入名称空间X801。在下面一行的横线处填写适当的字句。-->
<HTML>
<script language="VB" runat="server">
Dim Op1 As Single = 0
Dim Op2 As Single = 0
Public Sub Submit_Click(Sender As Object, E As EventArgs)
Try
Op1 = Single.Parse(Operand1.Text)
Op2 = Single.Parse(Operand2.Text)
Catch Exp As Exception
' Ignored
End Try
Dim Service As X8-01.X801 = New X8-01.X801()
Result.Text = "<b>结果</b> = " & Service.Divide(Op1,Op2).ToString()
End Sub
</script>
<body style="FONT: 10.5pt 宋体">
<h4>第八单元 第一题
</h4>
<form runat="server" ID="Form1">
<div style="BORDER-RIGHT:black 1px solid;PADDING-RIGHT:15px;BORDER-TOP:black 1px solid;PADDING-LEFT:15px;PADDING-BOTTOM:15px;BORDER-LEFT:black 1px solid;WIDTH:300px;PADDING-TOP:15px;BORDER-BOTTOM:black 1px solid;BACKGROUND-COLOR:beige">
被除数:<br>
<asp:TextBox id="Operand1" Text="15" runat="server" /><br>
除 数:<br>
<asp:TextBox id="Operand2" Text="5" runat="server" /><p>
<input type="submit" id="除" value="除" OnServerClick="Submit_Click" runat="server" NAME="除">
<p>
<asp:Label id="Result" runat="server" /></p>
</div>
</form>
</body>
</HTML>
<HTML>
<script language="VB" runat="server">
Dim Op1 As Single = 0
Dim Op2 As Single = 0
Public Sub Submit_Click(Sender As Object, E As EventArgs)
Try
Op1 = Single.Parse(Operand1.Text)
Op2 = Single.Parse(Operand2.Text)
Catch Exp As Exception
' Ignored
End Try
Dim Service As x801.x801 = New x801.x801()
Result.Text = "<b>结果</b> = " & Service.Divide(Op1,Op2).ToString()
End Sub
</script>
<body style="FONT: 10.5pt 宋体">
<h4>第八单元 第一题
</h4>
<form runat="server" ID="Form1">
<div style="BORDER-RIGHT:black 1px solid;PADDING-RIGHT:15px;BORDER-TOP:black 1px solid;PADDING-LEFT:15px;PADDING-BOTTOM:15px;BORDER-LEFT:black 1px solid;WIDTH:300px;PADDING-TOP:15px;BORDER-BOTTOM:black 1px solid;BACKGROUND-COLOR:beige">
被除数:<br>
<asp:TextBox id="Operand1" Text="15" runat="server" /><br>
除 数:<br>
<asp:TextBox id="Operand2" Text="5" runat="server" /><p>
<input type="submit" id="除" value="除" OnServerClick="Submit_Click" runat="server" NAME="除">
<p>
<asp:Label id="Result" runat="server" /></p>
</div>
</form>
</body>
</HTML>