VB基礎

1、VB For循環
基本語法

For counter [ As datatype ] = start To end [ Step step ] [ statements ] [ Continue For ] [ statements ] [ Exit For ] [ statements ] Next [ counter ]

舉個例子 為打印1-5

for i = 1 To 5Print(i) Next ' res: 1 2 3 4 5

反過來打印

For i = 5 To 1 Step -1Print(i) Next ' res: 5 4 3 2 1

強制退出For循環，請使用Exit For， 相當于c++中的break，對于多重循環，只能退出離它最近的循環，若要跳出最外層循環，需要用到GoTo
2、VB IF選擇
基本語法

' Multiline syntax: If condition [ Then ] [ statements ] [ ElseIf elseifcondition [ Then ] [ elseifstatements ] ] [ Else [ elsestatements ] ] End If ' Single-line syntax: If condition Then [ statements ] [ Else [ elsestatements ] ]

舉個例子 閏年判斷

Dim y As Long y = Year(Now) If y Mod 400 = 0 ThenMsgBox Str(y) & "是閏年" ElseIf y Mod 4 = 0 And y Mod 100 <> 0 ThenMsgBox Str(y) & "是閏年" ElseMsgBox (Str(y)) & "是平年" End If

3、函數
基本語法

[Private][Public][Static]Function <函數過程名>（[形參列表]）[As <類型>]<語句系列>[<函數名> = <表達式>] [Exit Function] [<語句系列>] [<函數名> = <表達式>] End Function

函數的參數傳遞分為兩種

ByVal：值傳遞，在內存中重新開辟地址存儲。修改時不會影響數值

ByRef: 引用傳遞，使用的是同一地址存儲變量，一旦在函數內部修改了這個數值，引用的數值也會隨之引用。

舉個例子：判斷一個數是否是素數

Function isPrime(ByVal num As Long) As Boolean Dim tmp As Double isPrime = True If num = 1 ThenisPrime = False Elsetmp = Sqr(num)For i = 2 To tmpIf num Mod i = 0 ThenisPrime = FalseExit ForEnd IfNext End If End Function

4、日期
詳細可見博客1，博客2
程序中使用到的

Date,Time,Now函數：讀取系統的日期時間

格式化時間 Format(date, dateformat)

將字符串轉為date CDate(dateStr)

year(T), month(T), day(T), weekday(T)

Dim dt As Date， dateStr As String, datas As String dates = "2019-04-08" dateStr = Format(dt, "yyyy-mm-dd hh.mm.ss") '將時間類型指定格式的字符串 week = Weekday(CDate(dates)) '將字符串轉為Date類型，再獲取星期幾

5、字符串
詳細見博客

mid(字符串， idx，len) ByRef 從字符串idx處，取出長度為len的子串 trim(str) ByVal去掉字符串前后的空格 len(str) ByVal 返回字符串的長度 Join(list[, delimiter]) As String 返回一個字符串，該字符串是通過連接某個數組中的多個子字符串而創建的。list 必需的。包含被連接子字符串的一維數組。delimiter 可選的。在返回字符串中用于分隔子字符串的字符。如果忽略該項，則使用空格(" ")來分隔子字符串。如果delimiter是零長度字符串("")，則列表中的所有項目都連接在一起，中間沒有分隔符。 Split(str[, delimiter]) 返回的是一個字符串數組 ，默認分隔符為" " Dim timeStr As String， timeArr() As String, h As String, m As String, s as String timeStr = "12:23:34" '獲取時，分，秒 '1、用字符串分隔的方法 timeArr = Split(timeStr, ":") h = Val(timeArr(0)) m = Val(timeArr(1)) s = Val(timeArr(2)) '2、用mid來截取字符串 h = Val(Mid(timeStr(i), 1, 2)) '獲取小時 m = Val(Mid(timeStr(i), 4, 2)) '獲取分鐘 s = Val(Mid(timeStr(i), 7, 2)) '獲取秒

6、數組
VB中的數組可以自已聲明下標的起始位置，當數組沒有聲明成定長的，可以通過redim來調整數組長度，使用preserve保留現有的數據，因為數組的長度可能不從0開始，所以數組只能通過以下方式獲取

length = UBound(arr) - LBound(arr) + 1

7、Collection
Collection可以為每一個元素設置一個key，通過key對數組進行訪問，這相當于c++中的map
項目中利用Collection建立學生與其導師的對應關系，每一位學生的導師唯一，但每一位導師可能需要指導多位學生，就是一對多的關系，Collection中存儲的是Array
代碼如下：

'根據學生與老師的關系生成mapFor i = 2 To relaRowsIf relation(i, 1) <> "" And relation(i, 5) <> "" ThenDim tea As String, stu As Stringtea = relation(i, 5)stu = relation(i, 1)stuCol.Add tea, stuIf exists(teaCol, tea) = False ThenDim arr() As StringReDim arr(0)arr(0) = stuteaCol.Add arr, teaElse'若已在teaCol中存在，則先刪除Item，再添加arr = teaCol.Item(tea)ReDim Preserve arr(UBound(arr) + 1)arr(UBound(arr)) = stuteaCol.Remove (tea)teaCol.Add arr, teaEnd IfElsemyNum = myNum + 1End IfNext

如果直接訪問集合中不存在的元素，VB會直接報錯，所以在使用元素之前，需判斷集合中的元素是否存在。

'判斷元素是否在集合 'Collection中的元素為數組 Function exists(pCol As Collection, pKey As String) As Boolean On Error Resume Nextexists = (UBound(pCol(pKey)) >= 0) End Function 'Collection中的元素為字符串 Function exists1(pCol As Collection, pKey As String) As Boolean On Error Resume Nextexists1 = Len(pCol(pKey) >= 0) End Function

下次再補充吧

總結

以上是生活随笔為你收集整理的VB基础的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。