| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 419 人关注过本帖
标题:[求助]有关我编写的错误代码
只看楼主 加入收藏
t0929
Rank: 1
等 级:新手上路
帖 子:11
专家分:0
注 册:2007-3-30
收藏
 问题点数:0 回复次数:3 
[求助]有关我编写的错误代码
要求:
统计输入的字母为多少个,字母以大写显示.
例:在text1里输入abcddd,就在picture里显示A=1,B=1,C=1,D=3.

我已经写了以下的代码,但每次按command时就只统计我输入的第一个字母.
错误范例:输入abcddd,就只显示A=6
不知那里错了,大家帮帮忙啊!!!!!!我已经想了很久了
代码:
图片附件: 游客没有浏览图片的权限,请 登录注册

[此贴子已经被作者于2007-5-20 17:09:47编辑过]

搜索更多相关主题的帖子: 代码 编写 
2007-05-20 17:09
t0929
Rank: 1
等 级:新手上路
帖 子:11
专家分:0
注 册:2007-3-30
收藏
得分:0 
大家帮帮我啊,在线等!
我在学校机房,好快就走拉,急!!!

2007-05-20 17:21
心中有剑
Rank: 2
等 级:新手上路
威 望:5
帖 子:611
专家分:0
注 册:2007-5-18
收藏
得分:0 
'例: 在text1里输入abcddd , 就在picture里显示A = 1, B = 1, C = 1, D = 3#
'
'我已经写了以下的代码,但每次按command时就只统计我输入的第一个字母.
'错误范例: 输入abcddd , 就只显示A = 6
'不知那里错了,大家帮帮忙啊!!!!!!我已经想了很久了
Private Sub Command1_Click()
Dim a() As Long, c As String * 1
Dim i As Long, j As Long
ReDim a(1 To 26) As Long
For i = 1 To Len(Text1)
c = UCase(Mid(Text1, i, 1))
If c >= "A" And c <= "Z" Then
j = Asc(c) - Asc("A") + 1
a(j) = a(j) + 1
End If
Next

For i = 1 To 26
If a(i) > 0 Then Picture1.Print Space(3) & Chr(i + Asc("A") - 1) & "=" & a(i)
Next


End Sub
你错在mid函数了

2007-05-20 17:24
t0929
Rank: 1
等 级:新手上路
帖 子:11
专家分:0
注 册:2007-3-30
收藏
得分:0 

啊!!
太感谢你了, 不然我在这里做就不用去吃饭了.谢谢!!!


2007-05-20 17:38
快速回复:[求助]有关我编写的错误代码
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.029375 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved