vf程序设计 编程题Word格式文档下载.docx
《vf程序设计 编程题Word格式文档下载.docx》由会员分享，可在线阅读，更多相关《vf程序设计 编程题Word格式文档下载.docx（31页珍藏版）》请在冰豆网上搜索。
f=100*0.05+（w-100）*0.02
“邮费：
“,f
错误方法二：
input“请输入邮件重量：
“tow
ifw<
return
例二计算分段函数值
setTaLKOFF
INPUT“请输入x值:
”tox
DOCASE
CASEX<
F=2*X-1
CASEX<
3
F=3*X+5
5
F=X+1
10
F=5*X-3
OTHERWISE
F=7*X+2
ENDCASE
’F（‘,X,’）=’,F
SETTALKOFF
RETURN
例3．计算s=1+2+3+………+100
方法一：
settalkoff
s=0
I=1
DOWHILEI＜＞＝100
S=s+I
I=I+1
Enddo
”s=”,s
settalkon
方法二；
forI=1to100step1
s+I
endfor
”s”,s
例4．求s=1+2+3+…………+N
INPUT“请输入N的值：
“toN
S=0
DOWHILEI<
=N
S=S+I
ENDDO
”S=”,S
SETTALKON
input“请输入N的值:
”ton
例5．求s=1×
2×
3×
………×
20
clear
S=1
=20
S=S*I
”S=”,S
方法二
ForI=1to20
S=S*I
Endfor
“S=”,S
settalkon
例6求S=1*2*3*…*n
方法一
settalkoff
input“请输入n的值：
”toN
DowhileI<
I=I+I
“S=”,S
Settalkon
Return
clear
Settalkoff
Input“请输入n的值：
ForI=1toN
S=S*S
Endfor
“S=”,S
例7求S=1!
+2!
+3!
+…+10!
方法三
N=1
Dowhilen<
=10
P=1
I=1
=n
P=P*I
I=I+1
Enddo
N=N+1
S=S+P
Settalkoff
S=0
ForN=1to10
P=1
P=P*I
S=S+P
“S=”,S
方法二
ForI=1to10
P=P*I
“s=”,S
teturn
例8求S=1!
+…+m!
input“请输入M的值：
“toM
DowhileN=M
I=I+1
Enddo
N=N+1
inpur“请输入N的值：
”toM
ForN==1toM
P=P*I
Endfo
inpur“请输入M的值：
ForI=1tom
P=P*I
例9找出100-999之间的所有“水仙花数”，所谓“水仙花数”是指一个三位数其各位数字的立方之各等于本身的数（153=13+53+33）
forI=100to999
a=int（i/100）
b=inr（I-100*a）/10）
c=I-int（i/10）*10
ifI=a^3+b^3+c^3
?
I
endif
endfor
s=str（I,3）
a=val（left（s,1））
b=val（sub（s,2,1））
c=val（right（s,1））
例10键盘中输入10个数，然后找出其中的最大值和最小值。
Clear
Input“请输入一个数：
”toa
Storeatoma,mi
ForI=2to10
”toa
Ifma<
a
Ma=a
Endif
Ifmi>
Mi=a
“最大值：
”，ma
“最小值：
”，mi
例11判断一个自然数是否为质数
input“请输入一个大于1的自然数：
k=0&
&
k=0代表是质数k=1代表不是质数
j=2
dowhilej<
n
ifmod（n,j）<
>
j=j+1
loop
k=1
exit
enddo
ifk=0
str（n）+“质数”
eles
str（n）+“不是质数”
例12从键盘输入一个数，若该数能被3或7整除，则输出该数的平方。
例14计算下列分段函数
input“x=”tox
ifx<
y=x*x+7
y=10*x-2
“y=”,y
sertalkon
Input“请输入一个数：
Ifint（x/3）=x/3orint（x/7）=x/7
x*x
例13求1-100之间的奇数和
s=1
n=1
dowhilen<
n=n+1
ifint（n/2）
s=s+n
”1-100之间的奇数和是：
“，s
forn=1to99step2
“1-100之间的奇数和是：
”，s
s=s+n
n=n+2
”，s
例27．已知某球从100米高度自由落下，落地后反复弹起，每次弹起的高度都是上次高度的一半，求此球第10次落地后反弹的高度和求所经过的路程。
H=100
H=0.5*H
S=S+2*H
ENDFOR
S,H
例28、有10名学生参加学校演讲比赛，10个评委参加评分，给分标准：
最高分10分，最低分为0分，选手得分是10个评委分数中去掉一个最高分和一个最低分后剩余8分分数取平均值。
DIMEDF（10）,PF（10）
FORI=1TO10
S=0
”第”+alltrim（str（I,2））+”学生”
FORN=1TO10
INPUT“请输入评分:
”TOPF（N）
S=S+PF（N）
ENDFOR
STOREPF
（1）TOMA,MI
FORK=2TO9
IFMA<
PF（K）
MA=PF（K0
ENDIF
IFMI>
MI=PF（K）
S=S-MA-MI
DF（I）=S/8
DF（I）
例29、36块砖、36人搬，男搬4，女搬3，两小儿抬一砖，问男、女、小儿各多少人？
FORX=0TO9
FORY=0TO12
FORZ=0TO36
IFX+Y+Z=36AND4*X+3*Y+0.5*Z=36
X,Y,Z
例30、求一个三角形面积。
程序运行时先输入一个三角形的边长，另外两边分别比输入的边长增加了1和2。
计算面积前先要检查边长是否合理。
Clear
INPUT“请输入一个三角形的边长：
”toB
S1=0
“B=”,B
DOABC
DOAREAWITHB,B+1,B+2,S1
”三角形面积：
”，S1
PROCABC
IFB+B+1>
B+2
RETURN
ELSE
WAIT“输入的三角形边长值不合格！
”
CANCEL
ENDIF
PROCAREA
PARAMETERSX,Y,Z,S1
SS=（X+Y+Z）/2
S1=SQRT（SS*（SS-X）*（SS-Y）*（SS-Z））
RETURN
例31求所给两个数的最大公约数
*最大公约数求法：
用两个数中较小的数去除较大的，然后将除数作为下一次除的被除数，余数作为一下次除的除数，反复进行这样的操作，直到余数为零时为止，则最后一次的除的除数，即为两个数的最大公约数。
最小公倍数为两个相乘除以最大公约数。
input
升级会员 