发布网友
共1个回答
热心网友
x="ADLTXAA啊AUaTTBFYe"//具体的赋值语句你要自己写
n = Len(x)
i = 1
For n
y = Mid(x, i, 1)//获取每一个字符
m = Asc(y)//查询字符的asc码
If m >0 Then //汉字的asc都小于0,此时不录入z
z=z & y
End If
i=i+1
Next
MessageBox z//输出过滤后的字符串