编写VB程序，实现把数据key插入到升序序列中，得到一个新的升序序列，原升序序列各元素已依次存放在数组元素a(1)，a(2)，a(3)，……，a(10)中，VB程序段如下：
i=1: j=10
Do While i<=j
m=(i+j)\2
If key <= a(m)Then
 ①   
Else
 ②   
End If
Loop
For k=10 To i Step-1
 ③   
Next k
a(i)=key
要使程序实现上述功能，则划线处①②③中的语句分别是（   ）

A．j=m-1    i=m+1 a(k+1)=a(k)

B．j=m-1    i=m+1 a(k)=a(k-1)

C．i=m+1    j=m-1 a(k+1)=a(k)

D．i=m+1    j=m-1 a(k)=a(k-1)

个位数字是6，且能被3整除的3位数共有多少个？下面程序用于解决这一问题，在划线处填入合适的语句或表达式，设共有n个这样的数，Visual Basic程序如下：
Sub Command1_Click()
Dim i As Integer, n As Integer
m = 106
n = __________
Do While m <= 996
If _______________________ Then n =" n" + 1
m=m+10
Loop
Text1.Text = Str(n) zxxk
End Sub

某算法的部分流程图如图所示。执行这部分流程，依次输入10，8，6，4，2，则输出s的值是

A．6

B．7

C．8

D．9

设计一个VB程序，使其具有下列功能：在文本框Text1.Text输入字符串，单击“开始”按钮Command1，将输入的字符串中小写字母转换成大写字母后，在标签Label2中输出。界面设计如图所示。
 
（1）在应用程序界面设计时，要为窗口添加标题，需要修改图2所示的属性窗口中的____________项为“字符转换”。
（2）为实现上述功能, 请在划线处填入合适代码或选项。
Private Sub Command1_Click()
Dim ch As String, sh As String
Dim i As Integer, j As Integer
ch = Text1.Text
For i = 1 To _______ '从第一个字符到最后一个字符进行循环判断
j = Asc______________)   '(填字母:从下列A、B、C三个选项中选取一项)
If j > 96 And j < 123 Then
sh = sh + Chr(j - 32)
Else
sh = sh + Chr(j)
End If
_________ '(填字母:从下列A、B、C三个选项中选取一项)
Label2.Caption = sh
End Sub
划线②、③的选项:

A．  Next i

B．j+1

C．Mid(ch, i, 1)

有如下VB程序段：
a(1)=58：a(2)=38：a(3)=46：a(4)=40：a(5)=58
a(6)=30：a(7)=48：a(8)=50：a(9)=36：a(10)=56
For i=1 To 10
b(a(i) Mod 10)=b(a(i) Mod 10)+1
Next i
s=""
For i=0 To 9
If b(i)>0 Then s=s+""+Str(i)+"："+Str(b(i))
Next i
数组b各元素初值为0，执行该程序段，s的值是

A．0：3  6：3  8：4	B．8：4  6：3  0：3
C．5：4  4：3  3：4	D．3：4  4：3  5：4：