- 博客(1)
- 收藏
- 关注
原创 vb程序 计算一个字符串中字母、数字以及其他字符的个数
Private Sub Command1_Click()Dim zm,sz,qt As IntegerDim str As StringFor i = 1 To Len(Text1.Text)str = Mid(Text1.Text, i, 1)Select Case strCase "a" To "z", "A" To "Z"zm = zm + 1Case 0 To 9sz = sz + 1Case Elseqt = qt + 1End Select..
2022-07-17 21:08:03 2539 1
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人