请问VFP中下面这个程序该怎么翻译呢?
题目
请问VFP中下面这个程序该怎么翻译呢?
s=""
f=.T.
*** FOUND ***
FOR i=1 TO thisform.List1.Count
IF thisform.List1.Selected(i)
IF f
*** FOUND ***
s=thisform.List1.list(i)
f=.F.
ELSE
*** FOUND ***
s=s+thisform.List1.list(i)
ENDIF
ENDIF
ENDFOR
st="select &s from orders into cursor tmp"
thisform.Grid1.RecordSource=st
答案
设置变量s为空字符串,f为逻辑真,从头到尾搜索列表框（列表框中存放表orders的字段名）,若第一次搜索到某一列表项被选中,将其值存入s,若以后再搜索到某一列表项被选中,则将其值追加到s后面,全部搜索完毕,将表orders的用列表框指定的字段内容作为虚拟表tmp, 将虚拟表中的内容在表格grid1中显示出来.
举一反三
已知函数f（x）=x，g（x）=alnx，a∈R．若曲线y=f（x）与曲线y=g（x）相交，且在交点处有相同的切线，求a的值和该切线方程．
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
最新试题
- 什么是入射角.反射角.怎么确定 什么是入射角.反射角.怎么确定
- 妈妈买苹果计划吃10天,小明每天多吃2个,吃了8天,还剩4个,妈妈买了多少苹果?（一元一次方程,为X）
- 1.21千克等于多少克
- 某商人从批发市场批发了一批苹果，每千克1.2元，在运输过程中，正常损耗250千克（腐烂及水分蒸发），最后按每千克2.4元出售，仍可获利600元，则该商人批发多少千克苹果？
- 青蛙的眼睛结构是怎样的,为什么只能捕捉到运动的虫
- 一个质量为55克,体积为50cm3的鸡蛋放到0.5m深的水中,水对鸡蛋的压强是（ ）pa.鸡蛋受到的浮力是（ ）N.
- 有一个底面边长和侧棱长均为2的正四棱锥,现用一张正方形包装纸将其完全包住,不能裁剪,可以折叠
- 漂亮的画用英语怎么说?
- 英语翻译
- 在三位数中，最小的奇数是_，最大的奇数是_；最小的偶数是_，最大的偶数是_．
热门考点