先来看一下例题

图1

制作VB 3步骤

一、关于添加控件：

此题中，我们只需拖拉5个Label控件和1个Text文本框以及1个Command命令按钮到界面上，摆放位置如图1所示.

二、关于设置属性值：

此题中，注意的是把其中俩个Label标签的BorderStyle属性设置为1-Fixed（如图2所示）

图2

三、关于编写代码：

此题中的代码如图3所示，自己先不看下面代码按照题目试着做一遍哦O(∩_∩)O~

图3

Private Sub Command1_Click()

bh = Text1.Text bh为编号

mc = Mid(bh, 4, 2) Mid就是从一个字符串中取子字符串

xh = Right(bh, 2) 从右边开始取值，取的位数为2位

Label4.Caption = mc

Label5.Caption = xh

End Sub

最后运行结果如图4所示

图4

知识分析

此题主要考察初学者对字符串函数mid（）、right（）的掌握能力，和对实际的一些简单应用

重点知识

我们把mid，right，left三个函数再重新整理一下

========================

a="Visual Basic"

mid（a,E,N)

就是a中第E位开始取值（包含E位），取多少位由后面的N决定！

举例：

Mid("Hello",3,2) ，输出则为 "ll"

=========================

right 和left函数正确的使用方法是：

Ritght(a,E)

就是从右边开始取值，取的位数为E位

举例：

a="Visual Basic"

Ritght(a,4) 输出则为"asic"

（它里面只能有一个参数，而Right（a,M，N）是一种错误的写法！）

===============================

Left（a,E）从左边开始取值，取得位数为E位

（它和right一样，不能写成Lift（a,M，N）这种错误写法）

举例：

a="Visual Basic"

Left(a,9) 输出则为"Visual Ba"

注：所有的取值函数都要把空格计算上

好了，以上就是VB三个字符串函数mid（），right（），Left（）的简单点拔

喜欢就点个赞吧(*╹▽╹*)