3-12.aspx

来自「程序源代码分成两个部分: &#61557 一部分是用记事本或EditPlus」· ASPX 代码 · 共 32 行

ASPX
32
字号
<%@page LANGUAGE = "vb"%>
<Script Language="vb" RunAt ="server">
Sub Max(ByVal x As Integer, ByVal y As Integer) 
    Dim m As Integer
	IF x > y Then 
		m = x
    Else
		m = y
    End IF
     Response.Write("The Max is " & m)
End Sub 
</script>
<HTML>
<HEAD>
	<title>Test Function</title>
</HEAD>
<BODY>
<TABLE width="100%" bordercolor="blue" border="1">
<TR height=25 bgcolor="blue" >
<TD align="center"><font color="white">程序输出结果</font></TD></TR>
<TR bgcolor="white"><TD>
<%      
    	Dim i As Integer = 100
	Dim j As Integer = 200
	Max(i , j)
%>
</TD>
</TR>
</TABLE>
</BODY>
</HTML>

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?