一条大一VB题目
答案:2 悬赏:20
解决时间 2021-01-24 13:30
- 提问者网友：动次大次蹦擦擦
- 2021-01-23 22:11
一条大一VB题目
最佳答案
- 二级知识专家网友：何以畏孤独
- 2021-01-23 22:53
Private Sub Form_Click()
Dim s As String, i As Integer, n As Integer
s = InputBox("input your str...", , "abCDEf")
For i = 1 To Len(s)
Select Case (Mid(s, i, 1))
Case "a" To "z"
n = n + 1
End Select
Next
MsgBox "character:" & n
End Sub
Dim s As String, i As Integer, n As Integer
s = InputBox("input your str...", , "abCDEf")
For i = 1 To Len(s)
Select Case (Mid(s, i, 1))
Case "a" To "z"
n = n + 1
End Select
Next
MsgBox "character:" & n
End Sub
全部回答
- 1楼网友：风格不统一
- 2021-01-24 00:11
a~z的ASCII为97~122，比对就好了
我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯