vb Private Sub Command1_Click() Dim c As Strin 20
vbPrivateSubCommand1_Click()DimcAsString,a(1To26)AsIntegerFori=1ToLen(Text1.Text)c=UC...
vb
Private Sub Command1_Click() Dim c As String, a(1 To 26) As Integer For i = 1 To Len(Text1.Text) c = UCase(Mid(Text1.Text, i, 1)) If c >= "A" And c <= "Z" Then j = Asc(c) - 64 a(j) = a(j) + 1 End If Next i For j = 1 To 26 Print Chr(j + 64) & "=" & a(j) Next j End Sub
这个是什么意思？a(j) = a(j) + 1 展开
Private Sub Command1_Click() Dim c As String, a(1 To 26) As Integer For i = 1 To Len(Text1.Text) c = UCase(Mid(Text1.Text, i, 1)) If c >= "A" And c <= "Z" Then j = Asc(c) - 64 a(j) = a(j) + 1 End If Next i For j = 1 To 26 Print Chr(j + 64) & "=" & a(j) Next j End Sub
这个是什么意思？a(j) = a(j) + 1 展开
2个回答
展开全部
这个是检测一个字符串里各个字母的个数
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
网易云信
2023-12-06 广告
UIkit是一套轻量级、模块化且易于使用的开源UI组件库，由YOOtheme团队开发。它提供了丰富的界面元素，包括按钮、表单、表格、对话框、滑块、下拉菜单、选项卡等等，适用于各种类型的网站和应用程序。UIkit还支持响应式设计，可以根据不同...
点击进入详情页
本回答由网易云信提供
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
