将数字4000放入两个字节中

yangscott 2003-10-12 02:47:17

不管用什么方法,将数字4000放入string a*2中.

...全文

79 14 打赏收藏转发到动态举报

写回复

用AI写文章

14 条回复

切换为时间正序

请发表友善的回复…

发表回复

yangjianming0822 2003-11-05

打赏
举报

不好意思，写错了。
Chr
Asc
Mid
后面都要加一个B

yangjianming0822 2003-11-05

打赏
举报

a = Chr(160) & Chr(0) & Chr(0) & Chr(49)
str1 = Asc(Mid(a, 1, 1))
str1 = Asc(Mid(a, 2, 1))
str1 = Asc(Mid(a, 3, 1))
str1 = Asc(Mid(a, 4, 1))
mybyte(0) = Asc(Mid(a, 1, 1))
mybyte(1) = Asc(Mid(a, 2, 1))
mybyte(2) = Asc(Mid(a, 3, 1))
mybyte(3) = Asc(Mid(a, 4, 1))

yangscott 2003-11-05

打赏
举报

yangscott 2003-11-05

打赏
举报

flyyangmingming 2003-10-15

打赏
举报

mybyte(0)=chrB(160)--A0
mybyte(1)=chrB(0)----00

kmzs 2003-10-12

打赏
举报

啊？这也行？？？

mmcgzs 2003-10-12

打赏
举报

但是在VB中string*2应该是可以存两个汉字的

mmcgzs 2003-10-12

打赏
举报

高手，学习

rainstormmaster 2003-10-12

打赏
举报

4000的2进制表示为111110100000正好12位，分两段111110（10进制为62），100000（10进制为32），然后取出区位码中对应汉字，只用了1个字符（也可根据base64的编码原理进行编码，2个字符）
Private Sub Command1_Click()
Dim i As Long
Dim mybyte(1) As Byte
i = 4000
mybyte(0) = i And 63
mybyte(1) = i \ 64

MsgBox mybyte(0)
MsgBox mybyte(1)
Dim s As String
s = StrConv(mybyte, vbUnicode)
MsgBox s
End Sub

yangscott 2003-10-12

打赏
举报

结果怎么成"16016"了?

Gelim 2003-10-12

打赏
举报

Private Sub Command1_Click()
Dim i As Long
Dim mybyte(1) As Byte
i = 4000
mybyte(0) = i and 255
mybyte(1) = cbyte(i / 256)

MsgBox cstr(mybyte(0)) & cstr(mybyte(1))
End Sub

yangscott 2003-10-12

打赏
举报

是转化成两个字符.

crystal_heart 2003-10-12

打赏
举报

不可能

rainstormmaster 2003-10-12

打赏
举报

是两个字节还是两个字符？

转为2个字节的

Private Sub Command1_Click()
Dim i As Long
Dim mybyte(1) As Byte
i = 4000
mybyte(0) = i And 255
mybyte(1) = i \ 256
Debug.Print mybyte(1)
Debug.Print mybyte(0)
Dim s As String
s = mybyte
MsgBox s
MsgBox Len(s)
End Sub

int main() { unsigned char buf[10] = {0}; int len = 1332; buf[0] = char(len); buf[1] = char(len>>8); short len1 = *(short*)buf; printf("buf = %d\n",len1); return 0; }

这个过程一直持续到最后端口字段，由于 UDP 也需要它来解复用，这两个字段本不属于 IP，自然不能往前挪，但由于当时只有 TCP 和 UDP 两个协议，且 TCP 和 UDP 都需要端口，就判断它虽不属于最小公共集，但属于独立解复用的 “子层”，这样它们就紧挨着 IP 的最后，处在 IP 和 TCP/UDP 之间，所以还是挪了，这就造成了如今 TCP，UDP 协议头的格局，端口处在最前面的 4 个字节。回到文初的问题，现在可以一句话回答了，“为什么在TCP首部中要把TCP的端口号放入最开始的四个字节？

实验一拆字程序将指定地址单元中存放的一个字节的两位16进制数进行拆分，高、低两位数字分别存入另外两个单元。例如：单元4000H的内容为27H，将其高、低两位拆出后，分别存放到4002H和4001H中。编写程序，执行后，4001H的内容应为低位07H，4002H的内容应为高位02H。 data segment num db 3 dup(0) data ends code segment assume cs:code,ds:data begin: mov ax,data

将片内RAM的20H单元中的压缩BCD码拆成两个ACSII码存入21H、22H单元。低4位存在21H单元，高4位存在22H单元。思路：压缩BCD码和非压缩BCD码的区别一个BCD码占4位，而一个字节有8位。若把两个BCD码放在一个字节中，就叫压缩的BCD码；压缩BCD码的每一位用4位二进制表示，一个字节表示两位十进制数。例如10010110B表示十进制数96D；而一个字节只放一个...