计算机等级考试二级VFP上机试题及解题思路(8)

　　6、

　　(1)command1的click事件代码

　　bjh=alltrim(thisform.text1.value)

　　sele 学生

　　loca for substr(学号,1,4)=bjh

　　thisform.combo1.clear

　　if found()

　　thisform.combo1.clear

　　thisform.combo1.displayvalue=学生.姓名

　　do while substr(学号,1,4)=bjh

　　thisform.combo1.additem(学生.姓名)

　　skip

　　enddo

　　else

　　messagebox("没有该班级")

　　thisform.text1.value=""

　　thisform.text1.setfocus

　　endif

　　(2)Command2的click事件代码

　　thisform.release

　　7、

　　(1)Form1的init事件代码：

　　public h,m,s

　　store 0 to h,m,s

　　thisform.timer1.enabled=.f.

　　thisform.text1.value='00'

　　thisform.text2.value='00'

　　thisform.text3.value='00'

　　(2)Timer1的timer事件代码：

　　s=s+1

　　if s>59

　　s=0

　　m=m+1

　　endif

　　if m>59

　　m=0

　　h=h+1

　　endif

　　if h>24

　　h=0

　　endif

　　s1=iif(s<10,'0'+str(s,1),str(s,2))

　　m1=iif(m<10,'0'+str(m,1),str(m,2))

　　h1=iif(h<10,'0'+str(h,1),str(h,2))

　　thisform.text1.value=h1

　　thisform.text2.value=m1

　　thisform.text3.value=s1

　　(3)Command1的click事件代码

　　thisform.timer1.enabled=.t.

　　thisform.text1.value='00'

　　thisform.text2.value='00'

　　thisform.text3.value='00'

　　store 0 to s,m,h

　　(4)Command2的click事件代码

　　thisform.timer1.enabled=.f.

　　(5)Command3的click事件代码

　　thisform.release