（加试题）有一组正整数，基于冒泡排序对其中的数进行升序排序。排序后奇数在前，偶数在后。排序示例如下：

排序前	78	30	64	39	49	4	8	32	18	32
排序后	39	49	83	4	8	18	30	32	64	78

 
实现上述功能的VB程序如下，但加框处代码有误，请改正。
Const n = 10
Dim d(1 To n) As Integer
Private Sub Command1_Click()
Dim i As Integer, j As Integer, t As Integer
'读取一组正整数，存储在数组d中，代码略
i = 1
Do While i <= n - 1
For j = n To i + 1 Step -1
If d(j) Mod 2 = d(j - 1) Mod 2 Then
If  d(j) > d(i)  Then '(1)________
t = d(j): d(j) = d(j - 1): d(j - 1) = t
End If
Else   '(2)________
t = d(j): d(j) = d(j - 1): d(j - 1) = t
End If
Next j
i = i + 1
Loop
'依次输出排序后的数据，代码略
End Sub

某排序算法的 VB 程序段如下：
K=1
For i = 1 To 2
For j = 1 To 6 - 2 ∗i
If K∗a(j) < K∗a(j + 2) Then
t = a(j): a(j) = a(j + 2): a(j + 2) = t
End If
K=-K
Next j
Next i
数组元素 a(1) ~a(6)的初始值依次为“10，15，8，35，26，17”，执行该程序段后，数组 a 元素的值分别为（   ）

A．8，10，15，17，26，35	B．35，26，17，15，10，8
C．26，35，10，17，8，15	D．26，15，10，17，8，35

小贝对街机中的”打手掌”游戏很感谢兴趣，于是也用VB做了个打手游戏，界面如图。点击开始按钮command1，标签label1开始从3秒倒计时，倒计时结束开打，如果打中手掌，label1显示”打中了”,如果超过去3.1秒，则显示”没打中”,游戏结束。点开始按钮可以重来。请根据题意将下列程序补充完整。

Dim   t  As Integer   ‘t用来计时
Private Sub Command1_click( )
Image1.left=64
Label1.caption=””
t=0
Timer1.interval=100
（1）______________
Image1.Enabled=False
End sub
Private Sub Image1_click( )
Timer1.Enabled=False
Image1. Enadled=False
Label1.caption=”打中了”
End Sub
Private Sub Timer1.Timer( )
t =" t" +1
if t<="30" then label1.caption=3-int(t/10)
if t>32 then
label1.caption=”没打中”
For i="1" to 10   ‘手迅速移开的动画
Image1.left=Image1.left-20
For j="1" to 10000
Doevents
Nextj
Next i
Timer1.Enabled=False
Image1.Enabled=False
End if
If t="30" then
‘当t=30时，即倒计时3秒结束，允许开打，对象image1开始允许响应事件
­­­­（2）_____________
End if
End sub

有如下VB程序段：
For i=2 To 8
Max=0
For j=1 To i-1
If a(i)>a(j) And f(j)>Max Then Max=f(j)
Next j
f(i)=Max+f(i)
Next i
数组f元素的初始值都为1，数组a的元素值为5,3,47,4,31,39,7,8，程序运行后f(6)的值为（   ）

A．1

B．2

C．3

D．4

以下两个VB程序段，其中变量m和n为正整数，下列说法不正确的是（   ）

程序1： If m<n Then t=m：m=n：n=t End If Do While m Mod n＜＞0 r=m Mod n m=n n=r Loop Text1.Text=Str（n）

程序： 2n2 Do Whife m 程序2 Do While m＜＞n Do While m＞n m=m-n Loop Do While n>m n=n-m Loop Loop Textl.Text=Str（n）

 

A．“程序1”和“程序2”中的代码实现相同的功能

B．若变量m和n的值为25，35，则“程序1”代码运行后文本框Text1显示“5”

C．“程序2”中的输出语句改为Textl.Text=Str(m)，会影响文本框Textl显示的内容

D．若变量m和n的值为11，7，则“程序2”代码运行后文本框Text1显示“1”