国产精品一区二区a,亚洲精品在线国产,国产98在线

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

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

<%@ page language="vb" %>
<h1>For EachInNext语句<br>
获取Request对象ServerVariables�Ҏ��的集�?BR>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 发表评论

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

<%@ page language="vb" %>
<h1>循环嵌套�l�构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 发表评论

�l�典For...Next循环�l�构

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的��d��?/SPAN>"&intB)
%>

intB=intB+intA,一句耐�h��d��的话.
�W�一个intB�{�于0,
以后的每一个intB�{�于它的前一个intB的值加上intA
而intA�?�?0,步长�?变化
我是�q�样理解�?nbsp;

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

条�g判断语句嵌套�l�构

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

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

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

Select...Case...条�g判断语句

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

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

Select Case后面声明了哪个是变量
Case后面表示变量的�?另一行表�C�对应的值所作出的响�?img src ="http://www.aygfsteel.com/tomtom/aggbug/29728.html" width = "1" height = "1" />

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

If...Then...Else条�g判断语句

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

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

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