计算机VF考试程序题库

题号:1

【程序设计】

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

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

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

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

Set talk off

s=1 && S表示积

I=1

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

********** End ********** Set talk on

return

答案：Do while .T.

s=s*i

IF S>720

EXIT

ENDIF

I=I+1

Enddo

? "s=",s

题号:2*【程序设计】

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

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

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

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

Set talk off

clear

n=0

i=1

**********Program********** ********** End **********

? "满足条件的数的个数为:",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

题号:3*【程序设计】

*题目：从键盘上任意输入2个数，然后将这2个数从大到小显示输

* 出。（注：中间变量用t，不允许使用max（）函数和min（）

* 函数）。

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

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

INPUT "输入第1个数：" TO n1 INPUT "输入第2个数：" TO n2 **********Program**********

********** End ********** ENDIF

?n1,n2

RETURN

答案：IF n1

t=n1

n1=n2

n2=t

题号:4*【程序设计】

*题目：求自然数1至100的和并输出。请将下列程序填写完整。

* （用DO WHILE语句）

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

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

SET TALK OFF

S=0

I=1

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

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

? S

SET TALK ON

RETURN

答案：DO WHILE I<=100

S=S+I

I=I+1 ENDDO

题号:5*【程序设计】

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

* （用FOR循环语句）

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

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

SET TALK OFF

S = 1

M = 1

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

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

? S

SET TALK ON

RETURN

答案：FOR M=1 TO 5

S=S*M

ENDFOR 题号:6*【程序设计】

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

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

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

Set talk off

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

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

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

?x

Set talk on

return

答案：For i=1 to 4

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

If y>x

x=y

endif

endfor

题号:7*【程序设计】

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

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

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

set talk off

use zg

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

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

答案：count for 性别="男" to a count for 性别="女" to b

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

题号:8*【程序设计】

*题目：用DO WHILE 循环语句编写程

序。程序实现的功能为竖向

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

* （提示：利用do while… enddo 语句实现,变量A 保存初

* 始值"优秀学生"， N为循环变量。），将下列程序填完整。

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

Set talk off

Store "优秀学生"to A

Clear

N=1

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

********** End ********** Return

答案：DO WHILE N<8

?SUBSTR(A,N,2)

N=N+2

ENDDO

?SUBSTR(A,5,4)

??SUBSTR(A,1,4)

题号:9*【程序设计】

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

* （提示：利用FOR循环语句实现, i 为循环始值变量），将

* 下列程序填完整。

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

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

Clear

s=1

y=0

input"请输入N的值" to n

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

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

?y Return

答案：for i=1 to n

s=s*i

y=y+s

endfor

题号:10*【程序设计】

*题目：求：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

题号:11*【程序设计】

*题目：从键盘上输入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**********

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

I=I+1

ENDDO

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

答案： IF NO(I)/2=INT(NO(I)/2) A=NO(I)+A

ELSE J=J+NO(I)

ENDIF

题号:12**【程序设计】

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

* 数T并且求和S

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

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

SET TALK OFF

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

T=0 && T表示能被13整除的数个数

I=1 && I表示循环变量

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

********** End ********** ?S,T

SET TALK ON

答案：DO WHILE I<=100

IF MOD(I,13)=0

T=T+1

S=S+I

ENDIF

I=I+1

ENDDO

题号:13*【程序设计】

*题目：为鼓励存款，对定期存款时间少于1年的，利率为3%,等于

* 或大于1年而少于三年的，利率为5％，等于或大于3年而

* 少于5年的，利率为7％，五年以上的，利率为9％，请根

* 据输入的年限，确定利率。

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

* 内存变量ll）。

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

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

Set talk off

nx=0

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

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

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

@8,10 say ll

Set talk on

答案：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

题号:14*【程序设计】

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

* 0.8元；超过5吨时, 超出部分每吨1.4元。请编写完整程序。

* （要求用input语句接受用水量的输入，最后的水费用变量x

* 输出。）完成下列程序填空。

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

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

SET TALK OFF

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

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

********** End ********** RETURN

答案：IF W<5

X=0.8*W

ELSE

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

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

SET TALK ON

题号:15*【程序设计】

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

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

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

Set talk off

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

S=1

**********Program********** ********** End **********

?S

Set talk on

Return

答案：For I=1 to N

S=S*I

Endfor

题号:16--【程序设计】

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

* 下列程序填写完整。

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

* 临时内存变量为t）。

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

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

set talk off

input "请输入第一个数：" to a input "请输入第二个数：" to b input "请输入第三个数：" to c

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

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

?a,b,c

Return

Set talk on

答案：if a

t=a

a=b

b=t

endif

if a

t=a

a=c

c=t

endif

if b

t=b

b=c

c=t

endif

题号:17*【程序设计】

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

* （提示：利用for…endfor语句实现，其中存放奇数和的变

* 量为sum_ji，存放偶数和的变量为sum_ou，循环控制变量

* 为i）。

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

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

set talk off

clear

sum_ji=0

sum_ou=0

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

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

?'奇数和为：', sum_ji

?'偶数和为：', sum_ou

set talk on

return

set talk on

答案：for i=1 to 200

if mod(i,2)<>0

sum_ji= sum_ji+i

else

sum_ou=sum_ou+i

endif

endfor