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