vf 求s=a+aa+aaa+aaaa...+aaaaaaa...a (n个a)

来源：百度知道 编辑：UC知道 时间：2024/06/17 21:33:46
设计一表单 输入a和n的值 求s=a+aa+aaa+aaaa...+aaaaaaa...a (n个a)的值
谢谢大家 帮帮忙!!!
设计一表单 输入a和n的值 求s=a+aa+aaa+aaaa...+aaaaaaa...a (n个a)的值
帮帮忙拉!!!

再线等

视图表单不好传送，我只好用程序编制表单，把下面的程序复制到你的VFP某个项目中，起名***.prg,运行即可。

ols=createobject("form1")
ols.show
DEFINE CLASS form1 AS form
Top = 11
Left = 115
Height = 200
Width = 300
Desktop = .T.
Caption = "数列求和"
Name = "form1"
ADD OBJECT cmdok AS commandbutton WITH ;
Top = 150, ;
Left = 90, ;
Height = 25, ;
Width = 60, ;
Caption = "计算", ;
Name = "cmdOk", ;
TabIndex = 2
ADD OBJECT cmdyl AS commandbutton WITH ;
Top = 150, ;
Left = 150, ;
Height = 25, ;
Width = 60, ;
Caption = "关闭", ;
Name = "cmdyl", ;
TabIndex = 1, ;
Default = .T.
ADD OBJECT azh AS textbox WITH ;
Alignment = 3, ;
Value = 0, ;
Height = 20, ;
Left = 150, ;
SelectOnEntry = .T., ;
Top = 50, ;
Width = 49, ;
Name = "azh", ;
TabIndex = 3
ADD OBJECT nzh AS textbox WITH ;<