3-8.aspx

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

ASPX
39 行
字号 
<%@page LANGUAGE = vb%>
<HTML>
<HEAD>
	<title>Test Do</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 r As Integer = 0
		Dim t As Integer = 0
		Dim n As Integer = 0
		Dim m As Integer = 0
		Do While r > 5	' 由于r小于5，因此循环并不执行
			r = r + 1	
		Loop
		Do
			t = t + 1	
		Loop While t > 5	' 不论r是什么值，循环都至少执行一次
		Do
			n = n + 1	
			' 使用While关键字，判断条件表达式的值为True，则继续循环
		Loop While n < =5
		Do 
			m = m + 1	
			' 使用Until关键字，判断条件表达式的值为True，则结束循环
		Loop Until m >5		
		Response.Write("The number of the Do While cycle is " & r & "<br>")
		Response.Write("The number of the Loop While cycle is " & t & "<br>")
		Response.Write("The number of the while cycle is " & n & "<br>")
		Response.Write("The number of the until cycle is " & m )
    %>
</TD>
</TR>
</TABLE>
</BODY>
</HTML>

3-8.aspx - 源码说明

本页面展示了「程序源代码分成两个部分： &#61557 一部分是用记事本或EditPlus编写的」中的 3-8.aspx 源码文件，采用 ASPX 编程语言编写，共 39 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与EditPlus相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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