用数据库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=〃 〃答弊好

2、clear

?"1到100之内的所有素数："

s=0

for i=2 to 100

x=0

for j=2 to i-1

if i/j=int(i/j)

x=1

endif

endfor

if x=0

??alltrim(str(i))+space(2)

s=s+i

endif

endfor

?"它们的和余郑是：",s

3、clear

?"1到1000之间所有奇数的和:"

s=0

for i=1 to 1000

if mod(i,2)<>0

s=s+i

endif

endfor

?s

4、command1的click代码：

if ALLTRIM(thisform.text1.value)="12345".and.alltrim(thisform.text2.value)="abcd"

messagebox("欢迎进入QQ世界")

else

messagebox("你的用户名或密码是错误的!")

endif

5、1）select * from STUDENT where 入学成绩>500

2)select 学号,姓名,专业信息 from STUDENT where substr(alltrim(姓名),1,2)="李"

3)count for 性别="女" to mm

6、CLEAR

SET UDFPARMS TO REFERENCE &&地址传递

DIME AAA(10)

FOR i= 1 TO 10

input "请输入第"+ALLTRIM(STR(i))+"个数：" to AAA(i)

NEXT

=MySort(AAA,10) &&调用冒泡排序函数.

i=1

?"从大到小排序结果为："

do while i<=10

??AAA(i) &&显竖唯颂示排完序后的数据.

i=i+1

enddo

RETURN

*冒泡排序函数.

*参山吵数: pData: 传入数组, nCount:数组的大小.

function MySort

para pData, nCount

for i=1 to nCount

for j=nCount to i+1 step -1

if pData(j)>pData(j-1)

iTemp = pData[j-1]

pData(j-1) = pData[j]

pData(j) = iTemp

endif

endfor

endfor

endfunc

---