搜索
For i = 0 To 127
a(i) = 0
Next i
n = 0
For i = 1 To Len(Text1.Text)
c = Mid(Text1.Text,i,1)
a(Asc(c))=a(Asc(c))+1
Next i
For i=0 to 127
If a(i)>1 Then n=n+1
Next i
Label1.Caption = Str(n)
运行时，在文本框 Text1 中输入“AABBC123abc1234”,单击按钮 Command1 后，标签 Label1 中显示的内容是（ ）。
| A．4 | B．5 | C．6 | D．7 |
同类型试题
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
