1樓：匿名使用者
你在計算按鈕上雙擊，在其click事件中輸入**a=thisform.text1.valueb=thisform.
text2.valuen=thisform.optiongroup1.
valuedo case
case n=1
thisform.text3.value=a+bcase n=2
thisform.text3.value=a-bcase n=3
thisform.text3.value=a*bcase n=4
thisform.text3.value=a/bendcase
thisform.refresh
2樓：
設計步驟如下(借鑑)：
(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.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=〃 〃
vf編寫簡易計算器
3樓：
設計步驟如下(借鑑)：
(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.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=〃 〃
4樓：咎蘿醜山彤
簡單的計算器吧
通過鍵盤輸入數
實現+-
*/功能
在表單裡建
六個命令按鈕+-
*/=c(清零)
一個文字框
寫**右鍵
**對form1初始化
過程為init
public
a,b,c,d
d=0文字框**
text1
過程lostfocus
c=thisform.text1.value命令按鈕+（command1）
過程click
a=cc='0'
thisform.text1.value=cb='+'
命令按鈕-(command2)
過程同上
a=cc='0'
thisform.text1.value=cb='-'
乘法的a=c
c='0'
thisform.text1.value=cb='*'
除法的a=c
c='0'
thisform.text1.value=cb='/'
等號的if
b='+'
d=val(a)+val(c)
c=str(d)
thisform.text1.value=dendif
ifb='-'
thisform.text1.value=val(a)-val(c)endif
ifb='*'
thisform.text1.value=val(a)*val(c)endif
ifb='/'
thisform.text1.value=val(a)/val(c)endif
清零的thisform.text1.value='
'完成了不知道好使不
如何利用巨集替換函式在vf裡製作簡易計算器
5樓：匿名使用者
1.建表單
2.建2個文
du本框 text1，text2
3.建1個命令按鈕
zhidao command1
4.在表單版 init 中寫入權：
thisform.text2.value = 05. 在命令按鈕 command1 的 click 中寫入：
local ccmd
ccmd = "thisform.text2.value = " + alltrim(thisform.text1.value)
&ccmd
6.執行表單
7.在 text1 中輸入 1+2*3/4+(5+6)+7^88.按 command1 按鈕
9.text2 中顯示結果 5764814.50
計算器怎麼用，計算器cos怎麼用
先介紹一下在計算中比較重要的一個鍵 shift鍵，shift鍵位於整個計算器的左上方，用來切換計算的符號。主要介紹一下任意冪數鍵，比如計算8的平方，先輸入8然後按下任意冪數鍵，最後輸入2.就可以計算了。在任意冪數鍵的上方有一個開任意次方鍵，可以給任何一個數開任意次方，用法是先輸入要開的次方數，然後按...
卡西歐計算器怎麼用，卡西歐計算器怎麼用
02卡西歐計算器除了每個鍵的使用外，還有第二功能 大部分按鍵上方都有符號 字母等黃色字型，這些字型就是計算器每個對應按鈕的第二功能。04 常用的第二功能設涉及到很多新符號，接下來憲哥大家簡單介紹一下這些鍵的名稱 shift第二功能鍵，alpha同shift，上下左右，mode模式選擇和設定，x 1倒...
用VB做簡單的計算器，該怎麼做，用VB做一個簡單的計算器，該怎麼做？
du瓶邪 option explicit dim op1,op2 前面輸入的運算元 dim decimalflag as integer 小數點仍然存在嗎？dim numops as integer 運算元個數 dim lastinput 指示上一次按鍵事件的型別 dim opflag 指示未完成的...