[問答題] 完成下列問題：

考生文件夾下有一個工程文件sjt4.vbp，其中的窗體上已有如圖4所示的控件。程序功能如下：

①單擊“讀數據”按鈕，則將考生文件夾下in4.dat文件內容(該文件中僅含有字母和空格)顯示在Text1文本框中。

②在Text1中選中部分文本，并單擊“統(tǒng)計”按鈕，則以不區(qū)分大小寫字母的方式，自動統(tǒng)計選中文本中同時出現“o”、“n”兩個字母單詞的個數(如：million、company都屬于滿足條件的單詞)，并將統(tǒng)計結果顯示在Text2文本框內。

在橫線處填寫正確的內容，以實現上述程序功能。

注意：考生不得修改窗體文件中已經存在的控件和程序，最后將程序按原文件名存盤。

[題目提供的源程序]

Dim s As String

Private Sub Command1_Click()

Open App.Patb & "in4.dat" For Input As #1

s=Input(LOF(1),#1)

Close #1

Text1.Text=s

End Sub

Private Sub Command2_Click()

Dim m As Integer

If Len(s)= (1) Then

MsgBox "請先使用"讀數據"功能!"

Else

If Text1. (2) =0 Then

MsgBox "請先選中文本!"

Else

t=&quot

[操作步驟] 第1步：打開工程文件sjt4.vbp。 第2步：修改程序。 第3步：調試、運行并保存程序。 [1]0 [2]SelLength [3]LCase(t) [4]Text2

程序的思路是首先在Command1_Click中將文件內容讀入到文本框Text1中。然后在Command2_Click中，使用Len()函數判斷文本框中是否有字符，如果文本框中文本長度為0，則提示“請先使用‘讀數據’功能!”；在已經讀取文件內容的基礎上，再檢查是否已經選取了部分文字，利用文本框的SelLength屬性可判斷是否已選擇了部分文字，如果SelLength的值為0，則提示“請先選中文本!”；在讀入文字并選中部分文字的情況下再做單詞的判斷。分解單詞時，從選取的文本內容中每次取一個字符，若該字符為空格字符，則說明空格前面的字符就是一個單詞，否則將取出的一個字符連接到變量t中。找出一個單詞后，用InStr()函數判斷該單詞是否同時含有字符“o”和“n”，題目要求不區(qū)分大小寫，可以先將找到的單詞統(tǒng)一轉換為大寫或小寫再做檢查。