在平整地面上有一层厚度均匀的积雪，小明用力向下踩，形成了一个下凹的脚印，如图所示，脚印下的雪由于受外力挤压可近似看成冰层，利用冰的密度，只要测量下列哪组物理量，就可以估测出积雪的密度？（　　）

程序代码如下：

Private Sub Command1_Click()

  Dim n As Integer, i As Integer

  List1.Clear

  n = Val(Text1.Text)

  If n Mod 2 = 0 Then

    For i = 2 To Int(n / 2)

      If isodd(i) = (isodd(n - i)) Then

        List1.AddItem Str(n) + " =" + Str(i) + " +" + Str(n - i)

      End If

    Next i

  Else

    Text1.Text = Str(n) + "不是偶数！"

  End If

End Sub

Private Function isodd(n As Integer) as boolean

   Dim f As integer

   f = 0

   For i = 2 To Sqr(n)

     If n Mod i = 0 Then f = 1: Exit For

   Next i

   isodd =  f

End Function

读课文《“年”的来历》，老头是个什么的老头，老婆婆怎样对他？