平地上整齊地鋪滿了邊長(zhǎng)為1分米的正方形磚塊，以某四塊磚的交點(diǎn)為圓心，畫(huà)一個(gè)半徑為r（r≥

2

）
分米的圓，計(jì)算圓內(nèi)所能包含的磚塊數(shù)量，如圖所示。
因?yàn)閳A是一個(gè)中心對(duì)稱圖形，所以我們可以先計(jì)算出1/4圓區(qū)域內(nèi)的磚塊數(shù)量。因?yàn)檎叫未u塊的邊長(zhǎng)是1分米，所以1/4圓區(qū)域內(nèi)共有n=int（r）列磚塊，我們只需把每一列的磚塊數(shù)量累加起來(lái)，就能計(jì)算出總的磚塊數(shù)量。
我們可以按照上述算法編寫程序，在文本框Text1中輸入圓的半徑，單擊“計(jì)算”按鈕（Command1）后，在文本框Text2中輸出圓內(nèi)所能包含的磚塊數(shù)量。
（1）若輸入圓的半徑為3分米，則圓內(nèi)所能包含的磚塊數(shù)量為：

16

16

。
（2）請(qǐng)?jiān)跈M線處填入合適的代碼。PrivateSubCommand1_Click （　?。?br />DimrAsDouble,sAsDouble
DimxAsInteger,yAsInteger,nAsIntegerr=Val（Text1.Text）
n=Int（r）
s=0：x=1：y=0
DoWhilex＜=n
y=Int（Sqr

r*r-x*x

r*r-x*x

）
s=s+y
x=

x+1

x+1

Loop
Text2.Text=

Str（4*s）

Str（4*s）

EndSub