【正文】 , “d”)。功能：A為數(shù)組，s和d是一個字符型數(shù)據(jù)。Join以d為分隔符將數(shù)組A各元素的值連接成字符串，并作為返回值。Split的功能與Join相反，它將字符串s以d為分隔符，分隔成數(shù)組元素。缺省d時，以空格為分隔符。、日期和時間按指定格式轉換成字符串，其格式如下：Format(表達式, “格式字符串”)。格式名General Number、G或g保持原有數(shù)值的小數(shù)位數(shù)，格式名Fixed、F或f則四舍五入保留兩位小數(shù)。，格式名Percent表示將數(shù)字乘以100后、保留兩位小數(shù)、并加百分號(%)。示例：Format(,“Percent”)的運算結果為“%”。，使用標準的科學表示法表示數(shù)字。格式名Scientific提供兩個有效位，格式名E或者e提供六個有效位。示例：Format(,“Scientific”)的運算結果為“+03” ；Format(, “e”)的運算結果為“+003”。，0 和 。符號“0”和“”用于決定顯示數(shù)值整數(shù)部分和小數(shù)部分的位數(shù)。其相同之處是：若數(shù)值整數(shù)部分的位數(shù)多于格式字符串的位數(shù)，按實際數(shù)值返回；若小數(shù)部分的位數(shù)多于格式字符串的位數(shù)，按四舍五入計算。不同之處是：當數(shù)值的位數(shù)少于格式字符串的位數(shù)時，“0”格式將不足部分補0，而“”則不顯示。49..和 ，符號“.”表示加小數(shù)點，“,”表示加千分位。示例：Format(, “0,”)的運算結果為“1,”。Format(1234, “0,”)的運算結果為“1,”。，根據(jù)區(qū)域設置顯示日期。格式名Date、Medium Date或D表示長日期格式，格式名Short Date或者d表示短長日期格式。示例：假設今天是2015年9月25日，F(xiàn)ormat(Now, “Long Date”)的運算結果為“2015年9月25日”； Format(Now, “Short Date”)的運算結果為“2015/9/25”。 = Format(, “l(fā)ong date”)：累加sum += s等價于sum = sum + s 連乘 n *= i等價于n = n * i顯示多行信息，復合賦值語句使用得最多的是“amp。=”運算符。要顯示多行信息，一般是利用文本框、標簽，通過“amp。=”來實現(xiàn)顯示。（“提示信息”，“標題”，“默認內(nèi)容”），“提示信息”、“標題”、“默認內(nèi)容”都可以不填空著，但至少要有一個空著的省略號。如果需要將輸入的數(shù)值參加算術運算，必須在進行運算前用Val函數(shù)把它轉換為數(shù)值類型。但可以用split函數(shù)調(diào)用。每執(zhí)行一次InputBox函數(shù)只能輸入一個值，如果需要輸入多個值，則必須多次調(diào)用InputBox函數(shù)。這時，通常與循環(huán)語句、數(shù)組結合使用。對話框顯示的信息，若要分多行顯示，必須加回車換行符，即Chr(13)+Chr(10)或VB系統(tǒng)常量vbCrLf。，可以用簡寫符號表示變量類型，$ 是 String，% 是 Integer，amp。 是 Long，!是 Single，@ 是 Currency， 是 Double。例如Dim H%, F%, x%, y% (“提示信息”, vbOKOnly, “標題”)“提示信息”, vbOKOnly, “標題”可以都是空的，但至少要有一個空的省略號。MsgBox(“確認數(shù)據(jù)是否正確？”, + , “ 數(shù)據(jù)驗證”)條件表達式1 F T 條件表達式2 F … 條件表達式n T 語句塊1 語句塊2 F T 語句塊n 語句塊n+1 的用法，則沒有is。 until loop(直到結束)；do while loop(當執(zhí)行)，執(zhí)行一次next語句，循環(huán)變量增加一個步長，格式為：UBound(數(shù)組名 [, 維])。使用UBound函數(shù)可以計算出數(shù)組的任一維可用的最大下標，從而確定數(shù)組的任一維的上界。其中：參數(shù)維指定返回數(shù)組的哪一維。1（默認）代表第一維，2代表第二維，以此類推。：Public Class Form1Dim A()As Integer = {2, 1, 3, 4}Dim m, n, i, j, imin As IntegerPrivate Sub Button1_Click(sender As , e As )Handles m = UBound(A)For i = 0 To m1For j = m To i + 1 Step1If A(j) A(j1)A(j1)+ f(n2)End IfEnd FunctionPrivate Sub Button1_Click(sender As , e As )Handles Dim y As Singley = 0For n = 1 To Val()y = y + 1 / f(n)Next = yEnd Sub End Class 函數(shù)的表示法2 Public Class Form1Dim a As StringDim n, m As IntegerFunction f(ByRef n As Integer)As Stringa = m = Len(CStr(a))For n = m To 1 Step1f amp。= Mid(a, n, 1)NextEnd FunctionPrivate Sub Button1_Click(sender As , e As )Handles = f(n)End Sub End Class ：Public Class Form1Private Sub 退出ToolStripMenuItem_Click(sender As , e As )Handles EndEnd SubPrivate Sub 保存ToolStripMenuItem_Click(sender As , e As )Handles = “簡單文本格式|*.txt|復雜文本格式|*.rtf” = 2()MsgBox()If “ ThenIf = 1 Then(,)39。.txt,.TXTElse(, )39。.doc,.DOCEnd IfEnd IfEnd SubPrivate Sub 打開ToolStripMenuItem_Click(sender As , e As )Handles = ”“ = ”簡單文本|*.txt|復雜文本|*.rtf“ = 1 = ”朕的打開......“()MsgBox()If ”“ Then = If = 1 Then(, )Else(, )End IfEnd IfEnd SubPrivate Sub 新建ToolStripMenuItem_Click(sen