为实现上述功能,请在画线处填入合适代码
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 |
同类型试题
y = sin x, x∈R, y∈[–1,1],周期为2π,函数图像以 x = (π/2) + kπ 为对称轴
y = arcsin x, x∈[–1,1], y∈[–π/2,π/2]
sin x = 0 ←→ arcsin x = 0
sin x = 1/2 ←→ arcsin x = π/6
sin x = √2/2 ←→ arcsin x = π/4
sin x = 1 ←→ arcsin x = π/2
y = sin x, x∈R, y∈[–1,1],周期为2π,函数图像以 x = (π/2) + kπ 为对称轴
y = arcsin x, x∈[–1,1], y∈[–π/2,π/2]
sin x = 0 ←→ arcsin x = 0
sin x = 1/2 ←→ arcsin x = π/6
sin x = √2/2 ←→ arcsin x = π/4
sin x = 1 ←→ arcsin x = π/2