（加试题）实现某排序算法的部分VB程序如下：
For i＝1 To 5
k＝i
For j＝i＋1 To 6
If a(k)＜a(j) Then k＝j
Next j
If i＜＞k Then
　 t＝a(i)：a(i)＝a(k)：a(k)＝t
End If
Next i
在排序过程中，经过某一遍排序“加工”后，数组元素a(1)到a(6)的数据依次为“96，90，91，88，95，94”。则下一遍排序“加工”后数组元素a(1)到a(6)的数据依次是(　　)

A．96，95，91，90，88，94	B．96，95，94，91，88，90
C．96，95，91，88，90，94	D．96，95，94，91，90，88

VB猜价格小程序
高二（8）班决定在第11周开一个主题班会，为了丰富班会的内容，班主任要求班级几位信息高手，设计一个小程序，这事难不倒班上的各位大神，他们齐心协力，很快就完成了。
编写程序，实现如下功能：有6张待猜的商品图片加载到Image1中，通过上一个和下一个按钮进行切换，主持人可以通过“设置价格”按钮Command2对每一张商品图片设置一个价格，然后，单击“我来猜一猜”按钮开始猜价格游戏，每人只给8次（这个数据存放在变量n中）猜价格的机会，8次机会用完后，如果猜中价格，则在文本框Text2中显示处价格。

（1）窗体中有________个对象，________类。
（2）Command1对象的Caption属性值是_______________________________。
（3）实现上述功能的部分VB程序如下，请在划线处填入合适代码。
Private Sub Command1_Click()
Dim i As Integer
Dim n As Integer    '变量n存储猜价格的次数
Dim cai_shu As Integer    '变量cai_shu存储猜的价格
n = ①__________________
For i = 1 To n
cai_shu = Val(InputBox("请输入当前商品的价格：", "输入价格"))
If cai_shu = jg(dqtp) Then  'jg(dqtp)存储的是当前商品图片的价格
MsgBox "恭喜你猜对了"
Text2.PasswordChar = ""
Text2.Text = Text2.Text + "元"
Exit For
ElseIf ②__________________ Then
MsgBox "猜大了，再来猜一猜"
Else
MsgBox "猜小了，再来猜一猜"
End If
Next i
If i > n Then
MsgBox "猜价格次数用尽，很遗憾，你没有猜对！"
③___________________
End Sub

（加试题）某程序的部分代码如下：
Dim a(1 to 8) As Integer
Dim i As Integer ,k As Integer,key As Integer
Key=Val(Tet1.Text)
For i=1 to 8
If a(i)= key Then k=i
Next i
数组元素a(1)到ａ(8)的数据依次为“6、68、9、25、56、67、25、11”，查找元素key为25，则程序执行后，变量ｋ的值为（    ）

A．1

B．4

C．7

D．8

（加试题）下列VB程序的功能是：程序运行时，单击命令按钮Commandl后，产生10个[1，999]范围内互不相同的随机整数，依次显示在列表框List1中，然后将它们按从小到大的顺序排序，排序结果显示在列表框List2中。
数组a用于存储产生的10个随机整数，函数f(x)用于判断随机整数x与已生成的整数是否有重复，若有重复则返回True，否则返回False。
（1）虚线框内程序段所采用的排序算法名称是__________。（填：冒泡排序 / 选择排序）
（2）在程序①和②划线处，填入适当的语句或表达式，把程序补充完整。
Dim a(1 To 10) As Integer
Function f(x As Integer) As Boolean   
′代码略
End Function
Private Sub Commandl_Click()
Dim n As Integer ′n用于统计已经产生的随机整数个数
Dim i As Integer，j As Integer
Dim x As Integer，k As Integer
Randomize ′初始化Rnd函数
n=0
List1.Clear ′清除列表框中内容
List2.Clear
Do While n<10
①________     ′产生[1，999]范围内的随机整数
If Not f(x) Then
n=n+1
a(n)=x
List1.AddItem Str( a(n))
End If
Loop
For i=1 To 9 ′进行排序
For j=10 To i+1 step -1
If a(j)<a(j-1) Then
k=a(j):a(j)=a(j-1):a(j-1)=k
End If
Next j   
Next i 
For i=1 To 10
②___________
Next i
End Sub

（加试题）编写“素数查找”程序，实现如下功能：单击“生成”按钮，随机生成50个150至200（包括150和200）之间的正整数，显示在下方，每行显示10个，共5行。单击“筛选“按钮， 从上面50个数中筛选出是素数的数，重复的只显示一次。程序运行界面如图所示。

请根据算法将下列程序补充完整。
Private Sub Command1_Click()
Label3.Caption = ""
For i = 1 To 50
a(i) =___________________
If i Mod 10 = 0 Then
Label3.Caption = Label3.Caption + CStr(a(i)) + vbCrLf '换行
Else
Label3.Caption = Label3.Caption + CStr(a(i)) + " "
End If
Next i
End Sub
Private Sub Command2_Click()
Label4.Caption = ""
n = 0
For i = 1 To 50
For k = 2 To a(i) - 1
If __________ Then Exit For
Next k
If k = a(i) Then
n = n + 1
If n = 1 Then b(n) = a(i)
For j = 1 To n - 1
If b(j) = a(i) Then ___________: Exit For
If j = n - 1 Then b(n) = a(i)
Next j
End If
Next i
For j = 1 To n
Label4.Caption = Label4.Caption + ________+ " "
Next j

用VB编写求句子中最长单词的程序。输入要求:句子以“.”结束；单词之间用空格分隔，单词没有缩写形式和其它特殊形式。
运行界面如图所示，程序功能：在文本框Text1中输入待统计的句子，单击“统计”按钮Command1,将结果显示在文本框Text2和Text3中。

(1) 观察程序代码，可知“统计”按钮的对象名为_______。（单选，填字母：

A．统计

B．TextH

C．Command1

D．Tj）

(2)根据题意将下列程序补充完整。
Private Sub Tj_Click()
Dim i As Integer, k As Integer
Dim s As String, ch As String
Dim max As Integer '存储句子中最长单词的长度
Dim ss As String    '存储句子中最长的单词
s = Text1.Text
i = 1: k = 0: max = 0
ch = ""
Do While ch <> "." Or i <= Len(s)
ch = Mid(s, i, 1)
If ch <> " " And ch <> "." Then
___________
Else
k = 0
End If
If __________ Then
max = k
ss = ____________ 
End If
i = i + 1
Loop
Text2.Text = ss
Text3.Text = Str(max)
End Sub

（加试题）（改编）有一段 VB程序，代码如下：
For i = 1 To 2
For j = 8 To i + 1 Step -1
If a(j) < a(i) Then
t = a(j): a(j) = a(i): a(i) = t
End If
Next j
Next i
数组元素 a(1)到 a(8)的值依次为“35,18,14,20,30,15,28,26”，运行该程序段后，a(5)到a(8)的值依次是（   ）

A．30,26,28,35

B．14,15,18,20

C．26,15,18,14

D．26,28,30,35

（加试题）小明编写了一个寻找非常幸运数的程序。程序运行时,单击“求解”按钮,则在列表框中输出所有的六位数中的非常幸运数,在标签Label2中输出非常幸运数的个数。程序运行效果如图所示。
所谓的非常幸运数是指符合下列条件的整数:
(1)该数的偶数位数字之和等于奇数位数字之和。
(2)该数的前一半的各位数字之和正好等于后一半的各位数字之和。
代码如下：
Private Sub Command1_Click()
　Dim a(1 To 6) As Integer, sum(1 To 4) As Integer
　Dim x As Long, i As Long, count As Long, k As Long
　For i=100000 To 999999
　　x=i
　　k=1
　　Do While x > 0
　　　a(k)=  ①   
　　　x=x\10
k=k+1
　　Loop
　　sum(1)=a(1) +a(2) +a(3)
　　sum(2) =a(4)+a(5)+a(6)
　　   ②   
　　sum（4）=a（2）+a（4）+a（6）　　　　
　　If sum(1)=sum(2) And sum(3)=sum(4)Then
　　　List1.AddItem Str(i)
  ③ 
　　End If
　Next i
　Label2.Caption="共有个数:" +　str（count）　　
End Sub
实现上述功能的VB程序如下,在程序划线处填入合适的代码。
①_____________________________________
②______________________________________
③______________________________________

某VB程序段如下所示：
Dim x As String
Private Sub Form_Load()
x = ""
End Sub
Private Sub Text1_Change()
Dim s As String, k As String
Dim i As Integer
s = "0123456789ABCDEF"
k = Text1.Text
For i = 1 To Len(s)
If Mid(s, i, 1) = k Then x = x + k
Next i
If x = "" Then x = "没有找到！"
Label1.Caption = x
End Sub
若在文本框Text1中依次输入“2”和“9”，则Label1上显示的内容为

A．11

B．2

C．9

D．29

某排序程序的主要代码如下所示：
n=5
For  i = 1  To  n-1
For  j =n-1  To  i  step  -1
If  d(j) < d(j+1)  Then  k = d(j): d(j) = d(j + 1): d(j + 1) = k
Next j
Next i
在排序过程中，某一遍排序后的结果是81,77,1,76,70，则下一遍排序后的结果应该是

A．81,76,1,77,70	B．81,77,76,1,70
C．81,77,76,70,1	D．1,70,76,77,80