请教大家一道VB的题，对我来说挺难的，希望会的人都进来看看！

来源：百度知道 编辑：UC知道 时间：2024/05/29 06:35:04
本题要求有条件语句，循环语句，函数，按钮，label键，弹出框，文本框，labe框，for语句，复选框单选框，滚动条。还有相关的文档，名称，界面，属性列表，流程图。
会此题的人，请说详细一点，谢谢啦！！

这个挺简单的呀，我给你一段代码。
新建一个工程，在form1上画一个按钮再画一个textbox叫text1，然后把text1的muiltline设为True，把Command1的Caption设为开始计算。然后把下面的代码放到Command1的click事件中去即可。频率单位为"次/百字"
已测试通过
Dim tmpStr As String
'定义三个变量存放a,b,c的数量
Dim aCount As Integer
Dim bCount As Integer
Dim cCount As Integer
'定义三个变量存放a,b,c的频率
Dim aSpeed As Single
Dim bSpeed As Single
Dim cSpeed As Single
'定义循环变量
Dim i As Integer
'定义临时变量
Dim str As String

'初始化变量
aCount = 0
bCount = 0
cCount = 0
tmpStr = Text1.Text

'开始执行操作
For i = 1 To Len(tmpStr)
str = Mid(tmpStr, i, 1)
Select Case str
Case "a"
aCount = aCount + 1
Case "b"
bCount = bCount + 1
Case "c"
cCount = cCount + 1
Case Else
End Select
Next i
'求频率
aSpeed = aCount / Len(tmpStr) * 100
bSpeed = bCount / Len(tm