vb程序;输入一串字符,统计各字母出现的次数,不区分大小写,并将字母出现个数显示在图片

谢谢大家 请大家尽快给我解决吧 我明天还要叫作业 谢谢了

第1个回答  推荐于2016-11-05
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 <= 90 Then
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程序输入一串字符,统计其中字母A(不区分大小写)出现的次数。 网上...
编写程序,运行时按收用户键盘输入的一个长字符串,统计其中包含字母a的个数(不区分大小写),并在屏幕上输出统计结果。set talk off clear accept"请输入字符串:" to s accept"请输入字符串:" to a x=0 if a>="A".and.a="A".and.b VBA提供了两类字符串:一类为固定长度的字符串,声明...

vb 利用文本框输入一个字符串,统计各英文字母出现次数,不区分大小写
1.使用函数将字符串全部转换成大写或小写;2.建立一个字符数组,对应26个字母;3.建立一个整数型数组,对应26个字母出现的次数;4.从字符串的一端至另一端取字符,每次一个,判断是那个字母,在对应的整数数组上加一.VB妮可 - 首席运营官 的方法更为简单,受教了!

...统计。文本框中输入一串字符,统计各字母出现的次数……
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) + ...

编写一个程序,输入一行字符,统计其中26个英文字母(不区分大小写)各出现...
//同样如果*str为字符b那么'b'-'a'=1,则a[1]++,来记录b出现的次数 *str++;} for(inti=0;i<26;i++)//数组中的数字就是对应字母的个数 cout<<(char)('a'+i)<<a[i]<<endl;}

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...

编写函数,统计给定字符串中各个字母出现的次数,不区分大小写
提示:统计结果可以保存到一个数组中,如int count[26],分别存储每个字母出现的次数,初值0,然后将数组作为函数参数将值带回来。匿名 | 浏览4124 次 |举报 我有更好的答案推荐于2017-12-16 08:18:25 最佳答案 比如对hello,Tom 进行统计void count_chars(char s[],int cnt[]){ int i; for(i=0;s[i]...

VB程序代码需要区分大小写和空格吗?
执行代码,变量,大小写不区分 执行代码行与行之间有空格,换行符不区分,但 空格 在进行比较或查找时就要注意空格

输入任意一个字符串,统计其中元音字母(aoeiu).不分大小写出现的次数和...
下面是一个Python的实现,可以输入任意字符串,统计其中元音字母(不区分大小写)出现的次数和频率:例如,输入字符串"Hello World!",程序会输出:这里使用了一个字符串变量vowels来保存元音字母,使用一个计数器变量count来记录元音字母出现次数,然后遍历输入的字符串s,如果当前字符是元音字母(不区分大小...

VB下统计字符串中所含某字符的个数
首先保证窗体上有一个标签label1,一个按钮command1,一个文本框text1 Private Sub Command1_Click()Dim ii As Integer, Ccount As Integer For ii = 1 To Len(Text1)If Mid(Text1, ii, 1) = "e" Then Ccount = Ccount + 1 Next ii Label1.Caption = "共有" & Count & "个e"En...

vb中统计文章中字母及汉字的个数
我们可以这么处理:如果被检测的字符为大小写字母,则判断其后面的字符是否为一个单词的标志(如空格、标点符号、回车符等),如是,则判断为一个单词。以下代码能较准确地统计出TextBox控件中的中、英文字数和数字字符数,并将全部字节数(含各种控制符如回车等)也统计出来。适用于中英文编排环境。注释:...

相似回答