题目

平地上整齐地铺满了边长为1分米的正方形砖块，以某四块砖的交点为圆心，画一个半径为r (r≥ )分米的圆，计算圆内所能包含的砖块数量，如图所示。 因为圆是一个中心对称图形，所以我们可以先计算出1/4圆区域内的砖块数量。因为正方形砖块的边长是1分米，所以1/4圆区域内共有n=int(r)列砖块，我们只需把每一列的砖块数量累加起来，就能计算出总的砖块数量。 我们可以按照上述算法编写程序，在文本框Text1中输入圆的半径，单击“计算”按钮(Com and1)后，在文本框Text2中输出圆内所能包含的砖块数量。 （1） 若输入圆的半径为3分米，则圆内所能包含的砖块数量为：。 （2） 请在划线处填入合适的代码。 Private Sub Command1_Click()     Dimr As Double, s As Double     Dim x As Integer, y As Integer, n As Integer     r = Val (Text1. Text)     n= Int(r)     s=0：x=1：y=0     Do While x<= n         y =Int(Sqr()         s=s+y         x=     Loop     Text2. Text = End Sub 答案： 【1】16 【1】r*r-x*x【2】x+1【3】str(4*s)

查看本题答案和解析