题目

编写VB程序采用逢二进一的方法模拟“写二进制数”过程。程序功能如下： 在文本框Text1中输入一个不大于100的数字n，点击“写二进制数”按钮，在列表框List1中逐一显示1到n之间所有的二进制数。 （1） 在设计程序界面时，可用上图中所示“控件工具箱”中的（填写相应编号）添加用于显示二进制值的列表框。 （2） 实现上诉功能的VB程序如下，请在划线处填入合适的代码。 Private Sub Command1_Click()     Dim d(1 To 7) As Integer     ‘数组d用于存储二进制数值的每一位的值     n = Val(Text1.Text)     For i = 1 To 7         d(i) = 0     Next i     For i = 1 To n     ‘最低位加1后，“逢二进一”处理进位，从而产生下一个二进制数                 d(k) = d(k) + 1         s = ""         For k = 1 To 6             If d(k) = 2 Then                 d(k + 1) = d(k + 1) + 1                             End If                      Next k         List1.AddItem Str(i) + " " + str(d(k)) + s     Next i End Sub 答案： 【1】4 【1】k=1【2】d(k)=0【3】s=str(d(k))+s或s=d(k) & s

查看本题答案和解析