📄 3-1.aspx
字号:
<%@page LANGUAGE = vb%>
<Script Language="VB" RunAt="Server">
Structure Rectangle
Public x, y As Integer ' 矩形左上角的坐标
Public width, height As Integer ' 矩形的宽和高
Public Sub New(ByVal a As Integer, ByVal b As Integer, ByVal w As Integer, ByVal h As Integer)
x = a
y = b
width = w
height = h
End Sub
End Structure
</Script>
<HTML>
<HEAD>
<title>Test Structure</title>
</HEAD>
<BODY>
<%
Dim rect as New Rectangle(10,20,30,40)
Response.Write("My Rectangle:" & "<BR>" & rect.width)
%>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -