VF程序题库

*题目：将“计算机等级考试”反向输出“试考级等机算计”

* （提示：利用do while语句实现）。

* 请按照题目要求，在下面编写程序代码。

*------------------------------------------------------- set talk off

a="计算机等级考试"

m=len(a)

y=" "

do while m>0

y=y+substr(a,m-1,2)

m=m-2

enddo

?y

return

*题目：求[1,100]内所有能被3或被5整除的数以及个数。

* （提示：利用do while语句实现）。

* 请按照题目要求，在下面编写程序代码。

*------------------------------------------------------- Set talk off

clear

n=0

i=1

? "满足条件的数的个数为:",n

Set talk on

Return

答案：Do while i<=100

IF MOD(i,3)=0 .OR. MOD(i,5)=0

**int(i/3) = i/3 .OR. int(i/5) = i/5

?? i

n=n+1

Endif

i=i+1

enddo

*题目：求自然数5的阶乘。请将下列程序填写完整。

* （用FOR循环语句）

* 请按照题目要求，在下面编写程序代码。

*------------------------------------------------------- SET TALK OFF

S = 1

M = 1

**********Program**********

FOR M=1 TO 5

S=S*M

ENDFOR

********** End **********

? S

SET TALK ON

RETURN

*题目：从键盘上输入一个数n，计算n的阶乘。

* 请按照题目要求，在下面编写程序代码。

*------------------------------------------------------- Set talk off

Input "请输入n的值：" to N

S=1

**********Program**********

For I=1 to N

S=S*I

Endfor

**********end**********

?S

Set talk on

Return

目：求连乘数1*2*3*4*……，当积大于720时退出程序。

* （提示：利用do while语句实现）。

* 请按照题目要求，在下面编写程序代码。

*------------------------------------------------------- Set talk off

s=1 && S表示积

I=1

**********Program*********

Do while s<=720

s=s*i

I=I+1

Enddo

? "s=",s

********** End **********

Set talk on

return

*题目：从键盘上任意输入2个数，然后将这2个数从大到小显示输* 出。（注：中间变量用t，不允许使用max（）函数和min（）* 函数）。

* 请按照题目要求，在下面编写程序代码。

*-------------------------------------------------------

INPUT "输入第1个数：" TO n1

INPUT "输入第2个数：" TO n2

**********Program**********

IF n1

t=n1

n1=n2

n2=t

********** End **********

ENDIF

?n1,n2

RETURN

*题目：从键盘上输入5个数，求最大的一个数。

* 请按照题目要求，在下面编写程序代码。

*------------------------------------------------------- Set talk off

Input "请输入第一个数：" to x

**********Program**********

For i=2 to 5

Input "请输入第"+str(i)+"个数："to y

If y>x

x=y

endif

********** End **********

?x

Set talk on

return

*题目：为自来水公司计算水费: 如果用户用水量不超过5吨,每吨

* 0.8元；超过5吨时, 超出部分每吨1.4元。请编写完整程序。* （要求用input语句接受用水量的输入，最后的水费用变量x * 输出。）完成下列程序填空。

* 请按照题目要求，在下面编写程序代码。

*-------------------------------------------------------

SET TALK OFF

INPUT "请输入用水量:" TO W

**********Program**********

IF W<5

X=0.8*W

ELSE

X= 0.8*5 + (W-5) * 1.4

ENDIF

? "应交水费为:"+STR(x)+"元"

SET TALK ON

********** End **********

RETUR

题目：从键盘上输入3个不同的数，将他们从大到小排序。请将

* 下列程序填写完整。

* （提示：利用三个if…endif语句实现，其中交换时用到的

* 临时内存变量为t）。

* 请按照题目要求，在下面编写程序代码。

*-------------------------------------------------------

set talk off

input "请输入第一个数：" to a

input "请输入第二个数：" to b

input "请输入第三个数：" to c

**********Program**********

if a

t=a

a=b

b=t

if a

t=a

a=c

c=t

endif

if b

t=b

b=c

c=t

endif

********** End **********

?a,b,c

Return

Set talk on

*题目：求自然数1至100的和并输出。请将下列程序填写完整。* （用DO WHILE语句）

* 请按照题目要求，在下面编写程序代码。

*-------------------------------------------------------

SET TALK OFF

S=0

I=1

**********Program**********

DO WHILE I<=100

S=S+I

I=I+1

ENDDO

********** End **********

? S

SET TALK ON

RETURN

*题目：分别统计zg表中性别为男和性别为女的职工人数。

* 请按照题目要求，在下面编写程序代码。

*------------------------------------------------------- set talk off

**********Program**********

count for 性别="男" to a

count for 性别="女" to b

?"性别为男的职工人数是：",a

?"性别为女的职工人数是：",b

********** End **********

use

set talk on

return

题目：求S=1!+2!+ … +N!。

* （提示：利用FOR循环语句实现, i 为循环始值变量），将* 下列程序填完整。

* 请按照题目要求，在下面编写程序代码。

*------------------------------------------------------- Clear

s=1

y=0

input"请输入N的值" to n

**********Program**********

for i=1 to n

s=s*i

y=y+s

endfor

********** End **********

?y

Return

*题目：从键盘上输入10个整数，将其中的奇数与偶数分别相加后* 输出"奇数和"以及"偶数和"。请将下列程序填写完整。

* （提示：利用IF…ENDIF语句实现，判断某一个数m的奇偶，* 用m/2=int(m/2) ）。

* 请按照题目要求，在下面编写程序代码。

*------------------------------------------------------- SET TALK OFF

CLEAR

I=1

A=0

J=0

DIME NO(10)

DO WHILE I<=10

INPUT "输入整数：" TO NO(I)

**********Program**********

IF NO(I)/2=INT(NO(I)/2)

A=NO(I)+A

ELSE

J=J+NO(I)

ENDIF

********** End **********

I=I+1

ENDDO

?"奇数和：",J,"偶数和：",A

RETURN

题目：为鼓励存款，对定期存款时间少于1年的，利率为3%,等于* 或大于1年而少于三年的，利率为5％，等于或大于3年而* 少于5年的，利率为7％，五年以上的，利率为9％，请根* 据输入的年限，确定利率。

* （提示：利用do case…endcase语句实现，其中利率用

* 内存变量ll）。

* 请按照题目要求，在下面编写程序代码。

*------------------------------------------------------- Set talk off

nx=0

@5,10 say '输入定期年限' get nx

read

**********Program**********

do case

case nx<1

ll=0.03

case nx<3

ll=0.05

case nx<5

ll=0.07

otherwise

ll=0.09

endcase

********** End **********

@8,10 say ll

Set talk on

题目：用DO WHILE 循环语句编写程序。程序实现的功能为竖向

* 显示"优秀学生"，横向显示"学生优秀"。

* （提示：利用do while… enddo语句实现,变量A 保存初* 始值"优秀学生"， N为循环变量。），将下列程序填完整。

Set talk off

Store "优秀学生"to A

Clear

N=1

**********Program**********

DO WHILE N<8

?SUBSTR(A,N,2)

N=N+2

ENDDO

?SUBSTR(A,5,4)

??SUBSTR(A,1,4)

********** End **********

Return

题目：分别计算200以内的所有奇数和偶数之和并输出。

* （提示：利用for…endfor语句实现，其中存放奇数和的变* 量为sum_ji，存放偶数和的变量为sum_ou，循环控制变量* 为i）。

* 请按照题目要求，在下面编写程序代码。

*------------------------------------------------------- set talk off

clear

sum_ji=0

sum_ou=0

**********Program**********

for i=1 to 200

if mod(i,2)<>0

sum_ji= sum_ji+i

else

sum_ou=sum_ou+i

endif

endfor

********** End **********

?'奇数和为：', sum_ji

?'偶数和为：', sum_ou

set talk on

return

*题目：求：1/2+1/3+.....1/100的和。请将下列程序填写完整。* （提示：利用DO WHILE…ENDO语句实现）。

* 请按照题目要求，在下面编写程序代码。

*------------------------------------------------------- SET TALK OFF

clear

i=1

n=2

s=0

**********Program*********

********** End **********

?"1/2+1/3+……+1/100的和是：",s

Return

答案：do while n<=100

s=s+i/n

n=n+1

enddo

----------------------

do while n<=100

s=s+1/n

n=n+1

enddo

题目：用DO WHILE 循环完成1-100之间所有能被13整除的数的个* 数T并且求和S

* 请按照题目要求，在下面编写程序代码。

*------------------------------------------------------- SET TALK OFF

S=0 && S表示求和的结果

T=0 && T表示能被13整除的数个数I=1 && I表示循环变量

**********Program**********

DO WHILE I<=100

IF MOD(I,13)=0

T=T+1

S=S+I

ENDIF

I=I+1

ENDDO

********** End **********

?S,T

SET TALK ON