VB8—循环结构 do 操作题【第1题】
打开文件“考生文件夹\560\工程
1. vbp"，完善程序实现如下功能
并保存：
今年儿子6岁，父亲36岁，母亲
31岁。编程求几年后，父母亲年
龄之和是儿子的7倍，将结果显示
在 labell 中。
Private Sub Commandl_Click()
Dim n As Integer Dim x As
Integer n = 0
Do
n二①
x 二(36 + 31 + 2 * n) / (6 + n)
Loop ② x = 7
Labell. Caption = Str (③)
End Sub
【第2题】
打开“考生文件夹\780\test3. vbp”，完善Commandl_Click事件代码并保存。
实现功能：2008年末我国总人口为13. 28亿，年平均增长0. 63%，假设我国人口将继续以该速率增长。请问在哪一年我国人口将超过15亿？在窗体上输出结果。
Private Sub Commandl_Click0
Dim y As Integer Dim p As Single y =
2008 p = 13. 28 Do While ① ② p = p *
(1 + 0. 0063)
Loop
Print ③
End Sub 【第3题】
打开文件“考生文件夹\860\圆周率.vbp”，完善程序实现如下功能并保存：
公元5世纪，我国古代数学家祖冲之将圆周率兀求到了小数点后7位。到17世纪，微积分被牛顿和莱布尼兹发现之后，大量计算圆周率兀的公式被发现。莱布尼兹公式就是其中之一：
编写程序，利用以上公式计算兀，直到最后一项的值小于0. 0000001为止，输出31的值。
Private Sub cmdComputePi_Click()
Dim pi As Double, t As Double
Dim n As Long, sign As Integer
pi = 0
n = 1
sign = 1
Do
t二①
pi = pi + ② n二③ sign = -sign Loop Until Abs(t) < 0.0000001
Pi = @
Print 〃pi：" & pi
End Sub
【第4题】
打开“Z:\117\工程L vbp”，完善Form_Click事件代码并保存。
实现功能：当单击窗体后，计算22+42 + 62 +…+ NC1500的N的最大值。
Private Sub Form_Click()
Dim s As Integer
Dim N As Integer
N = 22
s = 0
Do
s 二 s + ①
N二②
Loop Until s > 1500
Print 〃N=〃 & CStr (③)
End Sub
【第5题】
打开“Z:\736\工程Lvbp”进行以下操作后并保存。该题求丢番图年龄问题：丢番图生命的1/6是童年, 乂过了生命的1/12长胡子，再过了生命的
1/7结婚, 婚后5年生儿子，儿子活了父亲年龄的一半死亡，之后丢番图乂过了4年死亡。求丢番图年龄。完善程序，使之在运行程序后，能在textl 中显示丢番图年龄。
Private Sub Commandl_Click0
Dim n As Integer
n = 0
Do
①二 n + 1
Loop ② n<n / 6+n / 12+n/7 + 5 + n
/ 2 + 4
③=Str(n)
End Sub
【第6题】
打开“Z：\77\ 1：程L vbp”，完善
Commandl_Click事件代码并保存。
银行的年利率是r，小明将1000元存入银行，问几年以后小明在银行的存款将超过2000元。例如，年利率是0.04时，需要存18年。
实现功能：单击“计算”按钮后，计算并在窗体上输出结果。Private Sub Commandl_Click() Dim s As Single s计算存款
Dim y As Integer ' y计算年份
Dim r As Single r是年利率
s二①
y = 0
r = Val(InputBox(“输入年利率"，"数据输入框〃))
Do While s ②
y二③
s = s * @
Loop
Print y;"年以后，存款可以达到2000元〃
End Sub
【第7题】
打开文件“考生文件夹\116\工程1. vbp”，完善程序并保存。
实现功能：计算1+3+5+…+99的值。Private Sub Commandl_Click0
Dim i As Integer Dim s As Integer i = 1 s
= 0
Do While i <= 99
s = s + ① i =②
Loop
Print =〃 & ③
End Sub
【第8题】
打开文件“考生文件夹\599\工程1. vbp”，完善
F orm_C 1 i c k事件代码并保存。
实现功能：当单击窗体后，计算1+2+3+…+N>500
的N的最小值，并在文本框Textl中显示出来。
Private Sub Form_Click0
Dim s As Integer '累加器
Dim n As Integer
'为s赋初值
printforms二①
'为n赋初值
n二②
Do
Loop Until s ③ 500 Textl.Text = Str(n) End Sub 【第9题】
打开文件“考生文件夹\601\工程1. vbp”，完善
F orm_C 1 i c k
事件代码并保存。
实现功能：当单击窗体后，计算出1+2+3+…+NC500 的N的最大值，并在文本框Textl中显示出来。
Private Sub Form_Click()
Dim s As Integer '累加器
Dim n As Integer
'为n赋初值
n二①
'为s赋初值
s二②
Do While s < 500
n = n + 1
s二③
Loop
Textl. Text = Str(n - 1)
End Sub
【第10题】
打开文件“考生文件夹\602\工程1. vbp n，完善Form_Click事件代码并保存。
实现功能：某公司某年的总产值为2000万元，若总产值以每年5%的速度增长，多少年后总产值翻一倍？将结果输出到窗体上。
Private Sub Form_Click()
Dim p As Single '年产值
Dim n As Integer '年数
P二①
n = 0
Do While p < 4000 p = p * ② n二③
Loop
Print 〃n=“；Str(n)
End Sub