VBScript1Word格式文档下载.docx
《VBScript1Word格式文档下载.docx》由会员分享，可在线阅读，更多相关《VBScript1Word格式文档下载.docx（11页珍藏版）》请在冰豆网上搜索。
sum=1
fori=1to50step1
sum=sum*i
3、
求一元二次方程ax2+bx+c=0的解
3、求一元二次方程ax2+bx+c=0的解<
dima,b,c,k
a=cint（inputbox（"
请输入a的值:
"
））
b=cint（inputbox（"
请输入b的值:
c=cint（inputbox（"
请输入c的值:
k=b*b-4*a*c
ifk<
0then
document.write"
方程无实解!
elseifk=0then
方程有一个解:
&
-b/（2*a）
else
方程有两个解x1="
（-b+sqr（k））/（2*a）&
nbsp"
x2="
（-b-sqr（k））/（2*a）
endif
4、
用*打印矩形
vbscript"
dimi,j,m,n
m=inputbox（"
请输入行：
"
）
n=inputbox（"
请输入列：
fori=1tom
forj=1ton
document.write"
*"
next
br>
5、
用*打印平行四边形
请输入行数"
请输入列数"
forj=1tom-i
next
6、
用*打印三角形
dimi,j,m
forj=1to2*i-1
直角
scriptlanguage='
vbscript'
nbsp;
forj=1tom-j
next
document.write"
7、
用*打印菱形
forj=1toabs（（m+1）/2-i）
forj=1to2*（（m+1）/2-abs（（m+1）/2-i））-1
8、
打印乘法口诀表
乘法口诀表<
dimi,j
fori=1to9
forj=1toi
document.writej&
i&
="
j*i
ifj*i<
10then
endif
9、
三位数中，各个位互不相同且无重复数字的数有多少个，打印输出
dima,b,c
fora=1to9
forb=0to9
forc=0to9
if（a<
bandb<
canda<
c）then
document.writea*100+b*10+c&
10、题目：
有一分数序列：
2/1，3/2，5/3，8/5，13/8，21/13...求出这个数列的前20项之和。
2/1，3/2，5/3，8/5，13/8，21/13...<
dima,b,c,sum,k
a=2
b=1
fori=1to20
sum=sum+a/b
c=a
a=a+b
b=c
11、题目：
打印出所有的“水仙花数”，所谓“水仙花数”是指一个三位数，其各位数字立方和等于该数
水仙花数<
if（a^3+b^3+c^3=a*100+b*10+c）then
12、题目：
输入两个正整数m和n，求其最大公约数和最小公倍数
一定义法
dimm,n
请输入正整数m"
请输入正整数n"
ifm>
nthen
fori=1ton
ifmmodi=oandnmodi=othen
最大公约数为:
i
else
fori=1tom
二辗转相除法
dimm,n,k,s
mn=m*n
ifm<
nthen
s=m
m=n
n=s
do
k=mmodn
m=n
n=k
loopuntilk=0
document.write"
m&
最小公倍数为:
mn/m
三.辗转减法
12公约数<
dimm,n,s
do
m=m-n
loopuntilm=o
document.writen
13、题目：
打印出杨辉三角形（要求打印出10行如下图）
1
1
1
2
3
4
6
1
5
10105
………………………………
杨辉三角形<
dima（10,10）,i,k
fori=1to10
a（i,1）=1
a（i,i）=1
forj=3to10
fork=2toj
a（j,k）=a（j-1,k-1）+a（j-1,k）
fori=1to10
forj=1toi
document.writea（i,j）&
14、题目：
求1+2!
+3!
+...+20!
的和
1+2!
dimi,j,s,m
s=o
forj=1to20
m=j
fori=jto1
m=m*i
s=s+m
document.writes
老师做的
dimi,j,s
s=0
j=1
fori=1to20
j=j*i
s=s+j
s
15、题目：
利用递归方法求5!
递归方法求5!
functionabc（i）
ifi>
=2then
abc=i*abc（i-1）
abc=1
endfunction
document.writeabc（5）
16、题目：
求100之内的所有素数
求100之内的所有素数<
fori=2to100
forj=2tocint（sqr（i））
if（imodj=0）then
exitfor
next
ifi=cint（sqr（i））+1then
document.writei&
17、生成50以内的十个互不相同的随机整数，并打印输出
17、生成50以内的十个互不相同的随机整数，并打印输出<
dima（10）,i,k
randomize（）
dowhiletrue
a（i）=int（rnd（）*50）
fork=1toi-1
ifa（i）=a（k）then
ifk=ithen
exitdo
loop
document.writea（i）&
18、从键盘上输入10个正整数，然后进行从小到大进行排序，并显示排序后的结果
dima（10）,i,j,k
k=0
a（i）=int（inputbox（"
请输入第"
i&
个正整数"
fori=9to1step-1
ifa（j）>
a（j+1）then
k=a（j）
a（j）=a（j+1）
a（j+1）=k
document.writea（i）&
19、单击网页上的按钮显示当前的系统时间
显示当前的系统时间<
subbutton1_onclick
msgboxtime（）
endsub
inputtype="
button"
value="
显示时间"
name="
button1"
20、编写一个ASP文件，要求在客户端浏览器中以不同的字号显示“HELLOWORLD!
”
%@language="
%>
%fori=3to7%>
fontsize=<
%=i%>
HELLOWORLD!
<
font>
%next%>
升级会员 