VF程序设计编程题实例

针对国二和大一下学期VF编程的试题

第六章 程序设计编程题

1. 求园的面积（要求判断半径是否合理） Clea Inpu r= to r If r>0 S=3.14*r*r

2. 求分段函数Y的值

?s Else

? 半径错误！ Endif

Clea Inpu x= to x If x>0 Y=2*x+5 Else If x=0

2x＋5 x>0 x x=0 | x | x<0

Y=x Else

Y=abs(x) Endif Endif ?y

3. 输入一个百分制成绩判断其等级（优/良/中/及格/不及格） Clea

Inpu cj= to cj Do case

Case cj>=90

? 优

Case cj>=80

针对国二和大一下学期VF编程的试题

? 良 Case cj>=70

? 中 Case cj>=60

? 及格 Orth

? 不及格 Endcase

4. 输入若干个（个数不定）百分制成绩判断其等级（优/良/中/及格/不及格） Clea

Inpu 请输入处理几个人的成绩： to n

For i=1 to n Inpu cj= to cj Do case Case cj>=90

? 优 Case cj>=80

5. 求S＝1+2+3. . . . . .+100 Clea S=0

For i=1 to 100

6. 求S＝1×2×3. . . . . .×100

S=s+i Endfor ?s

? 良 Case cj>=70

? 中 Case cj>=60

? 及格 Orth

? 不及格 Endcase endfor

针对国二和大一下学期VF编程的试题

Clea p=1

For i=1 to 100

7. 求S＝1+3+5.. . . . .+99 Clea S=0

For i=1 to 99 step 2

8. 求S＝1－2+3－4. . . . . .－100 Clea S=0

For i=1 to 100

p=p*i Endfor ?p

S=s+i Endfor ?s

S=s+(-1)^(i+1)*i Endfor ?s

9. 求S＝1+1/2+2/3+3/5. . . . . .前10项之和 Clea S=0 A=1 B=1 For i=1 to 10 S=s+a/b

T=a A=b B=t+b Endfor ?s

针对国二和大一下学期VF编程的试题

10. 求S＝1！+2！+3！. . . . . .+10！ Clea P=p*i S=0 S=s+p P=1 Endfor For i=1 to 10 ?s

11. 对学生表中所有入学成绩≥650分的学生免去贷款 Clea Use 学生

Scan for入学成绩>=650 .and. 贷款否=.t. Repl贷款否 with .f. Endscan Use

12. 输出图形 * **** * ******* * ** *** *** ***** ** *** ** ***** *** *** **** * ******* * **** Clea

For i=1 to 4

****

*** ** *

针对国二和大一下学期VF编程的试题

For j=1 to i

?? * Endfor ? Endfor Clea For i=1 to 4 For j=1 to 4-i

?? &&有一个空格 Endfor For j=1 to 2*i-1

?? * Endfor

13. 判断一个整数是否素数 Clea Inpu x= to x For i=2 to x-1

? Endfor Clea For i=1 to 4 For j=1 to 4-i

?? &&有一个空格 Endfor For j=1 to i

?? * Endfor ? Endfor

If mod(x,i)<>0

Loop Else

针对国二和大一下学期VF编程的试题

Exit Endif Endfor If i>x-1

14. 判断十个整数是否素数 Clea For j=1 to 10 Inpu x= to x For i=2 to x-1 If mod(x,i)<>0

Loop Else

Exit

15. 找出两个数的大数和小数 Clea Inpu x= to x Inpu y to y If x>y

?x, 是素数 Else

?x, 不是素数 Endif

Endif Endfor If i>x-1 ?x, 是素数 Else

?x, 不是素数 Endif Endfor

?x, 大 ,y, 小 Else

?y, 大 ,x, 小 Endif

针对国二和大一下学期VF编程的试题

16. 找出三个数的最大数和最小数 Clea Inpu x= to x Inpu y to y Inpu z to z If x<y t=x x=y y=t Else If x<z t=x

17. 找出十个数的最大数和最小数 Clea Dime a(10) For i=1 to 10 Inpu to a(i) Endfor Max=a(1) Min=a(1)

x=z z=t endif endif if y<z t=y y=z z=t endif

?x, 是最大数 ,z, 是最小数 For i=2 to 10 If max<a(i)

Max=a(i) Else

If min>a(i) Min=a(i) Endif

针对国二和大一下学期VF编程的试题

Endif ?max,min

Endfor

18. 找出2×3矩阵中的最大数和最小数 clea dime a(2,3) for i=1 to 2 for j=1 to 3

input a( +str(I,2)+ , +str(j,2)+ )= endfor endfor max=a(1,1) min=a(1,1) for i=1 to 2 for j=1 to 3

if max<a(I,j) max= a(I,j) else

if min> a(I,j) min= a(I,j) endif endif

to a(I,j)

针对国二和大一下学期VF编程的试题

endfor endfor

? max= ,max, min= ,min

19. 对三个整数从大到小排序 Clear Input a= to a Input b= to b Input c= to c If a<b T=a A=b B=t Else If a<c t=a

20. 对十个整数从大到小排序（用选择法和起泡法两种方法） 选择法:

A=c

c=t endif endif If b<c T=b A=c c=t endif ?a,b,c

针对国二和大一下学期VF编程的试题

Clear Dime a(10) For i=1 to 10 Input to a(i) Endfor For i=1 to 9 Max=a(i) Num=i For j=i+1 to 10

If max<a(j) max=a(j) Num=j 起泡法： Clear Dime a(10) For i=1 to 10 Input to a(i) Endfor For i=1 to 9 For j=1 to 10-i

Endif Endfor If i<>num t=A(i) a(i)=a(num) a(num)=t Endif Endfor For i=1 to 10 ??a(i),' ' Endfor

If a(j)<a(j+1) t=A(j) a(j)=a(j+1) a(j+1)=t Endif endfor Endfor

针对国二和大一下学期VF编程的试题

For i=1 to 10 ??a(i),' '

Endfor

21. 输出Fibonacci（斐波那契）数列的前十项 Clear Dime a(10) a(1)=1 a(2)=1 For i=3 to 10

22. 输出杨辉三角的前十行 Clear Dime a(10,10) For i=1 to 10 A(I,1)=1 A(I,i)=1 Endfor For i=3 to 10

For j=2 to i-1

A(I,j)=a(i-1,j)+a(i-1,j-1) Endfor Endfor For i=1 to 10 For j=1 to i

??A(I,j) a(i)=a(i-1)+a(i-2) Endfor For i=1 to 10 ??A(i) Endfor

针对国二和大一下学期VF编程的试题

Endfor ?

23. 对2×3矩阵转置 Clea

Dime a(2 …… 此处隐藏：3171字，全部文档内容请下载后查看。喜欢就下载吧 ……