列表框组合框.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.INTERV AL=1000 THISFORM.TEXT1.V ALUE=24 ●TIMER1的 TIMER 事件 S=THISFORM.TEXT1.VALUE S=S-1 THISFORM.TEXT1.V ALUE=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的