循环语句无法运行?

来源:百度知道 编辑:UC知道 时间:2024/06/21 06:22:42
<html>
<head>
<body>
<title>测试循环语句do...loop</title>
</head>
<%
'创建一个使用do while...loop语句循环的过程
sub firstwhile()
dim count,num1
count=0
num1=30
do while num1>15
num1=num1-1
count=count+1
loop
msgbox "do while...loop循环重复了" & count & "次"
end sub
'调用firstwhile过程
call firstwhile
sub lastwhile()
dim count,num2
count=0
num2=10
do
num2=num2-1
count=count+1
loop while num2>15
msgbox "do...loop while循环重复了" "& count &"次。"
end sub
'调用lastwhile过程
call lastwhile
%>
</body>
</html>
该代码咋无法运行?

调用 Sub 过程时,只需输入过程名及所有参数值,参数值之间使用逗号分隔。不需使用 Call 语句,但如果使用了Call语句,则必须将所有参数包含在括号之中。
下面的示例显示了调用 MyProc 过程的两种方式。一种使用 Call 语句;另一种则不使用。两种方式效果相同。

Call MyProc(firstarg, secondarg)
MyProc firstarg, secondarg

请注意当不使用 Call 语句进行调用时,括号被省略。
使用 Call 语句进行调用时,括号不能省略。

<html>
<head>
<body>
<title>测试循环语句do...loop</title>
</head>
<%
'创建一个使用do while...loop语句循环的过程
sub firstwhile()
dim count,num1
count=0
num1=30
do while num1>15
num1=num1-1
count=count+1
loop
msgbox "do while...loop循环重复了" & count & "次"
end sub
'调用firstwhile过程
call firstwhile()
sub lastwhile()
dim count,num2
count=0
num2=10
do
num2=num2-1
count=count+1
loop while num2>15
msgbox "do...loop while循环重复了" "& count &"次。"
end sub