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=' '
完成了不知道好使不