题目

垂直升降式电梯里的显示屏会动态显示朝上或者朝下的箭头。小郑编写了一个VB程序，模拟箭头往上、往下的移动，以及箭头方向的调转。运行程序时，数组元素a(1)到a(64)存储0或1（如图1），分别表示空字符和星号，并在列表框List1中显示相应的图形（如图2）。单击“上移”按钮，箭头向上移动一个位置，超出上边界的图形则继续从下边界往上移（如图3）；单击“下移”按钮，箭头向下移动一个位置；单击“调头”按钮，则切换箭头的上下朝向。 请回答下列问题： （1） List1.AddItem中的AddItem是对象List1的（单选，填字母：A .对象名/B .属性名/C .方法名/D .事件名）。 （2） 实现上述功能的VB程序如下，请在划线处填入合适的代码。 Dim a(1 To 64) As Integer Dim b(0 to 1) As String Private Sub Form_Load() b(0) = " " : b(1) = " *" '给数组a赋初值，并在列表框List1显示箭头图形，代码略 End Sub Private Sub up_Click()     Dim i As Integer, j As Integer, s As String, tmp As Integer     List1.Clear     For i = 1 To 8        '将第i列数据向上平移一个位置         tmp =         For j = 2 To 8             a((j - 2) * 8 + i) = a(  )         Next j         a(7* 8 + i) = tmp     Next i     s = ""     For i = 1 To 64                 If i Mod 8 = 0 Then List1.AddItem s : s = ""     Next i End Sub Private Sub turn_Click()     '调转箭头方向（朝上的变为朝下，朝下的变为朝上），代码略 End Sub Private Sub down_Click()     '图形向下移动一个位置，代码略 End Sub （3） 程序执行到加框处代码时，会弹出错误提示（单选，填字母：A .溢出/B .下标越界/C .类型不匹配）。为了使程序能正常实现图形的上移和显示功能，加框处的代码改为。 答案： 【1】C 【1】a(i)【2】(j - 1) * 8 + i 【1】B【2】s = s + b(a(i))

查看本题答案和解析