如何将一段字符串中的小写字母转成大写?

这是一个笔试的题目,要求自己写函数,不用系统函数.我不知道怎么解决。呵 问题点数：20、回复次数：11Top

1 楼Zezese（蓝酷云）回复于 2005-08-01 18:51:38 得分 0

Function   UCaseStr(ByVal   str   As   String)   As   String  
          Dim   s   As   String  
          str   =   Trim(str)  
          If   str   =   ""   Then   Exit   Function  
          For   i   =   1   To   Len(str)  
                  s   =   Mid(str,   i,   1)  
                  If   s   Like   "[a-z]"   Then  
                          UCaseStr   =   UCaseStr   &   Chr(Asc(s)   -   32)  
                  Else  
                          UCaseStr   =   UCaseStr   &   s  
                  End   If  
          Next  
  End   Function  
  Top

2 楼ynsmcn（茫茫）回复于 2005-08-01 18:57:46 得分 10

Function   LtoU(L   As   String)   As   String  
  LtoU   =   Chr(Asc(L)   -   32)  
  End   Function  
  Top

3 楼crycoming（瞎编）回复于 2005-08-01 19:02:31 得分 0

Zezese(蓝酷云)   正解Top

4 楼seu31199113（Tony（峰回路转））回复于 2005-08-01 19:08:43 得分 0

ACSII码-32   就可以了Top

5 楼coobila（）回复于 2005-08-01 19:11:32 得分 0

ynsmcn(茫茫)   的回答是正解.  
  不用系统函数.用自己建的函数.呵Top

6 楼Feather2005（飞逸）回复于 2005-08-02 09:03:06 得分 10

最保险的做法：  
  s+A-a  
  ACSII码是-32，但非ACSII码呢？这个问题在《C陷阱与缺陷》中有讲解，我们应该尽量保证不出错和可移值性问题。Top

7 楼conrad_wan（pineapple）回复于 2005-08-02 10:50:09 得分 0

Feather2005(飞逸)   有道理。Top

8 楼vansoft（Vansoft Workroom）回复于 2005-08-02 11:53:17 得分 0

UCASE不行嗎？Top

9 楼kmzs（.:RNPA:.山水岿濛）回复于 2005-08-02 13:04:19 得分 0

转小写Lcase  
  大写UcaseTop

10 楼hot1kang1（网站制作,系统开发,记得-http://3q2008.Com）回复于 2005-08-02 13:12:26 得分 0

楼主没学过C语言   ?Top

11 楼coobila（）回复于 2005-08-07 17:57:32 得分 0

没学过C语言,想学呢.不知道从哪里入手.Top

相关问题

• 函数
• ucasestr
• str
• as string

• 帖主：coobila
• ynsmcn
• Feather2005

• Visual Basic类图书
• Visual Basic类源码下载