试题 试卷
题型：综合题 题类：常考题 难易度：普通
浙江省高中信息技术 数论练习
Private Sub Command1_Click()
Dim i As Integer, t As Integer
For i = 1 To 1 000
x =
t = Int(Sqr(x))
If x =Then List1.Additem
Next i
End Sub
小张编写 VB 程序，实现如下功能：在前 100 个偶自然数中，计算恰好有四位为 1 的二进制数的个数， 如图所示，单击“计算”按钮 Command1，在文本框 Text1 中显示符合条件的个数，在列表框 List1 中显示符合条件的二进制数。VB 程序代码如下：
提示：本题“除 2 取余倒排法”的方法将十进制转化为二进制，算法如下： 例如十进制数“97”转化为二进制的过程如右图所示：
因此“97”二进制值为：1100001
count = 0
for i in range(100,991,10) :
a=i//100
b= ①
if a==3 or b==3 :
②
print(i)
print("符合条件的数共有：",count,"个")
程序中划线①处应填入的代码为{#blank#}1{#/blank#}
程序中划线②处应填入的代码为{#blank#}2{#/blank#}
试题篮
