题型：综合题 题类：常考题 难易度：普通
浙江省高中信息技术 进制问题练习
Dim b(4) As Integer ‘数组b按位存储二进制数
Private Sub pprint(m As Integer)
‘本过程打印输出十进制数m和对应的二进制数
‘代码略
End Sub
Private Sub Command1_Click()
Dim i As Integer,j As Integer
List1.Clear
List1.AddItem “十进制数 二进制数”
For i = 0 To 4
b(i)=0
Next i
For i = 0 To 15
Call pprint(i) ‘打印输出一行
j= 
‘①
b(j)=b(j)+1
Do While 
‘②
b(j)=0
j=j-1
b(j)=b(j)+1
Loop
Next i
End Sub
第①处修改为; 第②处修改为。
试题篮
