首页

13问答网 > vb 怎么实现 text2.text = text1.text中的数字

vb 怎么实现 text2.text = text1.text中的数字

例如 text1.text=y8lh9 则 text2.text=89

2025-02-27 15:43:03

推荐回答（1个）

回答1：

Private Sub Text1_Change()
    Dim i, s
    s = ""
    For i = 1 To Len(Text1)
        If Mid(Text1, i, 1) >= "0" And Mid(Text1, i, 1) <= "9" Then
            s = s + Mid(Text1, i, 1)
        End If
    Next i
    Text2 = s
End Sub

相关问答

最新问答

请问，我现在有个9个G大的视频文件想传给别人改怎么传啊？

K535为何取消荆门站？

求主角冷血无情的小说

想玩DNF，电脑配置低，想换配置，不知换什么，求指教

TXT电子书下载的网站。要好使能下载的。免费的。

空调电容问题.现在是50UF的可以换35UF的用吗

为什么电脑开机时音乐响后要等好久才出现桌面

石河子大学医学院哪个专业好

梦幻西游手游幽萤娃娃好不好幽萤娃娃技能学什么攻略

有一个很爱你的人但是你却不爱他，怎么办？