看不太懂你这个，我大概理解为：和我的程序一样，好像是换了一种写法。不知道能不能这样理解。
我的意思，方法能不能像调用程序一样，do 统计，就完事了，不知道行不行

是这个意思
要达到你的目的，新建表单方法，把上面需要变化的东西改成变量写到方法中，按钮中 Thisform.新建方法名(参数1,参数2, ...) 这样调用即可
例如，上面 container4 是可变的，方法内容就这么写：
Lparameters toCnt as Container
local ii, cNo
For ii = 1 TO 10
    cNo = Transform(ii)
    With GetPem(toCnt, 'Label'+cNo) as Label
        .Caption = Transform(Evaluate('lsb'+cNo))
        .Refresh()
        .Visible = !(.Caption == '0')
    EndWith
EndFor
按钮 click 调用此方法: Thisform.方法名(thisform.pageframe1.page1.container4)

*-- 上面这个实际无法运行，因为方法中访问不到你的局部变量 lsbXX，你可以把那些变量放入数组，同时作为参数传入，方法就这样定义：
Lparameters toCnt as Container, taLsb
...
    With GetPem(toCnt, 'Label'+cNo) as Label
        .Caption = Transform(Evaluate(taLsb[ii]))
...
click 调用时就改成:
Dimension aLsb[10]
aLsb[1] = lsb1
...
Thisform.方法名(thisform.pageframe1.page1.container4, @ aLsb)

[此贴子已经被作者于2023-4-21 11:14编辑过]

FOR i=1 TO 10
tt=ALLTRIM(STR(i))
thisform.pageframe1.page1.container4.label&tt..Caption=trans(eval('lsb'+ trans(i)))
thisform.pageframe1.page1.container4.label&tt..refresh
IF thisform.pageframe1.page1.container4.label&tt..Caption='0'
thisform.pageframe1.page1.container4.label&tt..visible=.f.
else
thisform.pageframe1.page1.container4.label&tt..visible=.T.
ENDIF
根据值给标签换颜色
...............
ENDFOR
我想在加一个操作，就是获取到值大于等于5，显示为蓝色(0,0,255),大于等于10，显示为红色(255,0,0),请教怎么做。
我主要不知道怎么获取变量
我总不能这样写吧
if lsb1>=5
.........
endif
你说的新建方法我得研究一下，应该我能实现

32楼的代码加几句呗：
...
For ii = 1 TO 10
    cNo = Transform(ii)
    nVal = Evaluate('lsb' + cNo)
    With GetPem(toCnt, 'Label'+cNo) as Label
        .Caption = Transform(nVal)
        .Refresh()
        .Visible = !(.Caption == '0')
        .BackColor = Icase(nVal > 10, 0xff0000, nVal > 5, 0xff, 0xc0c0c0)    && 根据值改背景色
    EndWith
EndFor

算了，还就你现在的代码改吧
FOR i=1 TO 10
    tt = Ltrim(Str(i))
    nVal = eval('lsb' + trans(i))
    With thisform.pageframe1.page1.container4.label&tt as Label
        .Caption = trans((nVal)
        .refresh()
        .visible = !(.Caption='0')
        .backcolor = Icase(nVal>10,0xff, nVal>5,0xff0000, 0xc0c0c0)    && 根据值改背景色
    EndWith
ENDIF

[此贴子已经被作者于2023-4-21 12:29编辑过]

我已经改好了感谢！

您的程序里面定义的 lsb1，lsb2，lsb3 ... lsb10 只是局部变量，只能在程序执行的时候使用，不能在表单中直接引用。因此，如果您在表单中需要使用这些变量，您需要在程序中将这些变量声明为公共变量或者全局变量。声明方法如下：

PUBLIC lsb1, lsb2, lsb3, lsb4, lsb5, lsb6, lsb7, lsb8, lsb9, lsb10

或者：

GLOBAL lsb1, lsb2, lsb3, lsb4, lsb5, lsb6, lsb7, lsb8, lsb9, lsb10

如果您采用公共变量的方式声明变量，那么这些变量只能在同一应用程序中的不同对象之间共享。如果您采用全局变量的方式声明变量，那么这些变量可以在应用程序的任意对象中使用。

在表单中使用这些变量时，您可以使用下面这样的代码：

FOR i=1 TO 10
    strLsb = 'lsb' + ALLTRIM(STR(i))
    thisform.pageframe1.page1.container4.label&tt..Caption = &strLsb
ENDFOR

这样，您就可以在表单中使用局部变量 strLsb 引用程序中的全局变量了。