运行如下Visual Basic程序，单击命令按钮Command1，出现如图所示的出错信息。发生“类型不匹配”错误时所执行的语句是（ ）

Private Sub Command1_Click()
Dim a As String, b As String, c As Integer
a = "Good"    '①
b = "bye"     '②
c =__________1__________'③
Text1.Text =" a" + b + c '④
End Sub

A．①

B．②

C．③

D．④

下面这个程序实现了把一个十进制数转换成八进制数。

(1)要是按钮命令显示文本改为“转换”可在属性窗口中__________属性的属性值改为“转换”。
(2)为实现上述功能，请在划线处填入合适代码。

Private Sub Command1_Click(   )

Dim n, m As Integer

Dim ch, s As String

s = "01234567"

____________________

ch = ""

Do While n > 0

m = n Mod 8

__________________

n = n \ 8

Loop

Text2.Text = ch

End Sub

实际参数和形式参数存在（_______）对应、（________）对应、（________）对应。

如图所示的流程图片段：该流程图执行过后，a、b、c的值分别为：（   ）

A．a=21,b=9,c=13

B．a=5,b=8,c=13

C．a="5,b=9,c=14"

D．a=21,b=9,c=14

编写一个VB程序，实现如下功能：在文本框text1中输入英文句子，单击“第1个最长单词”按钮，找到第1个最长单词并显示在文本框text2中。运行效果如图所示

为实现上述功能，请在画线处填入合适代码
Private Sub Command1_Click()
Dim s As String, m As String
Dim n As Integer, c As Integer, max As Integer, t As Integer
s = Text1.Text
n = Len(s)
c = 0
max = 0
For i =" 1" To n
m = ①  ‘截取字符串中的每个字符
If m >= "a" And m <= "z" Or m >= "A" And m <= "Z" Then
c =" c" + 1
Else
If c > max Then
max = c
t=" i" - 1
End If
c = 0
End If
If i =" n" Then
If c > max Then
max = c
t = i
End If
End If
Next i
Text2.Text = Mid(s, ② , max)
End Sub
（1） 程序中①处填入的代码是：  
（2） 程序中②处填入的代码是下列哪个选项（ ）

A．t

B．t-max

C．t-max+1

D．t-max-1