| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 393 人关注过本帖
标题:作业请教帮忙做一下谢谢
只看楼主 加入收藏
yxg891217
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2014-12-4
结帖率:100%
收藏
已结贴  问题点数:20 回复次数:1 
作业请教帮忙做一下谢谢
题目:编写程序,在文本框(Text1)中输入一段文本,单击统计按钮,分别统计英文字母、数字字符的个数,显示在文本框(Text2和(Text3)中。运行结果如图[local]1[/local]。
搜索更多相关主题的帖子: 英文字母 编写程序 文本框 Text1 Text2 
2014-12-04 15:37
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:364
帖 子:4947
专家分:30084
注 册:2008-10-15
收藏
得分:20 
Private Sub Command1_Click()

Dim E1 As Long, N1 As Long
Dim C1 As Long
Dim i As Long, o As Long
Dim s As String

s = Text1.Text

For i = 1 To Len(s)
    o = Asc(Mid(s, i, 1))
    If o >= 48 And o <= 57 Then     '数字
        N1 = N1 + 1
    ElseIf o >= 97 And o <= 122 Then '小写字母
        E1 = E1 + 1
    ElseIf o >= 65 And o <= 90 Then '大写字母
        E1 = E1 + 1
    End If
Next i

Text2.Text = "字母个数:" & E1
Text3.Text = "数字个数:" & N1

End Sub
收到的鲜花
  • yxg8912172014-12-04 15:50 送鲜花  3朵   附言:我很赞同

授人于鱼,不如授人于渔
早已停用QQ了
2014-12-04 15:46
快速回复:作业请教帮忙做一下谢谢
数据加载中...
 
   



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

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