请问怎样编写"每个苹果0.8元，第一天买2个苹果，第二天开始，每天买前一天的2倍，直至购买的苹果个数达到不超过100的最大值。求每天平均花多少钱?"这个程序。

dim sum as float
dim anpcount as integer
dim daycount as integer
dim everage as float

anpcount=2
daycount=1
while anpcount<100
anpcount=anpcount + 2 * anpcount
daycount=daycount + 1
wend
everage=anpcont * 0.8/daycount

大概是这样的,不知道语法对不对,你试试吧

Private Sub Command1_Click()
Dim AppleCount As Long '//苹果总数
Dim AvgMoney As Single
Dim DayCount As Long '//日总数

AppleCount = 2
DayCount = 1

While AppleCount < 100
AppleCount = AppleCount + AppleCount * 2
DayCount = DayCount + 1
Wend

AvgMoney = (AppleCount * 0.8) / DayCount

Print AvgMoney
End Sub

答案为什么是25.92?跟我算得不一样啊

那正确答案你知道吗?.

你既然已经算了..还觉得别人的是错的..那还问?.

正确答案貌似是16.8,我只是用笔算的,没用VB

[此贴子已经被作者于2006-11-30 11:53:44编辑过]