《程序练习题.pdf》由会员分享，可在线阅读，更多相关《程序练习题.pdf（3页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、程序练习题1. 在表单的标签上输出自然数1,2,3,4,5for i=1 to 5thisform.label1.caption=thisform.label1.caption+str(i,3)endfor2. 求所有的 3 位正整数除以 99 的商和余数3. 找出 2010 至 2100 之间所有闰年的年份for i=2010 to 2100if mod(i,4)=0 and mod(i,100)0 or mod(i,400)=0thisform.label1.caption=thisform.label1.caption+str(i,6)endifendfor4. 有一张 0.5mm 厚足
2、够大的纸，问对折多少次可以达到珠峰高度（8848.13m）？n=0.5s=0do while n8848.13*1000exitelses=s+1endifenddothisform.label1.caption=str(s)5. 计算 1+3+5+99，并将结果显示在标签中s=0for i=1 to 99 step 2s=s+iendforthisform.label1.caption=str(s,4)6. 计算 1+2+3+100，并将结果显示在标签中7. 计算 2+4+6+100，并将结果显示在标签中8. 求使 s=1+2+3+n5050 的最小的 n9. 计算 1 至 100 之间所有
3、能被 3 整除的数之和,并将结果存入文本框Text1中s=0for i=1 to 100 x=iif(mod(i,3)=0,i,0)s=s+xendforthisform.text1.value=s10. 求 s=1/12+1/22+1/n2s=0n= thisform.text1.valuefor i=1 to ns=s+1/i2endforthisform.text1.value=s11. 统计 1 至 100 之间能被 7 整除的数的个数n=0for i=1 to 100if mod(i,7)=0n=n+1endifendforthisform.text1.value=n12. 输出 1
4、01500 之间的所有奇数及计算这些奇数的和。13. 求 t=n!14. 求 s=1！+2！+3！+4！+20!s=0for n=1 to 20t=1for i=1 to nt=t*iendfors=s+tendforthisform.text1.value=s15. 输出九九乘法表for i=1 to 9for j=1 to 9?str(i,1)+* +str(j,1)+=+str(i*j,2)+space(3)endfor?endfor16. “水仙花数” 是一个 3 位数， 其各位数字立方和等于该数本身 （例如 371=33+73+13） 。17.编写程序在窗体上输出所有的“水仙花数”.
5、for i=100 to 999a=int(i/100)b=int(i-a*100)/10)c=i-a*100-b*10if i=a3+b3+c3?iendifendfor18.编写程序用于输入任意三个数a,b,c，输出三者之中最大数。a=thisform.text1.valueb=thisform.text2.valuec=thisform.text3.valuex=iif(a-b0,a,b)y=iif(x-c0,x,c)thisform.text4.value=y19.输出倒三角形.20.编写程序用于判断文本框text1 中输入的 n 是否是素数。21.利用文本框 text1 输入一个数，如果是正数，输出其平方根，否则输出其平方，结果的输出用文本框 text2。