vb程序设计题求解！！！谢谢各位了！！

襄阳城

<p>vb程序设计题求解！！！谢谢各位了！！</p>
<p><img src="http://img.baidu.com/img/iknow/icn_point.gif"> 悬赏分：20 -</p>
<p>解决时间：2010-4-7 14:07</p>
<p>题目</p>
<p>1.一个球从100m高度自由落下，每次落地后反跳回原高度的一半，再落下。求它在第10次落地时，共经过多少m?最后一次反弹高度多少？</p>
<p>2.有一根长度为321m的钢材料，要将它截取成两种规格的短料，规格a，b的长度分别为17m和27m，问分隔成a，b多少段后，剩余材料r最少？</p>
<p>3.小猴在一天摘了若干个桃子，当天吃掉一半多一个；第二天接着吃了剩下的一半多一个，以后每天都吃剩下桃子中的一半零一个，到第七天在上要吃时只剩下一个，问小猴那天共摘下了多少个桃子？</p>
<p>PS:由于我是新学的VB很多东西不熟也不明白，还处于“物理”阶段，所以问的都很简单，各位大虾不要见笑哈.....希望答案能给详细一点，能写明理由的是更好的了，如果有哪位大虾愿意长期帮助我的话更是感激不尽.....</p>
<p>再次感谢各位的帮助，谢谢！！</p>
<p>鞠躬</p>
<p>小菜鸟留</p>
<p>提问者： 魔导帝国 - 四级</p>
<p>最佳答案</p>
<p>Option Explicit</p>
<p>Private Sub Command1_Click()</p>
<p>Dim h0 As Integer， s As Single， a(1 To 20) As Single， i As Integer</p>
<p>a(1) = 100 \'第一个扔下的高度</p>
<p>For i = 2 To 20  \'每一个数组内数据表示小球行走的一个方向的路程，也就是奇数项是从最高点落下的路程，偶数项是从地面反弹到最高点的路程</p>
<p>a(i) = a(i - 1) / 2</p>
<p>Next i</p>
<p>For i = 1 To 19  \'第10次落地的总路程</p>
<p>s = s + a(i)</p>
<p>Next</p>
<p>Print "第10次落地的总路程:" & s</p>
<p>Print "最后一次弹起的高度：" & a(20)  \'我这里是把第10次落地以后弹起的高度当做最后一次谈起的高度</p>
<p>End Sub</p>
<p>Private Sub Command2_Click()</p>
<p>Dim n_a() As Integer， n_b() As Integer， n_left() As Integer</p>
<p>Dim i As Integer， j As Integer， k As Integer， min As Integer</p>
<p>\'简单的方法一时想不出来，我就一个个试出来。虽然效率不是很高，不过还好数字不是很大.</p>
<p>For i = 0 To 321 \ 17</p>
<p>For j = 0 To 321 \ 27</p>
<p>If i * 17 + j * 27 <= 321 Then</p>
<p>k = k + 1</p>
<p>ReDim Preserve n_left(k)</p>
<p>ReDim Preserve n_a(k)</p>
<p>ReDim Preserve n_b(k)</p>
<p>n_a(k) = i</p>
<p>n_b(k) = j</p>
<p>n_left(k) = 321 - i * 17 - j * 27</p>
<p>End If</p>
<p>Next</p>
<p>Next</p>
<p>min = n_left(1) \'求剩下最小的距离</p>
<p>j = 1  \'保存剩下最小距离的那组组合的序号</p>
<p>For i = 2 To k  \'我这里只求了一组解，也许有不同的组合而剩下距离相同的情况 我就没有再列出来的</p>
<p>If min > n_left(i) Then</p>
<p>j = i</p>
<p>min = n_left(i)</p>
<p>End If</p>
<p>Next</p>
<p>Print "最小剩余组合：17m X" & n_a(j) & "根，27m X" & n_b(j) & "根，剩余最小长度为" & n_left(j); "m"</p>
<p>End Sub</p>
<p>第三题我回答过了你看下面的网址的第一题</p>
<p>参考资料：http://zhidao.baidu.com/question/138768061.html</p>
<p>0</p>
<p>回答者：</p>
<p>luomandick - 七级   2010-4-1 11:45</p>
<p>我来评论>></p>
<p>提问者对于答案的评价：</p>
<p>谢谢你！回一楼，在学语句</p>