有如下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：

有如下VB程序段：
c=0：i=1
Do While i<=6
k=i
For j=i+1 To 7
If a(j)<=a(k) Then k=j
Next j
If a(i)<>a(k) Then
t=a(i)：a(i)=a(k)：a(k)=t
c=c+1

End If

i=i+1

Loop
数组元素a(1)到a(7)的值依次为“9，9，8，16，45，9，78”。该程序段执行后，变量c的值是

A．0

B．3

C．4

D．6

有如下VB程序段：
Dim a(1 To 10) As Integer
Dim i As Integer，j As Integer，key As Single
i=1：j=10：n=0
key=Int (Rnd * 100)
Do While i<=j

m=(i+j)\2

If key <a(m) Then

i=m+1：n=n-1

Else

j=m-1：n=n+1

End If

Loop
Text1.Text=Str(n)
已知数组元素a(1)至a(10)的值依次为91，82，73，64，55，46，37，28，19，5，若执行该程序，文本框Text1中显示的内容不可能是

A．4

B．-4

C．-2

D．3

产生一个在[1，9]中随机整数的VB表达式是

A．Int(Rnd * 5) * 2+1	B．Int(Rnd * 8)+1
C．Int(Rnd * 9+1)	D．Int(Rnd * 9)

小李在学习汉字的编码后，了解到汉字区位码由2个字节组成，前面1个字节表示区码，后面1个字节表示位码，将区位码(十进制)分别加上160就得到了该汉字的内码。

小李编写了一个查看汉字区位码的VB程序，实现如下功能：在Text1中输入一个汉字，单击“查看”按钮Commandl，在Label2中显示该汉字的区位码。程序运行界面如图所示。
(1)程序編写调试后，生成如下相关文件：

A．zbc.frm/

B．zbc.vbp/

C．zbc.vbw/

D．zbc.exe，其中属于Windows系統可抗行文件的是__________(单选，填字母)。

(2)实现上述功能的VB程序如下，请在別画线处填入合适的代码。
Private Sub Commandl_Click()

Dim a As Long，h As Long，t As Long，v As Long，ch As Long

Dim s As String，x As String，y As String

s=""：t=0：v=0

h=65536 + Asc(Text1.Text)'将汉字的十进制内码赋值给h

Do While h〈〉0

a=h Mod 2

h=h\2

s=CStr(a)+s

Loop
x=___________
y=Mid(s，Len(s)-7，8)
For i=Len(x) To 1Step-1

ch=Va10Mid(x，i，1))

___________

Next i

Labe12.Caption="该汉字的区位码为："+Str(t-160)+"位码为："+Str(v-160)
End Sub
(3)若经过Do While循环后，s的值为“1010101111001100”，则画框处循环内的语句执行了________次。

[0，500]范围的十进制数转八进制的VB程序段如下：
n=Val(Textl.Text)
a(1)=0：a(2)=0：a(3)=0
For i=1 To n

j=3：a(j)=a(j)+1

Do While a(j)=8

Loop

Next i
s=a(1)&a(2)&a(3)
方框中的代码由以下三部分组成
①a(j)=a(j)+1
②a(j)=0
③j=j-1
代码顺序正确的选项是

A．①③②

B．③②①

C．②③①

D．②①③

（2018秋•温州期末）某算法的部分流程图如图所示，执行该流程后，输出i，k的值分别是（　　）

A．102，9

B．100，8

C．102，8

D．100，9

编写VB程序，实现如下功能：单击“计算”按钮，在列表框List1中产生10个[1，99]随机数，文本框Text1显示相邻两个数字之间相差最大的差值。运行界面如图所示。

（1）窗体上，“计算”按钮的对象名是_____。
（2）实现上述功能的VB程序如下，请在划线处填入合适的代码。
Private sub cmd1_click( )
Dim b(1 to 10) as integer
Dim I as integer,max as integer ,a as integer, c as integer
Max=0
For i=1 to 10
Randomize
A=int(rnd*99)+1
_______________________
List1.additem  str(a)
Next i
For  i=2 to 10
C=________________
If c>max then __________________
Next I
____________________________
End sub

（加试题）有如下VB程序段：
inS = Text1.Text :n = 0
For i =1 To Len(inS)

c = Mid(inS，i，1 )

If c >= " a" And c <= " z" Then

m= 1

Elseif c >= "A" And c <= "Z" Then

m=2

Elself c > = "0" And c <= "9" Then

m= 3

Else

m= 0

End If

b(m) = b(m) + 1

If b( m) = 2 And m> 0 Then n = n + 1

Next i
已知数组4各元素初始值都为0，文本框Textl中的内容为“Welcme,2019!”，执行该程序段后，变量n的值为

A．0

B．1

C．2

D．3

若字符串a是在字符串s的任意位置插入多个字符后构成的新字符串，则称字符串a为字符串 S的扩展字符串。判断扩展字符串的VB程序界面如图所示，在文本框Text1和Text2 中分别输入字符串s和a，单击“判断”按钮Command1，如果字符串a为字符串S的扩展字符串，则在文本框Text3中输出“是”和插入字符的内容，否则输出“否”。
①结合题意，窗体中属于TextBox类的对象共有_________个（填数字）。
②实现上述功能的VB程序如下，请在划线处填入合适代码。
Private Sub Commandl_Click()
Dim s As String，c As String，ss As String，cc As String
Dim i As Integer，As Integer，res As String
s= Text1.Text
c = Text2.Text
i=l：j=l：res =“”
Do While i <= Len(s)

ss = Mid(s, i, l)

cc = Mid(c, j, l)

If ss = cc Then i = i + l Else res = res + cc

①________

If j > Len (c) Then Exit Do   ‘Exit Do 执行退出循环

Loop
If ②_________ Then

Text3.Text ="是，增加了：" + res + Mid( c，j，Len(c) -j+l)

Else

Text3.Text = "否"

End If
End Sub
（3）运行该程序，输入如第l4题图中所示的数据，程序执行结束时，变量j的值是____