vf程序.docx
- 文档编号:10550473
- 上传时间:2023-02-21
- 格式:DOCX
- 页数:14
- 大小:16.93KB
vf程序.docx
《vf程序.docx》由会员分享,可在线阅读,更多相关《vf程序.docx(14页珍藏版)》请在冰豆网上搜索。
vf程序
维语网
1,计算1*2*3*4*5与5*4*3*2*1
clear
i=1
s=1
fori=5to1step-1
s=s*i
endfor
?
s
2,计算阶乘
clear
s=0
t=1
fori=1to5
t=t*i
s=s+t
endfor
?
s
注:
计算机运算步骤t=1*2*3*4*5
S=0+1*1+1*1*2+1*1*2*3+1*1*2*3*4+1*1*2*3*4*5
3,计算:
已知头10个脚32,计算鸡?
兔子?
clear
input"请输入头的个数:
"tol_head
input"请输入脚的个数:
"tol_foot
fori=1tol_head-1
ifi*2+(l_head-1)*4=l_foot
?
"鸡"+alltrim(str(i,10))+"只"+","+"兔子"+alltrim(str(l_head-1,10))+"只"
exit
endif
endfor
绿色部分可换成:
?
alltrim(str(i,10))+;此处分号有换行连接作用
"chicken,"+alltrim(str(l_head-i,10))+"rabbits"
Exit
clear
input"请输入头的个数:
"tol_head
input"请输入脚的个数:
"tol_foot
if(l_foot%2)=0andl_food>l_head*2andl_foot fori=1tol_head-1 ifi*2+(l_head-i)*4=l_foot ? i,l_head-i exit endif endfor else ? "输入的数据不能满足要求,无法计算结果" endif 4,计算S=1+2+3+…..+100 clear s=0 i=1 dowhilei<=100 s=s+i i=i+1 enddo ? "1+2+3+4+...+100="+alltrim(str(s,10)) 注: 如果把上一行紫色部分去掉就会显示出: 1+2+3+4+...+100= 完整的结果显示是: 1+2+3+4+...+100=5050 5,计算撒这是“运用+,-,%,/,号” clear input"请输入第一个数: "tonum1 input"请输入第二个数: "tonum2 accept"请输入运算符+-*/: "tooperator ifoperator="+"oroperator="-"oroperator="*"oroperator="/" docase caseoperator="+" num=num1+num2 caseoperator="-" num=num1-num2 caseoperator="*" num=num1*num2 caseoperator="/" num=num1/num2 else ? "输入的运算符非法,不能计算结果" return endcase endif ? alltrim(str(num1,10,2))+operator+alltrim(str(num2,10,2))+"="+alltrim(str(num,10,2)) 6,计算最小公约数与最小公倍数 (注: 这个是同时计算约数与倍数的。 去掉绿色部分既是求最小公约数的程序) Clear input"请输入第一个数: "tonum1 input"请输入第二个数: "tonum2 a=num1 b=num2 ifint(num1)<>num1orint(num2)<>num2ornum1<0ornum2<0 ? "非法" else dowhile.t. yushu=num1%num2 ifyushu=0 ? num2 ? a*b/num2 exit else num1=num2 num2=yushu endif enddo endif 7水仙花案例407=4^3+0^3+7^3 153=1^3+5^3+3^3 clear fori=100to999 g=i%10 s=int(i%100/10) b=int(i/100) ifg^3+s^3+b^3=i ? i endif endfor 8,计算: 9*9乘法表 clear fori=1to9 forj=1toi ? ? str(i,1)+"*"+str(j,1)+"="+str(i*j,2)+"" endfor ? Endfor 9,计算1-1/3+1/5-1/7+1/9-…+(-1^(n-1))/(2n-1) 当n+无穷大时,计算结果趋向于π/4 clear i=1 s=0 f=1 forn=1to20 s=s+1/i*f f=-f i=i+2 endfor ? 4*s 10,循环套嵌 clear fori=1to4 forj=1to5&&此灰色三行即是内嵌的部分 ? ? i*j&&i*1 Endfor2 Endfor3 4 5 注: 此程序也可写成(不过这个不是很清楚,但如果把最后的i=i+1去掉就对了) clear i=1 fori=1to4 j=1 dowhilej<=5 ? ? i*j j=j+1 enddo i=i+1 endfor ? i,j 11,作图, × ××× ××××× ××××××× 就是这个: clear i=1 fori=1to4 j=1 dowhilej<=5 ? ? i*j j=j+1 enddo endfor ? i,j 会出现上下两部分的程序: *clear fori=1to4 forj=1to4-i ? ? "" endfor fork=1to2*i-1 ? ? "*" endfor ? endfor fori=1to3 forj=1toi ? ? "" endfor fork=1to7-2*i ? ? "*" endfor ? Endfor 综合梯形(这一个可以得出任何星号的图形) clear fori=1to4 forj=1to4-i ? ? "" endfor fork=1to2*i-1 ? ? "*" endfor ? endfor fori=1to3 forj=1toi ? ? "" endfor fork=1to7-2*i ? ? "*" endfor ? endfor input"请输入行: "ton fori=-(n-1)/2to(n-1)/2 forj=1toabs(i) ? ? "" endfor fork=1ton-2*abs(i) ? ? "*" endfor ? Endfor *************************************** 12,p51页选择题1 go2 scannext4forleft(名称,2)="电" ifright(名称,2)="线" next endif endscan ? 名称 结果显示: 电话线 13,计算2/1+3/2+5/3+8/5+13/8+。 。 。 + (一下是8月13日的讲课内容) clear fz=2 fm=1 s=0 fori=1to20 s=s+fz/fm t=fm fm=fz fz=fz+t endfor ? s 替换原理可用 clear a=3 b=4 ? a,b c=a a=b b=c ? a,b 来解释 14,程序模块调用 clear s1="hello" s2="student" dom1 ? s1,s2主意一下 ? "asdfghjkl" Return M1子程序 clear a=3 b=4 ? a+b Return 程序调用 clear dop2 dop3 dop1 如果上面的与下面的房子一个程序里面也可以运行出同样的结果。 与下面的一块 procp1 a=3 b=4 ? a+b return procp2 d="hello" e="student" ? d,e return procp3 a1=date() a2={^1985-1-4} ? a1-a2 Return Clear setproctom3 dop2 dop3 dop1 setprocto 这个程序可以调用上面的 下面模块的模板,适合多个此类程序编写() ? "子程序f2开始" ? "试用p2()" x=p2() ? "返回值为: ",x ? "子程序f2结束" 这个放到程序f2中 ? "主程序开始" setproctof3 f2() dop1 ? "主程序结束" setprocto procp1 ? "过程p1开始" ? "试用p3" ? "返回值: ",p3() ? "过程p1结束" 这个放到程序f3中 15,模块同名变量屏蔽 clear val1=10 val2=15 dop7 ? val1,val2 procp7 privateval1 val1=50 val2=100 ? val1,val2 Return 结果显示50100 10100 16,第十章,结构化查询语言 select仓库号,面积fromck select*fromgyswhere地址="北京" sele*fromdgdwhere订购日期<={^2001-6-30}and订购日期>={^2001-1-1} sele*fromdgdwhere供应商号isnotnull sele职工号,订购单号fromdgdwhere供应商号isnotnull seledgd.*fromdgdwhere供应商号isnotnull sele*fromdgdwhere供应商号isnotnull seledgd.*fromdgdwhere供应商号isnotnull sele*fromzgwhere工资<1250and仓库号="wh1"or仓库号="wh2" sele*fromzgwhere工资<1250and(仓库号="wh1"or仓库号="wh2") sele*fromzgwhere工资<1250and仓库号="wh1"or工资<1250and仓库号="wh2"
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- vf 程序