3-9.aspx

来自「程序源代码分成两个部分: &#61557 一部分是用记事本或EditPlus」· ASPX 代码 · 共 25 行

ASPX
25
字号
<%@page LANGUAGE = "vb"%>
<HTML>
<HEAD>
		<title>Test For</title>
</HEAD>
<BODY>
<%
	Dim i,j,k,n As Integer
	n=0
	for  i = 1 To 5 
		for j = 1 to 5
			if i<> j then
				for k=1 to 5
					if (i<>k) and (j<>k) then
						n+=1
					end if
				next k
			end if
		next j
	next i
	Response.Write("可能的取法: " & n)	
%>
</BODY>
</HTML>

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?