Question

一道简单的VB.NET编程题，求解答

通过文本框输入一串字符,以问号(?)结束标志.单击命令按钮,要求分别字符串中所含字母和数字的个数

要求用while。。loop。。形式编写

Answer 1

Dim mixStr As String = Text1.Text
Dim numStr As String '定义变量存放所有数字
Dim i As Integer = 1
While Mid(Mix,i,1) <> "?" '如果不是"?"，就逐个读取字符
If Isnumeric(Mid(MixStr, i, 1) Then
NumStr = Num + Mid(MixStr, i, 1)
End if
i += 1
Loop
Dim numLen As Integer, Dim strLen As Integer '定义变量存放数字、字母长度，也就是个数
numLen = Microsoft.VisualBasic.Len(numStr) '数字的个数
strLen = Microsoft.VisualBasic.Len(mixStr) - numLen '字母的个数