85问答库 > VB,label控件的caption属性中有数值和字母，想在另一个label的属性中去掉字母，如何办

VB,label控件的caption属性中有数值和字母，想在另一个label的属性中去掉字母，如何办

2025-06-22 11:40:37

推荐回答（1个）

回答1：

'用字符串函数呀，
Dim Str, StrA As String
Dim i As Integer
Str = Label1.Caption '将标签的名称属性赋给变量Str
For i = 1 To Len(Str) '按变量Str的字符长度进行循环

If Asc(Mid(Str, i, 1)) < 65 Or Asc(Mid(Str, i, 1)) > 122 Then '如果字符串的ASCILL值小于65或者大于122表明不是字母
StrA = StrA & Mid(Str, i, 1) '将不是字组的字符进行组合
End If
Next i
label1.Caption=StrA
MsgBox StrA '输出