vb编程基础

数据类型	说明
Char	单个字符
String	字符串
Date	日期时间
TimeSpan	时段型
Boolean	布尔值
Byte	微整数 0~255
Short	短整数 -32768~32767
Integer	整数 -21亿~21亿
Long	长整数 -9223372036854775808~9223372036854775807
Single	7位单精度小数
Double	15位双精度小数
Decimal	28位高精度小数

Chr函数获取指定编码的字符:

'回车Chr(13),换行Chr(10),Tab用Chr(9)表示
Dim s As String = "Foxtable" & Chr(13) & Chr(10) & "狐表"
'Dim s1 As String = "Foxtable" & vbcrlf & "狐表"
'常量vbcrlf等于Chr(13) & Chr(10)

日期常量

'Dim d As Date = #02/13/2001 12:30:59#
Dim d As Date = New Date(2001, 2, 13, 12, 30, 59)

枚举常量: 一组有名称的整数型常量

Dim dc As DataCol = DataTables("订单").DataCols("产品ID")
dc.ExtendType = ExtendTypeEnum.Files 'ExtendTypeEnum.Files=6

数组

'数组元素赋值
'Dim Names(2) As String
'Names(0) = "张三"
'Names(1) = "李四"
'Names(2) = "王二"
'Dim Names() As String = {"张三", "李四", "王二"} 
Dim Names() As String 
Names = New String(){"张三", "李四", "王二"} 
Output.Show(Names.Length) '数组长度3

数组常用共享方法

Dim values() As Integer = {1, 3, 5, 4, 5, 6, 5}
Output.Show(Array.IndexOf(values, 5)) '第一次出现5的索引2
Output.Show(Array.LastIndexOf(values, 5)) '最后一次出现5的索引6
Array.Sort(values) '排序 1 3 4 5 5 5 6
Output.Show(Array.IndexOf(values, 5)) '第一次出现5的索引3
Array.Reverse(values) '反转顺序 6 5 5 5 4 3 1
Output.Show(Array.LastIndexOf(values, 5)) '最后一次出现5的索引3

Array.Sort(a,b)

Dim Names() As String = {"A", "B", "C"}
Dim ages() As Integer = {8, 6, 7}
Array.Sort(ages, Names) '第一个为排序数组,第二个跟随第一个数组排序
Output.Show(Names(0) & "=" & ages(0)) 'B=6
Output.Show(Names(1) & "=" & ages(1)) 'C=7
Output.Show(Names(2) & "=" & ages(2)) 'A=8

集合: 比数组灵活,无需指定索引上限,可动态增加和删除元素

Dim Names As New List(Of String)
Names.Add("张三")
Names.Add("李四")
Names.Add("王二")

Dim Arys() As String = Names.ToArray() '将集合转换为数组
'Names.Clear() ' 清除集合所有成员

Dim idx As Integer = Names.Count '元素个数
Names.Insert(0, "罗涛")
Names.Remove("罗涛")
Names.RemoveAt(0)
Dim b As Boolean = Names.Contains("罗涛")
Names.Sort()
Names.Reverse()

'将数组或集合中的元素加入到本集合
Dim v1 As String = {"中", "美", "日", "英"}
Dim s1 As New List(Of String)
Dim s2 As New List(Of String)
s1.AddRange(v1) '将数组v1的元素添加到s1
s2.AddRange(s1) '将集合s1的元素添加到s2

字典:

Dim zd As New Dictionary(Of Integer, String)
zd.Add(4, "苹果")
zd.Add(8, "香蕉")
Dim idx As Integer = zd.Count()
If zd.ContainsKey(4) = False Then
    zd.Add("4", "苹果")
End If

数据类型转换

Dim s1 As String = "a10"
Dim s2 As String = "2/31/2018"
Dim i As Integer
Dim d As Date
If IsNumeric(s1) Then '判断s1是否为有效数字
    i = s1
End If
If IsDate(s2) Then '判断s2是否为有效日期
    d = s2
End If

'Val函数将字符串转为数字,若s1不是有效数字则返回0
Dim v As Integer = Val(s1) 
Dim st1 As String = "100"
Dim st2 As String = "100"
Output.Show(st1 + st2) '字符串连接,100100
Output.Show(Val(st1) + Val(st2))

Type.TryParse(a,b)

Dim d As String = "2001/2/13"
Dim d1 As Date
Date.TryParse(d, d1) '将字符串"2001/2/13"转换为日期类型并用d1接受
Output.Show(d1)