Question

TextBox1.Text = Mid(TextBox1.Text, 1, Len(TextBox1.Text) - 1)什么意思

那位朋友知道请回答一下，

Answer 1

Dim a
a="VBWindows" '建立一个字符串
b=Mid(a,1,2)

就是b等于,从a的第1个字符开始,取2个字符, 也就是b="VB"

你的也是一样, 多用了一个LEN, LEN就是测试字符中的长度,减1,的话,就是比字符串长度少1

TextBox1.Text = Mid(TextBox1.Text, 1, Len(TextBox1.Text) - 1)
也就是去掉了TextBox1的最后1个字符(当TextBox1的内容不为空时)

Mid函数

解释:返回包含在字符串中指定数量的字符.

语法: Mid(string,start[,length])

说明:其中string是必需的字符串表达式,用于从中返回字符.如果string包含Null,将返回Null.start是必需的Long参数,代表string中被取出部分的字符位置.如果start超过string的字符数,Mid返回零长度字符串("").Length是可选的为Variant(Long)参数,代表要返回的字符数.如果省略或length超过文本的字符数(包括start处的字符),将返回字符串中从start到尾端的所有字符.
MidB函数作用于字符串中包含的字节数据,如同在双字节字符集语言中一样.因此其参数指定的是字节数,而不是字符数.

Answer 2

Mid(TextBox1.Text, 1, Len(TextBox1.Text) - 1)
获取字符(从Textbox1的字符串,第一位开始数,到(Textbox总长度)-1的地方停止)

如
Mid("ABC",1,2)="AB"

Answer 3

这条语句执行完之后，textbox1.text的值 就为原来的值去掉最后一位。
mid函数是取字符串函数
mid(s,i,j)
从S字符串中的第I位开始取出J个字符。
len(S)函数是取字符串长度的，返回值为S字符串的长度。所以你这条语句的意思就是从textbox1.text的第一位开始，取出textbox1.text长度减一个字符。

Answer 4

上面都解释了MID，len返回了TEXTBOX1的文本长度，效果就是 去掉了TEXTBOX1的最后一个字符

Answer 5

函数mid相当于substr用来获取字符串中的某一段.
mid(str,istart,icount)
表示从str字符串的第istart个字符起,取icount个字符然后返回.
len(str)
获取字符串str的长度.