简单的计算器吧 通过键盘输入数 实现+ - * /功能
在表单里建 六个命令按钮 + - * / = 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=' '
完成了不知道好使不