VB程序填空题，有难度，高手来！！

楼上的答案基本正确了，不过第一个空 给sum赋值感觉有点多余
如果该成这样呢？
str1=Lcase(str1) '(1)
If mid$(str1,i,3)="one" Then '(3)

学会理解出题者的思路，也许你的方法更好，但不是答案。

Private Sub Form_Click()
Dim str1 As String
Dim length As Integer
Dim sum As Integer
Dim i As Integer
str1 = InputBox("请输入一个字符串")
length = Len(str1)
i = 1
sum = 0'_______( 1 )_______
Do While i < length'_______( 2 )_______
If StrComp(Mid(str1, i, 3), "one") = 0 Then'_______( 3 )_______
sum = sum + 1
End If
i = i + 1'_______( 4 )_______
Loop
If sum = 0 Then
MsgBox "没有找到！"
Else
MsgBox "找到了" & Str(sum) & "个"
End If
End Sub

程序填空题，一共四个空。
1.在由输入对话框输入的字符串中查找“one”字符串，并计算查到多少个“one”字符串。
Public Sub form_click()
Dim str1 As String
Dim length As Integer
Dim sum As Integer
Dim i As Integer

str1 = In