📄 ch06-02-01.aspx
字号:
<%@ Page Language="VB" %>
<Html>
<Head>
<Title>Ch06-02-01.aspx Sub程序的输入值范例</Title>
<Script Language="VB" Runat = "Server">
' 这是具有输入值的Sub程序
Sub DynamicSub(ByVal VarA As Object)
Response.Write("程序名称：DynamicSub(ByVal VarA As Object)<BR>")
Response.Write("具有输入值的Sub程序，可以产生动态的变化！<BR>")
Response.Write("输入的数据为：" & VarA & "<P>")
End Sub
' 这是不具有输入值的Sub程序
Sub DisplayText()
Response.Write("程序名称：DisplayText()<BR>")
Response.Write("不具有输入值的Sub程序，只能处理特定的运算！")
End Sub
</Script>
</Head>
<Body>
<%
Dim strTemps As String
strTemps = "简单易学的 ASP.NET 程序设计！"
' 调用 DynamicSub程序
Call DynamicSub(strTemps)
' 调用DisplayText程序
Call DisplayText
%>
</Body>
</Html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -