用VF怎么做简易计算器啊

你在计算按钮上双击，在其click事件中输入代码

a=thisform.text1.value

b=thisform.text2.value

n=thisform.optiongroup1.value

do  case

   case  n=1

     thisform.text3.value=a+b

   case  n=2

      thisform.text3.value=a-b

   case  n=3

      thisform.text3.value=a*b

   case  n=4

      thisform.text3.value=a/b

endcase

thisform.refresh

、

编写程序，求四位数的偶数中，所有各位数字之和是

15

的倍数的数的和。

（

1592376

）

Set talk of

S=0

For i=1000 to 9998 Step 2

A=int(i/1000)

B=int((i-a*1000)/100)

C=int((i-a*1000-b*100)/10)

D=mod(i,1000)

If mod((a+b+c+d),15)=0

S=s+i

End if

End for

?

S

Set talk on

Return

1-1

、

编写程序，求三位数的偶数中，所有各位数字之和是

15

的倍数的数的和。

(20454)

1-2

、

编写程序，求三位数的奇数中，所有各位数字之和是

15

的倍数的数的和。

(19731)

1-3

、

编写程序，求三位数的奇数中，所有各位数字之和是

12

的倍数的数的个数。

(38)

1-4

编写程序，求四位数的奇数中，所有各位数字之积（且不为

0

）是

60

的倍数的数的和。

(3456254)

1-5

编写程序，求满足下列条件的所有四位数

ABCD

的个数，该四位数是

8

的倍数，且

A+B=B+C

，即第

1

位数加上第

2

位数等于第

2

位数加上第

3

位数。

(110)

2

、

编写程序，

求

1

到

5000

之间的能被

5

整除的前若干个偶数之和，

当和值大于

500

时退出，

输出该和值。

（

550

）

Set talk off

S=0

i=2

Do while s<=500

If mod(i,5)=0

S=s+i

End if

End do

?

S

Set talk on

Return

2-1

编写程序，已知：

S=2+4+8+16+32+

„，求

S

不大于

2500

的最大值。

(2046)

Set talk off

S=0

i=2