列表框组合框.docVIP

列表框组合框 上机练习： 第1题：编制一个表单EXAM1.SCX，完成数字时钟显示功能（界面如图例所示）。参考书P311T5、 T9. 具体要求如下： 1．表单的位置在左上角，可移动，表单的边框为无边框； 2．表单将自动以1秒间隔动态显示系统时间；参考答案： 表单的标题属性Caption设置为“数字时钟”； 表单的位置属性Left为0；Top为0；Movable为.T.； 表单的BorderStyle属性为“0—无边框”； 时钟控件Timer1的Interval属性为1000。 文本框Text1的背景色Backcolor为RGB(255,255,255)；FONTNAME为“隶书”。时钟控件Timer1的Timer事件代码： s=substr(time(),1,2) f=substr(time(),4,2) m=substr(time(),7,2) thisform.text1.value=s+时+f+分+m+秒 第2题：编制一个表单EXAM2.SCX，根据要求，用表单设计器建立一个时钟表单（界面 如图例所示）。 具体要求如下： 1．表单只有标题为“信息窗”。 2．当时钟的分为奇数时，表单的背景色为绿色，偶数时为蓝色。 3．显示的内容为只读。1．表单的标题属性Caption设置为“信息窗”； 2．时钟控件Timer1的Timer事件代码： S=SUBSTR(TIME(),1,2) F=SUBSTR(TIME(),4,2) M=SUBSTR(TIME(),7,2) MN=VAL(f) IF INT(MN/2)=MN/2 THISFORM.backCOLOR=RGB(0,0,255) ELSE THISFORM.backCOLOR=RGB(0,255,0) ENDIF thisform.text1.value=time() 第3题：编制一个表单EXAM3.SCX，设计一个24秒倒记时表单，记时精度1秒：1)编辑状态如图T1；初始运行状态如图T2； 2)单击“开始”按钮后开始倒记时，如图T3所示； 4)单击“暂停”按钮时停止记时，如图T4所示； 5)当倒记时到0秒时，自动停止记时，并且“开始”按钮不可用，如图T5 所示。 T1 T2 T3 T4 T5 要求： 1)编辑状态图T1中所见的属性在属性窗口中设置，其他属性和功能 必须用程序代码实现； 2)编写表单FORM1的INIT事件代码； 3)编写命令按钮COMMAND1、COMMAND2的CLICK事件代码； 4)编写计时器控件TIMER1的TIMER事件代码。 FORM1的INIT事件 THISFORM.TIMER1.ENABLED=.F. THISFORM.TIMER1.INTERVAL=1000 THISFORM.TEXT1.VALUE=24 ●TIMER1的TIMER事件 S=THISFORM.TEXT1.VALUE S=S-1 THISFORM.TEXT1.VALUE=S IF S=0 THISFORM.TIMER1.ENABLED=.F. THISFORM.COMMAND1.ENABLED=.F. ENDIF ●COMMAND1的CLICK事件 THISFORM.TIMER1.ENABLED=.T. ●COMMAND2的CLICK事件 THISFORM.TIMER1.ENABLED=.F. 第4题：编制一个表单EXAM4.SCX。设计一个市内电话收费表单： 市内电话收费标准：通话时间在3分钟以内收费0.2元；超过3分钟，则超出的时间按照每分钟0.1元计费；不足1分钟的部分按照1分钟收费。具体要求如下： 1）编辑状态如图T1所示，图中所示属性可在属性窗口设置，其它属性必须在代码中实现； 2）初始运行状态如图T2所示，“开始通话”按钮可用，而“停止通话”按钮不可用；3）单击“开始通话”按钮后，开始计时并计算通话费用，同时“开始通话”按钮不可用，“停止通话”按钮可用；（每单击一次“开始按钮”都要重新计时和相应的通话费用）4）分别编写Form1的Init事件、Timer1的Timer事件、Command1的CLICK事件和Command2的CLICK 事件。 T1 T2 T3 T4●Form1的Init事件： erval=100 thisform.timer1.enabled=.f. mand2.enabled=.f. thisform.text1.value=0 thisform.text2.value=0 public m,jf store 0 to m,jf ●Timer1的Timer事件 m=m+1 if m=180 jf=0.2 else tt=(m-180)/60 cc=iif(int(tt)=tt,int(tt),int(tt)+1) jf=0.2+cc*0.1 e