Visual FoxPro中的一些小问题，急急

2025-05-20 02:44:09

推荐回答（1个）

回答1：

第一题：
s=0
For i=1 To 10
s0=1
For j=1 To i
s0=s0*j
Next j
s=s+s0
Next i
?s
结果：4037913
程序可以进一步简化。

第二题：
s=0
For i=1 To 100 Step 2
s=s+i
Next i
?s
结果：2500

第三题：
在按钮Command1的Click事件中写入下面的代码：
text1=thisform.label1.Caption
text2=thisform.label2.Caption
thisform.label1.Caption=text2
thisform.label2.Caption=text1

第四题：
在按钮Command1的Click事件中写入下面的代码：
thisform.label1.Caption=STR(VAL(Thisform.text1.Value)+VAL(Thisform.text2.Value))

以上四题在VFP9.0中测试通过。