扫二维码与项目经理沟通
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
在VB中是这样的，没学过VB点虐 ，你变换一下就可以了
创新互联长期为上1000家客户提供的网站建设服务，团队从业经验10年，关注不同地域、不同群体，并针对不同对象提供差异化的产品和服务；打造开放共赢平台，与合作伙伴共同营造健康的互联网生态环境。为德清企业提供专业的做网站、成都网站建设，德清网站改版等技术服务。拥有十年丰富建站经验和众多成功案例,为您定制开发。
按你说的，用用Left,Right和Mid
Option Explicit
Private Sub Command1_Click()
Dim Num(2)
Num(0) = Val(Left(Label1.Caption, 2))
Num(1) = Val(Mid(Label1.Caption, 3, 1))
Num(2) = Val(Right(Label1.Caption, 2))
MsgBox "Num(0)=" Num(0) vbCrLf "Num(1)=" Num(1) vbCrLf "Num(2)=" Num(2)
'如果想测试是不是可以计算，可以用这一句
'MsgBox "Num(0)+1=" Num(0) + 1 vbCrLf "Num(1)+1=" Num(1) + 1 vbCrLf "Num(2)+1=" Num(2) + 1
End Sub
Private Sub Form_Load()
Label1.Caption = "12345"
End Sub
有问题请追问，满意请采纳！
data(4)=cbyte(a and Hff)'低
data(5)=cbyte(a\256)'高
'如果API的话 有一个CopyMemory 可以转换任何类型.当然这是你的以后扩展
如果用copyMemory 时 就是
CopyMemory data(4),a,2 '这里你要保证你的a 的类型为 integer
如果高低位反了,
1.LEFT函数：是提取从左第一个字符开始，取几位，=LEFT（A1，11）即取前个11字符；
2.MID函数：是从第几位开始，提取几位，=MID（A1，1，4）即从第1位起，取4位；
3.RIGHT函数：是从右起提取位数，即从后面向前数提取几位，=RIGHT（A1，3）即取后3位。
方法很多，看具体数据而定，是固定取前11个字符，直接用LEFT函数是正确的选择。
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
微信二维码
移动版官网