
实现上述功能的VB程序如下,请回答以下问题:
(1)变量f2的作用是________________________________。
(2)请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim s As String, m As String, word As String, i As Integer,
Dim j As Integer, f1 As Boolean,f2 As Boolean
Dim a (1 To 100) As String, b (1 To 100) As Integer 'a数组存储单词,b数组存储该单词出现的次数
s=Text1.Text
k=0:word= ""
For i =1 To 100 '数组初始化
b(i)=0:a(i)= ""
Next i
f1=False
For i=1 To Len(s)
m=Mid(s,i,1)
If ①____ Then
word =word+m
If Not f1 Then k=k+1:f1=True
Elsef1=False:f2=False
For j=1 To k-1
If a(j)=word Then
b(j)=b(j)+1:f2=True:k=k-1:Exit For
End If
Next j
If f2=False And a(k)= ""Then
②____
b(k)=b(k)+1
End If
③____
End If
Next i'对数组进行排序,并输出结果要,代码略
End Sub

同类型试题

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

