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计算数字的相关实现方法我们就为大家介绍到这里。