第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

　　4、

　　(1)command1的click事件代碼

　　set talk off

　　sele 學生

　　bjh=alltrim(thisform.text1.value)

　　loca for substr(學號,1,4)=bjh

　　if found()

　　sum 學生.獎學金 to jxj for substr(學號,1,4)=bjh

　　thisform.text2.value=bjh

　　thisform.text3.value=jxj

　　else

　　thisform.text2.value=""

　　thisform.text3.value=""

　　messagebox("該班級不存在!")

　　endif

　　thisform.refresh

　　(2)Command2的click事件代碼

　　thisform.release