高分 一些VFP的程序题。

1.编写程序，求出1到100之间奇数之和. 结果:2500

sum=0

for x=1 to 100 step 2

sum=sum+x

endfor

?sum

2.编写一程序，输入20个数，统计出其中正、负、零的个数. ling=0

zheng=0

fu=0

for t=1 to 20

input to x

do case

case x=0

ling=ling+1

case x>0

zheng=zheng+1

otherwise

fu=fu+1

endcase

endfor

?zheng,fu,ling

case x=0

ling=ling+1

3.编一排序程序，输入橡蠢任意个数据，将其按从大到小排序并输出

4.编写程序，将一张100元大钞换成等值的10元、5元、2元、1元一张的小票，要求每次换成40张小钞，每种至少一张。饥如睁编程输出所有可能的换法。

for shi=1 to 10

for wu=1 to 20

for er=1 to 40

for yi=1 to 40

if shi+wu+er+yi=40 and shi*10+wu*5+er*2+yi=100

?shi,wu,er,yi

endif

endfor

endfor

endfor

endfor

5.计算1+4+7+…….,当累加和超过5000时结束烂岁.结果:5017

sum=0

for x=1 to 5000 step 3

sum=sum+x

if sum>5000

exit

endif

endfor

?sum

时间关系先写这么多

不是很难吧？哥们你没好好上课吧？呵呵

不知道你的要求是用input，还是在表单内进行，不过原理都是一模一样的，下面以在表单内为例：

第一题：

命令按汪漏钮旁搜代码：

L = val(alltrim(thisform.text1.value)) &&将文本框1的值赋予L

W = val(alltrim(thisform.text2.value))&&将文本框2的值赋予w

H = val(alltrim(thisform.text3.value))&&将文本框3的值赋予h

thisform.text4.value = STR(2*(L*H+L*W+W*H))&&根据公式算出表面积赋予文本框4

thisform.text5.value = str(L*W*H)&&据公式算出体积赋予文本框5

第二题：

命令按钮代码：

a = val(alltrim(thisform.text1.value)) &&将文本框1的值赋予a

b = val(alltrim(thisform.text2.value))&&将文本框2的值赋予b

c = val(alltrim(thisform.text3.value))&&将文本框3的值赋予c

do case

case a= 0

messagebox('a=0,不是一元二次二次方程！')

case b^2－4ac <0

messagebox('判别式小于0，无实根')

endcase

第三题：

命令按钮代码：

do case

case alltrim(thisform.text1.value) = 'A'

X = '90~100'

case alltrim(thisform.text1.value) = 'B'

X = '70~89'

case alltrim(thisform.text1.value) = 'C'

X = '60~69'运陵历

case alltrim(thisform.text1.value) = 'D'

X = '<60'

ELSE

X = 'ERROR'

ENDCASE

REPORT X TO PRINT

2、clear

?"1到100之内的所有素数："

s=0

for i=2 to 100

x=0

for j=2 to i-1

if i/j=int(i/j)

x=1

endif

endfor

if x=0

??alltrim(str(i))+space(2)

s=s+i

endif

endfor

?"它们的和余郑是：",s

3、clear

?"1到1000之间所有奇数的和:"

s=0

for i=1 to 1000

if mod(i,2)<>0

s=s+i

endif

endfor

?s

4、command1的click代码：

if ALLTRIM(thisform.text1.value)="12345".and.alltrim(thisform.text2.value)="abcd"

messagebox("欢迎进入QQ世界")

else

messagebox("你的用户名或密码是错误的!")

endif

5、1）select * from STUDENT where 入学成绩>500

2)select 学号,姓名,专业信息 from STUDENT where substr(alltrim(姓名),1,2)="李"

3)count for 性别="女" to mm

6、CLEAR

SET UDFPARMS TO REFERENCE &&地址传递

DIME AAA(10)

FOR i= 1 TO 10

input "请输入第"+ALLTRIM(STR(i))+"个数：" to AAA(i)

NEXT

=MySort(AAA,10) &&调用冒泡排序函数.

i=1

?"从大到小排序结果为："

do while i<=10

??AAA(i) &&显竖唯颂示排完序后的数据.

i=i+1

enddo

RETURN

*冒泡排序函数.

*参山吵数: pData: 传入数组, nCount:数组的大小.

function MySort

para pData, nCount

for i=1 to nCount

for j=nCount to i+1 step -1

if pData(j)>pData(j-1)

iTemp = pData[j-1]

pData(j-1) = pData[j]

pData(j) = iTemp

endif

endfor

endfor

endfunc

---