甜橘子，专注成都网站制作网站设计与营销型网站建设与优化
QQ :532337155
电话：028-86922220
Private Sub Command1_Click()
目前创新互联建站已为近千家的企业提供了网站建设、域名、虚拟空间、网站托管、企业网站设计、江陵网站维护等服务，公司将坚持客户导向、应用为本的策略，正道将秉承"和谐、参与、激情"的文化，与客户和合作伙伴齐心协力一起成长，共同发展。
Dim year As Integer, y As Integer
year = Val(InputBox("要判断的年份是："))
Call runnian(year, y)
If y = 1 Then
Print Str(year); Spc(2); "年是闰年!"
Else
Print Str(year); Spc(2); "年不是闰年!"
End If
End Sub
Public Sub runnian(n As Integer, x As Integer)
Dim leap As Integer
If n Mod 400 = 0 Then
leap = 1
ElseIf n Mod 4 = 0 And n Mod 100 0 Then
leap = 1
Else
leap = 0
End If
x = leap
End Sub
911 X + 1 916 还有 704 Y + 1 709，没有这么连续判断的。
是比较运算符，是运算符！+、-、*、/ 是算术运算符，也是运算符！
既然是运算符，就得按照运算优先级（所谓优先级，就是 * 运算比 + 运算要优先）从左到右依次计算，显然 911 X + 1 916 里两个 的运算优先级是相同的。
那么从左至右依次计算，先算 911 X + 1，得到结果 True（-1） 或者 False（0）（不要问我为什么True=-1，False=0，.NET里就是这么规定的），再计算 True / False 916，结果始终为 True。704 Y + 1 709 也是同理，两个 True 之间 And 了还是 True，结果当然是条件一直成立。
正确写法：
If (911 X + 1 And X + 1 916) And (704 Y + 1 And Y + 1 709) Then
这个只能是一一判断的：
为了叙述简单，假设有两个可选条件，内容在： TextBox1(姓名)、TextBox2（部门）
主要是构造 Sql的Where子句，那么：
Dim MySqlWhere As String
MySqlWhere=""
If TextBox1.Text"" Then
MySqlWhere= " Where 姓名 = '" TextBox1.Text "'"
End If
If TextBox2.Text"" Then
if MySqlWhere="" Then
MySqlWhere= " Where 部门 = '" TextBox1.Text "'"
Else
MySqlWhere= MySqlWhere " And 部门 = '" TextBox1.Text "'"
End If
End If
'如果还有第3，第4，那只能这样了：
If TextBox3.Text"" Then
if MySqlWhere="" Then
MySqlWhere= " Where 字段3 = '" TextBox3.Text "'"
Else
MySqlWhere= MySqlWhere " And 字段3 = '" TextBox3.Text "'"
End If
End If
......
If TextBoxn.Text"" Then
if MySqlWhere="" Then
MySqlWhere= " Where 字段n = '" TextBoxn.Text "'"
Else
MySqlWhere= MySqlWhere " And 字段n = '" TextBoxn.Text "'"
End If
End If
注意：对于字符类型的字段，当然要用单引号，上面那样的，但是对于数值类型，就不要这个单引号的；但是对于日期类型，那么与字符类型不同的是，把前后的2个单引号，改为井号就是“#”， 这是很多初学者容易忽略的，也是很多教科书上不提的问题。
对于文本框，由于.NET不提供控件数组，但是还是可以用语句来实现类似数组的操作，这样以上IF语句，就可以简化。
有一个字符串函数：Instr(n,S1,S2)
该函数的功能：从字符串S1的左起第N位开始，向右逐位进行搜索匹配字符串S2，如果找到匹配，就返回一个整数指明匹配的位置，否则就返回0。如果缺省n，就是默认从字符串S1的左起第1位开始，进行搜索匹配字符串S2。
例如1：Instr(1,"abcde","a")，返回1
例如2：Instr(3,"abcde","a")，返回0
例如3：Instr(1,"abcde","c")，返回3
例如4：Instr(1,"abcde","cde")，返回3
例如5：Instr(4,"ab12cd12e12","12")，返回7，这里从字符串"ab12cd12e12"左起第4位开始向右搜索匹配字符串"12"，找到的是中间一个“12”，这个“12”是位于字符串"ab12cd12e12"左起的第7个字符。
而：Instr(1,"ab12cd12e12","12")，返回3
Instr("ab12cd12e12","12")，返回3
Imports System.IO
Imports System.Collections
Imports System.Text
Public Class Form1
Dim InfoList As New ArrayList
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim fs As New FileStream("c:\1.txt", FileMode.Open, FileAccess.Read, FileShare.None)
Dim fw As New StreamReader(fs, Encoding.Default)
Do Until fw.EndOfStream
InfoList.Add(fw.ReadLine)
Loop
fw.Close()
fs.Close()
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim tmp As String, a As Integer
a = -1
tmp = TextBox1.Text
For i = 0 To InfoList.Count - 1
If InStr(InfoList.Item(i).ToString, tmp) 0 Then a = i : Exit For
Next
If a = 0 Then TextBox2.Text = InfoList.Item(a)
End Sub
End Class
如果是要判断引用类型可以用TypeOf来判断
Dim s = "666"
If TypeOf (s) Is String Then
Debug.Print("string")
Else
Debug.Print("not string")
End If
如果不知道是否是引用类型，可以这样判断：
Dim s = 666
If VarType(s) = VariantType.String Then
Debug.Print("string")
Else
Debug.Print("not string")
End If
或者：
Dim s = 666
If s.GetType = "".GetType Then
Debug.Print("string")
Else
Debug.Print("not string")
End If