程序設(shè)計(jì)典型例題匯總

1、Visual FxoPro程序設(shè)計(jì)題1編寫程序，從鍵盤輸入一個(gè)日期，查詢STUDENT表中該日期以后出生的學(xué)生信息并顯示在瀏覽窗口中。use student &&運(yùn)行前單擊教學(xué)管理數(shù)據(jù)庫input “請(qǐng)輸入某日期:” to rq*輸入時(shí)有提示，或input to rq輸入時(shí)無提示，輸1987-01-01browse for 出生日期>rq2有一函數(shù)： x （x<1) y= 2x-1 （1x10) 3x-11 （x10）編寫程序，輸入x，輸出y的值。clearinput "Enter x please!" to xif x<1 y=xelse

2、 if x<10 y=2*x-1 else y=3*x-11 endifendif? 'x=',x,'y=',y3編寫程序，從鍵盤輸入一個(gè)年份，判斷它是否閏年。clearinput "Enter year number please!" to yif y%4=0 and y%100<>0 or y%400=0? y,"is a leap year!"else? y,"is not leap year."Endif4編寫程序，輸入一個(gè)百分制成績(jī)，要求輸出成績(jī)等級(jí)“A”、“B”、“C”、“

3、D”、“E”。90分以上為“A”，8089分為“B”，7079分為“C”，6069分為“D”，60分以下為“E”。clearinput “請(qǐng)輸入一百分制成績(jī)” to cjdo case case cj>=90 ?” A”case cj>=80 ?” B”case cj>=70 ?” C” case cj>=60 ?” D”otherwise ?” E”endcase5編寫程序，從鍵盤輸入一個(gè)正整數(shù)M，輸出M內(nèi)（包括M）所有偶數(shù)。clear input to mfor i=0 to m step 2 ?str(i,5)Endfor6編寫程序，從鍵盤輸入一個(gè)正整數(shù)M，計(jì)算M

4、內(nèi)（包括M）所有偶數(shù)之和。clear input to ms=0for i=2 to m step 2 s=s+iEndfor? s7編寫程序，從鍵盤輸入5個(gè)數(shù)，找出其中的最大數(shù)和最小數(shù)。clearinput "請(qǐng)輸入第一個(gè)數(shù)" to maxmin=maxfor i=2 to 5? "請(qǐng)輸入第"+str(i,2)+"個(gè)數(shù)"input to aif a>max max=aendifif a<min min=aendifendfor? 'max=',max? 'min=',min8利用數(shù)組編寫程

5、序，從鍵盤輸入10個(gè)數(shù)，再按逆序輸出。dime a(10)for i=1 to 10 input to a(i)endforfor i=10 to 1 step -1 ? a(i) endfor9編寫程序，逐條顯示STUDENT表中的男生記錄（顯示一個(gè)記錄后，由用戶按任意鍵來顯示下一個(gè)記錄）。use studentscan for 性別=”男” disp waitendscanuse10編寫程序，自STUDENT表的最后一個(gè)記錄開始向前逐個(gè)顯示（顯示一個(gè)記錄后，由用戶按任意鍵來顯示上一個(gè)記錄）。use studentgo bottdo while not bof() dispwait skip

6、 -1enddouse11先在STUDENT表中插入一個(gè)新字段：平均成績(jī)（數(shù)值型,6,2）。然后編寫程序，根據(jù)GRADE表統(tǒng)計(jì)每個(gè)學(xué)生的平均成績(jī)，并填入新插入的字段中。select 學(xué)號(hào),avg(成績(jī))as 平均成績(jī) from grade group by 學(xué)號(hào) into table tuse tindex on 學(xué)號(hào) to txhsele 2use studentindex on 學(xué)號(hào) to sxhset rela to 學(xué)號(hào) into trepl all 平均成績(jī) with t->平均成績(jī)12寫程序，輸入一個(gè)三位自然數(shù)，判斷該數(shù)是否為水仙花數(shù)。所謂水仙花數(shù)是指一個(gè)三位自然數(shù)，其各位數(shù)

7、字立方和等于該數(shù)本身。例如，153是水仙花數(shù)，因?yàn)?5313+53+33。input to zrsgw=zrs%10sw=int(zrs/10)%10bw=int(zrs/100)if bw*3+sw*3+gw*3=zrs ?”yes!”else ?”no.”Endif13編寫一個(gè)自定義函數(shù)，判斷一個(gè)三位自然數(shù)是否為水仙花數(shù)，若是，返回邏輯真，否則，返回邏輯假。編寫主程序，輸入一個(gè)三位自然數(shù)，調(diào)用自定義函數(shù)判斷該數(shù)是否為水仙花數(shù)。clearinput to nif sxh(n) ?”yes”else ?”no”endiffunction sxhpara zrsgw=zrs%10sw=int(z

8、rs/10)%10bw=int(zrs/100)if bw*3+sw*3+gw*3=zrs return .t.else return .f.endifendfu14編寫程序，輸入一個(gè)自然數(shù)，判斷該數(shù)是否為素?cái)?shù)。clearinput to zrssf=.t.for i=2 to sqrt(zrs) if zrs%i=0 sf=.f.exit endifendforif sf=.t. ?”yes”else ?”no”Endif15編寫一個(gè)自定義函數(shù)，判斷一個(gè)自然數(shù)是否為素?cái)?shù)，返回一個(gè)邏輯值。編寫主程序，調(diào)用自定義函數(shù)求100200間的所有素?cái)?shù)。for i=100 to 200 if prime(i) ?iendif endforfunction primepara zrssf=.t.for j=2 to sqrt(zrs) if zrs%j=0 sf=.f.exit endifendforreturn sfendfunc16.九九乘法表（1）矩形樣式ClearFor I=1 to 10 &&外循環(huán)I控制輸出9行 ?For J=1 to 9 &&內(nèi)循環(huán)J控制第I行輸出9項(xiàng) ?str(I,1)+”×”+str(J,1)+”=”+str(I*J,2) &&輸出I*J項(xiàng)?” “EndforEndforReturn17.階