VB复习(医科).pptVIP

第 * 页 Do循环举例—猴子吃桃 Dim Day% Day表示第几天 Dim Peach% Peach表示桃子的数量 Day = 10 Peach = 1 Do Peach = ( Peach + 1 ) * 2 Day = Day - 1 Loop Until Day = 1 MsgBox(第1天的桃子数为 Peach) 猴子第一天摘下若干个桃子，当即吃了一半，还不过瘾，又多吃了一个。第二天早上又将剩下的桃子吃掉一半，又多吃了一个。以后每天早上都吃了前一天剩下的一半零一个。到第10天早上想再吃时，见只剩下一个桃子了。求第一天共摘了多少个桃子？ 第 * 页 Do循环举例 例6.17 利用格里高利公式计算π的近似值，直到最后一项的绝对值小于0.0000001。 Private Sub Button1_Click(…) Handles Button1.Click Dim n%, Sum#, ValueN# n = 0 Sum = 0 Do n += 1 ValueN = (-1) ^ (n + 1) / (2 * n - 1)