求解一道高中VB题目！

我是一名高二学生，有一道VB题目，请求会VB编程的热心人士帮我写出正确的代码！若能讲解一下过程最好！先说声谢谢！！题目如下！
一只猴子摘了一堆桃子，它每天吃当天桃子数的一半，每次忍不住多吃了一个，这样到第十天时就只有一只桃子可以吃了，编程计算，猴子最初共有多少只桃子？
再次谢谢！
是按照这样的填写
Private Sub Form_Click()
Dim i As Integer
Dim s As Integer
s=_______
For i=1 to ______
s=________
Next i
Print "s="; s
End Sub

最后答案是多少？是2046吗?

举报该文章

相关建议 2008-11-26

Private Sub Form_Click()
Dim i As Integer
Dim s As Integer
s = 1
For i = 1 To 9
s = (s + 1) * 2
Next i
Print "s="; s
End Sub
是1534个循环9次。因为第十天已经剩下1个就没再吃了楼上那位 han4422951 - 都司七级初始值S为1 你还用除2 真服你了。~

温馨提示：内容为网友见解，仅供参考

当前网址：https://11.t2y.org/zz/4vmmfmp4.html

第1个回答 2008-11-26

Private Sub Form_Click()
Dim i As Integer
Dim s As Integer
s = 1 '第十天的个数
For i = 1 To 9 '另外9天
s = (s + 1) * 2 '前一天的个数为当天个数加1的2倍
Next i
Print "s="; s
End Sub

'结果:1534

第2个回答 2008-11-26

Private Sub Form_Click()
Dim i As Integer
Dim s As Integer
s= 1
For i=1 to 10
s= (s + 1) / 2
Next i
Print "s="; s
End Sub

第3个回答 2008-11-26

Dim a%, s%, i%
a = 1 : s = 0
For i = 1 To 9
s = a * 2 + 2
a = s
Next
Print "s="; s
你拿笔自己演算一下就会知道,每一天的桃子数总是第二天的两倍多两个,第四行代码就是根据每天的桃子数算出前一天的桃子数,然后再根据前一天的桃子数算出再前一天的桃子数,这个循环不能循环十次,因为循环了九次后已经是最初一天的桃子数了!最后的答案是1534

第4个回答 2008-11-26

这不是数学题吗?

dim Taozi as long
taozi=1
for i=1 to 10
taozi=taozi+1
taozi=taozi*2
next i

msgbox "桃子总数: " & trim(taozi)

第5个回答 2008-11-26

private sub form_click
dim n%,i%
x=1
print"第10天的桃子数为：1个"
for i= 9 to 1 step-1
x=(x+1)*2
print"第";i;"天的桃子数为：";x;"个"
next i
end sub

相似回答

大家正在搜

求一道高中数列题目的VB语言设计附图！高手给语言设计啊让...

求解一道VB题目

急：一道简单的VB编程（高中的信息题目）

求解，一道高中物理题目。

一道vb题目求解。

求解一道VB题，希望大家帮帮忙