lable2在属性中设置它的没则隐caption属枯厅性为"后项"
lable3在属性中设置它的caption属性为"结果"
text1、text2、text3不用设置
optiongroup1的生成器:
command1在属性中设置它的caption属性为“计算”
command2在属性中设置它的caption属性为“退出”
3、接着将属性摆好;
4、接着双击command1,盯首输入click代码:
a=val(alltrim(thisform.text1.value)) &&去除前后空格,并将字符型数据转换为数值型数据
b=val(alltrim(thisform.text2.value)) &&由于文本框默认的数据类型是字符型,所以要转换
if thisform.optiongroup1.value=1
thisform.text3.value=a+b
endif
if thisform.optiongroup1.value=2
thisform.text3.value=a-b
endif
if thisform.optiongroup1.value=3
thisform.text3.value=a*b
endif
if thisform.optiongroup1.value=4
thisform.text3.value=a/b
endif
command2代码:
thisform.release
5、运行,计算器就实现了。
程序的目的是将x的各位数字相加,第一次累加个位数,第二次桥宽累加十位数,直至变成小数。首先是INT(x/10)是除以10取整,结果依次是3435,343,34,3
然后是x%10 除以10取余数,其实就是依次取个位值,值依次是5,3,4,3
最后是y*10的值,y的值都是用上一次循环的,其中第一次值是0,y=x%10+y*10 是想实现y值的累加,下面每次循环y*10中的y都是上一次,y=x%10+y*10 的值,所以y*10值依次是0,3+5*10=53,
4+53*10=534,3+534*10=5343
我也在备考,前段时间做过这题,稍微有点茄配不同,答案是我根据敏纳亮解析和自己的理解写的,希望采纳哟~~~
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)