流程圖與選擇結(jié)構(gòu)-資料下載頁
2025-03-14 00:24本頁面
【正文】 l1 （預(yù)設(shè)） 購書數(shù)量 : － 12 Label2 （預(yù)設(shè)） 定 價(jià) : － 12 Label3 （預(yù)設(shè)） 總價(jià)款 : － 12 Label4 lblResult （空白） － 12 Text1 txtQty － (空白 ) 12 Text2 txtPrice － (空白 ) 12 Command1 cmdCalculate 計(jì)算 － 12 Command2 cmdEnd 結(jié)束 － 12 【程式碼】?jī)?chǔ)存資料夾： 7111 01 Private Sub cmdCalculate_Click() 02 Dim qty As Integer, price As Integer, money As Integer 03 price = Val(txtPrice) : qty = Val(txtQty) 04 If qty 10 Then money = price * qty 05 If qty = 10 And qty 50 Then money = price * qty * 06 If qty = 50 Then money = price * qty * 1. 07 lblResult = money 2. 08 End Sub 09 Private Sub cmdEnd_Click() 10 End 11 End Sub 【流程圖】 【執(zhí)行實(shí)例】 【實(shí)例二】輸入某一學(xué)生的分?jǐn)?shù)，並依下列規(guī)則轉(zhuǎn)換成等級(jí)： 分?jǐn)?shù) ≧ 80 →A 級(jí) 70≦ 分?jǐn)?shù) ≦ 79 →B 級(jí) 60≦ 分?jǐn)?shù) ≦ 69 →C 級(jí) 分?jǐn)?shù)＜ 60 →D 級(jí) 【表單設(shè)計(jì)】 【程式碼】?jī)?chǔ)存資料夾： 7112 1 Private Sub cmdConvert_Click() 2 Dim score As Single ‘設(shè)定 score為單精數(shù)變數(shù) 3 score = Val(txtScore) ‘將輸入文字方塊的資料轉(zhuǎn)成數(shù)值 4 Select Case score 5 Case Is = 80 6 lblResult = A 7 Case Is = 70 8 lblResult = B 9 Case Is = 60 10 lblResult = C 11 Case Else 12 lblResult = D 13 End Select 14 End Sub 15 Private Sub cmdEnd_Click() 16 End 17 End Sub 【執(zhí)行實(shí)例】 ? 靜夜四無鄰，荒居舊業(yè)貧。 , April 2, 2023 ? 雨中黃葉樹，燈下白頭人。 00:23:2200:23:2200:234/2/2023 12:23:22 AM ? 1以我獨(dú)沈久，愧君相見頻。 :23:2200:23Apr232Apr23 ? 1故人江海別，幾度隔山川。 00:23:2200:23:2200:23Sunday, April 2, 2023 ? 1乍見翻疑夢(mèng)，相悲各問年。 :23:2200:23:22April 2, 2023 ? 1他鄉(xiāng)生白發(fā)，舊國(guó)見青山。 2023年 4月 2日星期日 上午 12時(shí) 23分 22秒 00:23: ? 1比不了得就不比，得不到的就不要。 。 2023年 4月 上午 12時(shí) 23分 :23April 2, 2023 ? 1行動(dòng)出成果，工作出財(cái)富。 2023年 4月 2日星期日 12時(shí) 23分 22秒 00:23:222 April 2023 ? 1做前，能夠環(huán)視四周；做時(shí)，你只能或者最好沿著以腳為起點(diǎn)的射線向前。 上午 12時(shí) 23分 22秒 上午 12時(shí) 23分 00:23: ? 沒有失敗，只有暫時(shí)停止成功！。 , April 2, 2023 ? 很多事情努力了未必有結(jié)果，但是不努力卻什么改變也沒有。 00:23:2200:23:2200:234/2/2023 12:23:22 AM ? 1成功就是日復(fù)一日那一點(diǎn)點(diǎn)小小努力的積累。 :23:2200:23Apr232Apr23 ? 1世間成事，不求其絕對(duì)圓滿，留一份不足，可得無限完美。 00:23:2200:23:2200:23Sunday, April 2, 2023 ? 1不知香積寺，數(shù)里入云峰。 :23:2200:23:22April 2, 2023 ? 1意志堅(jiān)強(qiáng)的人能把世界放在手中像泥塊一樣任意揉捏。 2023年 4月 2日星期日 上午 12時(shí) 23分 22秒 00:23: ? 1楚塞三湘接，荊門九派通。 。 2023年 4月 上午 12時(shí) 23分 :23April 2, 2023 ? 1少年十五二十時(shí)，步行奪得胡馬騎。 2023年 4月 2日星期日 12時(shí) 23分 22秒 00:23:222 April 2023 ? 1空山新雨后，天氣晚來秋。 上午 12時(shí) 23分 22秒 上午 12時(shí) 23分 00:23: ? 楊柳散和風(fēng)，青山澹吾慮。 , April 2, 2023 ? 閱讀一切好書如同和過去最杰出的人談話。 00:23:2200:23:2200:234/2/2023 12:23:22 AM ? 1越是沒有本領(lǐng)的就越加自命不凡。 :23:2200:23Apr232Apr23 ? 1越是無能的人，越喜歡挑剔別人的錯(cuò)兒。 00:23:2200:23:2200:23Sunday, April 2, 2023 ? 1知人者智，自知者明。勝人者有力，自勝者強(qiáng)。 :23:2200:23:22April 2, 2023 ? 1意志堅(jiān)強(qiáng)的人能把世界放在手中像泥塊一樣任意揉捏。 2023年 4月 2日星期日 上午 12時(shí) 23分 22秒 00:23: ? 1最具挑戰(zhàn)性的挑戰(zhàn)莫過于提升自我。 2023年 4月 上午 12時(shí) 23分 :23April 2, 2023 ? 1業(yè)余生活要有意義，不要越軌。 2023年 4月 2日星期日 12時(shí) 23分 22秒 00:23:222 April 2023 ? 1一個(gè)人即使已登上頂峰，也仍要自強(qiáng)不息。 上午 12時(shí) 23分 22秒 上午 12時(shí) 23分 00:23: MOMODA POWERPOINT Lorem ipsum dolor sit amet, consectetur adipiscing elit. Fusce id urna blandit, eleifend nulla ac, fringilla purus. Nulla iaculis tempor felis ut cursus. 感謝您的下載觀看 專家告訴
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號(hào)-1