请高手看一下：StrConv(84, vbUnicode)=8，如何再把8专成84，谢谢！！！

请高手看一下：StrConv(84,   vbUnicode)=8，如何再把8专成84，谢谢！！！ 问题点数：20、回复次数：7Top

1 楼aiur2000（破愿立志别故里,荆棘南下思北风）回复于 2003-12-02 16:46:20 得分 0

StrConv("",   vbFromUnicode)Top

2 楼SoHo_Andy（冰）回复于 2003-12-02 16:55:29 得分 0

 
  试试看,调试通过  
   
  Private   Sub   Command4_Click()  
          Dim   aa   As   Variant  
          aa   =   StrConv("84",   vbUnicode)  
          MsgBox   StrConv(aa,   vbFromUnicode)  
  End   SubTop

3 楼imur（）回复于 2003-12-02 20:40:12 得分 0

upTop

4 楼rainstormmaster（暴风雨 v2.0）回复于 2003-12-02 20:53:05 得分 0

//StrConv(84,   vbUnicode)=8  
   
  strconv是字串处理函数，处理数字有些不妥  
   
  再者StrConv(84,   vbUnicode)的返回值为“8   4   ”而不是“8”  
   
  至于转回来：  
   
  Private   Sub   Command1_Click()  
          Dim   a  
          a   =   StrConv(84,   vbUnicode)  
          Debug.Print   a  
          '转回来  
          a   =   StrConv(a,   vbFromUnicode)  
          Debug.Print   a  
  End   Sub  
  Top

5 楼AHBC123（）回复于 2003-12-03 12:25:25 得分 0

谢谢各位高手帮助，谢谢！！！  
  请帮助再看看以下的错误如何修改，谢谢！！！  
  如text1里为：    
  text1Private   Sub   Command1_Click()   '加密  
  Dim   convStr()   As   Byte  
  Dim   TotalB,   k   As   Long  
  Dim   myB   As   Byte  
  Dim   myc   As   String  
  Dim   myd   As   String  
  convStr   =   StrConv(Text1,   vbFromUnicode)  
  TotalB   =   UBound(convStr)  
  For   k   =   o   To   TotalB  
  myB   =   convStr(k)  
  If   myB   >=   65   And   myB   <=   122   Then  
  myB   =   myB   +   4  
  myc   =   Chr(myB)  
  End   If  
  If   myB   >=   32   And   myB   <=   65   Then  
  myB   =   myB   +   4  
  myc   =   Chr(myB)  
  End   If  
  If   myB   >=   122   And   myB   <=   126   Then  
  myB   =   myB   -   90  
  myc   =   Chr(myB)  
  End   If  
  myd   =   myd   +   myc  
  Next  
  Text2   =   myd  
  End   Sub  
   
  Private   Sub   Command2_Click()   '解密  
  Dim   myc   As   String  
  Dim   myd   As   String  
          Dim   i   As   Integer  
          For   i   =   1   To   Len(Trim(Text2.Text))  
                myc   =   Asc(Mid(Text2.Text,   i,   1))  
          If   myc   >=   32   And   myc   <=   36   Then  
          myc   =   myc   +   90  
          myc   =   Chr(myc)  
   
          End   If  
          If   myc   >=   36   And   myc   <=   69   Then  
          myc   =   myc   -   4  
          myc   =   Chr(myc)  
   
          End   If  
          If   myc   >=   69   And   myc   <=   126   Then  
          myc   =   myc   -   4  
          myc   =   Chr(myc)  
          End   If  
          myd   =   myd   +   myc  
                  Next   i  
          Text3   =   myd  
  End   Sub  
  Top

6 楼AHBC123（）回复于 2003-12-03 15:15:05 得分 0

再请各位高手帮助，谢谢！！！谢谢！！！Top

7 楼SoHo_Andy（冰）回复于 2003-12-03 15:33:10 得分 20

解密按钮的语法逻辑错误，下面是修改过的代码  
   
  程序的原来的错误不会有了，但是我发现你的解密算法本身就不对，这个我就没有  
  细看了  
   
  Private   Sub   Command2_Click()   '解密  
  Dim   myc   As   String  
  Dim   myd   As   String  
  Dim   i   As   Integer  
          For   i   =   1   To   Len(Trim(Text2.Text))  
                myc   =   Asc(Mid(Text2.Text,   i,   1))  
                  If   myc   >=   32   And   myc   <=   36   Then  
                          myc   =   myc   +   90  
                          myc   =   Chr(myc)  
                  ElseIf   myc   >=   36   And   myc   <=   69   Then  
                          myc   =   myc   -   4  
                          myc   =   Chr(myc)  
                  ElseIf   myc   >=   69   And   myc   <=   126   Then  
                          myc   =   myc   -   4  
                          myc   =   Chr(myc)  
                  End   If  
                  myd   =   myd   +   myc  
          Next   i  
          Text3   =   myd  
  End   Sub  
  Top

相关问题

• strconv
• vbunicode
• myb
• myc
• 谢谢
• convstr
• vbfromunicode
• 高手
• aa
• private sub command

• 帖主：AHBC123
• SoHo_Andy

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