計算機等級考試二級VFP上機試題及解題思路(8)

　　習題答案：

　　表單程序設計

　　1、

　　timer1的timer事件代碼：

　　thisform.label1.left=thisform.label1.left+4

　　thisform.refresh

　　2、

　　1.spinner1的upclick事件代碼：

　　thisform.text1.value=thisform.text1.value-1

　　thisform.refresh

　　2.spinner1的downclick事件代碼：

　　thisform.text1.value=thisform.text1.value-1

　　thisform.refresh

　　3、

　　(1)新建方法jezh的代碼：

　　parameter x

　　c1="零壹貳叁肆伍陸柒捌玖"

　　c2="分角元拾佰仟萬拾佰仟億"

　　m=round(x,2)

　　m=m*100

　　i=0

　　c=""

　　do while .t.

　　n=mod(m,10)

　　p1=substr(c1,2*n+1,2)

　　p2=substr(c2,2*i+1,2)

　　c=p1+p2+c

　　i=i+1

　　m=int(m/10)

　　if m=0

　　exit

　　endif

　　enddo

　　return c

　　(2)Text1的valid事件代碼：

　　je=thisform.jezh(val(thisform.text1.value))

　　thisform.text2.value=je

　　thisform.refresh