UC知道vb 编程求救
来源：百度知道 编辑：UC知道 时间：2024/05/29 00:41:08
功能描述：
将字符串的每个字符转换成指分类标志符，并组成新串
备注说明：
分类标志符有：汉字－H;数字－N;英文字母－C；不可显示－D（空格、回车、换行及控制码等）；其他－S。注意分类方法的定义。
全局变量：
函数定义：
Public function Str_Cov_Stru(In_Str as string) as string
……
End function
定义说明：
In_Str为输入的字符串，函数值为转换结果。
就是怎么样去判别输进来的是汉字，字母，数字，并用-c,-d,-h 来替换输进来的字符
将字符串的每个字符转换成指分类标志符，并组成新串
备注说明：
分类标志符有：汉字－H;数字－N;英文字母－C；不可显示－D（空格、回车、换行及控制码等）；其他－S。注意分类方法的定义。
全局变量：
函数定义：
Public function Str_Cov_Stru(In_Str as string) as string
……
End function
定义说明：
In_Str为输入的字符串，函数值为转换结果。
就是怎么样去判别输进来的是汉字，字母，数字，并用-c,-d,-h 来替换输进来的字符
Public Function Str_Cov_Stru(In_Str As String) As String
Dim i&, tmp$
For i = 1 To Len(In_Str)
j = Asc(Mid(In_Str, i, 1))
Select Case j
Case 0 To 31, 127
tmp = tmp & "－D"
Case 48 To 57
tmp = tmp & "－N"
Case 65 To 90, 97 To 122
tmp = tmp & "－C"
Case Is < 0, Is > 255
tmp = tmp & "－H"
Case Else
tmp = tmp & "－S"
End Select
Next
Str_Cov_Stru = tmp
End Function
举个例子说明一下,这样的表达看不懂最后是要输出成什么样的