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