vb习题五答案.pptVIP

Visaual Basic程序设计习题五答案 5.12世界现有人口为60亿，设年增长率为1.2％，编写程序，计算多少年后增加到70亿。 Private Sub Form_Click() Dim i, a As Integer For i = 1 To 13 If 60 * (1 + 0.012) ^ (i - 1) 70 And 60 * (1 + 0.012) ^ i 70 Then a = i End If Next Print a End Sub 5.16 马克思曾经做过这样一道趣味数学题：有30个人在一家小饭馆用餐，其中有男人、女人和小孩。每个男人花了3先令，每个女人花了2先令，每个小孩花了1先令，一共花了50先令。问男人、女人、小孩各有几人？ Private Sub Form_click() For man = 1 To 30 For woman = 1 To 30 pay = 3 * man + 2 * woman + 30 - man - woman If pay = 50 Then Print man; woman; 30 - man - woman Next Next End Sub * * 5.11 编写程序，计算1~100内能被3整除的数的和。 【分析】本例对1~100内每一个数进行判断（用循环实现），符合条件的累加到和变量中，循环体内用条件结构进行判断。 【源程序代码】 Private Sub Form_Click() Dim s%,n% s = 0 For n=1 to 100 If n Mod 3 = 0 Then s=s+ n End If Next Print 1~100内3的倍数的和= ; s End Sub 5.13 一个球从100m高度自由下落，每次落地后反弹回原高度的一半，再落下。求它在第10次落地时，共经过多少米？落地10次反弹高度多少？ 【分析】求在第10次落地时，共经过的高度实际是求10个高度的和，所以用循环实现。从第二次落地到第十次落地既有反弹的高度又有落下的高度，应该是2倍的高度；第一次只有落下的100米，所以循环10次之后的和减掉100即可。 【源程序代码】 Private Sub Form_Click() Dim s%,h%,n% s = 0 h=100 For n=1 to 10 s=s+ h h=h/2 Next Print 第10次落地时共经过的高度= ; 2*s-100 Print 落地10次反弹的高度= ; s-100 End Sub 5.14 编写程序，打印如下图的“数字金字塔”： 1 1 2 1 1 2 3 2 1 1 2 3 4 3 2 1 …… 　　　　　１　２　３　４　５　６　７　８　９　８　７　６　５　４　３　２　１ 【分析】本题实际上是一个输出图形图案的问题，所以用二层循环即可实现。外层控制行从1到9，每一行分四部分：首先输出空格（用循环），其次输出左半部分数字，再次输出右半部分数字，最后换行。 【源程序代码】 Private Sub Command1_Click() Cls For i = 1 To 9 For j = 1 To 27 - 3 * i Print ; Next j For k = 1 To i Print k; Next k For k = i - 1 To 1 Step -1 Print k; Next k Print Next i End Sub 5.15 猴子吃桃问题。有一群猴子吃桃，第一天吃了总数的一半又多吃了一颗，第二天吃了剩下的一半又多吃了一颗，第三天如此，……直到第九天，第十天还未吃却只有一个桃子，求原来有多少桃子？ 【分析】本例倒着思考，因为第10天只剩1个（S=1），如果把第9天多吃的1个放到第10天（S+1）即第9天为2*（S+1），由此往前推，循环9次即得第1天的总数。主要代码如下所示：