VB.NET編程語言一經出現，就憑借其強大的功能受到廣大開發人員的青睞。它的應用方式多樣化，應用領域廣泛，比如在這里為大家介紹的VB.NET計算數字這一方法，就可以通過兩個函數的應用方便的實現這一功能。#t#

對于Visual Basic開發者來說，處理字符串和執行各種各樣的字符串操作是十分重要的。當你需要確定一個長字符串中的字數時，你可以使用VB.NET中的一個簡單函數Split來獲得所需要的結果。

Split函數使你能夠將長字符串分離為單獨的字;但是如果在字與字之間不止一個空格，Split就會返回一個錯誤的結果。為了防止這種情況發生，你可以在使用Split之前用Replace函數來替換多個空格的出現。列表A給出了一個例子。

VB.NET計算數字列表A

Private Sub CountWords()  
Dim strText As String = 
"It's a wonderful world" 
Dim iCount As Integer  
Do While (strText.IndexOf
(Space(2)) >= 0)  
strTextstrText = strText.
Replace(Space(2), Space(1))  
Loop  
iCount = Split(strText, 
Space(1)).Length  
MsgBox(iCount.ToString())  
End Sub 

在這個VB.NET計算數字例子中，我創建了字符串strText，再將它設置成有多個字符的長字符串。然后，我利用Replace函數來把出現的多個空格替換成一個空格。這樣做是為了把字符串strText準備就緒，讓你能夠使用Split函數并提供正確的結果。接著，我將strText輸入Split函數，并且得到了包括在字符串strText中的字數。

注意：如果你跳過或注釋用來移除多余空格的循環，結果是7個字。使用移除所有多余空格的循環后，結果才是正確的，4個字。

Private Sub CountWords()  
Dim strText As String = 
"It's a wonderful world" 
Dim iCount As Integer  
Do While (strText.IndexOf
(Space(2)) >= 0) strTextstrText
 = strText.Replace(Space(2), 
Space(1)) Loop  
iCount = Split(strText, 
Space(1)).Length MsgBox
(iCount.ToString())  
End Sub 

VB.NET計算數字的相關實現方法我們就為大家介紹到這里。