Dim c(1 To 26)As Integer
s=Text1.Text
For i=1 To Len(s)
x=Mid(s,i,1)
If x>="a"Then
t=Asc(x)-Asc("a")+1Else
t=Asc(x)-Asc("A")+1End If
①
If c(t)>=Max Then Max=c(t): ②
Next iText 2.Text=Chr(f+Asc("A"))
划线处应该填入的正确语句是( )
A.①c(t-1)=c(t-1)+1 ②f=t |
B.①c(t)=c(t)+1 ②f=t |
C.①c(t-1)=c(t-1)+1 ②f=t-1 |
D.①c(t)=c(t)+1 ②f=t-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