VB怎么拆分整数

怎么把一个整数按位拆分，以ASCII码输出，并用空格分隔。比如输入3456这个整数，3的ASCII码是51，4的ASCII码是52，5的ASCII码是53，6的ASCII码是54，要输出 51 52 53 54。还要根据位数变化输出，比如输入34，要输出51 52；不能像上面那样输出00 00 51 52。如果是负整数还要输出负号的ASCII码，负号的ASCII码为45，比如输入-345，输出为45 51 52 53

    这样会比较完整一点：

Private Sub Command1_Click()
   Dim s As String, i As Integer, s2 As String
   s = Text1.Text
   s2 = ""
   For i = 1 To Len(Text1.Text)
    s2 = s2 + Str(Asc(Mid(s, i, 1))) + " "
   Next i
   MsgBox ("拆分后的结果是:" + s2)
End Sub

Private Sub Form_Initialize()
   Text1.Text = ""
End Sub

图：

function ASCINT(sInt  as long ) as string

  dim ss as string

  ss=CSTR(Sint)

  dim slen as integer

 slen=len(ss)

 dim i as integer

for i=1 to slen

  ASCINT=ASCINT & asc(mid(ss,i,1)

  if i<>slen  then   ASCINT=ASCINT & " "

next i

end function

 int i;  char a[100];  gets(a);  for(i=0;i<strlen(a);i++)   printf("%d ",a[i]);

Private Function GetAsc(ByVal lyInt As Integer) As String     Dim CH    As String     Dim i    As Integer     Dim Ac    As String     'If lyInt < 0 Then Ac = "54"     CH = CStr(lyInt)     For i = 1 To Len(CH)     If Len(Ac) = 0 Then     Ac = Asc(Mid(CH, i, 1))     Else     Ac = Ac & " " & Asc(Mid(CH, i, 1))     End If     Next     GetAsc = Ac End Function

简洁明了。。代码如下

Private Sub Command1_Click() For i = 1 To Len(Text1.Text) a = Asc(Mid(Text1.Text, i, 1)) s = s & " " & a Next i Cls Print s End Sub