学进去-教育应平等而普惠
试题
类型:操作题
难度系数:0.40
所属科目:高中信息技术
小夏用VB编写了一个统计单词重复情况的程序,实现的功能下:在文木柱Text1中输入字符串,并以“#”字符结束,单击“确定”按钮Command1,在列表框List1中输出每个单词及其重复次数,并在Label2中显示重复次数最多的单词,在Labe13中显示该单重复的次数在该程序中,区分大小写:例如,单词“Bay”和“baby”是不相同的。运行界面如图所示。

实现上述功能的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

Else
f1=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

用户名称
2019-09-19

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

用户名称
2019-09-19
我要答疑
编写解析
解析:

奖学金将在审核通过后自动发放到帐

提交
我要答疑
我要答疑:
提交