第3章visualbasic的程序控制結(jié)構(gòu)(存儲(chǔ)版)
【正文】 判斷所輸入年份是否是閏年。 [例 416] 輸入兩個(gè)自然數(shù)，用輾轉(zhuǎn)相除法求最大公約數(shù)。 多重循環(huán) ： 循環(huán)體內(nèi)含有循環(huán)語句的循環(huán)。 循環(huán)結(jié)構(gòu) 循環(huán)結(jié)構(gòu) 【 例 321】 猴子吃桃子。現(xiàn)在有 100元錢要求買 100只雞，編程列出所有可能的購雞方案。如正整數(shù) 385，程序輸出為 583。 [例 311] 計(jì)算 n!，即計(jì)算 1*2*…*n 的值。 選擇結(jié)構(gòu) 多分支條件語句 4. 條件函數(shù) (2)Choose函數(shù) Choose函數(shù)的語法格式為： 變量 = Choose (整數(shù)表達(dá)式，選項(xiàng)列表 ) 功能 ：根據(jù)整數(shù)表達(dá)式的值，返回選項(xiàng)列表中的相應(yīng)值。 ③在一個(gè) Select Case語句中，三種形式在數(shù)據(jù)類型匹配的情況下可以混用，如： ? Case 5,6, 8 to 10,12,Is50 [例 37] 將例 36的程序用 Select Case語句編寫。 If = 123 Then MsgBox 歡迎進(jìn)入系統(tǒng) , 64 + 1, 登錄 End If 選擇結(jié)構(gòu) 雙分支 If語句 語法格式 If 條件表達(dá)式 Then 語句塊 1 Else 語句塊 2 End If .F. .T. 條件 ? 語句塊 1 語句塊 2 IF End IF 選擇結(jié)構(gòu) 雙分支 If語句 [例 ] 計(jì)算分段函數(shù)： ????????????03c o s x01s i n32xxxxxxyIf x 0 Then y = Sin(x) + Sqr(x ^ 2 + 1) Else y = Cos(x) x ^ 3 + 3 * x End If 選擇結(jié)構(gòu) 多分支條件語句 1. 多分支 If語句 語法格式 If 條件表達(dá)式 1 Then 語句塊 1 ElseIf 條件表達(dá)式 2 Then 語句塊 2 … [Else 語句塊 n+1] End If 特別注意 ：如果有多個(gè)條件表達(dá)式的值都為 True，程序只執(zhí)行最先遇到的條件表達(dá)式后面的語句塊。amp。 Format(Mytime, tttttAM/PM) Print Tab(6)。 Tab(n)從對(duì)象的左端開始計(jì)數(shù)， Spc(n)兩輸入項(xiàng)之間間隔。 S。 分號(hào)或空格： 按緊湊格式輸出數(shù)據(jù)。 注意 2： 需要返回值時(shí)必須用函數(shù)形式。 變量 =InputBox (提示信息 [,標(biāo)題 ][,默認(rèn) ]) (1)提示信息和標(biāo)題 同 MsgBox (2)默認(rèn)內(nèi)容： 指定輸入框中的默認(rèn)內(nèi)容。 語句 1 語句 2 語句 n 順序結(jié)構(gòu) 賦值語句 ： 先計(jì)算出賦值號(hào)右邊表達(dá)式的值，再將值賦給左邊的變量。 邏輯值賦給數(shù)值變量時(shí)， True→ 1， False→ 0；數(shù)值賦值給邏輯變量時(shí)，非 0→ True， 0→ False 賦值語句 變量名＝表達(dá)式 說明： (2) 賦值語句的賦值號(hào)和等號(hào)作用不同。 (5)返回值為字符類型，可用 Val()轉(zhuǎn)換為數(shù)值型。 (2) 一個(gè)或多個(gè)表達(dá)式 。 (5) Print方法具有 計(jì)算和輸出 雙重功能。用 。 “ 格式字符串 ” 指定輸出格式。 Format(Mytime, ttttt) End Sub 數(shù)據(jù)輸入和輸出 5 格式輸出函數(shù) 3) 字符串格式化 符號(hào) 作用 例子 結(jié)果 強(qiáng)制小寫 Format(Hello,) hello 強(qiáng)制大寫 Format(happy,) HAPPY 不夠加空格 Format(ABCDE,) ABCDE amp。 c=a a=b b=c [例 35] 編寫程序交換兩個(gè)變量中數(shù)據(jù)。 If bGrade = 90 Then Dgrade = A ElseIf bGrade = 80 Then Dgrade = B ElseIf bGrade = 70 Then Dgrade = C ElseIf bGrade = 60 Then
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號(hào)-1