13518219792
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 到尾端的所有字符。
public static String reverse1(String str)
{
return new StringBuffer(str).reverse().toString();
}
2.最常用的方法：
public static String reverse3(String s)
{
char[] array = s.toCharArray();
String reverse = ""; //注意这是空串，不是null
for (int i = array.length - 1; i = 0; i--)
reverse += array[i];
return reverse;
}
3.常用方法的变形：
public static String reverse2(String s)
{
int length = s.length();
String reverse = ""; //注意这是空串，不是null
for (int i = 0; i length; i++)
reverse = s.charAt(i) + reverse;//在字符串前面连接， 而非常见的后面
return reverse;
}
4.C语言中常用的方法：
public static String reverse5(String orig)
{
char[] s = orig.toCharArray();
int n = s.length - 1;
int halfLength = n / 2;
for (int i = 0; i = halfLength; i++) {
char temp = s[i];
s[i] = s[n - i];
s[n - i] = temp;
}
return new String(s); //知道 char数组和String相互转化
}
我打开vb2005，给你编了一个，运行通过了，按回车重复执行，按其他键退出，代码如下:
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
Sub Main()
Randomize()
Do
Dim i As Integer = 10
Dim a(i - 1) As Integer
For j As Integer = 0 To i - 1
a(j) = CRND(300, 400)
Console.WriteLine(a(j).ToString)
Next
Dim mina As Integer = ProcMin(a)
Console.WriteLine(String.Format("最小值：{0}", mina))
Loop While Console.ReadKey.KeyChar = Chr(13)
End Sub
'产生随机数
Private Function CRND(ByVal min As Int32, ByVal max As Int32) As Int32
If max min Then Return min
Return CInt(Int((max - min + 1) * Rnd() + min))
End Function
'获取数组里的最小值
Private Function ProcMin(ByVal a() As Int32) As Int32
Dim tmp As Integer = Int32.MaxValue
For i As Integer = 0 To a.Length - 1
If tmp a(i) Then tmp = a(i)
Next
Return tmp
End Function
