Question

我不理解本网站上的其他代码，非常感谢您的帮助。顺便说一句，我不知道如何使用这个网站，并真诚地道歉如果我把这个问题格式化错了。我应该注意，我需要添加数字＆amp; vbtab＆amp; occurances。这一切都是在lstbox中进行的。

 Private Sub btnCount_Click(sender As System.Object, e As System.EventArgs)         Handles btnCount.Click
    Dim NumberCounts As Integer
    Dim phrase As String
    phrase = Me.txtNumbers.Text

    Call CountNumbers(phrase, NumberCounts)

我可以为数字修改此代码吗？

  For character as integer = 0 to phrase.length -1
uppercaseLetter = char.ToUpper(phrase.lengthchars(character))
 if uppercaseLetter>= "A" and uppercaseLetter <= "Z" then
 letterIndex = Ascw(uppercaseLetter)
lettercounts(letterindex) +=1 
 end if
 next character

Answer 1

如果你要做的是计算一个短语中的位数（＆＃34; 0＆＃34; - ＆＃34; 9＆＃34;），你可以使CountNumbers成为一个带字符串的函数作为其参数并返回一个Integer。例如：

Function CountNumbers(phrase As String) As Integer
    Return phrase.Count(Function(c) Char.IsDigit(c))
End Function

或者如果您愿意：

Function CountNumbers(phrase As String) As Integer
    Dim numberCount As Integer 
    For Each ch As Char In phrase
        If Char.IsDigit(ch) Then numberCount += 1
    Next
    Return numberCount 
    Return phrase.Count(Function(c) Char.IsDigit(c))
End Function

两个版本都使用Char.IsDigit方法来测试String中的每个字符是否为数字。您可以使用它来显示在TextBox中输入的短语中的位数，如下所示：

Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Label1.Text = CountNumbers(TextBox1.Text).ToString 
End Sub

我需要一种使用基本代码计算字符串中数字的方法

1 个答案: