vf程序文档格式.docx
《vf程序文档格式.docx》由会员分享，可在线阅读，更多相关《vf程序文档格式.docx（36页珍藏版）》请在冰豆网上搜索。
第二个根为：
x2
settalkon
P9
例1、从键盘输入年份，判断是否是闰年。
例如输入年份为2000年，则程序运行结果下图，请编制程序。
请输入年份：
ton
if（n%4=0orn%100!
=0）andn%400=0
n,"
年是闰年。
else
不是闰年。
endif
例2、从键盘任意输入一个三位正整数，判断该数是否为水仙花数。
水仙花的规则为各位数字的立方和等于本身，例如：
153=1³
+5³
+3³
。
若从键盘输入的数字为153，则运行结果如下图，请编制相应程序。
clear
请输入一个三位整数：
a=n%10
b=int（n/10）%10
c=int（n/100）
ifa^3+b^3+c^3=n
是水仙花数"
不是水仙花数"
endif
settalkon
cancel
例3、求出该分段函数的值，该分段函数为：
fx=
例如从键盘输入数字为-3，则该程序运行结果如下图，请编制程序。
请输入x的值：
tox
ifx>
fx=x^2
else
ifx=0
fx=0
else
fx=-（x^2）
endif
所求fx值为：
fx
settalkon
例4、根据某邮局的收费标准，从键盘输入相应的里程数，输出相应的运费。
例如从键盘输入的里程数为155，则程序运行如下图，请编制相应的程序。
里程数（km）
收费标准（元）
小于100（含）
25
100-200（含）
40
200-300（含）
50
300以上
80
请输入里程数：
tos
docase
cases<
=100
m=25
cases>
100ands<
=200
m=40
200ands<
=300
m=50
otherwise
m=80
endcase
所求缴纳运费为：
m
cancel
p12
例1、输出1-20之间的所有正数，每行输出5个数字，运行程序后的结果如下图请编制相应程序。
settalkoff
1-20之间的整数有：
?
fori=1to20
?
i
ifi%5=0
next
settalkon
cancel
例2、求出表达式1+
+
+……
大于3时，最少需要多少相。
该程序的输出结果如下，请编制相应的程序。
s=0
n=1
dowhiles<
=3
s=s+1/n
n=n+1
enddo
大于3时，最少需要的项数为：
n-1
例3、根据媒体发布的信息，2010年中国GDP总量为5.845万亿美元，增长率10.1%，美国的DGP总量为14.536万亿美元，增长率3.3%。
在两国DGP保持2010年的速度不变的情况下，编程计算出最早哪一年中国的GDP总量有望超过美国GDP。
x=5.84
y=14.536
n=2010
dowhilex<
=y
x=x*（1+0.101）
y=y*（1+0.033）
n=n+1
enddo
最早中国超过美国GDP的年限为：
n
例4、已知数列1,1,2,3,5……n,求出大于200时最少需要多少项，该程序的输出结果如下，请编制相应的程序。
settalkoff
a=1
b=1
c=a+b
n=3
dowhilec<
a=b
b=c
c=a+b
最少需要的项数为：
例5、请输入任意一个整数n,求出该数字为几位数字。
例如从键盘输入123，该程序的输出结果如下，请编制相应的程序。
请输入一个正整数：
c=0
dowhilen!
=0
n=int（n/10）
c=c+1
enddo
该数为：
c,"
位数"
例6、请输入一个整数n,求出该数的各位数之和。
例如从何键盘输入的正整数为123，则该程序的结果如下，请编制相应程序。
y=n%10
s=s+y
输入的数字的各位数字之和为：
例7、求出表达式s=1+2+3+4+…+n的值，n由键盘输入，例如从键盘输入的值为100，则该程序的输出结果如下，请编制相应的程序。
请输入一个整数：
s=0
fori=1ton
s=s+i
next
表达式的值为：
例8、求出表达式s=1+（1+2）+（1+2+3）+…+（1+2+3+4+…+10），该程序的运行结果如下，请编制相应程序。
法一：
settalkoff
sum=0
fori=1to10
sum=sum+s
sum
法二：
fori=1to10
forj=1toi
s=s+j
cancel
例9、求出表达式s=6!
该程序的运行结果如下，请编制相应程序。
clear
s=1
fori=1to6
s=s*i
next
该表达式的值为：
settalkon
例10、求出表达式s=1!
+2!
+3!
+4!
+……+n!
例如从键盘输入的值为5，则程序的输出的结果如下，请编制相应程序。
k=1
s=0
fori=1ton
k=k*i
s=s+k
例11、从键盘输入一个整数n,求出该数的双阶乘。
双阶乘的规则为：
当n为奇数时，阶乘为1*3*5*7*…*n，当n为偶数时，阶乘为2*4*6*…*n。
例如重键盘输入的整数为7，该输出的结果如下，请编制相应程序。
k=1
ifn%2!
=0
fori=1tonstep2
k=k*i
next
else
fori=2tonstep2
endif
k
例12、从键盘输入两个正整数m与n，已知m<
=n,求出m到n之间所有正整数之和。
例如输入的m=3，n=9，则运行程序后结果如下图，请编制相应程序。
tom
s=0
fori=mton
s=s+i
例13、任意输入两个年号，已知输入的年份都为合法年份，求出这两个年份之间的闰年年号。
例如输入的年份为1990和2000，则输出的结果如下，请编制相应程序。
请输入开始年份：
请输入截止年份：
ton
输入的年份之间所有闰年为：
if（i%4=0andi%100!
=0）ori%400=0
例14、从键盘上任意输入一个正整数，判断该数是否为素数。
素数规则为该数只能被1以及本身整除，例如从键盘输入的整数位7，则输出结果如下图。
请编制相应的程序。
请输入一个任意正整数：
f='
T'
fori=2ton-1
ifn%i=0
F'
exit
iff='
是一个素数"
else
不是素数"
例15、从键盘上任意输入两个正整数m与n,已知m<
=n,求出两个正整数之间所有素数之和。
例如从键盘上输入的数字为3与7，则输出结果如下，请编制相应程序。
请输入第一个数：
请输入第二个数：
fori=mton
forj=2toi-1
ifi%j=0
endif
输入两个数之间的所有素数和为：
s
例16、从键盘上任意输入一个正整数，将该正整数逆序后输出。
例如从键盘输入的正整数为1234，则输出的结果如下，请编制相应的程序。
请输入任意一个正整数：
dowhilen!
y=n%10
n=int（n/10）
s=s*10+y
enddo
该数逆序后为：
例17、从键盘上任意输入两个正整数，求出这两个正整数的最大公约数以及最小公倍数。
例如从键盘输入的数字为24与16，则输出的结果如下，请编制相应程序。
x=a
y=b
dowhileb!
c=a%b
a=b
b=c
最大公约数：
a
最小公倍数：
x*y/a
例18、求出100-999之间的所有水仙花数，水仙花数的原理参考选择结构例2，程序输出结果如下，编制相应的程序。
100-99之间的水仙花数：
fori=100to999
a=i%10
b=int（i/10）%10
c=int（i/100）
ifa^3+b^3+c^3=i
endif
100-999之间的所有水仙花数有：
k=i
dowhilek!
y=k%10
k=int（k/10）
s=s+y^3
enddo
ifi=s
例19、求出表达式s=1+
+…+
的值，n是由键盘输入的任意正整数，例如输入的数字为7则输出结果如下，请编制相应程序。
请输入任意正整数：
ton
fori=3tonstep2
k=k*i*（i-1）
s=s+1/k
fori=1tonstep2
forj=1toi
k=k*j
s=s+1/k
法三：
fori=1ton
k=k*i
ifi%2=1
例20、已知有零钞的面额为：
10元，2元，0.5元，现有100元钱，全部换成零钞的总张数为100张，求出具体换发以及兑换方法的数量。
程序运行结果如下，请编制相应程序。
n=0
具体方法按10元，5元，0.5元排列：
fori=1to10
forj=1to50
fork=1to100
if10*i+2*j+0.5*k=100andi+j+k=100
i,j,k
n=n+1
总的兑换方法种数：
例21、从键盘上输入一个字符串，将该字符串的每个字符按照换行的模式输出。
例如从键盘输入的字符串为abcd，则输出结果如下，请编制相应的程序。
accept"
请输入一个字符串：
toa
n=len（a）
y=substr（a,i,1）
y
settalkon
例22、从键盘输入任意一个字符串，将该字符串逆序后输出。
例如从键盘输入的字符串为abcd,则输出的结果为dcba。
请编制相应程序。
s="
s=y+s
逆序后的字符串为：
例23、从键盘输入任意一个字符串，统计该字符串中数字字符的个数。
例如从键盘输入的字符串为：
a1b2c，则程序运行的结果如下，请编制相应的程序。
m=0
ifasc（y）>
=48andasc（y）<
=57
m=m+1
字符串中数字的个数为：
例24、请编制程序输出图案。
程序运行后的输出结果如下图，请编制相应程序。
space（6-i）
forj=1to2*i-1
*"
例25、输出九九乘法表，输入式样如下，请编制相应程序。
fori=1to9
s=i*j
i,"
j,"
="
p22
例1、从键盘上输入5个任意正整数，将这五个正整数一一换行输出。
例如输入的数字分别为1,2,3,4,5，则输出结果如下，请编制相应程序。
dimea（5）
请输入5个任意正整数：
fori=1to5
inputtoa（i）
输入结果为：
a（i）
例2，随机产生5个两位数，输出这5个随机数并求出这五个数的最大值及其位置。
该程序的运行结果如下，请编制相应程序。
a（i）=int（rand（）*90+10）
产生的随机数为：
max=a
（1）
m=1
fori=2to5
ifa（i）>
max
max=a（i）
m=i
最大值是：
max,"
位置为：
m
例3、随机产生n个10-100之间的任意正整数，输出这n个随机数并输出这n个数的最小值以及位置，其中个数由用户指定。
例如用户指定的随机数个数为5，则输出结果如下，请编制相应程序。
请输入指定随机数的个数：
dimea（n）
a（i）=int（rand（）*91+10）
min=a
（1）
fori=2ton
ifa（i）<
min
min=a（i）
最小值是：
min,"
例4、随机产生10个3为数，输出这十个随机整数，并且将这10个正整数按从下到大排序后输出，该程序的输出样式如下图，请编制相应程序。
dimea（10）
a（i）=int（rand（）*900+100）
forj=i+1to10
a（j）
c=a（i）
a（i）=a（j）
a（j）=c
排序后的随机数为：
a（i）
例5、输入n个学生的总成绩，编程求出其中的第一名和第二名，其中学生人数由用户指定。
例如输入五个学生的成绩分别为80,90,11,22,33输出结果如下，请编制相应的程序。
请输入学生人数：
fori=1ton-1
forj=i+1ton
第一名与第二名分别为：
a（n）,a（n-1）
例6、（对字符串排序处理）有5个英文单词，分别为：
Word,Excel，Powerpoint，Type，Angle,要求设计出如下程序。
（1）在键盘上输入N（本例输入5），把英文单词放入名为a大小为N的数组中
（2）显示出a数组中的英文单
升级会员 