vf編程案例

① 求用VFP編寫一款程序的大體步驟

1、新建項目文件
2、在項目中建立或添加需要的表或資料庫
3、建立相應的表單文件，並給表單文件輸入相應的程序
4、建立需要的菜單和報表等文件
5、連編成可執行文件，見參考資料

② VF編程題

clear
input"請輸入一個數:"ton
?"最大素數是:"
dowhilen>0
iffun(n)=1
?n
exit
endif
n=n-1
enddo
functionfun
parametersc
fori=2toc/2
ifc%i=0
return0
endif
nexti
return1
endfunction

③ vfp編寫一個簡單的程序

set talk off
clear
dime a[30]
a[1]=1
a[2]=1
for i=3 to 30
a[i]=a[i-1]+a[i-2]
endfor
?a[30]
set talk on
cancel
很久沒有搞VF了，不知道源程序對不對演算法思想還是這樣的，我VF還是三年前過前的，以前的編程基礎很好，不過對VF的語法不是很記得了！
上面程序如果對格式有誤你自己更正下！
演算法和思路還是沒有問題的！

④ 計算機VF編程

1、設有資料庫xs.dbf（學號 C(8)，姓名 C(8)，入學成分 N(3)）,編程求出入學總分最高的同學。
答：
此程序只有一句話：
SELECT * FROM xs WHERE 入學成績 in (SELECT MAX(入學成績) FROM xs)

2、編一程序，在表xscj.dbf（表結構為：姓名 C(8)、數學 N(3)、語文 N(3)、外語 N(3)、總分 N(3)、平均分 N(4,1)、等級 C(4)）中，根據數學、語文、外語成績，計算每個學生的總分和平均分，並填寫等級：平均分在90分以上（含90分）為優秀， 80分以上（含80分）為良好，70分以上（含70分）為中等，60分以上（含60分）為及格，否則為不及格。
答：
此程序只有三句話：
REPLACE ALL 總分 WITH 數學 + 語文 + 外語
REPLACE ALL 平均分 WITH (數學 + 語文 + 外語)/3
REPLACE ALL 等級 WITH IIF(平均分 >= 90, "優秀", IIF(平均分 >= 80, "良好", IIF(平均分 >= 70, "中等", IIF(平均分 >= 60, "及格", "不及格"))))

另：
糾正你或出題者一個錯誤：
〔等級 C(4)〕，此處寬度必須為六，即：〔等級 C(6)〕，否則〔不及格〕三個字放進去會被截取成〔不及〕！

⑤ vf編程 輸出下面圖形

1. **
****
******
********
**********
（要求利用do while結構，且循環變數為I）

l=1
DOWHILEl<=5
?REPLICATE("",5-l),REPLICATE("*",l*2)
l=l+1
ENDDO

2.試編程完成如下操作：任意輸入一個自然數，如果該數能被3和5整除，則輸出信息「該數能同時被3和5整除」，否則，輸出信息「重新輸入數據」，文件名為「篩選.prg」。

DOWHILE.t.
input"任意輸入一個自然數："ton
IFMOD(n,3*5)=0
?"該數能同時被3和5整除"
exit
ELSE
?"重新輸入數據"
ENDIF
ENDDO
RETURN

3、先保存，再繼續。

⑥ vf 編程序

是語法錯誤。
@語句不能這么用啊，display直接顯示了，@等於沒內容，它顯示誰去？
分別用@欄位1，@欄位2……這樣就可以顯示了。

⑦ vf編程實例

clear
accept "請輸入一個字元串：" to x1
wait "請再輸入一個字元：" to x2
s=0
for i=1 to len(x1)
k=substr(x1,i,1)
if k=x2
s=s+1
endif
endfor
?"其中"+x2+"出現共"+alltrim(str(s))+"次"

⑧ 用VF語言編程

10個數已經生成,存在數組中, 你要做的就是找出最大的偶數.

參考代碼如下:
for i=1 to 10
if mod(array(i),2)=0 and array(i)>out &&當該數為偶數,且比之前的out大時,才更改out值
out=array(i)
endif
endfor

說明:
第1,2個不是偶數,out仍是-1
第3個數是6,偶數且大於-1, out變成6
第4個是96,偶數且大於6,out變成96
之後雖然有偶數,但是都比96小, 所以out不變