BlogJava-tomtom-文章分类-VB.NET流程控制

For Each...In...Next循环语句

The Game, tomtom — Sat, 11 Feb 2006 13:51:00 GMT

<%@ page language="vb" %>
<h1>For EachInNext语句<br>
获取Request对象ServerVariables方法的集合
h1>

<table border="1">
<%
Dim vars
For Each vars In Request.ServerVariables
%>
<tr>
<td><% =vars %>td>
<td><% =Request.ServerVariables(vars) %>td>
tr>

<% next %>
table>

For Each...In...Next适用于不知道元素数量的对象集合.

The Game, tomtom 2006-02-11 21:51 发表评论

For...Next嵌套结构经典---九九乘法表

The Game, tomtom — Sat, 11 Feb 2006 13:34:00 GMT

<%@ page language="vb" %>
<h1>循环嵌套结构h1>
<%
Dim intA,intB As integer
For intA=1 to 10 step 1
       For intB=1 to 10 step 1
       Response.write(intA & "*" & intB & "=" & intA*intB & "
")
    Next intB
Next intA
%>

For...Next里面有另一对For...Next

The Game, tomtom 2006-02-11 21:34 发表评论

经典For...Next循环结构

The Game, tomtom — Sat, 11 Feb 2006 13:22:00 GMT

<%@ page language="vb" %>
<h1>ForNext循环语句h1>
<%
Dim intA,intB As integer
intB=0
For intA=1 to 10 step 1
intB=intB+intA
Next intA
response.write("1加到10的总和为"&intB)
%>

intB=intB+intA,一句耐人寻味的话.
第一个intB等于0,
以后的每一个intB等于它的前一个intB的值加上intA
而intA由1到10,步长为1变化
我是这样理解的

The Game, tomtom 2006-02-11 21:22 发表评论

条件判断语句嵌套结构

The Game, tomtom — Mon, 06 Feb 2006 13:31:00 GMT

<%@ page language="vb" %>
<h1>条件判断语句嵌套结构h1>
<%
Dim blnA as boolean=false, blnB as boolean=true
If blnA=true Then
       response.write("blnA的值为true
")
  If blnB=true Then
    response.write("blnB的值为true
")
  Else
    response.write("blnB的值为false
")
  End If
Else
   response.write("blnA的变量值为false
")
End if
%>

The Game, tomtom 2006-02-06 21:31 发表评论

Select...Case...条件判断语句

The Game, tomtom — Mon, 06 Feb 2006 13:14:00 GMT

<%@ page language="vb" %>
<h1>SelectCase条件判断语句h1>
<%
dim intA as integer=1
   Select Case intA
        Case 1
          response.write("intA的变量值等于1")
        Case 2
          response.write("intA的变量值等于2")
        Case Else
          response.write("intA的变量值小于1或大于2")
  End Select
%>

Select Case后面声明了哪个是变量
Case后面表示变量的值,另一行表示对应的值所作出的响应

The Game, tomtom 2006-02-06 21:14 发表评论

If...Then...Else条件判断语句

The Game, tomtom — Mon, 06 Feb 2006 13:03:00 GMT

<% @ page language="VB" %>
<h1>ifthenelse条件判断语句h1>
<%
Dim blnA as boolean=false
If blnA=false Then
response.write("blnA的值为false
")
Else
response.write("blnA的值为true
")
End If
%>

The Game, tomtom 2006-02-06 21:03 发表评论