省二上机.docVIP

gc245.scx的功能是：设计一个窗口，日历牌每10秒显示一次，每次显示10秒；系统时间的数字式表每秒显示一次新的时间。要求： ①设置计时器Timer1 和Timer2的属性 ②在编写的二个过程代码Timer1_Timer(),Timer2_Timer()中各有一个错误，请调试改正。调试改正中，每个过程代码只能改一处，并不得增删语句 Time1_timer中代码如下： if thisform.label1.visible=.t. thisform.label1.visible=.f. else thisform.label1.visible=.f. endif Time2_timer中代码如下： if thisform.label1.caption!=time() thisform.label2.caption=time() endif 属性设置：将Timer1的interVal属性设置 为10000，Timer2的interVal属性设置为1000 改错： Timer1事件： *原语句为thisform.label1.visible=.f. thisform.label1.visible=.t. Timer2事件： *原语句为thisform.label1.caption！=time（） thisform.label2.caption！=time() (2)程序填空题 tk245.scx的功能是：当按下“求和”按钮时，计算S=1**2+（1**2+2**2）+（1**2+2**2+3**2）+…（1**2+2**2+3**2+…+10**2）。请在该程序空白(1)、(2)处，将其补充完整，以便得到正确答案，但不得增删原语句。 代码如下： SET TALK OFF TOT=0 FOR N=1 TO 3 T=0 M=1 DO WHILE M=N T=t+（ 1 ） M=M+1 ENDDO TOT=TOT+（ 2　） ENDFOR ? S=,TOT SET TALK ON RETURN 填空：Command1求和命令按钮单击事件 *第一个空的原语句 T=t+( 1 ) T=t+M^2 *第二个空的原语句 ? S=,( 2 ) ? S=,TOT 试题一: 属性设置及改错题: gc291.scx的功能是:设计一个窗口,输入一个整数,按下判断按钮,若该整数是一负数,则显示该数不是一个素数,若为素数,则显示该数是一个素数,否则也显示该数不是一个素数.要求: (1) 设置label2和label3的属性,使其开始运行时不可见. (2) 在command1_click() 的过程代码中有两处错误,请调试改正. command1_click() 的过程代码如下： thisform.label2.visible=.f. thisform.label3.visible=.f. n=thisform.text1.value if n0 thisform.label3.visible=.t. endif for i=2 to sqrt(n) if mod(n,i)=0 exit endif endfor if isqrt(n) thisform.label2.visible=.t. else thisform.label3.visible=.t. endif 属性设置：将Label2、Label3的Visible属性设置为.F. 改错：Command1判断命令按钮的单击事件 *第一个ENDIF改为 else *尾部加一个endif 试题二: 程序填空题 设表文件WK.DBF的编号字段名为BH,类型为数值型,宽度为3,程序TK291.scx的功能是,单击处理按钮实现:把BH每一位相加是奇数的记录存放到WK1.DBF文件中，并要求按照BH从大到小排序。 请在该程序空白(1)、(2)处，将其补充完整，以便得到正确答案，但不得增删原语句。 Command1_click事件中代码如下： USE WK SORT TO WK1 ON BH/D USE WK1 DO WHILE .NOT. EOF() N1=INT(BH/100) N2=INT((BH-100*N1)/10) N3=MOD(BH,10) IF MOD(( 1 ),2)=0 DELETE ENDIF ( 2 ) ENDDO PACK LIST 填空: