Option Base 1
Dim s As String
'讀取數(shù)據(jù)in4.dat中的數(shù)據(jù)并用s代替
Private Sub Command1_Click()
Open App.Path & "\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) = 0 Then
MsgBox "請先使用“讀數(shù)據(jù)”功能！"
Else
If Text1.SelLength = 0 Then
MsgBox "請先選中文本！"
Else
t = ""
For i = 1 To Text1.SelLength
c = Mid(Text1.SelText, i, 1)
If c <> " " Then
t = t + c
Else
If LCase(t) = "the" Then
m = m + 1
End If
t = ""
End If
Next i
Text2.Text = Str(m)
End If
End If
End Sub

在一 Variant (String) 變量中以另一個(gè)字符串中的字符替換其中指定數(shù)量的字符。

語法

Mid(stringvar, start[, length]) = string

Mid 語句的語法具有下面幾個(gè)部分：部分 描述
stringvar 必要參數(shù)。被更改的字符串變量名。
start 必要參數(shù)；Variant (Long)。stringvar 中被替換的字符開頭位置。
length 可選參數(shù)；Variant (Long)。被替換的字符數(shù)。如果省略，string將全部用上。
string 必要參數(shù)。字符串表達(dá)式，替換部分 stringvar 的字符串。

說明

被替換的字符數(shù)量總是小于或等于 stringvar 的字符數(shù)。

注意 MidB 語句作用于包含在字符串中的字節(jié)數(shù)據(jù)。在 MidB 語句中，start 指定 stringvar 中被替換的字節(jié)開頭位置，而 length 為替換的字節(jié)數(shù)。

　Mid是Visual Basic和Microsoft Excel中的一個(gè)字符串函數(shù)，作用是從一個(gè)字符串中截取出指定數(shù)量的字符。
　　語法：

　　VB中
　　Mid(String As Variant, Start As Long, [Length As Variant]) As Variant
　　Mid$(String As String, Start As Long, [Length As Variant]) As String
　　Excel中
　　MID(text, start_num, num_chars)[1]
　　說明：這個(gè)函數(shù)的3個(gè)參數(shù)各在VB和Excel中互相等價(jià)，但VB中的Length參數(shù)可以省略，而Excel中num_chars參數(shù)不可省略。
　　程序示例：
　　VB中
　　下面的示例展示了VB中如何使用Mid函數(shù)。其中所有的“Mid”都可以用“Mid$”代替。

　　DimvAsString
　　v=Mid("VisualBasic",0,12)'提示實(shí)時(shí)錯(cuò)誤5
　　v=Mid("VisualBasic",1,6)'v的值為"Visual"
　　v=Mid("VisualBasic",1,20)'v的值為"VisualBasic"
　　v=Mid("VisualBasic",8)'v的值為"Basic"
　　v=Mid("VisualBasic",15)'v的值為空字符串
　　v=Mid("中文VB",2,2)'v的值為"文V"
　　

text1.text="aabb"
for k=1 to 4
if mid(text1.text,k,1)="a" then
label1(k).backcolor=vbgreen else
label1(k).backcolor=vbwhite
end if
next