VBScript1.docx

1、VBScript1、 求1+2+3+100的和并输出1、求1+2+3+100的和并输出dim i,sum sum=0for i=1 to 100 step 1 sum=sum+inextdocument.write sum2、 求1*2*3*50的积并输出1*2*3*50dim i,sum sum=1for i=1 to 50 step 1 sum=sum*inextdocument.write sum3、 求一元二次方程ax2+bx+c=0的解3、求一元二次方程ax2+bx+c=0的解dim a,b,c,ka=cint(inputbox(请输入a的值:)b=cint(inputbox(请输入

2、b的值:)c=cint(inputbox(请输入c的值:)k=b*b-4*a*cif k0 then document.write 方程无实解!elseif k=0 then document.write 方程有一个解:&-b/(2*a)else document.write 方程有两个解x1=&(-b+sqr(k)/(2*a) &x2=&(-b-sqr(k)/(2*a)end if4、 用*打印矩形dim i,j,m,nm=inputbox(请输入行： )n=inputbox(请输入列： )for i=1 to m for j=1 to n document.write* next

3、document.writenext5、 用*打印平行四边形dim i,j,m,nm=inputbox(请输入行数)n=inputbox(请输入列数)for i=1 to m for j=1 to m-i document.write  next for j=1 to n document.write* next document.writenext 6、 用*打印三角形dim i,j,m m=inputbox(请输入行数)for i=1 to m for j=1 to m-i document.write  next for j=1 to 2*i-1 document.wri

4、te* next document.writenext 直角dim i,j,m,nm=inputbox(请输入行： )for i=1 to m for j=1 to m-i document.write  next for j=1 to m-j document.write* next document.writenext7、 用*打印菱形dim i,j,m m=inputbox(请输入行数)for i=1 to m for j=1 to abs(m+1)/2-i) document.write  next for j=1 to 2*(m+1)/2-abs(m+1)/2-i)

5、-1 document.write* next document.writenext 8、 打印乘法口诀表乘法口诀表dim i,jfor i=1 to 9for j=1 to i document.write j &*& i&=&j*i if j*i10 then document.write    else document.write    end ifnextdocument.write next9、 三位数中，各个位互不相同且无重复数字的数有多少个，打印输出dim a,b,cfor a=1 to 9 for b=0

6、to 9 for c=0 to 9 if(ab and bc and ac) then document.write a*100+b*10+c  end if next nextnext10、 题目：有一分数序列：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.dim a,b,c,sum,ka=2b=1sum=0for i=1 to 20 sum=sum+a/bc=aa=a+bb=cnextdocument.write sum11、 题目：打印出所有的“水仙花数”，所谓“水仙花数”是指一个三位数，

7、其各位数字立方和等于该数水仙花数dim a,b,cfor a=1 to 9 for b=0 to 9 for c=0 to 9 if(a3+b3+c3=a*100+b*10+c) then document.write a*100+b*10+c  end if next nextnext12、 题目：输入两个正整数m和n，求其最大公约数和最小公倍数一定义法dim m,nm=inputbox(请输入正整数m)n=inputbox(请输入正整数n)if mn then for i=1 to n if m mod i=o and n mod i=o then document.write

8、最大公约数为:&i end if next else for i=1 to m if m mod i=o and n mod i=o then document.write 最大公约数为:&i end if nextend if二辗转相除法dim m,n,k,sm=inputbox(请输入正整数m)n=inputbox(请输入正整数n)mn=m*nif mn then s=m m=n n=send ifdo k=m mod nm=nn=kloop until k=0document.write 最大公约数为:&m &最小公倍数为:&mn/m三.辗转减法12公约数dim m,n,sm=i

9、nputbox(请输入正整数m)n=inputbox(请输入正整数n)doif mn then s=m m=n n=send ifm=m-nloop until m=odocument.write n13、 题目：打印出杨辉三角形（要求打印出10行如下图）11 11 2 11 3 3 11 4 6 4 1 1 5 10 10 5 1杨辉三角形dim a(10,10),i,kfor i=1 to 10 a(i,1)=1 a(i,i)=1next for j=3 to 10 for k=2 to j a(j,k)=a(j-1,k-1)+a(j-1,k) next nextfor i=1 to 10

10、 for j=1 to i document.write a(i,j)   next document.writenext14、 题目：求1+2!+3!+.+20!的和1+2!+3!+.+20!dim i,j,s,ms=ofor j=1 to 20 m=j for i=j to 1 m=m*i nexts=s+mnextdocument.write s老师做的dim i,j,ss=0j=1for i=1 to 20 j=j*i s=s+jnext document.write&s15、 题目：利用递归方法求5!递归方法求5!function abc(i)if i=2 the

11、nabc=i*abc(i-1)elseabc=1end ifend functiondocument.write abc(5)16、 题目：求100之内的所有素数求100之内的所有素数dim i,jfor i=2 to 100 for j=2 to cint(sqr(i) if (i mod j=0) then exit for end if next if i=cint(sqr(i)+1 then document.write i  end if next 17、 生成50以内的十个互不相同的随机整数，并打印输出17、生成50以内的十个互不相同的随机整数，并打印输出dim a(10)

12、,i,krandomize()for i=1 to 10do while truea(i)=int(rnd()*50) for k=1 to i-1 if a(i)=a(k) then exit for end if next if k=i then exit do end if loopnextfor i=1 to 10document.write a(i)&next18、 从键盘上输入10个正整数，然后进行从小到大进行排序，并显示排序后的结果dim a(10),i,j,kk=0for i=1 to 10a(i)=int(inputbox(请输入第&i&个正整数)nextfor i=9 to 1 step-1 for j=1 to i if a(j)a(j+1) then k=a(j) a(j)=a(j+1) a(j+1)=k end if nextnextfor i=1 to 10 document.write a(i)&next 19、 单击网页上的按钮显示当前的系统时间显示当前的系统时间sub button1_onclickmsgbox time()end sub20、 编写一个ASP文件，要求在客户端浏览器中以不同的字号显示“HELLO WORLD!”font size=HELLO WORLD!