vb统计字母出现的次数 vb一个字母出现的次数

private sub command1_click()''''统计文本框中26个英文字符出现的个数 dim str as string dim count(25) as integer, strlen as integer, index as integer dim ch as string str .

第一种方法:使用split temp = txt.text arrA = split(temp,"A") '---产生数组 ACount . ncount + 1 '--出现册数 loop GetCount = nCount '--返回出现次数 End Function

设定一个command1,一个text1;并手动设定text1.multiline = true,要把text设定的足够大;程序不对各控件的位置和大小进行调整.代码如下: dim pp(26) as integer, i as .

private sub form_click()dim a(65 to 90)s = ucase(text1.text)for i = 1 to len(s)n = asc(mid(s, i, 1))if n >= 65 and n

Function TotalString$(ByVal Text$) Dim RegExp As Object, Matches As Object, . = n + 1 Next TotalData_Arr(n) = "字母总数: " & Sum TotalString = Join(TotalData_Arr, .

一、如果只统计ascll字母, 建一个128个元素的整型数组,数组的下标为ascll码的int 值,效率最高.二、一般就采用HashMap吧.比较简单,希望以后你自己动手写写..

用循环然后用selectcase语句判断

Private Sub Form_Click() Dim a(65 To 90) s = UCase(Text1.Text) For i = 1 To Len(s) n = Asc(Mid(s, i, 1)) If n >= 65 And n a(n) = a(n) + 1 End If Next i For i = 65 To 90 Picture1.Print ＂字符＂; Chr(i) & ＂的个数＂ & a(i) Next i End Sub

没学过VB.. 先定义一个整形变量,初始为0,比如int i=0; 然后循环整段文章,用你想找的那个字符和文章中的字符比较.. 如果存在,将整形变量 i++ 循环结束后i的值就是字符出现的次数

界面设计如下:command1为判断按钮 代码如下: Private Sub Command1_Click() . 0 Then MsgBox Text2.Text & ＂出现的次数为＂ & k & ＂次＂, vbInformation, ＂＂ .