程序代码：
Private Sub Form_Click()
Dim i As Integer, j As Integer
j = 0 ‘ 计数
Dim str As String
str = "abcs123"
For i = 1 To Len(str)
If IsNumeric(Mid(str, i, 1)) Then ‘判断是否为数字
j = j + 1
End If
Next i
Print j
End Sub
VB编程：获取字符串中数字个数-50
2022-08-24
154
版权
版权声明：
本文内容由阿里云实名注册用户自发贡献，版权归原作者所有，阿里云开发者社区不拥有其著作权，亦不承担相应法律责任。具体规则请查看《
阿里云开发者社区用户服务协议》和
《阿里云开发者社区知识产权保护指引》。如果您发现本社区中有涉嫌抄袭的内容，填写
侵权投诉表单进行举报，一经查实，本社区将立刻删除涉嫌侵权内容。
简介：
VB编程：获取字符串中数字个数-50
目录
相关文章
|
4月前
|
算法
Serverless
Python
|
4月前
|
6月前
|
数据安全/隐私保护
|
7月前
|
C语言
|
C语言
|
Java
C语言
|
算法
C++
模拟实现atoi函数（将数字字符串转换为整型）附加leetcode练习题
各位朋友们，大家好啊！今天我为大家分享的知识是如何模拟实现atoi函数。相信大家如果能够理解这个知识，对大家以后的刷题是有帮助的。
114
0
0
|
Java
