阅读程序,给出b2、c2、d2单元格的值(P.36,例2.4)。 Sub classify() Dim s As String, a As String, b As String, c As String Dim i As Integer, t As String '读入原始字符串 s = Range("a2").Value '值为LinYongXing@126.com For i = 1 To Len(s) '取出第i个字符 t = Mid(s, i, 1) '数字字符 If t >= "0" And t <= "9" Then '注意双引号用法 a = a & t '字母字符,包括大小写形式 ElseIf LCase(t) >= "a" And LCase(t) <= "z" Then b = b & t '其它字符 Else c = c & t End If Next Range("b2") = a Range("c2") = b Range("d2") = c End Sub