成都创新互联网站制作重庆分公司

vb.net判断条件 vb判断类型

输入年份,编程判断是否为闰年 VB.NET

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

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

求教啊求教,关于在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语句,就可以简化。

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 根据给定条件判断该内容是否在数组中,并读取该条数组

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

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


标题名称:vb.net判断条件 vb判断类型
URL分享:http://cxhlcq.com/article/hheehg.html

其他资讯

在线咨询

微信咨询

电话咨询

028-86922220(工作日)

18980820575(7×24)

提交需求

返回顶部