UC知道帮忙看一下一段vb的代码
来源：百度知道 编辑：UC知道 时间：2024/05/07 06:30:00
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>调用带有参数的sub</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<script type="vbscript">
<!--
sub a(n1,n2)
dim startnum
dim endnum
dim i
startnum=cint(n1)
endnum=cint(n2)
result=0
for i =startnum to endnum
result=result+1
next
b.result.value=result
end sub
-->
</script>
</head>
<body>
<form name="b">
计算从<input type="text" name="start">
到<input type="t
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>调用带有参数的sub</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<script type="vbscript">
<!--
sub a(n1,n2)
dim startnum
dim endnum
dim i
startnum=cint(n1)
endnum=cint(n2)
result=0
for i =startnum to endnum
result=result+1
next
b.result.value=result
end sub
-->
</script>
</head>
<body>
<form name="b">
计算从<input type="text" name="start">
到<input type="t
<html>
<head>
<title>调用带有参数的sub</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<script language="vbscript">
<!--
sub a(n1,n2)
dim startnum
dim endnum
dim i
startnum=cint(n1)
endnum=cint(n2)
result=0
for i =startnum to endnum
result=result+i
next
b.result.value=result
end sub
-->
</script>
</head>
<body>
<form name="b">
计算从<input type="text" name="start">
到<input type="text" name="end">
之间的所有整数的和
<input type="button" value="提交" onClick="vbscript:a b.start.value,b.end.value">
<br> 结果为：<input name="result" type="text" value="">
</for