VB.NET可选参数的默认值必须是一个常数表达式。
为新疆等地区用户提供了全套网页设计制作服务，及新疆网站建设行业解决方案。主营业务为网站制作、网站设计、新疆网站设计，以传统方式定制建设网站，并提供域名空间备案等一条龙服务，秉承以专业、用心的态度为用户提供真诚的服务。我们深信只要达到每一位用户的要求，就会得到认可，从而选择与我们长期合作。这样，我们也可以走得更远！
过程定义中跟在可选参数后的每个参数也都必须是可选的。
下面的语法显示带VB.NET可选参数的过程声明：
Sub sub name（ByVal parameter 1 As data type 1,
Optional ByVal parameter 2 As data type 2 = default value）
调用带VB.NET可选参数的过程
过程在运行时无法检测到给定的参数是否已被省略，或者调用代码是否已显式提供默认值。如果需要弄清楚这一点，可以设置一个不可能的值作为默认值。下面的过程定义了可选参数 office,并测试其默认值 QJZ 以查看它在调用中是否已被省略：
Visual Basic
Sub notify（ByVal company As String, Optional ByVal office As String = "QJZ"）
If office = "QJZ" Then
Debug.WriteLine（"office not supplied -- using Headquarters"）
office = "Headquarters" End If
' Insert code to notify headquarters or specified office.
End Sub
如果可选参数是像 String 这样的引用类型，只要它不是该变量所预期的值，就可以使用 Nothing 作为默认值。
VB.NET可选参数和重载
定义带可选参数的过程的另一种方法是使用重载。如果有一个可选参数，可以定义过程的两个重载版本，一个接受此参数，另一个则不带参数。此方法随可选参数数目的增加而变得更复杂。然而，这样做的优点是可以完全确定调用程序是否提供了每个VB.NET可选参数。
合法性校验有很多方法，要视情况而定，比如说可以用正则表达式，如果是数字，除了正则表达式，也可以用诸如TryParse这种方法。
Visual Basic .NET通常缩写为VB.NET,在某些特定情况下也直接简称VB，比如在.NET这个大话题下或者与其他.NET语言一起讨论的时候。
Visual Basic .NET属Basic系语言，其语法特点是以极具亲和力的英文单词为基础标识，以及与自然语言极其相近的逻辑表达，有时候你会觉得写VB.NET代码就好像在写英文句子一样，从这个角度来说，VB.NET似乎是最高级的一门编程语言，当然在Basic系语言中VB.NET也确实是迄今为止最强大的一门编程语言。
Visual Basic .NET的应用范围包括Windows桌面、Web以及当下突然觉醒的正在奋力追赶的第三大移动平台Windows Phone。
由于改动太大，导致VB.NET对VB的向后兼容性不好，在业界引起不小的争议。
VB.NET是...中间解释性语言“，这种说法极不准确，甚至完全错误。可能原编辑者是指的编译器会先将源码翻译成MSIL(Microsoft Intermediate Language)中间语言这回事,但这和”解释性语言“有很大差别。 算术运算符：/（除），\（整除）,Mod（取模） 串联运算符：，+亦可 逻辑/按位运算符：Not、And、Or、Xor、AndAlso、OrElse 赋值运算符：= ，^= ，*= ，/= ，\= ，+= ，-= ，=，=，= 比较运算符： ，= ， ，= ，= ， ，Is ，IsNot ，Like 移位运算符： ， 其他运算符：AddressOf 运算符 ，GetType 运算符 ，函数表达式，If 运算符 ，TypeOf 运算符，Await 运算符 DirectCast 运算符 TryCast 运算符 New 运算符 *运算优先级：算术连接比较逻辑运算（用括号可改变优先级）
详细：
如果表达式中出现几种运算，将按照预先确定的称为“运算符优先级”的顺序计算和解析各个部分。
优先级规则
当表达式包含不止一种运算符时，则按照下列规则对其进行计算： 算术运算符和串联运算符的优先级在下面列出，它们的优先级均高于比较运算符、逻辑运算符和位运算符。 所有比较运算符具有相同的优先级，它们的优先级均高于逻辑运算符和位运算符，但低于算术运算符和串联运算符。 逻辑运算符和位运算符的优先级在下面列出，它们的优先级均低于算术运算符、串联运算符和比较运算符。 具有相同优先顺序的运算符将按照它们在表达式中出现的顺序从左至右进行计算。 优先级顺序
运算符的计算优先级顺序如下：
算术运算符和串联运算符
求幂 (^)
一元标识和非（+、–）
乘法和浮点除法（*、/）
整数除法 (\)
取模 (Mod)
加法和减法（+、–），字符串连接 (+)
字符串连接 ()
算术移位（、）
比较运算符
所有比较运算符（=、、、=、、=、Is、IsNot、Like、TypeOf...Is）
逻辑运算符和位运算符
非 (Not)
与 (And、AndAlso)
或 (Or、OrElse)
异或 (Xor)
注释
= 运算符只是相等比较运算符，而不是赋值运算符。
字符串连接运算符 () 不是算术运算符，但它在优先级方面与算术运算符属于一组。
Is 和 IsNot 运算符是对象引用比较运算符。 它们不比较两个对象的值，只确定两个对象变量是否指向相同的对象实例。
结合性
当具有相同优先级的运算符（例如乘法和除法）在表达式中一起出现时，编译器将按每个运算符出现的顺序从左至右进行计算。
Visual Basic 中的运算符具有“左结合性”。
重写优先级和结合性
可以使用括号强制表达式中的某些部分先于其他部分计算。 这会重写优先级顺序和左结合性。 Visual Basic 始终先执行括在中括号内的操作，再执行括号外的操作。然而，在括号内，它保持普通优先级和结合性，除非您在括号内再使用括号。 条件：If、Select Case 循环：For、For Each、While、Do While… …Loop、Do …Loop Until… 终止：Exit [Do、For、Function、Property、Select、Sub、Try] 异常处理：Try...Catch...Finally 语法支持结构化异常处理。 *三元表达式：IIf(Expression,TruePart,FalsePart)，是Microsoft.VisualBasic命名空间下的函数，不论结果如何都会计算TruePart和FalsePart的表达式，它有相应的返回值。
较高版本中存在 If(Expression,TruePart,FalsePart) 运算符，与IIf的区别是它能短路计算，Expression为真时不计算FalsePart,Expression为假时不计算TruePart 在Visual Basic .Net使用 Function 或 Sub 关键字创建 Lambda 表达式，就像创建标准函数或子例程一样。 但是，Lambda 表达式包括在语句中。下面分别演示单行与多行。
用Function并返回值： DimLambdaTest=Function(x)x+1DimLambdaTest1=Function(x)Returnx+2EndFunctionMessageBox.Show(LambdaTest(7))MessageBox.Show(LambdaTest1(7))用Sub： DimLambdaTest=Sub(x)MessageBox.Show(x)DimLambdaTest1=Sub(x)MessageBox.Show(x)EndSubLambdaTest(7)LambdaTest1(7)比起其他语言，Visual Basic .Net用Function和Sub更能直观体现Lambda表达式的本质——匿名方法。
Private Sub Command1_Click()
x = Val(Text1.Text)
y = Val(Text2.Text)
Max = IIf(x y, x, y)
Print "Max="; Max
End Sub
首先你定义了两个变量x%，y% 其默认值为0
然后执行条件判断满足第一个条件x1000 ,就将x赋值给y 此时x=0，y=0
跳出判断，显示两个0。
我引用他的话， 后面就是你没有给他赋值。 差一点代码。
dim x% ,y%
'可以加一个检测textbox1.text 里只能输入整数的代码。
x=textbox1.text
if...
'就是你后面的啦 不过我也很菜，所以也不知道对不对，对你有 没有用啊。你试试看吧
在所给代码基础上仅作修改.
首先导入命名空间
Imports System.Text.RegularExpressions
然后:
Function geta(ByVal Str)
Dim re As New Regex("a(.+?)href=""*([^\s]+?)""*(\s|)")
Dim Contents As MatchCollection = re.Matches(Str)
Dim links As String = Nothing
For Each Match In Contents ' 遍历匹配集合。
links = links + Match.SubMatches(1) + "|"
Next
geta = Mid(links, 1, Len(links) - 1)
geta = Replace(geta, "'", "")
re = Nothing
End Function
