打开“考生文件夹\736”文件夹中的文件：“工程1．vbp”进行以下操作后并保存。
该题求丢番图年龄问题：丢番图生命的

1

6

是童年，又过了生命的

1

12

长胡子，再过了生命的

1

7

结婚，婚后5年生儿子，儿子活了父亲年龄的一半死亡，之后丢番图又过了4年死亡。求丢番图年龄。完善程序，使之在运行程序后，能在text1中显示丢番图年龄。完成后按“Ctrl+W”保存程序。（详见样张）

'该题是求丢番图年龄问题：丢番图生命的

1

6

是童年，
'又过了

1

12

长胡子，再过了的

1

7

结婚，婚后5年生儿子，
'儿子活了父亲年龄的一半死亡，之后丢番图又过了4年死亡。
'求丢番图年龄。
'请不要更改源程序的结构，删除原题里的①、②、③．填写正确的代码，使程序完善

Private Sub Command1_Click （　　）
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。