vb.net中字符串函数 vb回文字符串函数

vb.net中的mid（）用法

VB.NET编程Mid函数一般用于返回原字符串中子串，比如说：

屏山网站建设公司成都创新互联公司,屏山网站设计制作，有大型网站制作公司丰富经验。已为屏山上千余家提供企业网站建设服务。企业网站搭建\成都外贸网站建设公司要多少钱，请找那个售后服务好的屏山做网站的公司定做！

Dim MyString, FirstWord, LastWord, MidWords  

MyString = "Mid Function Demo" 建立一个字符串。  

FirstWord = Mid(MyString, 1, 3) ' 返回 "Mid"。  

LastWord = Mid(MyString, 14, 4) ' 返回 "Demo"。  

MidMidWords = Mid(MyString, 5) ' 返回 "Funcion

具体函数说明如下：返回 Variant (String)，其中包含字符串中指定数量的字符。

mid函数的语法：

Mid(string, start[, length])

mid函数的参数：

string 必要参数。字符串表达式，从中返回字符。如果 string 包含 Null，将返回 Null；

start 必要参数。为 Long。string 中被取出部分的字符位置。如果 start 超过 string 的字符数，VB.NET Mid函数返回零长度字符串 ("")；

length 可选参数；为 Variant (Long)。要返回的字符数。如果省略或 length 超过文本的字符数（包括 start 处的字符），将返回字符串中从 start 到尾端的所有字符。

vb.net怎么提取字符串？

在VB中是这样的，没学过VB.net，你变换一下就可以了

按你说的，用用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.NET里怎么用String$

首先说一下你不明白的地方，那个rand.Next(0,

129)，其实就是产生一个随机数

Dim

rand

=

New

System.Random()

这个是产生随机数初始化的地方

方法名称：next(i，j)；功能描述：返回一个i~j之间的整数

String$(129,

0)的作用和你注释掉的地方一样，也是产生一个0-129之间的随机数

至于为什么报错，问题就多了

因为产生的值是一个随机的，而且，程序别的地方的处理我不知道，但只根据这段代码来看，这个就是个报错时候的显示信息处理，那么最好你都能明白错误信息的显示方法，提示一下，这个显示出来的内容，哪怕传进去的参数一样，在中文系统，日文系统，英文系统上显示出来的信息内容，都是不一样的

VB.NET string$函数

VB6的String()函数，在VB.NET中，改用 StrDup()函数，使用格式与VB6的String()函数类似：

例如：

VB6中，String(5,"*") ，是产生5个星号字符，"*****"

VB.Net中，改用 StrDup(5,"*") ，也是产生5个星号字符，"*****"