c语言圆的面积 四舍五入,设半径r为双精度实数，先求圆的面积s，并对结果保留两位小数，对第三位小数四舍五入。为了实现这一目标，程序中划线处应填写的表达式是（ ） Dim r As Doub...

(2)

请在横线处填入合适的代码。

Dim n As

Integer

Dim a(1 To

1000) As Long, c(1 To 1000) As Long

Private Sub

Form_Load()

'读取n个数据，并存储到数组a中(代码略)

End Sub

Private Sub

Command1_Click()

Dim i As Integer, j As Integer, k As Integer,

space As Integer

For i = 1 To n

c(i) = a(i)

Next i

k = 2      ‘当前层第一个偶数项的位置

space = 1      ‘当前层偶数项与前一项的间距

Do While k <= n

For i = k To n Step k

c(i) = c(i) + c(i - space)

Next i

k = k * 2

________

Loop

End Sub

Private Sub

Command2_Click()

Dim x As Integer, sum As Long

x = Val(Text1.Text): sum = 0

Do While x <> 0

sum = sum + c(x)

________

Loop

Text2.Text = Str(sum)

End Sub

Function

lowbit(x As Integer) As Integer

Dim temp As Integer

temp = x: lowbit = 1

Do While ________

lowbit = lowbit * 2

temp

= temp \ 2

Loop

End Function