📄 3-6.aspx
字号:
<%@page LANGUAGE = vb%>
<HTML>
<HEAD>
<title>Test Select</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 days As Integer = 0
Dim month As Integer = 3
Select month
case 1,3,5,7,8,10,12
days = 31
case 2:
days = 28
case 4, 6,9,11
days = 30
Case Else
days = 0
End Select
response.write("This month has " & days & "days ")
%>
</TD>
</TR>
</TABLE>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -