vb.net判断条件 vb条件判断语句

vb.net如何像c#一样判断是否是字符串类型

如果是要判断引用类型可以用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

相关问答

Q1: 求教啊求教，关于在VB.NET中不定项多条件查询的难题

这个只能是一一判断的：

为了叙述简单，假设有两个可选条件，内容在： 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语句，就可以简化。

Q2: VB.net中的 and判断条件问题

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

Q3: vb.net判断路径是否合法

在VB.NET中，可以使用System.IO命名空间中的Path类和Directory类来判断一个路径是否合法。其中，Path类提供了一组静态方法，用于操作路径字符串，并检查路径是否包含非法字符或是否满足指定条件，如IsPathRooted、GetExtension、GetFullPath等方法；Directory类提供了一组静态方法，用于操作文件夹，并检查目录是否存在等，如Exists、GetDirectories、GetFiles等方法。利用这些方法，我们可以轻松地判断路径是否有效，并进行相应的处理。其中，通常使用Path.Combine方法来合并路径字符串，以确保路径的正确性。

Q4: vb.net 根据给定条件判断该内容是否在数组中，并读取该条数组

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

Q5: VB.Net如何利用“文本中是否包含某字符串”作为判断条件应该用什么函数？

有一个字符串函数：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

vb.net判断条件的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vb条件判断语句、vb.net判断条件的信息别忘了在本站进行查找喔。