用vb怎么显示字符串前半部分和后半部分

Question

如题所述

Answer 1

Private Sub Command1_Click()

  a = InputBox("请输入一个字符串:")

  n = Len(a) \ 2

  MsgBox "原串是:" & a & vbCrLf & "字符串的前一半是：" & Left(a, n) & vbCrLf & "字符串的后一半是：" & Mid(a, n + 1)

End Sub

追问

能否解释一下阿？

Answer 2

使用字符串截取函数即可实现。
常用字符串操作函数
ASC(X)，Chr(X)：转换字符字符码
[格式]：
P=Asc(X) 返回字符串X的第一个字符的字符码
P=Chr(X) 返回字符码等于X的字符

2. Len(X)： 计算字符串X的长度
[格式]：
P=Len(X)
[说明]：
空字符串长度为0，空格符也算一个字符，一个中文字虽然占用2 Bytes，但也算一个字符。
[范例]：
(1) 令X=”” (空字符串)
Len(X) 输出结果为0
(2) 令X=”abcd”
Len(X) 输出结果为4
(3) 令X=”VB教程”
Len(X) 输出结果为4

3. Mid(X)函数：读取字符串X中间的字符
[格式]：
P=Mid(X,n)
由X的第n个字符读起，读取后面的所有字符。
P=Mid(X,n,m)
由X的第n个字符读起，读取后面的m个字符。

4. Replace: 将字符串中的某些特定字符串替换为其他字符串
[格式]：
P=Replace(X,S,R)
[说明]：将字符串X中的字符串S替换为字符串R，然后返回。

5. StrReverse：反转字符串
[格式]：
P=StrReverse(X)
[说明]：
返回X参数反转后的字符串

6. Ucase(X)，Lcase(X)：转换英文字母的大小写
[格式]：
P=Lcase(X)
‘ 将X字符串中的大写字母转换成小写
P=Ucase(X)
‘ 将X字符串中的小写字母转换成大写
[说明]：除了英文字母外，其他字符或中文字都不会受到影响。

7. InStr函数：寻找字符串
[格式]：
P=InStr(X,Y)

从X第一个字符起找出Y出现的位置
P=InStr(n,X,Y)
从X第n个字符起找出Y出现的位置
[说明]：
（1） 若在X中找到Y，则返回值是Y第一个字符出现在X中的位置。
（2） InStr(X,Y)相当于InStr(1,X,Y)。
（3） 若字符串长度，或X为空字符串，或在X中找不到Y，则都返回0。
（4） 若Y为空字符串，则返回0。

Answer 3

'用mid 函数，具体用法为
'str=mid(str1 ,num1,num2) 其中 str1为字符 num1开始位置 num2为字符数
'显示前半部分
msgbox (mid（str1,1,len(str1)\2))
'显示后半buff
msgbox (mid(str1,len(str1)\2+1,len(str1)\2))追问

能否解释一下？