Question

VFP编写程序

1、全国居民电价分为三个阶梯
　　所谓阶梯式电价，是指按照用户电力消费量分段定价，用电越多，支付的电价水平呈阶梯状逐级递增的一种电价定价机制。实行阶梯电价原则是满足基本需求，限制过多的需求
　　征求意见稿就电量档次划分提供两个选择方案：
第一个方案：
第一档：电价月均用电量110度，该档内电价不变动；
第二档：用电量为110度至210度，提价标准不低于每度5分钱；
第三档：用电量210度以上，每度电价上调不低于0.2元。
第二个方案：
第一档：用电量140度以内电价每度提高1分钱；
第二档：用电量为140度至270度，每度电价提高不低于5分钱；
第三档：用电量270度以上，每度电价提高不低于0.2元。
目前青岛居民用电收费标准为每千瓦时0.5469元
编写程序根据居民用电量计算电费。
分别按第一、第二、和目前方案计算电价

2、 在列表框中输出101～500之间的所有奇数，并计算这些奇数之和

Answer 1

&&&居民电价  
input "请输入当月实际耗电量：" to hd 
df=hd*0.5469
?"目前方案应交电费",ROUND(df ,2)
DO CASE  
CASE hd>110 AND hd<=210 
    df=hd*0.5469+(hd-110)*0.05
CASE hd>210 
    df=hd*0.5469+5+(hd-210)*0.2 
OTHERWISE case  
    df=hd*0.5469
ENDCASE  
?"第一方案应交电费",ROUND(df ,2)
DO CASE  
CASE hd>140 AND hd<=270 
    df=hd*0.5569+(hd-140)*0.05 
CASE hd>270 
    df=hd*0.5569+6.5+(hd-270)*0.2
OTHERWISE case  
    df=hd*.5569
ENDCASE  
?"第二方案应交电费",ROUND(df ,2)

*！*输出指定奇数至列表框，需要建立表单

list1的init代码如下：

this.Clear
m=101
hj=0
DO WHILE m<=500 
    hj=hj+m
    this.AddItem(ALLTRIM(STR(m)))
    m=m+2
ENDDO
this.parent.text1.value=hj

 如果需要通用一点的，可以这样：

设置text1\text2的value属性为0.

在添加到列表按钮的CLICK事件中添加如下代码：

this.Parent.list1.Clear
m=this.Parent.text1.value
hj=0
DO WHILE m<=this.Parent.text2.value
    hj=hj+m
    this.parent.list1.AddItem(ALLTRIM(STR(m)))
    m=m+2
ENDDO
this.parent.text3.value=hj

 

●请放心使用，有问题的话请追问
●满意请及时采纳，谢谢，采纳后你将获得5财富值。
●你的采纳将是我继续努力帮助他人的最强动力！