上机笔试新版.docVIP

PAGE 8 - 市话收费  ·Form1 init事件 thisform.text1.value=0 thisform.text2.value=0 erval=100 thisform.timer1.enabled=.f. mand2.enabled=.f. ·command1 click事件 thisform.text1.value=0 thisform.text2.value=0 thisform.timer1.enabled=.t. mand1.enabled=.f. mand2.enabled=.t. ·command2 click事件 thisform.timer1.enabled=.f. mand1.enabled=.t. mand2.enabled=.f. ·timer1 timer事件 thisform.text1.value=thisform.text1.value+1 a=thisform.text1.value if a=180 b=0.2 else c=int(a/60)-3 if mod(a,60)=0 b=0.2+c*0.1 else b=0.2+(c+1)*0.1 endif endif thisform.text2.value=b 2、倒计时 计时器 ·Form1 Init事件 thisform.text3.readonly=.t. public m,s ·Command1 click事件 m=val(thisform.text1.value) s=val(thisform.text2.value) thisform.timer1.enabled=.t. ·Command2 click事件 thisform.timer1.enabled=.f. ·Timer1 timer事件 if s=0 if m0 s=59 m=m-1 else thisform.timer1.enabled=.f. endif else s=s-1 endif mm=iif(m10,0+str(m,1),str(m,2)) ss=iif(s10,0+str(s,1),str(s,2)) thisform.text3.value=mm+:+ss *PS：形状shape设置属性specialeffect为“0 – 3维” 3、计算一元二次方程的根 图1 设计界面 图2 运行时界面 图3 运行时界面 事件 代码 FORM1 的INIT事件 THISFORM.TEXT1.VALUE=0 THISFORM.TEXT2.VALUE=0 THISFORM.TEXT3.VALUE=0 COMMAND1的CLICK事件 A=THISFORM.TEXT1.VALUE B=THISFORM.TEXT2.VALUE C=THISFORM.TEXT3.VALUE IF A=0 MESSAGEBOX(‘方程无意义’) ELSE IF B*B-4*A*C0 MESSAGEBOX(‘方程无实根’) ELSE S=SQRT(B*B-4*A*C) THISFORM.TEXT4.VALUE=(-B+S)/2*A THISFORM.TEXT5.VALUE=(-B-S)/2*A ENDIF ENDIF COMMAND2的CLICK事件 THISFORM.RELEASE 4、登陆窗口 FORM1 的INIT事件 THISFORM.TEXT2.PASSWORDCHAR=’*’ COMMAND1的CLICK事件 IF ALLT(THISFORM.TEXT1.VALUE)== ‘USER’ AND; ALLT(THISFORM.TEXT2.VALUE)==’ SQL’ MESSAGEBOX(‘登录成功’) ELSE MESSAGEBOX(‘用户名或口令错误’) ENDIF COMMAND2的CLICK事件 THISFORM.RELEASE 5、电子时钟 事件 代码 FORM1的INIT事件 THIS.TIMER1.INTERVAL=1000 THIS.TIMER1.ENABLED=.T. S=SUBSTR(TIME(),1,2) F=SUBSTR(TIME(),4,2) M=SUBSTR(TIME(),7,2) THISFORM.TEXT1.VALUE=S THISFORM.TEXT2.VALUE=F THISFORM.TEXT3.VALUE=M THISFORM.SETALL(READONLY,.T.,TEXTBOX) TIMER1的TIMER事件 S=SUBSTR(TIME(),1,2) F=SUBSTR(TIME(),4,2) M=SU