2.建立一个字符数组，对应26个字母；
3.建立一个整数型数组，对应26个字母出现的次数；
4.从字符串的一端至另一端取字符，每次一个，判断是那个字母，在对应的整数数组上加一.
VB妮可 - 首席运营官 的方法更为简单，受教了！
dim tmp$,i&,lenstr&
tmp=lcase(text1)
lenstr=len(tmp)
for i=97 to 122
print chr(i) & "次数为:" & lenstr-len(replace(tmp,chr(i),""))
next本回答被提问者采纳
vb 利用文本框输入一个字符串,统计各英文字母出现次数,不区分大小写
1.使用函数将字符串全部转换成大写或小写；2.建立一个字符数组，对应26个字母；3.建立一个整数型数组，对应26个字母出现的次数；4.从字符串的一端至另一端取字符，每次一个，判断是那个字母，在对应的整数数组上加一.VB妮可 - 首席运营官 的方法更为简单，受教了！
VB程序输入一串字符,统计其中字母A(不区分大小写)出现的次数。 网上...
编写程序，运行时按收用户键盘输入的一个长字符串，统计其中包含字母a的个数（不区分大小写），并在屏幕上输出统计结果。set talk off clear accept"请输入字符串:" to s accept"请输入字符串:" to a x=0 if a>="A".and.a="A".and.b VBA提供了两类字符串：一类为固定长度的字符串，声明...
...文本框中输入一串字符,统计各字母出现的次数……
Private Sub Command1_Click()List1.Clear Dim a(97 To 123) As Byte, i As Integer, t As String For i = 1 To Len(Text1.Text)t = Asc(LCase(Mid(Text1.Text, i, 1)))Select Case t Case Is >= 97, Is <= 122 a(t) = a(t) + 1 Case Else a(123) = a(123) + ...
vb操作题输入一个字符串,统计大小写字母和数字个数
Private Sub Command1_Click() s = InputBox("请输入一个字符串：") n1 = 0: n2 = 0: n3 = 0 For i = 1 To Len(s) c = Mid(s, i, 1) If c >= "A" And c <= "Z" Then n1 = n1 + 1 If c >= "a" And c <= "z" Then n2 = n2 + 1 If...
VB6.0 如何统计字符串中某一单词出现次数
s="字符串"f="查找字"n=(len(s)-len(replace(s,f,"")))\/len(f)'n就是出现的次数,原理就是利用replace函数,将原字符串中的查找字都替换为空,然后计算替换前和替换后字符串长度的差值,再除以查找字的长度,就能得到准确的次数了.
VB中如何在文本框内输入文字的同时,在标签上显示文本框中的文字
代码如下：1、方法一：text1.passwordchar = "*"sub command1_click()label1.caption =text1.text end sub 2、方法二：sub command1_click()label1.caption = string("*",len(text1.text))end sub
vb中区分大小写吗?说的具体些。
不区分。但是要养成良好的编码习惯，根据一定的规律，该大写，就大写，该小写，就小写，这样写出的代码可读性比较好，而且有一部分编程语言是区分大小写的，以后开发项目的时候，良好的编码习惯很重要。在利用V B进行程序设计的过程中，需要对变量、控件等进行引用，而在引用的过程当中就需要用到变量或控件...
VB题:利用ASCII代码实现文本框内输入英文字母并进行大小写的转化。
End Sub Private Sub Command2_Click()s = Text1 Text1 = ""Text1 = Chr(Asc(s) + 32)End Sub Private Sub Form_Load()Text1 = ""Command1.Caption = "小转大"Command2.Caption = "大转小"End Sub '以上是一个字符窜的代码，如果要多字符窜，你自己加入if吧，因为你要不用if ，...
VB编程基础问题(英文大小写转换)
运行”按钮 '一个文本框输入，一个输出转换成大写的结果，一个输出字母个数 Private Sub Command1_Click()Text2.Text = UCase(Text1.Text) '用UCase将所有字母转为大写，在text2中输出 text3.text=len(Text1.Text) 'len()统计字符串长度，在text3中输出 End Sub ...
vb编写程序对输入字符串进行大小写转换。
可以参考下面的代码：Private Sub Command1_Click()Cls x = InputBox("")Picture1.Print UCase(x) '大写 Picture1.Print LCase(x) '小写 End Sub
