vb.net重复输出字符,c语言重复输出字符

vb.net 如何实现输出一串字符串中的所有字符以及每个字符的出现次数？

使用一个单重的循环扫描这个字符串中的所有字符，对每一个字符的出现次数进行统计，最后输出每个字符的出现次数。

Private Sub Command1_Click()

s = InputBox("请输入一个英文字符串：")

Dim a(128) As Integer

For i = 1 To Len(s)

t = Asc(Mid(s, i, 1))

a(t) = a(t) + 1

Next i

For i = 1 To 127

If a(i) 0 Then Print Chr(i); ":"; a(i)

Next i

End Sub

相关问答

Q1: vbnet中listview控件输入中文重复引发Keypress事件

如果是单个字的重复还好说，可是输入词组时，一串字的重复，而且一个字一次事件，这肯定是微软的一个Bug。

办法是有的，把中文字暂时放入字符缓冲中，遇到成双时对半分，前后对比一下，如果相同表示这次输入完成。

    Private Sub ListView1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles ListView1.KeyPress

        Static buffer As String

        Static ar(1) As String

        If Asc(e.KeyChar)  0 Then

            buffer = e.KeyChar

            If buffer.Length Mod 2 = 0 Then

                ar(0) = buffer.Substring(0, buffer.Length \ 2)

                ar(1) = buffer.Substring(buffer.Length \ 2)

                If ar(0) = ar(1) Then

                    Debug.Print(ar(0)) '输出中文

                    buffer = Nothing

                End If

            End If

        Else

            Debug.Print(e.KeyChar) '输出英文

        End If

    End Sub

Q2: vb.net中如何让循环每个值输出到txt，并在txt中让每行产生的循环值前加入固定的代码

把sw.writeline放在循环体里面就好了，至于每行加号码，字符串连接就行