【正文】 在過程級別中使用，為動態(tài)數(shù)組變量重新分配存儲空間。 (3)數(shù)組變量的維數(shù)：必需的。聲明數(shù)組類型。 167。 j Next j Next i 167。例如： Dim x() As String ReDim x(3) For i = 0 To 3 x(i) = i amp。 4 167。 167。此時選擇“是” , 確認(rèn)操作 ,如圖 。 步驟 3：在“編輯”菜單中，選擇“粘貼”命令，或按“ Ctr l+V” 組合鍵。 167。 步驟 3：用現(xiàn)有的控件元素，復(fù)制控件數(shù)組中的其他控件， 將不會出現(xiàn)對話框詢問是否確認(rèn)創(chuàng)建控件數(shù)組。 [Let] 變量 =表達(dá)式 賦值語句具有計算和賦值的雙重功能，它首先計算“ =” 號右邊的表達(dá)式，然后把結(jié)果賦給“ =” 號左側(cè)的變量。 2. Print方法 Print方法用于在窗體、立即窗口、圖片框、打印機等對象 中顯示文本字符串和表達(dá)式的值。 例如： Basic! 39。當(dāng)各表達(dá)式用分號作為分隔符時，輸出格式為緊湊格式， 此時將在每個數(shù)值后面增加一個空格，如果數(shù)值為正數(shù)，將把正 號顯示為空格。通常最左邊的列 號為 1。要輸出的內(nèi)容放在 Tab函數(shù)后面，并用分號隔 開。年齡 167。例如： Print ABC。 167。 together!, 7 * 10 Print Let39。設(shè)置字體大小 Print Now 39。 Print FontSize = 10 FontBold = True 39。 VisualBasic支持的 3種選擇結(jié)構(gòu)分別是 :If?The n? 結(jié)構(gòu)、 If?Then?Else? 結(jié)構(gòu)、 Select Case結(jié)構(gòu)。 語法為： If 條件 Then 若干語句 end If 例如： If intage23 Then Print “ 您已經(jīng)超齡，無法入選國奧隊！” Print “ 感謝您對中國足球的關(guān)懷！” end If 167。如果它為 False， VisualBasic就測試條件 2，依次類 推，直到找到一個為 True的條件。 IIf函數(shù)的語法結(jié)構(gòu)為： IIf(條件表達(dá)式 ,真部分 ,假部分 ) 當(dāng)條件表達(dá)式的值為真時，函數(shù)返回值為真部分，否則返回假部分。 Case結(jié)構(gòu) Select Case結(jié)構(gòu)可以很好的完成多重判定任務(wù)，這種結(jié)構(gòu)不但清楚易懂，而且執(zhí)行也比較快速。 例如： Case 1或者 Case char等。 167。 1. For循環(huán) For循環(huán)屬于計數(shù)型循環(huán)，程序按照此種結(jié)構(gòu)中指明的循環(huán)次數(shù)來執(zhí)行循環(huán)體部分。 (3)終值：用于設(shè)置循環(huán)變量的最后取值，為數(shù)值型變量。 （ 6） Exit For：在某些情況下，需要中途退出 For循環(huán)時使用。 167。格式為： For Each 集合中元素 in 集合 [循環(huán)體 ] Next [元素 ] 該語句對集合中的每個元素進(jìn)行一次循環(huán)，直到集合中無更多的元素時，執(zhí)行 Next后面的語句。 格式為： While 條件 [循環(huán)體 ] Wend 此種循環(huán)的執(zhí)行過程為：首先判斷條件是否成立，若條件成立，則執(zhí)行循環(huán)體內(nèi)的語句，執(zhí)行完后再繼續(xù)判斷條件，重復(fù)上述過程；否則，若條件不成立，則結(jié)束循環(huán)，執(zhí)行循環(huán)后的語句。 (2)格式字符串 是一個字符串常量或變量，由專門格式說 明字符組成。 167。 格式二： Do [While或 Until 條件 ] [語句體 ] [滿足某條件時 Exit Do] Loop 這兩種格式既有共同點又有明顯的差異。 （ 5）均有兩種判斷條件的格式。而第二種格式的執(zhí)行過程為：先對條件進(jìn)行判斷，仍然 要根據(jù)不同的判斷條件格式執(zhí)行不同的判斷過程。 在 VisualBasic中，有以下幾種中途跳出語句： （ 1） Exit For：用于中途跳出 For循環(huán)，可以直接使用，也可以用 條件判斷語句加以限制，在滿足某個條件時才能執(zhí)行此語句，跳出 For循 環(huán)。 （ 4） Exit Function：用于中途跳出 Function過程，可以直接使用， 也可以用條件判斷語句限制使用。 常用內(nèi)部函數(shù) 167。 （ 2） 格式字符串 是一個字符串常量或變量，由專門的格式說明字符組成。 167。 Format(,”.”) 返回： 0 數(shù) 字占位符。表 達(dá) 式乘以 100。 常用內(nèi)部函數(shù) 表 常用的字符型格式 說 明字符 字符 說 明 例子 字符占位符。 字符占位符。除非有 驚嘆號 在格式字符串中，否則 ，字符占位各 個 地 區(qū) 之 間將 由右而左被 填 充。amp。 將 所有字符以小 寫 格式 顯 示 Format(“Abab”,””) 返回： ” abab” 強制大 寫 。 常用內(nèi)部函數(shù) InputBox 將用戶從輸入的數(shù)據(jù)作為函數(shù)的返回值返回到程序中。 （ 3） Default：為字符串型變量，用于顯示在輸入?yún)^(qū)內(nèi)默認(rèn)的輸入信 息。 （ 7） Context：為一個數(shù)值型變量或表達(dá)式，用于表示幫助主題的幫 助號。 常用內(nèi)部函數(shù) 輸出函數(shù) MsgBox MsgBox函數(shù)可以用對話框的形式向用戶輸出一些必要信 息，還可以讓用戶在對話框內(nèi)進(jìn)行相應(yīng)的選擇，然后將該選 擇結(jié)果傳輸給程序。 167。具體對應(yīng)情況如表 。 常用內(nèi)部函數(shù) 表 測試 函 數(shù) 函 數(shù) 名 說 明 IsArray( ) 測試變 量是否 為數(shù)組 IsDate( ) 測試 是否 為 日期 IsEmpty( ) 測試 是否已被初始化 IsError( ) 測試 是否 發(fā) 生 錯誤 IsNull( ) 測試 是否 為 空 IsNumeric( ) 測試 是否 為數(shù)值 型 數(shù) 據(jù) IsObject( ) 測試 是否 為對 象 167。 用過程編程有兩大好處： （ 1）過程可使程序劃分成離散的邏輯單元，每個單元都比無過程的整個程序容易調(diào)試。子過 程又包括事件過程和通用過程。 VisualBasic中的過程 1．事件過程 當(dāng)用戶對 VisualBasic的一個對象發(fā)出一個動作時， Windo ws會通知 VisualBasic產(chǎn)生一個事件， Visual Basic會自動地 調(diào)用與該事件相關(guān)的事件過程。 167。 2．通用過程 通用過程告訴應(yīng)用程序如何完成一項指定的任務(wù)。 （ 3） Property 過程：又稱為屬性過程，這種過程可以返 回并指定值，以及設(shè)置對象引用。 167。它們可以變成增強和擴展 Vis ual Basic 的構(gòu)件。 常用內(nèi)部函數(shù) 在測試、模擬和游戲程序中，經(jīng)常要使用隨機數(shù)，隨機數(shù)語句和函數(shù)如表 。在前面介紹 buttons參數(shù)時，曾經(jīng)提到了可能出現(xiàn)的 7種按鈕：確認(rèn)、取消、終止、重試、忽略、是和否。 （ 1） Prompt參數(shù)：用于顯示對話框的提示信息，通知用戶應(yīng)該做什 么選擇，或者直接確認(rèn)信息。 常用內(nèi)部函數(shù) 例如：以下事件過程執(zhí)行出現(xiàn)如圖 輸入框。 （ 5） ypos：也是一個整型數(shù)值變量，用于表示對話框與屏幕上邊界 的距離值，即該對話框上邊界的縱坐標(biāo)，單位也是緹（ twip）。 167。 Format(“Abab”,””) 返回： ” ABAB” ! 強制由左而右 填 充字符占位符。amp。amp。如果字符串在格式字符串有字符 amp。如果字符串在格式字符串中 的位置有字符存在，那 么 就 顯 示出 來 ；否則 ，就在那 個 位置上 顯 示空白。 常用內(nèi)部函數(shù) 表 常用的 時間 日期型格式 說 明字符 字符 說 明 例子 dddddd 以完整日期表示法 顯 示日期毓 數(shù) (包括年、月、日 ) Format(Date,”dddddd”) 返回： 2022年 7月 5日 mmm 以全 稱來 表示月 (JanuaryDecember) Format(Date,”mmmm”) 返回： May yyyy 以四位 數(shù)來 表示年 Format(Date,”yyyy”) 返回： 2022 Hh 以有前 導(dǎo) 零的 數(shù) 字 來顯 示小 時 (00~23) Nn 以有前 導(dǎo) 零的 數(shù) 字 來顯 示分 (00~59) Ss 以有前 導(dǎo) 零的 數(shù) 字 來顯 示秒 (00~59) Format(Time,”Hh:Nn:Ss”) 返回： 20:56:01 tttt 以完整 時間 表示法 顯 示 (包括 時 、分、秒 )，用系 統(tǒng)識別 的 時間 格式定 義 的 時間 分隔符 進(jìn) 行格式化。如果表 達(dá) 式在格式字符串中 0的位置上有一位 數(shù) 字存在，那 么 就顯 示出 來 ；否 則 ，就以零 顯 示。 顯 示一位 數(shù) 字或什 么 都不 顯 示。 （ 3）當(dāng) 格式字符串 是字符串常量的時候，必須放在雙引號中。 常用內(nèi)部函數(shù) 用格式輸出函數(shù) Format()可以使數(shù)值、日期或字符型數(shù)據(jù)按 指定的格式輸出。 常用內(nèi)部函數(shù) 在 VisualBasic中，有兩類函數(shù)：內(nèi)部函數(shù)和用戶定義函數(shù)。 （ 2） Exit Do：用于中途跳出 Do循環(huán)，同上類似，既可以直接使用， 也可以用條件判斷語句限制使用。 例如：前面求從 1到 N（正整數(shù)）的所有正整數(shù)之和的函 數(shù)可以使用 Do循環(huán)的兩種格式改寫為： Private Function Sum1ToN(N As Integer) As Integer Dim s,i As Integer If N=1 Then Sum1ToN =1 Else i =1 Do s = s+i : i=i+1 Loop (i=n) Sum1ToN = s End If End Function 167。 不同點為： （ 1）第一種格式中的判斷條件“ While或 Until 條件”的 位置在整個循環(huán)體的最后；而第二種格式中的判斷條件“ Whi le或 Until 條件”的位置在整個循環(huán)體的起始位置。 （ 3）均可以沒有循環(huán)條件。 格式一： Do [語句體 ] [39。 (3)當(dāng) 格式字符串 是字符串常量的時候，放在雙引號中。 用格式輸出函數(shù) Format()可以使數(shù)值、日期或字符型數(shù)據(jù)按指定的格式輸出。 Private Sub Form_Click() Dim Control As Object For Each Control In Print Next Control End Sub 167。 Private Function Sum1ToN(N As Integer) As Integer Dim s,i As Integer For i=1 To N s=s+i Next i Sum1ToN=s End Function 167。 For語句時的執(zhí)行過程是：先令循環(huán)變量取為初始值，然 后檢驗循環(huán)變量的取值是否超出終值：若步長為正值，則檢 驗循環(huán)變量是否大于終值；若步長為負(fù)值，則檢驗循環(huán)變量 的取值是否小于終值。 167。 格式為： For 循環(huán)變量 = 初始值 To 終值 [Step 步長 ] [循環(huán)體 ] [Exit For] [循環(huán)體 ] Next 循環(huán)變量 格式說明： (1)循環(huán)變量 :用于統(tǒng)計循環(huán)次數(shù)的變量，變量為數(shù)值型變量。對于此類情況可以利用各種循環(huán)結(jié)構(gòu)來實現(xiàn)。 (3)表達(dá)式結(jié)果 1 To 表達(dá)式結(jié)果 2：此種格式在表達(dá)式結(jié)果表列中 提供了一個數(shù)值或字符串的取值范圍