打開“考生文件夾\736”文件夾中的文件：“工程1．vbp”進(jìn)行以下操作后并保存。
該題求丟番圖年齡問題：丟番圖生命的

1

6

是童年，又過了生命的

1

12

長胡子，再過了生命的

1

7

結(jié)婚，婚后5年生兒子，兒子活了父親年齡的一半死亡，之后丟番圖又過了4年死亡。求丟番圖年齡。完善程序，使之在運(yùn)行程序后，能在text1中顯示丟番圖年齡。完成后按“Ctrl+W”保存程序。（詳見樣張）

'該題是求丟番圖年齡問題：丟番圖生命的

1

6

是童年，
'又過了

1

12

長胡子，再過了的

1

7

結(jié)婚，婚后5年生兒子，
'兒子活了父親年齡的一半死亡，之后丟番圖又過了4年死亡。
'求丟番圖年齡。
'請(qǐng)不要更改源程序的結(jié)構(gòu)，刪除原題里的①、②、③．填寫正確的代碼，使程序完善

Private Sub Command1_Click （　?。?br />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。