32vb三種程序結(jié)構(gòu)visualbasic語(yǔ)言作為結(jié)構(gòu)化程序設(shè)計(jì)語(yǔ)-在線瀏覽
2024-11-04 15:09本頁(yè)面
【正文】 hr(10)) 或是回車(chē)與換行符的組合 (Chr(13) amp。 ?答復(fù)按鈕 +圖標(biāo)：確定在消息框中按鈕 的數(shù)目和類(lèi)型，以及圖標(biāo)的類(lèi)型。 分組 內(nèi)部常數(shù) 按鈕值 描 述 按鈕 數(shù)目 VbOkOnly VbOkCancel VbAboutRetryIgnore VbYesNoCancel VbYesNo VbRetryCancel 0 1 2 3 4 5 只顯示確定按鈕 顯示 確定 、 取消 按鈕 顯示 終止 、 重試 、 忽略 按鈕 顯示 是 、 否 、 取消 按鈕 顯示 是 、 否 顯示 重試 、 取消 按鈕 圖標(biāo) 類(lèi)型 VbCritical VbQuestion VbExclamation VbInformation 16 32 48 64 關(guān)鍵信息圖標(biāo)，紅色 STOP標(biāo)志 詢問(wèn)信息圖標(biāo) ？ 警告信息圖標(biāo) ！ 信息圖標(biāo) I 默認(rèn) 按鈕 VbDefaultButton1 VbDefaultButton2 VbDefaultButton3 0 256 512 第 1個(gè)按鈕為默認(rèn) 第 2個(gè)按鈕為默認(rèn) 第 3個(gè)按鈕為默認(rèn) 模式 VbApplicationModale VbSystemModal 0 4096 應(yīng)用模式 系統(tǒng)模式 按鈕 設(shè)置值及意義 內(nèi)部常數(shù) 返回值 被單擊的按鈕 vbOk vbCancel vbAbout vbRetry vbIgnore vbYes vbNo 1 2 3 4 5 6 7 確定 取消 終止 重試 忽略 是 否 ?MsgBox函數(shù)返回所選按鈕整數(shù)值的意義 InputBox函數(shù)：從用戶處獲取信息（輸入） 功能：打開(kāi)一個(gè)對(duì)話框 ， 等待用戶鍵入內(nèi)容 。 （ 1）句法 變量名 =InputBox(提示 [,標(biāo)題 ][,默認(rèn)值 ][橫坐標(biāo)，縱坐標(biāo) ]) （ 2）參數(shù)說(shuō)明 ?提示：提示信息，類(lèi)型是字符串。 ?默認(rèn)值：在用戶輸入信息之前，輸入框中顯 示的內(nèi)容，類(lèi)型是字符串。 對(duì)象可以是窗體 （ Form ） 、 圖形框 (PictureBox) 或打印機(jī)（ Printer） 。 說(shuō)明： ① 表達(dá)式：可選項(xiàng) 。 當(dāng)有多個(gè)表達(dá)式時(shí) ， 要用分隔符 （ 逗號(hào) 、 分號(hào) ） 隔開(kāi) 。 ② 輸出格式分為標(biāo)準(zhǔn)輸出格式和緊湊輸出格式 。 （ 數(shù)據(jù)項(xiàng)之間用逗號(hào)隔開(kāi) ） 緊湊輸出格式：對(duì)于數(shù)值型數(shù)據(jù) ， 前面有一個(gè)符號(hào)位 ， 后面有一個(gè)空格；對(duì)于每個(gè)字符串 ， 各個(gè)數(shù)據(jù)項(xiàng)之間沒(méi)有間隔 。 Tab（ n）函數(shù)：表示在第 n 列顯示。VB用于產(chǎn)生隨機(jī)數(shù)的公式取決于稱為種子（ seed）的初始值。為了每次運(yùn)行時(shí)，產(chǎn)生不同序列的隨機(jī)數(shù)，可執(zhí)行 Randomize語(yǔ)句，格式如下： Randomize [number] 如果省略 number，則用系統(tǒng)計(jì)時(shí)器返回的值作為新的種子 Rnd(x): x=0:得到的相同的隨機(jī)數(shù)結(jié)果。 省略 :序列中的下一個(gè)隨機(jī)數(shù)。 例子： Len(Visual) 函數(shù)返回值為 6 Mid( ) 函數(shù) 格式： Mid(String,n,m) 功能：從 String字符串中從第 n 個(gè)字符開(kāi)始連續(xù)取 m個(gè)字符。 n是可選參數(shù)。如果省略，將從第一個(gè)字符的位置開(kāi)始。 例子： LEFT(, 5) 函數(shù)返回值是 Visua“ RIGHT(, 5) 函數(shù)返回值是“ “ 4． Str( ) 格式： Str(Number) 功能：將數(shù)值型量轉(zhuǎn)換成字符型量 。 示例： Print Str(12345) 值為字符 “ 12345。 如Str(123)的結(jié)果為 “ 123， 而不是 123。 說(shuō)明：該函數(shù)是無(wú)參函數(shù) ， 返回日期的格式為 月 日 年 示例：如果今天是 2020年 3月 10日 ， 則 a=Date的值為 “ 03102020” Print Date 2． Now 格式： Now 功能：提取計(jì)算機(jī)系統(tǒng)的當(dāng)前的時(shí)間和日期 。 Print Now 3． Time 格式： Time 功能：提取計(jì)算機(jī)系統(tǒng)的當(dāng)前的時(shí)間 。 示例： a=Time a的值為 10:08:34。 例： Print Time Print Hour(1:34:24 PM) Print Minute(Time) 四、 其他函數(shù) 1． Asc（ ） 格式： Asc(String) 功能：將字符串轉(zhuǎn)換成 ASCII值 。 2． Chr（ ） 格式： Chr(x) 功能：將 ASCII碼值轉(zhuǎn)換成字符串 。 ※ Chr和 Asc函數(shù)是一對(duì)互為反函數(shù) 格式： Lcase(字符表達(dá)式 ) 功能：將指定表達(dá)式值中的大寫(xiě)字母轉(zhuǎn)換成小寫(xiě) 字母 ， 其他字符不變 。BOOK39。 例： ? Ucase(“work”) WORK 5． Val（ ） 格式： Val(String) 功能：將字符串量轉(zhuǎn)換成數(shù)值量 。如 Val(“ –”)結(jié)果為 。 Visual Basic 選擇結(jié)構(gòu)的實(shí)現(xiàn)： ? If… Then 語(yǔ)句 （ 單分支結(jié)構(gòu) ） ? If...Then…Else 語(yǔ)句（雙分支結(jié)構(gòu)） ? Select Case 語(yǔ)句 （ 多分支結(jié)構(gòu) ） 2 分支結(jié)構(gòu) 1. If…Then 語(yǔ)句（單分支結(jié)構(gòu)） 格式 1： If 〈 表達(dá)式 〉 Then 語(yǔ)句 格式 2： If 〈 表達(dá)式 〉 Then 語(yǔ)句塊 End If T F 語(yǔ)句（塊） 表達(dá)式 單分支結(jié)構(gòu) 功能： 當(dāng)條件表達(dá)式的值為“真”時(shí)，則執(zhí)行 Then后面的語(yǔ)句或語(yǔ)句塊；否則不執(zhí)行任何操作。 如果使用格式 1的簡(jiǎn)單形式表示 ， 則只能是一條語(yǔ)句；或用冒號(hào)隔開(kāi)的多條語(yǔ)句 ， 但這些語(yǔ)句必須書(shū)寫(xiě)在一行上 。 Dim x As Integer Private Sub Command1_Click() x = 90 If x 0 Then MsgBox 正數(shù) : Print x=90 End Sub Private Sub Command2_Click() x = 90 If x 0 Then MsgBox 正數(shù) Print x=90 End If End Sub 【 例 33】 任意輸入 3個(gè)數(shù)，找出其中的最大值。 max End Sub
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號(hào)-1