《VFP练习题套 (18).doc》由会员分享,可在线阅读,更多相关《VFP练习题套 (18).doc(3页珍藏版)》请在金锄头文库上搜索。
第二套1改错题*功能:显示14的乘法表CLEARFOR i=1 TO 4 FOR j=1 TO 4*found* IF ij 改为:IF i=j*found* ?i*j 改为:?str(i,1)+*+str(j,1)+=+str(i*j,2)+ ENDIF ENDFOR ?ENDFOR2操作Command1的click事件:a=val(thisform.text1.value)k=1s=0do while kMAXI MAXI=XENDIFIF XMINI*found* _(2)_ MINI=XENDIFENDFORR=SUM-MAXI-MINI?R/PSET TALK ON