K=2
DO WHILE K<30
S=I+J I=J J=S
K=K+1
ENDDO
?'第'+str(k)+'个数为：'+str(s)
3）错误1：第6行改为：CASE X>30
错误2: 第8行改为: CASE X<=30 AND MOD(X,5)<>0
选调试器窗口中的\文件\菜单,再选择\另存输出\命令,将\调试输出\窗口内输出内容存放到文本文件LX.TXT中
习题八
一、选择题 1)D 2)B 3)B 4)C 5)D 6)C 7)C 8)B
二、上机题
1)【提示】 操作步骤：
第一步：向表单添加文本框和命令组控件，分别设置命令按钮的Caption属性，在对命令按钮“=”的Caption
属性设置时，不能在其属性窗口中直接输入半角的“=”，否则提示语法错误。可以输入全角“＝”
或在表单FROM1的Init事件中，输入如下代码完成：
for i=1 to 10
this.commandgroup1.buttons(i).caption=alltrim(str(i))
endfor
this.commandgroup1.buttons(11).caption=\
this.commandgroup1.buttons(12).caption=\
this.commandgroup1.buttons(13).caption=\
this.commandgroup1.buttons(14).caption=\
this.commandgroup1.buttons(15).caption=\
第二步：在表单FORM1的Init事件中定义全局变量T，并赋初值空串
PUBLIC T=''
第三步：编写命令组的Click事件代码，完成接收输入的表达式：
do case
case this.value=1
t=t+\
thisform.text1.value=t
case this.value=2
t=t+\
thisform.text1.value=t
case this.value=3
t=t+\
thisform.text1.value=t
case this.value=4
t=t+\
thisform.text1.value=t
case this.value=5
t=t+\
thisform.text1.value=t
case this.value=6
t=t+\
thisform.text1.value=t
case this.value=7
t=t+\
thisform.text1.value=t
case this.value=8
t=t+\
thisform.text1.value=t
case this.value=9
t=t+\
thisform.text1.value=t
case this.value=10
t=t+\
thisform.text1.value=t
case this.value=11
t=t+\
thisform.text1.value=t
case this.value=12
t=t+'+'
thisform.text1.value=t
case this.value=13
t=t+'-'
thisform.text1.value=t
case this.value=14
thisform.text1.value=alltrim(str(&t,20,6)) && 宏替换T将得到数值表达式计算结果,20与6可以自己根据需要确定
case this.value=15 t=''
thisform.text1.value=t
endcase
thisform.refresh
第四步：当输入的表达式错误时，将引发命令组的Error事件，编写命令组的Error事件代码：
thisform.text1.value=\运算式错误\
2)【提示】 操作步骤：
第一步：创建表单，添加控件，将编辑框Edit1的Hideselection属性设为.f.，复选框Check1的数据源
（Controlsource属性）设为X，“确定”按钮的Default属性设为.T.
第二步：在表单的Load事件中定义公共变量X，赋初值0
第三步：编写确定按钮的Click事件代码：
IF X=0
THISFORM.EDIT1.SELTEXT=THISFORM.TEXT1.VALUE
ELSE
THISFORM.TEXT1.VALUE=THISFORM.EDIT1.SELTEXT
ENDIF
第四步:在表单的DESTORY事件中释放公共变量X
3)【提示】 操作步骤：
第一步:创建表单,添加控件,将组合框Combo1的Style属性改为2,Rowsourcetype属性改为5,Rowsource设为
在表单LOAD事件中定义的全局数组MA(5);修改列表框List1的Multiselect属性改为.t.,允许多重选定;确定按
钮的Default属性改为.T.
第二步:在表单的LOAD事件中定义数组,并给数组元素赋值,例如代码如下:
PUBLIC MA(5)
MA(1)=\选课.DBF\
MA(2)=\学生.DBF\
MA(3)=\仓库.DBF\
MA(4)=\职工.DBF\
MA(5)=\订购单.DBF\
第三步:组合框的InteractiveChange事件编写如下代码:
THISFORM.LIST1.ROWSOURCETYPE=8
fname=thisform.combo1.value
THISFORM.LIST1.ROWSOURCE=fname
use &fname