计算机vf最后一题

1求所有三位数的水仙花数x=""for n=100 to 999a=int(n/100)b=int(mod(n,100)/10)c=mod(n,10)if not (a^3+b^3+c^3=n)loopelsex=x+str(n,3)+""endifendforbel1.caption=x2判断一个数是不是水仙花数x=thisform.text1.valueif x<100 or x>999 or x<>int(x)messagebox("你输入的不是整数或三位数")elsea=int(x/100)b=int(x/10)%100c=x%10if a^3+b^3+c^3=xbel2.caption="你输入的是水仙花数"elsebel2.caption="你输入的不是水仙花数"endifendif3三角形的面积a=thisform.text1.valueb=thisform.text2.valuec=thisform.text3.valueif a+b>c and b+c>a and c+a>a and a>0 and b>0 and c>0l=(a+b+c)/2s=sqrt(l*(l-a)*(l-b)*(l-c))thisform.text4.value=selsemessagebox("你输入的不能构成三角形")endif4判断一个数是否为素数x=thisform.text1.valueif x<2 or x<>int(x)thisform.resealeendiffor i=2 to x-1if x%i=0exitendifendforif i>=xbel2.caption="你输入的是素数"elsebel2.caption="你输入的不是素数"endif5数字与字母的逆顺显示（text1不修改）x=alltrim(thisform.text1.value)c=""for i=len(X) to 1 step -1c=c+substr(x,i,1)endforbel2.caption=c6 求n! 求n!之和p=1 s=0 p=1 在（p=p*i）后加s=s+p for i=1 to thisform.text1.value thisform.text2.value=s p=p*iendforthisform.text2.value=p7判断是否为闰年y=thisform.text1.valueif y/4=int(y/4) and y/100<>int(y/100) or y/400=int(y/400)bel2.caption="你输入的年份是闰年"elsebel2.caption="你输入的年份不是闰年"Endif8求最大公约数和最小公倍数a=thisform.text1.valueb=thisform.text2.valueif a<bt=bb=aa=tendift=a*bdo while b#0c=a%ba=bb=cenddot=t/abel3.caption="最小公倍数为："+alltrim(str(t))bel4.caption="最大公约数为："+alltrim(str(a))9编程1-3+5-7————————101 100以内能被3或5整除的和s=0for i=1 to 100s=0 if i%3=0 or i%5=0f=1 s=s+ifor i=1 to 101 step 2 endifs=s+i*ff=-fendforthisform.text1.value=s10编程s=1-1/2+1/3-1/4--------1/100s=0f=1for i=1 to 100s=s+1/i*ff=-fendforthisform.text1.value=str(s,10,2)11 季节x=thisform.text1.valuedo casecase x=3 or x=4 or x=5c="春季"case x=6 or x=7 or x=8c="夏季"case c=9 or x=10 or x=11c="秋季"case c=12 or c=1 or c=2c="冬季"endcasebel2.caption=c12 判断等级x=thisform.text1.valueif x>=0 and x<=100do casecase x<60c="不及格"case x>=60 and x<70c="一般"case x>= 70 and x<80c="中等"case x>=80 and x<90c="良好"case x>=90c="优秀"endcasebel2.caption=celsemessagebox("输入错误请重新输入")endif13 求100以内能被x整除的和，并按回车键显示答案Text1 ，text2 的初始值为0 text2的属性为gotforcex=thisform.text1.values=0for i=1 to 100if i%x=0s=s+iendifendforthisform.text2.value=s14 n自然数的平方和文本框text2的Gotfocus事件代码：n=thisform.text1.valueif n>0 and int(n)=ns=0for i=1 to ns=s+i^2endforthisform.text2.value=selsemessagebox("n不是自然数")endif15 n自然数的倒数和n>0 and int(n)=n s=s+1/i16 输入一段字符，找字母串，数字串，和个数（1）找字母x=alltrim(thisform.text1.value)n=""for c=1 to len(x)y=substr(x,c,1)if asc(y)>=asc("A") and asc(y)<= asc("Z") or asc(y)>= asc("a") and asc(y)<= asc("z") n=n+yendifendforbel2.caption=n（2 ）找数字x=alltrim(thisform.text1.value)n=""for c=1 to len(x)y=substr(x,c,1)if asc(y)>=asc("0") and asc(y)<= asc("9")n=n+yendifendforbel1.caption=n找个数3、text1的valid事件如下：敲回车键 text1 text2 显示答案a=alltrim(thisform.text1.value)n=len(a)s=0for i=1 to nb=substr(a,i,1)if asc(b)>asc("a") and asc(b)<asc("z") or asc(b)>asc("A") and asc(b)<asc("Z")s=s+1endifendforthisform.text2.value=str(n) 字符总数thisform.text3.value=s 字母个数17 、表单设计。

按以下要求设计程序界面，表单文件名为:FORM923.SCX（30分）设计如图1所示表单，包括3个文本框，2个命令按钮（各控件的大小、颜色、字体、字号等属性由考生自定）。

其中，（1）表单的标题：考生自己的考号和姓名；（2）三个文本框的初值为0；（3）该表单运行后，在三个文本框内输入三个数，单击排序按钮，则输入的三个数将按由大到小．．．．的顺序显示。

单击结束按钮退出程序。

如图2所示。

[command1.click]x=thisform.text1.valuey=thisform.text2.valuez=thisform.text3.valueif x<yt=xx=yy=tendifif x<zt=x x=zz=tendifif y<zt=yy=z z=tendifthisform.text1.value=x thisform.text2.value=y thisform.text3.value=z[command2.click] thisform.release。