📄 listing0307.aspx
字号:
<%@ Page Language="VB" %>
<script runat="server">
sub Page_Load(obj as object, e as eventargs)
dim intAge As integer = 7
select Case intAge
case "7"
Response.Write("That's a string!")
case 7
Response.Write("You're 7 years old.")
case <10
Response.Write("Wow, you're young!")
end select
'dim strDay as string
'dim arrWeekDays() as String = {"Monday", "Tuesday", _
' "Wednesday", "Thursday", "Friday"}
'For Each strDay in arrWeekDays
' Response.Write(strDay & "<br>")
' exit for
'Next
end sub
</script>
<html><body>
</body></html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -