📄 3-14.aspx

📁 程序源代码分成两个部分： &#61557 一部分是用记事本或EditPlus编写的

💻 ASPX

字号:

<%@page LANGUAGE = "vb"%>
<script language="vb" runat ="server">
public class Complex
		private imag, real as double
        	public message as String
		public Sub New()
			message = "New..."
			imag = 0
			real = 0                
		end sub
		public sub New(byval r as double, byval i as double)
			message = "New(r,i)..."
			imag = i
			real = r
		End sub	
end class
</script>
<HTML>
<HEAD>
		<title>Test Class</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 c as new complex()
	 	response.write(c.message)
	 	dim cc as new complex(10,20)
	 	response.write(cc.message)
%>
</TD>
</TR>
</TABLE>
</BODY>
</HTML>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -