题目

有如下 VB 程序段: n = 10: m = 0 For i = 1 To Int(Sqr(n))If Not d(i) Then j = 3 * i Do While j <= n d(j) = True j = j + i LoopEnd If Next i For i = 5 To nIf d(i) Then m = m + 1 Next i 数组元素d(1)到d(10)的初值均为False，执行该程序段后，变量m的值为( ) A . 5 B . 6 C . 7 D . 8 答案：B如图所示，内壁及碗口光滑的半球形碗固定在水平面上，碗口保持水平。A球、C球与 B球分别用两根轻质细线连接。当系统保持静止时，B球对碗壁刚好无压力，图中=30°，则 A球和C球的质量之比为 A．1:2B．2 :1C．1:D．:1