UC知道关于ASP程序设计与应用？以下问题这么编啊？
来源：百度知道 编辑：UC知道 时间：2024/05/25 00:43:06
1． VBscript程序设计
(1)用InputBox()函数输入一元二次方程的三个系数A、B、C，判断是否有实根，如果有，则求出，并用函数MsgBox()输出。否则输出无实根信息。
(2)用InputBox()函数输入任意整数N,计算sum=1+3+5+…+(2N-1),并用函数MsgBox()输出sum的值。
(3)编写计算圆面积的function过程。
(4)编写两个数交换的Sub过程。
(5)编写判断奇偶数的Function过程。
(6)编写判断输入的是否是邮件地址的Function过程。
(7)使用while..wend语句判断输入的每一个字符是否属于26个英文字母。如果存在非英文字母，则给出提示。
(8)用一个简单的for..next语句，用图片显示生成的随机数。
(1)用InputBox()函数输入一元二次方程的三个系数A、B、C，判断是否有实根，如果有，则求出，并用函数MsgBox()输出。否则输出无实根信息。
(2)用InputBox()函数输入任意整数N,计算sum=1+3+5+…+(2N-1),并用函数MsgBox()输出sum的值。
(3)编写计算圆面积的function过程。
(4)编写两个数交换的Sub过程。
(5)编写判断奇偶数的Function过程。
(6)编写判断输入的是否是邮件地址的Function过程。
(7)使用while..wend语句判断输入的每一个字符是否属于26个英文字母。如果存在非英文字母，则给出提示。
(8)用一个简单的for..next语句，用图片显示生成的随机数。
1、<html>
<head>
<title>input函数的使用</title>
</head>
<body>
<script language="vbscript">
a=inputbox("a")
b=inputbox("b")
c=inputbox("c")
m=b^2-4*a*c
if m>0 then
x1=(sqr(m)-b)/(2*a)
x2=(-sqr(m)-b)/(2*a)
msgbox "有两个不同的实数根：" &x1& "和" &x2
elseif m=0 then
x1=(sqr(m)-b)/(2*a)
msgbox "有两个相同的实数根：" &x1
else
msgbox"无实数根"
end if
</script>
</body>
</html>
2、<body>
<script language="vbscript">
dim n
n= InputBox("请输入任意一个整数：")
if not isnumeric(n) then msgbox"输入错误，请输入数字！"
sum=0
for i=1 to n step 2
sum=sum+i
next
msgbox "sum=1+3+5+…+(2n-1)的和是:"&sum
</script>
</body>
3、<body>
<script language="vbscri