Public Function sCount(ByVal str As String, ByVal find As Char) As Integer Dim count As Integer = 0 For Each s As Char In str If s = find Then count += 1 ...
確定！ 回上一頁
