假如表单中开始的字符用一个文本框表示(text1)，直接写上1，2，3，...。命令按钮为显示(command1)，结果显示在文本框(Text2)中。则命令按钮的click()代码为
lcString='一二三四五六七八九十'
If Between(ThisForm.Text1.Value,1,10)
ThisForm.Text2.Value=Substr(lcString+lcString,ThisForm.Text1.Value*2-1,20)
Else
ThisForm.Text2.Value=''
EndIf

[此贴子已经被作者于2007-7-19 8:54:24编辑过]

谢谢上面的几位朋友，我已经试过了，除了THISFORM.TEXT1.VALUE的值还需加上一个val()变为数值外，其余都成功！不过，在下的编程还在进行，还有请教的地方呢！在此一併多多致谢了！