搜索
Private Sub Command1_Click()
n = 0
For i = 1 To 31 k = i
t = 0
Do While k > 0
k = k And (k - 1)
t = t + 1
Loop
If t = 3 Then n = n + 1
Next i
Label1.Caption = Str(n)
End Sub
单击命令按钮 Command1，标签 Label1 中显示的结果为
| A．6 | B．8 | C．10 | D．12 |
同类型试题
y = sin x， x∈R， y∈[–1，1]，周期为2π，函数图像以 x = (π/2) + kπ 为对称轴
y = arcsin x， x∈[–1，1]， y∈[–π/2，π/2]
sin x = 0 ←→ arcsin x = 0
sin x = 1/2 ←→ arcsin x = π/6
sin x = √2/2 ←→ arcsin x = π/4
sin x = 1 ←→ arcsin x = π/2
y = sin x， x∈R， y∈[–1，1]，周期为2π，函数图像以 x = (π/2) + kπ 为对称轴
y = arcsin x， x∈[–1，1]， y∈[–π/2，π/2]
sin x = 0 ←→ arcsin x = 0
sin x = 1/2 ←→ arcsin x = π/6
sin x = √2/2 ←→ arcsin x = π/4
sin x = 1 ←→ arcsin x = π/2
