32vb三種程序結(jié)構(gòu)visualbasic語言作為結(jié)構(gòu)化程序設(shè)計(jì)語(存儲(chǔ)版)
【正文】 putBox(請(qǐng)輸入第一個(gè)正整數(shù) M,求 M、 N最大公約數(shù)和最小公倍數(shù) ) N = InputBox(請(qǐng)輸入第二個(gè)正整數(shù) N,求 M、 N最大公約數(shù)和最小公倍數(shù) ) A = M: B = N If M N Then 39。 Exit Do 表示當(dāng)遇到該語句時(shí) ， 強(qiáng)制退出循環(huán) ， 執(zhí)行 Loop后的下一條語句 。 ☆ 當(dāng)循環(huán)是單層循環(huán)時(shí) ， Next后面的循環(huán)變量可以不寫 。) ? Select Case score ? Case Is 60 ? Print 不及格 ? Case Is 70 ? Print 及格 ? Case Is 80 ? Print 中等 ? Case Is 90 ? Print 良好 ? Case Is = 100 ? Print 優(yōu)秀 ? Case Else ? Print 輸入錯(cuò)誤 ? End Select ? End Sub 循環(huán)是在指定的條件下多次重復(fù)執(zhí)行一組語句，這可通過循環(huán)結(jié)構(gòu)來實(shí)現(xiàn)。 x Else Print 此方程無實(shí)根 End If End If End Sub Private Sub Form_Click() Dim score As Single score = InputBox(請(qǐng)輸入學(xué)生的成績 score:) If score 60 Then Print 不及格 ElseIf score = 70 Then Print 及格 ElseIf score = 80 Then Print 中等 ElseIf score = 90 Then Print 良好 ElseIf score = 100 Then Print 優(yōu)秀 Else Print 輸入錯(cuò)誤 End If End Sub 5． Select Case語句（多分支結(jié)構(gòu)） ┆ ┆ F T F F 表達(dá)式表n 語句塊 n+1 ┆ 語句塊 n T 表達(dá)式表 2 語句塊 2 T 表達(dá)式表1 語句塊 1 圖 Select Case 結(jié)構(gòu) 格式： Select Case 測(cè)試變量或表達(dá)式 [Case 表達(dá)式表 1 [語句塊 1]] [Case 表達(dá)式表 2 [語句塊 2]] …… [Case 表達(dá)式表 n [語句塊 n]] [Case Else [語句塊 n+1]] End Select 功能： 根據(jù) Select Case 變量或表達(dá)式 中的結(jié)果與各 Case子句中的值比較，決定執(zhí)行哪一組語句塊。 例： 【 例 36】 輸入一個(gè)學(xué)生的成績 score， 根據(jù)其所在分?jǐn)?shù)段給出他的考試等級(jí) 。 F T 語句 (塊 )1 語句 (塊 )2 表達(dá)式 雙分支結(jié)構(gòu) 說明： 塊結(jié)構(gòu)的條件語句可以嵌套 ， 即把一個(gè) If … Then … Else 塊放在另一個(gè) If … Then … Else 塊內(nèi) 。 ( ) 功能：將數(shù)值轉(zhuǎn)換成字符串 。 示例： Print Chr(66) 值為字符 B。 示例： a=Now a的值為 0036 10:08:34,表示當(dāng)前系統(tǒng)日期為 2020年 3月 6日 ， 系統(tǒng)時(shí)間為 10點(diǎn) 8分 34秒 。 例子： Print InStr(2, efabcdefg, ef) 函數(shù)返回值為 7 刪除前后空格函數(shù) 格式： TRIM(字符表達(dá)式 ):去掉前后空格 LTRIM(字符表達(dá)式 )：去掉前空格 RTRIM(字符表達(dá)式 )：去掉后空格 例： trim(“ ab “)=“ab” ltrim(“ ab “)=“ab ” Rtrim(“ ab “)=“ ab” 取子串函數(shù) 格式： LEFT(字符表達(dá)式 ,長度 ) 功能：從表達(dá)式值的左端取一個(gè)指定長度的子串 格式： RIGHT(字符表達(dá)式 ,長度 ) 功能：從表達(dá)式的右端取一個(gè)指定長度的子串 。 大于 0:序列中的下一個(gè)。 標(biāo)準(zhǔn)輸出格式：以 14個(gè)字符寬度劃分為一個(gè)區(qū)段 ， 每個(gè)數(shù)據(jù)項(xiàng)占一個(gè)區(qū)段的位置 。 例： ? bb = MsgBox(錯(cuò)誤，重輸嗎？ , vbYesNo + vbDefaultButton2 + vbCritical, 確認(rèn)重輸對(duì)話框 ) ? If bb = vbNo Then End print語句 格式 1：對(duì)象 . Print [表達(dá)式 ] [{， |； }] 功能：顯示數(shù)據(jù) 。 Chr(10)) 將各行分隔開來。 例如： Dim A as integer A = ˊA是整型變量 ， A中的結(jié)果是 5。 舉例： = 300 Temp = 20 說明： 當(dāng)表達(dá)式為數(shù)值型且與變量的精度不相同時(shí) ， 強(qiáng)制轉(zhuǎn)換成左邊變量的精度 。如果 內(nèi)容超過一行，則可以在每一行之間用回車符 Chr(13))、換行符 (Chr(10)) 或是回車與換行符的組合 (Chr(13) amp。 ?默認(rèn)值：在用戶輸入信息之前，輸入框中顯 示的內(nèi)容，類型是字符串。 ② 輸出格式分為標(biāo)準(zhǔn)輸出格式和緊湊輸出格式 。為了每次運(yùn)行時(shí)，產(chǎn)生不同序列的隨機(jī)數(shù)，可執(zhí)行 Randomize語句，格式如下： Randomize [number] 如果省略 number，則用系統(tǒng)計(jì)時(shí)器返回的值作為新的種子 Rnd(x): x=0:得到的相同的隨機(jī)數(shù)結(jié)果。如果省略，將從第一個(gè)字符的位置開始。 說明：該函數(shù)是無參函數(shù) ， 返回日期的格式為 月 日 年 示例：如果今天是 2020年 3月 10日 ， 則 a=Date的值為 “ 03102020” Print Date 2． Now 格式： Now 功能：提取計(jì)算機(jī)系統(tǒng)的當(dāng)前的時(shí)間和日期 。 2． Chr（ ） 格式： Chr(x) 功能：將 ASCII碼值轉(zhuǎn)換成字符串 。如 Val(“ –”)結(jié)果為 。 max End Sub 2. If…Then …Else 語句結(jié)構(gòu) （雙分支結(jié)構(gòu)） 格式 1： If 表達(dá)式 Then 語句塊 1 Else 語句塊 2 End If 格式 2： If 表達(dá)式 Then 語句 1 Else 語句 2 功能： 當(dāng)表
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號(hào)-1