Question

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

编程题
1、请编写程序计算1!+2！+3!+……+10！的值。
2、编程计算1~100内奇数之和。
3、表单设计：假设有一个表单，内有两个标签，名称分别为：Label1和Label2，一个按钮，名称为Command1。功能要求如下：当用鼠标单击按钮后，交换两个标签的标题文本。请编写有关控件相应事件的代码完成以上功能。
4、表单设计：假设有一个表单，内有两个文本框，名称分别为：Text1和Text2，一个标签，名称为Label1，一个命令按钮，名称为Command1。功能要求如下：当用鼠标单击命令按钮后，把输入两个文本框中的数字相加，并把结果显示在标签中。请编写有关控件相应事件代码完成以上功能。

Answer 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中测试通过。

Answer 2

1A;2A;3B;4B;5A;6A;7A;8A;9A;10A;11C；12A；13C
14A；15B；16B；17C；18D；19B

Answer 3

三楼的朋友，你的第一个题的循环有问题~！有2个endfor，为什么你只写一个for呢？

Answer 4

可采用下列程序或方法：
1、
clear
set talk off
s=1
sum=0
for i=1 to 10
j= 1 to i
s=s*j
endfor
sum=sum+s
endfor
? sum
set talk on

2、
clear
set talk off
sum=0
for i=1 to 100 step 2
sum=sum + i
endfor
?sum
set talk on

3、在command1的click方法中填写下列代码：
a=thisform.label1.caption
thisform.label1.caption=thisform.label2.caption
thisform.label2.caption=a
thisform.refresh

4、在command1的click方法中填写下列代码：
a=thisform.text1.value+thisform.text2.value
thisform.label2.caption=str(a)
thisform.refresh