用数据库vf的表单中各按钮做一个简单的计算器的步骤？

设计步骤如下：注意只是参考一下，具体你自己看着弄，大致如下

(1)建立应用程序用户界面。

选择“新建”表单，进入表单设计器，增加一个文本框控件Textl、一个标签控件Label1和一个命令按钮组CommandGroup1,并将命令按钮组的ButtonCount属性改为16。

(2)设置对象属性如下表所示：

CommandGroup1中各按钮的属性设置

对象 属性 属性值 说明

Command1～Command10 Caption 依次改为：1、2、3、4、5、6、7、8、9、0

FontBold .T.

Command11～Command10 Caption 依次改为：.、=、+、-、*、/

FontBold .T.

(3)编写程序代码。

①编写CommandGroup1的Click事件代码：

IF THISFORM.Tag=.T.

THISFORM.Text1.Value=ALLT(RIGHT(STR(THIS.Value),1))

THISFORM.Tag=〃 〃

ELSE

a=THISFORM.Text1.Value

THISFORM.Text1.Value=a+ALLT(RIGHT(STR(THIS.Value),1))

ENDIF

②编写“.”按钮Command11的Click事件代码：

a=THISFORM.Text1.Value

THISFORM.Text1.Value=a+〃.〃

③编写“=”按钮Command12的Click事件代码：

a=THISFORM.Text1.Value

THISFORM.Text1.Value=ALLT(STR(&a))

THISFORM.Tag=.T.

④编写“+”按钮Command13的Click事件代码：

a=THISFORM.Text1.Value

THISFORM.Text1.Value=a+〃+〃

THISFORM.Tag=〃 〃

⑤编写“-”按钮Command14的Click事件代码：

a=THISFORM.Text1.Value

THISFORM.Text1.Value=a+〃-〃

THISFORM.Tag=〃 〃

⑥编写“*”按钮Command15的Click事件代码：

a=THISFORM.Text1.Value

THISFORM.Text1.Value=a+〃*〃

THISFORM.Tag=〃 〃

⑦编写“/”按钮Command16的Click事件代码：

a=THISFORM.Text1.Value

THISFORM.Text1.Value=a+〃+〃

THISFORM.Tag=〃 〃

1

、

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

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

---