（加试题）在Excel中可采用双关键字排序，即先按主关键字排序，如主关键字相同再按次要关键字排序。小王学习了冒泡排序后，编写了一个VB程序模拟该排序过程。功能如下：在列表框 list1 中显示排序前数据（存储在数组 a、b 中），单击“排序”按钮 Command1 后，按主关键字数组 a 升序和次要关键字数组 b 升序排序，排序后的数据在列表框 list2 中显示。程序运行界面如图所示。
实现上述功能的 VB 程序如下，但加框处代码有错，请改正。
Const n = 10
Dim a(1 To n) As Integer,b(1 To n) As Integer
Private Sub Form_Load()
'各产生 10 个随机整数存数组 a、b，并在列表框 list1 中显示，代码略。
End Sub
Private Sub command1_Click()
Dim i As Integer, j As Integer
i = 1
Do While i <= n - 1
①
Do While j >= i + 1
If a(j) < a(j - 1) Then
temp = a(j): a(j) = a(j - 1): a(j - 1) = temp
temp = b(j): b(j) = b(j - 1): b(j - 1) = temp
②
temp = a(j): a(j) = a(j - 1): a(j - 1) = temp
temp = b(j): b(j) = b(j - 1): b(j - 1) = temp
End If
j = j - 1
Loop
i = i +1
Loop
For i = 1 To n
List2.AddItem Str(a(i)) + " " + str(b(i))
Next i
End Sub
处代码改为______________________________________________
处代码改为______________________________________________
实现上述功能的 VB 程序如下，但加框处代码有错，请改正。
Const n = 10
Dim a(1 To n) As Integer,b(1 To n) As Integer
Private Sub Form_Load()
'各产生 10 个随机整数存数组 a、b，并在列表框 list1 中显示，代码略。
End Sub
Private Sub command1_Click()
Dim i As Integer, j As Integer
i = 1
Do While i <= n - 1
① Do While j >= i + 1
If a(j) < a(j - 1) Then
temp = a(j): a(j) = a(j - 1): a(j - 1) = temp
temp = b(j): b(j) = b(j - 1): b(j - 1) = temp
②temp = a(j): a(j) = a(j - 1): a(j - 1) = temp
temp = b(j): b(j) = b(j - 1): b(j - 1) = temp
End If
j = j - 1
Loop
i = i +1
Loop
For i = 1 To n
List2.AddItem Str(a(i)) + " " + str(b(i))
Next i
End Sub
处代码改为______________________________________________ 处代码改为______________________________________________奇偶校验是一种校验数据传输正确性的方法。其中奇校验方法：统计二进制数据的数位中“1”的个数，若个数为奇数，则校验位值为0，否则校验位值为1。小李编写了一个计算奇校验位值得VB程序，功能如下：在文本框Text1中输入1～255十进制待校验数，单击“计算”按钮Command1后，在文本框Text2中显示该数对应的二进制值，并在标签Label3中显示该数的校验位值。程序运行界面如图所示。
（1）在设计程序界面时，要清空文本框中的显示内容，应修改该文本框中的_______属性。
（2）实现上述功能的VB程序如下，请在划线处填入合适代码。
Private Sub Command1_Click()
Dim a As Integer, s As String
Dim n As Integer, t As Integer, v As Integer
n = Val(Text1.Text)
t = 0
s = ""
Do While n > 0
a =" n" Mod 2
n =" n" \ 2
t=____________①
s =" Str(a)" + s
Loop
v =" t" Mod 2
Text2.Text = s
Label3.Caption = "校验位值：" +____________②
End Sub
（3）运行该程序，在文本框Text1中输入22，单击“计算”按钮，则显示的校验位值是____________。
（1）在设计程序界面时，要清空文本框中的显示内容，应修改该文本框中的_______属性。
（2）实现上述功能的VB程序如下，请在划线处填入合适代码。
Private Sub Command1_Click()
Dim a As Integer, s As String
Dim n As Integer, t As Integer, v As Integer
n = Val(Text1.Text)
t = 0
s = ""
Do While n > 0
a =" n" Mod 2
n =" n" \ 2
t=____________①
s =" Str(a)" + s
Loop
v =" t" Mod 2
Text2.Text = s
Label3.Caption = "校验位值：" +____________②
End Sub
（3）运行该程序，在文本框Text1中输入22，单击“计算”按钮，则显示的校验位值是____________。
VB程序的某对象属性窗口如图所示，下列说法不正确的是（）
| A．该对象的类型为命令按钮 |
| B．BackColor为属性名 |
| C．该对象的名称为Command1 |
| D．要改变当前对象标题显示的文字，应修改其Caption属性的值 |
有如下VB程序段：
For i =" 1" To 6
a（i） =" Int（Rnd" * 10） + 1
Next i
For i =" 1" To 5
If i Mod 2 =" 1" And a（i） > a（i + 1） Then
t =" a（i）" ： a（i） =" a（i" + 1） ： a（i + 1） = t
Else
a（i） =" a（i）" + 1
End If
Next i
执行该程序段后，a（l）~a（6）各元素可能的值是
For i =" 1" To 6
a（i） =" Int（Rnd" * 10） + 1
Next i
For i =" 1" To 5
If i Mod 2 =" 1" And a（i） > a（i + 1） Then
t =" a（i）" ： a（i） =" a（i" + 1） ： a（i + 1） = t
Else
a（i） =" a（i）" + 1
End If
Next i
执行该程序段后，a（l）~a（6）各元素可能的值是
| A．11，11，7，9，3，9 | B．6，2，8，10，5，9 |
| C．6，9，3，7，8，12 | D．3，9，0，8，2，7 |
如下图所示，这是某一同学作业文件里的文件。你认为她采用的软件是（ ）。
| A．visual basic 6.0 |
| B．Word 2007 |
| C．photoshop7.0 |
| D．Excel2007 |
以下软件中，不属于多媒体创作工具的是（ ）
| A．PowerPoint | B．Visual Basic | C．QQ2012 | D．Authorware |
下列能正确表示"0 ≤ x ≤ 6"的VB表达式是（ ）
| A．0 ≤ x ≤ 6 | B．0 <=" x" <= 6 | C．x>=0 and x<=6 | D．x≥0 and x≤6 |