vf課程設計計算器

『壹』 怎樣用VFro編寫一個計算器的程序

請把您曾經瀏覽過與題目密切相關的網頁內容復制過來，也許「最佳答案」就讓您如此輕松的拿到！

『貳』 用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

『叄』 vf計算器按鈕加減乘除的代碼

加+ 減- 乘* 除/

『肆』 VF編寫簡易計算器

設計步驟如下(借鑒)：
(1)建立應用程序用戶界面。
選擇「新建」表單，進入表單設計器，增加一個文本框控制項、一個標簽控制項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=〃 〃

『伍』 我在VF這做一個計算器，怎樣把VF中的Form1改為計算器

caption 屬性 設置標題欄的文字。
摘自 狐狸頭資料網

『陸』 用vf製作計算器

是不是你剛才問過抄啊？我還給解襲答了，你如果添加的是命令按鈕組這樣寫是對的，比如命令按鈕組中有4個按鈕，分別對應+-*/。
但是因為你添加的是選項按鈕組，所以do case語句中case this.value部分寫的不對,this是相對引用，指的是當前對象，而當前對象是「計算」命令按鈕command1啊。
應該改成 case thisform.optiongroup1.value=

『柒』 在VF上做個計算器，怎樣把Form1改為計算器

修改Form1的caption屬性為計算器

『捌』 關於命令按鈕設計的簡易計算器的VF代碼

*在text1的interactive event中輸抄入襲以下代碼
thisform.text3.value=""
*在text2的interactive event中輸入以下代碼
thisform.text3.value=""
*在OptionGroup1的interactive event中輸入以下代碼
thisform.text3.value=""

*在text3的GotFocus Event中輸入以下代碼
a=val(thisform.text1.value)
b=val(thisform.text2.value)
f=thisform.OptionGroup1.value
do case
case f=1
this.value=a+b
case f=2
this.value=a/b
case f=3
this.value=a**b
case f=4
this.value=a%b
endcase
*你試一試看行不

『玖』 用VF做一個計算器，可以加減乘除就行，通過選項組選擇加減乘除，求解答，很急

click事件相關代碼改成：
case thisform.commandgroup1.value=1
（=2、3、4也是一樣的）你又添加了一個計算按鈕，在這個按鈕的click事件代碼內寫 this.value=1，含義就是容當這個命令按鈕的value值取1，但其實，題目的含義是說當命令按鈕組按下第一個按鈕時，即命令按鈕組的value值為1的時候，要做加法，所以對象的引用就應該是 thisform.commandgroup1.value。

另外
1、text1不應該寫click事件啊
2、這個題目是不是不應該加計算按鈕啊，點命令按鈕組相應的按鈕就直接+-*/了。如果是這樣的話，你的代碼就沒問題了，因為它是寫在 命令按鈕組的 click事件當中，引用的話就是當前對象。

『拾』 VF編寫計算器

簡單的計算器吧 通過鍵盤輸入數 實現+ - * /功能
在表單里建 六個命令按鈕 + - * / = c(清零) 一個文本框
寫代碼 右鍵 代碼 對form1初始化 過程為init
public a,b,c,d
d=0
文本框代碼 text1 過程lostfocus
c=thisform.text1.value
命令按鈕+（command1） 過程click
a=c
c='0'
thisform.text1.value=c
b='+'
命令按鈕-(command2) 過程同上
a=c
c='0'
thisform.text1.value=c
b='-'
乘法的 a=c
c='0'
thisform.text1.value=c
b='*'
除法的 a=c
c='0'
thisform.text1.value=c
b='/'
等號的 if b='+'
d=val(a)+val(c)
c=str(d)

thisform.text1.value=d
endif
if b='-'
thisform.text1.value=val(a)-val(c)
endif
if b='*'
thisform.text1.value=val(a)*val(c)
endif
if b='/'
thisform.text1.value=val(a)/val(c)
endif
清零的 thisform.text1.value=' '
完成了不知道好使不