level 3
zhang4165
楼主
一个求平方和一个求立方和怎么输出两行
新手~~求大神指导
<%@ Page Language="VB"%>
<script runat="server">
Class test
Public shared Function pingfanghe(a As Integer,b as Integer)
Dim sum2,sum1,i as Long
For I=a to b
sum1=Sum1+I^2
sum2=sum2+I^3
Next
return sum1
return sum2
End Function
End Class
Sub Page_Load(Sender As Object, E As EventArgs)
message1.text=test.pingfanghe(5,7)="CStr(sum1)
'message2.text=test.pingfanghe(7.9)
End Sub
</script>
<html>
<body>
<asp:label id="Message1" runat=server/>
</p><asp:label id="Message2" runat=server/>
</body>
</html>
2011年11月02日 11点11分
1
新手~~求大神指导
<%@ Page Language="VB"%>
<script runat="server">
Class test
Public shared Function pingfanghe(a As Integer,b as Integer)
Dim sum2,sum1,i as Long
For I=a to b
sum1=Sum1+I^2
sum2=sum2+I^3
Next
return sum1
return sum2
End Function
End Class
Sub Page_Load(Sender As Object, E As EventArgs)
message1.text=test.pingfanghe(5,7)="CStr(sum1)
'message2.text=test.pingfanghe(7.9)
End Sub
</script>
<html>
<body>
<asp:label id="Message1" runat=server/>
</p><asp:label id="Message2" runat=server/>
</body>
</html>
