这道vb题怎么做?

 我来答
sbj518
2019-11-29 · TA获得超过4.4万个赞
知道大有可为答主
回答量:1.1万
采纳率:81%
帮助的人:5294万
展开全部

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim dzimu As Integer, xzimu As Integer, shuzi As Integer, a As Integer
dzimu = 0 : xzimu = 0 : shuzi = 0
For i = 1 To Len(TextBox1.Text)
a = Asc(Mid(TextBox1.Text, i, 1))
Select Case a
Case 97 To 122
xzimu = xzimu + 1
Case 65 To 90
dzimu = dzimu + 1
Case 48 To 57
shuzi = shuzi + 1
End Select
Next
MsgBox("有" & dzimu & "个大字幕" & "," & xzimu & "个小字幕" & "," & shuzi & "个数字")
End Sub

推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式