vb点虐 怎么取左八位 vb取左边5个字符串

vb点虐 怎么提取字符串？

在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

有问题请追问，满意请采纳！

关于VB一个赋值和取高、低八位问题

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函数是正确的选择。