查人人中国名人网ppap文件是什么:网页编程高手进
来源：百度文库 编辑：查人人中国名人网 时间：2024/05/05 16:55:54
01.用InputBox()函数输入一元二次的方程的三个系数A,B,C.判断是否有实根,如有则求出,并用函数MsgBOX输出.否则输出无实根信息!(用VB编写)
02.用InputBox()函数输入任意整数N,计算sum=1+3+5+7+...+(2N-1),并用函数MsgBOX输出sun的值.(用VB编写)
03.编写计算圆面积的function过程.(用VB编写)
04.编写两个数交换的Sub过程.(用VB编写)
05.编写判断奇偶数的function过程.(用VB编写)
考试用急啊
高手们帮帮我.
到06.24早上9:00止
用VBscipt编写
02.用InputBox()函数输入任意整数N,计算sum=1+3+5+7+...+(2N-1),并用函数MsgBOX输出sun的值.(用VB编写)
03.编写计算圆面积的function过程.(用VB编写)
04.编写两个数交换的Sub过程.(用VB编写)
05.编写判断奇偶数的function过程.(用VB编写)
考试用急啊
高手们帮帮我.
到06.24早上9:00止
用VBscipt编写
01
a=inputbox("A")
b=inputbox("B")
c=inputbox("C")
if b^2-4*a*c>=0 then
msgbox "有"
else
msgbox "无"
end if
-------------------
02
a=inputbox("N")
for i=1 to 2*a step 2
s=s+i
next
msgbox s
1，2楼上已经写了。
我写后面的吧
03:
function GetArea(byval r)
getarea=3.1415926*r*r
end function
04:
sub Swap(byref a,byref b)
dim tmp
tmp=a
a=b
b=tmp
end sub
05:
function IsOushu(byval num)
isoushu=(num mod 2=0)
end sub
当然什么数据类型 楼主可以根据实际情况改。