《算法及程序設(shè)計(jì)》(選修)課件

1、<p>　　高中信息技術(shù)《算法與程序設(shè)計(jì)VB（選修）》</p><p><b>　　知識要點(diǎn)</b></p><p><b>　　相關(guān)知識點(diǎn)</b></p><p><b>　?。ㄒ唬┧惴?lt;/b></p><p><b>　　1.定義</b>&l

2、t;/p><p><b>　　相關(guān)題解：</b></p><p>　　1算法：就是解決問題的方法和步驟。算法是程序設(shè)計(jì)的“靈魂”，算法+數(shù)據(jù)結(jié)構(gòu)＝程序。</p><p><b>　　單選題</b></p><p>　　1、運(yùn)用計(jì)算機(jī)程序解決實(shí)際問題時(shí)，合理的步驟是（B）。 </p><

3、;p>　　A、設(shè)計(jì)算法→分析問題→編寫程序→調(diào)試程序 </p><p>　　B、分析問題→設(shè)計(jì)算法→編寫程序→調(diào)試程序 </p><p>　　C、分析問題→編寫程序→設(shè)計(jì)算法→調(diào)試程序 </p><p>　　D、設(shè)計(jì)算法→編寫程序→分析問題→調(diào)試程序</p><p>　　2．算法的描述方法：</p><p>　　

4、1算法的描述：可分多種表達(dá)方法，一般用自然語言、流程圖和偽代碼進(jìn)行描述。</p><p>　　2自然語言描述法：指用人們?nèi)粘Ｉ钪惺褂玫恼Z言（本國語言），用自然語言描述符合我們的習(xí)慣，且容易理解。</p><p>　　3流程圖描述：也稱程序框圖，它是算法的一種圖形化表示方法。且描述算法形象、直觀，更易理解。</p><p>　　4偽代碼描述法：是介于自然語言和計(jì)算機(jī)

5、程序語言之間的一種算法描述。是專業(yè)軟件開發(fā)人員常用方法。</p><p><b>　　相關(guān)題解：</b></p><p><b>　　單選題</b></p><p>　　1、圖形符號" "在算法流程圖描述中表示( B ).</p><p>　　A 處理或運(yùn)算的功能

6、 B 輸入輸出操作</p><p>　　C 用來判斷條件是否滿足需求 D 算法的開始或結(jié)束</p><p>　　2、圖形符號" "在算法流程圖描述中表示( A ).</p><p>　　A 處理或運(yùn)算的功能 B 輸入輸出操作 </p><p>　　C 用來判斷條件是否滿足需求D 算法的開始或結(jié)

7、束</p><p>　　3、以下哪個(gè)是算法的描述方法?( A )</p><p>　　A 流程圖描述法 B 枚舉法 C 順序法 D 列表法</p><p>　　4、以下哪個(gè)是算法的描述方法?( D )</p><p>　　A 順序法B 列表法C 集合法D 自然語言描述法</p><p>　　5、介于自然語

8、言和計(jì)算機(jī)語言之間的一種算法描述是下列哪個(gè)選項(xiàng)？（ ） </p><p><b>　　A、偽代碼 </b></p><p><b>　　B、流程圖 </b></p><p><b>　　C、高級語言 </b></p><p>　　D、VB 程序設(shè)計(jì)語言</p>

9、<p><b>　?。ǘ┏绦蛟O(shè)計(jì)基礎(chǔ)</b></p><p>　?。?）常用高級編程語言：BASIC、VB、Pascal、C、C++、Java</p><p>　　1面向?qū)ο蟮某绦蛟O(shè)計(jì)語言：其中的對象主要是系統(tǒng)設(shè)計(jì)好的對象，包括窗體等、控件等</p><p>　　2控件：是指工具箱中的工具在窗體中畫出的、能實(shí)現(xiàn)一定功能的部件，如文本

10、框，命令按鈕等。</p><p><b>　　常用控件：</b></p><p>　　3對象的屬性、方法和事件</p><p><b>　　1屬性</b></p><p><b>　　對象.屬性＝屬性值</b></p><p>　　對象中屬性可以在設(shè)計(jì)界

11、面時(shí)通過屬性窗中設(shè)置，也可以在運(yùn)行時(shí)通過程序代碼設(shè)置,方法如下</p><p>　　例：給文本框“Txt123”的“Text”屬性賦值為字符串“20”，代碼如下</p><p>　　Txt123.text =”20”</p><p><b>　　變量＝對象.屬性</b></p><p>　　如果要獲取對象的狀態(tài)或特性，這

12、時(shí)就要讀取對象的屬性值，方法如下</p><p>　　例：讀取文本框“txt123”的“Text”屬性的代碼如下</p><p>　　a = txt123.text</p><p><b>　　2方法</b></p><p>　?。蹖ο螅?方法［參數(shù)名表］</p><p>　　例：form.pri

13、nt ”歡迎使用”</p><p>　　該語句使用print方法在form1窗體中顯示字符串“歡迎使用”</p><p><b>　　3事件及事件驅(qū)動</b></p><p>　　事件是對象對外部操作的響應(yīng)，如在程序執(zhí)行時(shí)，單擊命令按鈕會產(chǎn)生一個(gè)Click事件。如需要命令按鈕響應(yīng)Click事件，就把完成Click事件功能的代碼寫到Click事件

14、的事件過程中，與事件一一對應(yīng)。</p><p>　　事件過程的形式如下：</p><p>　　Private Sub 對象_事件名( )</p><p>　　……………（事件過程代碼）</p><p><b>　　End Sub</b></p><p><b>　　一個(gè)簡單的VB程序&l

15、t;/b></p><p><b>　　求圓的周長和面積</b></p><p>　　Private Sub Command1_Click()</p><p>　　Dim r As Single '定義r為單精度型</p><p>　　Dim c As Single '定義c為單精度型</

16、p><p>　　Dim s As Single '定義s為單精度型</p><p>　　r = Val(Text1.Text) '輸入半徑r</p><p>　　c = 2 * 3.14159 * r '計(jì)算周長</p><p>　　s = 3.14159 * r * r '計(jì)算面積</p>&

17、lt;p>　　Text2.Text = c '輸出周長</p><p>　　Text3.Text = s '輸出面積</p><p><b>　　End Sub</b></p><p>　　Private Sub Command2_Click()</p><p>　　End

18、 '退出</p><p>　　End Sub相關(guān)題解：</p><p><b>　　單選題</b></p><p>　　1、下列關(guān)于程序設(shè)計(jì)說法正確的是( B )。</p><p>　　A、程序設(shè)計(jì)語言的發(fā)展經(jīng)歷了機(jī)器語言、匯編語言到高級語言的過程，比</p>&l

19、t;p>　　較流行的高級語言是PASCAL, FORTRAN, EXCEL, C++等</p><p>　　B、程序設(shè)計(jì)就是尋求解決問題的方法，并將其實(shí)現(xiàn)步驟編寫成計(jì)算機(jī)可以執(zhí)行的程序的過程</p><p>　　C、程序設(shè)計(jì)語言和計(jì)算機(jī)語言是同一個(gè)概念的兩個(gè)方面</p><p>　　D、程序設(shè)計(jì)就是指示計(jì)算機(jī)如何去解決間題或完成一組可執(zhí)行指令的過程</p

20、><p>　　2、下列說法錯(cuò)誤的是（ D ）.</p><p>　　A、程序設(shè)計(jì)就是尋求解決問題的方法，并將其實(shí)現(xiàn)步驟編寫成計(jì)算機(jī)可以執(zhí)行的程序的過程</p><p>　　B、程序設(shè)計(jì)語言的發(fā)展經(jīng)歷了機(jī)器語言、匯編語言、高級語言的過程</p><p>　　C、計(jì)算機(jī)程序就是指計(jì)算機(jī)如何去解決間題或完成一組可執(zhí)行指令的過程</p>&

21、lt;p>　　D、程序設(shè)計(jì)語言和計(jì)算機(jī)語言是同一概念的兩個(gè)方面</p><p>　　3、下列不屬于程序設(shè)計(jì)語言中高級語言的是（C）。 </p><p>　　A、BASIC B、C語言 C、匯編語言 D、PASCAL</p><p>　　4、程序設(shè)計(jì)語言的發(fā)展歷程中，不包括（ A ）。 </p><p>　　A、自然語言 B、機(jī)器語

22、言 C、匯編語言 D、高級語言</p><p>　　一、常量：指在程序進(jìn)行過程中不變的量。在VB中一般分?jǐn)?shù)值常量與字符常量兩種</p><p>　　數(shù)值常量：就是數(shù)學(xué)中說的常數(shù)，分整型常量和實(shí)型常量兩種</p><p>　　整型常量：即整數(shù)，指不帶小數(shù)點(diǎn)的數(shù)值如1、0、、-10、+35等都是合法的整數(shù)</p><p>　　實(shí)型常量：即實(shí)數(shù)，指

23、帶小數(shù)點(diǎn)的數(shù)值。</p><p>　　實(shí)型常量又分為定點(diǎn)數(shù)和浮點(diǎn)數(shù)兩種。</p><p>　　例：定點(diǎn)數(shù)：3.14159和-6.8，1.99</p><p>　　浮點(diǎn)數(shù)：2E6、1E5、88E</p><p>　　例：1.2345×103 可表示為1.2345E3，字母E表示底數(shù)10</p><p>　　浮點(diǎn)

24、數(shù)就是數(shù)學(xué)上的科學(xué)計(jì)數(shù)法。</p><p>　　字符串常量：被一對雙引號括起來的若干個(gè)合法的字符稱為字符串常量。例如：”China”、”Visual Basic”、”18”、”3.1415”等，雙引號中字符，不包括雙引號本身。 </p><p>　　符號常量：如果多次用到同一個(gè)常量，則可用一個(gè)有意義的名字表示這個(gè)常量。</p><p>　　二、變量：在程序

25、執(zhí)行過程中，其值可以改變的量稱為變量</p><p>　　變量命名注意要點(diǎn)：1、必須以字母開頭,不能以數(shù)字或其他字符開頭。</p><p>　　2、只能由字母、漢字、數(shù)字或下劃線組成，不能含有小數(shù)點(diǎn)、空格等字符。</p><p>　　3、最長不超過255個(gè)字符</p><p>　　4、不能以VB保留字作變量名，如語句定義符、函數(shù)名等。<

26、/p><p>　　5、VB不區(qū)分變量名中字母大小寫。如HELLO和Hello是同一個(gè)變量。</p><p><b>　　數(shù)據(jù)及運(yùn)算</b></p><p>　　（1）常用數(shù)據(jù)類型：(整型)Integer、（長整型）Long、（單精度型）Single、（雙精度型）Double、（字符串型）String、（布爾型）Boolean、（日期型）Date&l

27、t;/p><p>　　其中(整型)Integer、（長整型）Long、（單精度型）Single、（雙精度型）Double屬于數(shù)值型</p><p><b>　　表示范圍：</b></p><p>　　(整型)Integer (-32768 —— 32767，存儲為 16 位 ， 2 個(gè)字節(jié))</p><p>　　(長整型)L

28、ong(-21億 —— 21億，可以表示人口數(shù)量)</p><p>　　(布爾型）Boolean(True 真、是 或 False假、非)</p><p>　?。ㄗ址停㏒tring(定長字符串：0——65535個(gè)字符，不定長字符串：0——20億個(gè)字符)</p><p>　　字符串型數(shù)據(jù)是指用 “ ”括起來的一串字符。如“歡迎進(jìn)入VB世界！”、“ Visual B

29、asic” 、“1234 ”都是字符串類型。</p><p>　　（日期型）Date（100/1/1——9999/12/31）</p><p>　　日期型數(shù)據(jù)專門用來處理日期和時(shí)間。VB采用一對“#”把日期和時(shí)間的值括起來，如#2003/08/20#表示2003年8月20日。</p><p>　?。?）常量和變量的命名、聲明及賦值</p><p&

30、gt;　　符號常量的聲明：Const 常量名 [As 常量類型] = 常量值</p><p>　　如：Const pi As Single = 3.14159 常量名為pi</p><p><b>　　變量的聲明：</b></p><p>　　Dim <變量名 >As <變量類型></p><

31、p>　　如：Dim a As Integer 定義一個(gè)整型變量，變量名為a</p><p><b>　　變量的賦值</b></p><p>　　VB中使用Let語句給變量賦值，其形式如下：</p><p>　　[Let] 變量 = 表達(dá)式　其中，方括號[　]表示這部分內(nèi)容是可選的，通常可以省略該關(guān)鍵字。</p&g

32、t;<p><b>　　例題</b></p><p>　　Private Sub Form_Click()</p><p>　　Dim a As Integer, b As Integer, c As Integer</p><p>　　Dim str As String</p><p>　　Let a =

33、 54</p><p>　　Let b = 114</p><p><b>　　c = a + b</b></p><p>　　str = "Hello World"</p><p>　　Print "a="; a, "b="; b, "c=&quo

34、t;; c</p><p><b>　　Print str</b></p><p><b>　　End Sub</b></p><p>　　VB語言中，下列數(shù)據(jù)類型說明符中表示整型的是（B）。 </p><p>　　A、Boolean </p><p>　　B、Integer

35、 </p><p><b>　　C、Date </b></p><p><b>　　D、String</b></p><p><b>　　數(shù)據(jù)的輸出</b></p><p>　　程序中運(yùn)算得到的結(jié)果，除可以使用文本框和標(biāo)簽顯示外，對于大批量的數(shù)據(jù)更適合用Pint方法輸出，格式如

36、下</p><p>　　[對象] . Pint [表達(dá)式列表]</p><p><b>　　例題：</b></p><p>　　Private Sub Form_Click()</p><p>　　Dim x As Single, y As Single</p><p>　　Form1.Print

37、 -61; -34</p><p>　　Form1.Print 9 * 2; 12</p><p>　　Form1.Print "This is"; "a book"</p><p>　　x = 3: y = 4</p><p>　　Print "x="; x, "y=&q

38、uot;; y</p><p><b>　　End Sub</b></p><p>　　注意：Print 方法</p><p><b>　　相關(guān)題解：</b></p><p><b>　　單選題</b></p><p>　　在VB 語言中，下列合法的變量

39、名是（B）。 </p><p>　　A、34ab B、ab34 C、*abc D、c\c</p><p>　　下列選項(xiàng)中屬于字符串常量的是（ c ）。 </p><p>　　A、ab B、a+b C、"1235" D、“1235”</p><p>　　在VB 語言中，下列合法的變量名是（ a ）。

40、</p><p>　　A、aa B、a*b C、7ab D、dim</p><p><b>　　運(yùn)算符</b></p><p><b>　　算術(shù)運(yùn)算：</b></p><p>　　+ 加 -- 減 *乘</p><p>　　^ 指數(shù) 　　　　　　 例：2^4

41、= 16</p><p>　　/ （浮點(diǎn)）除 　　　例：5 / 2 = 2.5</p><p>　　\ 整除 　　　　　例： 5 \ 2 = 2</p><p>　　Mod 求余數(shù) 　　　　例：5 Mod 2 = 1</p><p><b>　　相關(guān)題解</b></p><p><b

42、>　　單選題</b></p><p><b>　　1、分析下列程序:</b></p><p>　　Private Sub Form_Click()</p><p>　　s=11\3 + 11 Mod 3</p><p><b>　　Print s</b></p>&l

43、t;p><b>　　End Sub</b></p><p>　　當(dāng)單擊窗體時(shí)s的值是( A ).</p><p>　　A、5 B、6 C、4 D、3</p><p><b>　　關(guān)系運(yùn)算</b></p><p>　　=　　　賦值　、　　　　<　　小于號</p>

44、;<p>　　< >　　不等于　　　　　　>　　大于號</p><p>　　>=　　大于等于號　　　　<　　=小于等于號</p><p>　　注意：關(guān)系表達(dá)式的運(yùn)算結(jié)果為布爾值True 或 False</p><p>　　例：3 > 2 結(jié)果為 True(真或是)</p><p><b&

45、gt;　　相關(guān)題解</b></p><p><b>　　單選題</b></p><p>　　1、下面表達(dá)式的值是false的有( C ).</p><p>　　A、"969" < "n97" B、Int(4.99) <> len("basic")

46、 C、str(2000) < "1997" D、3 > 2</p><p><b>　　邏輯運(yùn)算</b></p><p>　　Not（取反）And（與） Or（或）</p><p>　　運(yùn)算結(jié)果為布爾型（Boolean）True 或 False</p><p>　　邏輯運(yùn)算符的優(yōu)先級為

47、：Not> And > Or</p><p>　　1、下列邏輯表達(dá)式的值為“假”的是（A）。 </p><p>　　A、2 + 4 > 8 B、3 + 12 = 15 C、5 > 0 And 4 > 3 D、10 / 5 <3</p><p>　　2、下列邏輯表達(dá)式的值為“假”的是（D）。 </p>&l

48、t;p>　　A、3 + 5 > 7 B、8 / 4 < 4 C、5 > 3 And 3 > 2 D、4 + 11 > 20</p><p>　　3、已知A，B，C，D 是簡單變量，且都已有互不相同的值，執(zhí)行語句A=C: D=B 后，下列 </p><p>　　關(guān)系表達(dá)式邏輯值為“真”的是（A）。 </p><p>　　A

49、、C=A B、A=B C、D=C D、B=C</p><p>　　日期運(yùn)算符與日期表達(dá)式</p><p>　　日期表達(dá)式是用日期運(yùn)算符“+”或“-”將算式表達(dá)式、日期型常量、日期型變量、日期函數(shù)等連接起來的式子，如表達(dá)式“#2003/09/01# +30”的運(yùn)算結(jié)果是“2003-10-1”；表達(dá)式“#2003/10/20# - #2003/10/10#”的運(yùn)算結(jié)果為整數(shù)1

50、0</p><p><b>　　相關(guān)題解</b></p><p><b>　　單選題</b></p><p>　　1、設(shè)a=2, b=3,在VB中，表達(dá)式a>b Or b>3值是:( A )</p><p>　　A、False B、True C、-1 D、1</p&

51、gt;<p><b>　　字符運(yùn)算</b></p><p>　　字符串連接符為“+”和“&”</p><p>　　“123” + “45” = “12345”</p><p>　　“123” & “45” = “12345”</p><p>　　123 + “45” = 168</p&

52、gt;<p>　　“123” + 45 = 168</p><p><b>　　相關(guān)題解</b></p><p><b>　　單選題</b></p><p>　　VB的字符串運(yùn)算符是“&”，該運(yùn)算符主要用于連接兩個(gè)或更多的字符串。如："abcd" & </p>

53、<p>　　"efg" 連接后的運(yùn)算結(jié)果為："abcdefg"。那么，"1+2" & "3"的運(yùn)算結(jié)果為：（C）。 </p><p>　　A、33 B、6 C、"1+23" D、True</p><p><b>　　運(yùn)算符的執(zhí)行順序</b&g

54、t;</p><p>　　在VB中，當(dāng)一個(gè)表達(dá)式中同時(shí)出現(xiàn)多種運(yùn)算符時(shí)，運(yùn)算次序由運(yùn)算符的優(yōu)先級決定，優(yōu)先級高的運(yùn)算符先運(yùn)算，優(yōu)先級相同的從左向右進(jìn)行運(yùn)算。不同性質(zhì)的運(yùn)算符優(yōu)先級如下。</p><p>　　算術(shù)運(yùn)算符 > 字符串運(yùn)算符 >  關(guān)系運(yùn)算符 >  邏輯運(yùn)算符</p><p><b>　　相關(guān)題解</b

55、></p><p><b>　　單選題</b></p><p>　　在VB語言中，表示“a大于0且b小于12”的正確表達(dá)式是（D）。 </p><p>　　A、b<12 or a > 0 </p><p>　　B、b > 12 And a < 0 </p><p>　

56、　C、a > 12 Or a < 0 </p><p>　　D、a > 0 And b < 12</p><p><b>　　常用函數(shù)</b></p><p><b>　　數(shù)學(xué)函數(shù)</b></p><p>　　Abs(x) 求x 的絕對值，例：abs(-3.6) = 3.6&

57、lt;/p><p>　　Sqr(x) 求 x 的平方根，例：sqr(100) = 10 R=SQR（10000）</p><p><b>　　PRINT R</b></p><p>　　Int(x)求≤x的最大整數(shù) 例：int(3.6) = 3 int(-3.6) = -4</p><p>　　Rnd(x)產(chǎn)生[0

58、，1)之間的隨機(jī)數(shù)（不包括1）</p><p>　　Sin(x) Cos(x)</p><p>　　Tan(x) Atn(x)</p><p>　　Exp(x) Log(x) val(x)</p><p>　　使用三角函數(shù)時(shí)，參數(shù)應(yīng)是弧度，如數(shù)學(xué)中sin300應(yīng)寫為：sin(30*3.14

59、159/180)</p><p><b>　　字符串函數(shù)</b></p><p>　　Len(字符串) 求字符串的長度 ,例：Len(“hello”) = 5</p><p>　　Left(字符串，截取長度) 截取字符串左邊部分,例:Left(“hello”,2) = “he”</p><p>　　Mid(字符串，起始位

60、置，截取長度) ,例：Mid(“hello”,2,2) = “el”</p><p>　　Right (字符串,長度)</p><p>　　截取字符串右邊部分。例: Right (“hello”,2) = “l(fā)o” </p><p>　　String(數(shù)值，字符)生成指定長度與指定字符的字符串，例：String(3,”9”) = ”999” </p>

61、<p>　　函數(shù)mid (C,N1,N2)的作用是從字符串C中N1位開始取出長度為N2 的子串。那么， </p><p>　　Mid ("aBcDeFg", 3, 3)的值為（D）。 </p><p>　　A、aBc B、cde C、eFg D、cDe</p><p><b>　　常用轉(zhuǎn)換函數(shù)</b>&l

62、t;/p><p>　　Val(字符串) 將字符串轉(zhuǎn)換為數(shù)值</p><p>　　Str(數(shù)值) 將數(shù)值轉(zhuǎn)換為字符串</p><p><b>　　Chr(字符代碼)</b></p><p><b>　　Asc(字符)</b></p><p>　　Tab定位函數(shù)的使用</p&g

63、t;<p><b>　　例題</b></p><p>　　Private Sub Form_Click(　)</p><p>　　Dim a As Integer</p><p>　　Dim b As Integer</p><p>　　a = 4: b = 9</p><p>

64、　　Print Tab(1); "數(shù)"; Tab(9); "平方"; Tab(18); "立方"; Tab(27); "平方根"</p><p>　　Print Tab(1); a; Tab(9); a * a; Tab(18); a * a * a; Tab(27); Sqr(a)</p><p>　　Pri

65、nt Tab(1); b; Tab(9); b * b; Tab(18); b * b * b; Tab(27); Sqr(b)</p><p><b>　　End Sub</b></p><p><b>　　用戶交互函數(shù)</b></p><p>　　VB提供InputBox( )和MsgBox( )函數(shù)用于人機(jī)交互<

66、;/p><p>　　InputBox( )其語法格式為：</p><p>　　InputBox( 提示[，標(biāo)題][，默認(rèn)值][,X坐標(biāo)][，Y坐標(biāo)])</p><p>　　MsgBox( ) 其語法格式為：</p><p>　　MsgBox(提示信息[，按鈕][，標(biāo)題] )</p><p>　　表達(dá)式：是指某個(gè)求值規(guī)則，它

67、由運(yùn)算符和配對的圓括號將常量、變量、函數(shù)等操作數(shù)以合理的形式連接起來的式子。VB中有算術(shù)表達(dá)式、字符串表達(dá)式、日期表達(dá)式、關(guān)系表達(dá)式和邏輯表達(dá)式等。例如在上述的程序中，式子PI*r*r是算術(shù)表達(dá)式。</p><p><b>　　相關(guān)題解</b></p><p><b>　　單選題</b></p><p>　　1、Visua

68、l Basic中，下列( A )函數(shù)是求絕對值的。</p><p>　　A、ABS（X） B、SQR(X） C、INT（X） D、GN（X)</p><p>　　2、表達(dá)式Abs(-3.6)*sqr(100)的值是( C )。</p><p>　　A、-36 B、360 C、36 D、-360</p><p>　　

69、3、下列( A )數(shù)據(jù)類型不是數(shù)值型。</p><p>　　A、Date B、Single C、Double D、Integer</p><p>　　4、下列函數(shù)中，返回值是字符串的是 ( A ).</p><p>　　A、Mid B、Instr C、Val D、Len<

70、/p><p>　　5、下列( A )函數(shù)返回系統(tǒng)的當(dāng)前時(shí)間。</p><p>　　A、time() B、date() C、day() D、year()</p><p>　　6、代數(shù)表達(dá)式表達(dá)式后錯(cuò)誤的是( D )</p><p>　　A、g*t*t/2 B、1/2*g*t^2

71、 C、g*t^2/2 D、gt^2/2</p><p>　　7、數(shù)學(xué)式子在VB中的正確寫法是：（ ）</p><p>　　A、 (2*a+b)/4*a B 、(2*a+b)/(4ab) C 、(2a+b)(4ab) D 、(2*a+b)/(4*a*b)</p><p>　　8、判斷x是否在區(qū)間[a, b]上，在VB中以哪個(gè)邏輯表達(dá)

72、式是正確的?( C )</p><p>　　A 、a<x and x<=b B、 a<x<=b C、a<x and x≤b D 、a>x and x<=b</p><p><b>　　綜合分析</b></p><p>　　1、向n變量存入1個(gè)2位整數(shù)，要使此2位數(shù)十位和個(gè)位上的值分別

73、存入x, y變量。正確的算法是( D )。</p><p><b>　　選項(xiàng):</b></p><p>　　x、①x=Left(n, 1) ②y=n-x*10 ③Print x:Print y</p><p>　　B、①x=Left(n, 1) ②y=Right(n, 1) ③Print x:Print y</p>&

74、lt;p>　　C、①x=n/10 ②y=n-x*10 ③Print x:Print y</p><p>　　D、①x=Int(n/10) ②y=n-x*10 ③Print x:Print y</p><p>　　2、向x變量中輸入任意一個(gè)小寫字母，再將x變量中的小寫字母轉(zhuǎn)成大寫字母。正確的算法是( A ).</p><p><b>　　選項(xiàng):&l

75、t;/b></p><p>　　A、①輸人字母到x ②a=Asc(x)-32 ③x=chr(x) ④Print x</p><p>　　B、①輸人字母到x ②a=Asc(x)+32 ③x=chr(x) ④Print x</p><p>　　C、①輸人字母到x ②a=Val(x)一32 ③x=Chr(x) ④Print x</p><p>

76、;　　D、①輸人字母到x ②a=Val(x)+32 ③x=Chr(x) ④Print x</p><p><b>　　程序設(shè)計(jì)的順序結(jié)構(gòu)</b></p><p>　　順序結(jié)構(gòu)：代碼按照由上到下的順序一行一行地執(zhí)行。程序執(zhí)行過程中沒有分支、沒有重復(fù)，這種結(jié)構(gòu)稱為順序結(jié)構(gòu)。</p><p>　　例題：交換兩個(gè)變量中的數(shù)據(jù)。</p>&

77、lt;p>　　Private Sub cmdSwap_Click()</p><p>　　Dim x As Single, y As Single</p><p>　　Dim m As Single</p><p>　　x = Val(txtsx.Text)</p><p>　　y = Val(txtsy.Text)</p>

78、<p>　　m = x: x = y: y = m '交換數(shù)據(jù)</p><p>　　txtdx.Text = Str(x)</p><p>　　txtdy.Text = Str(y)</p><p><b>　　End Sub</b></p><p>　　Private Sub cmdEnd_C

79、lick()</p><p><b>　　End</b></p><p><b>　　End Sub</b></p><p><b>　　相關(guān)題解</b></p><p><b>　　單選題</b></p><p>　　1、以下是一

80、段VB程序：</p><p><b>　　a = 1</b></p><p><b>　　b = a + 1</b></p><p><b>　　c = a + b</b></p><p>　　它的基本結(jié)構(gòu)屬于（ A ）</p><p>　　A、順序結(jié)構(gòu)

81、 B、選擇結(jié)構(gòu) C、循環(huán)結(jié)構(gòu) D、樹型結(jié)構(gòu)</p><p>　　2、下列VB程序運(yùn)行后，變量x的值為( A ).</p><p><b>　　x=2</b></p><p><b>　　Print x+l</b></p><p><b>　　Print x+2</b&

82、gt;</p><p>　　A、2 B、3 C、5 D、8</p><p><b>　　程序設(shè)計(jì)的分支結(jié)構(gòu)</b></p><p><b>　　行If語句</b></p><p>　　行If是指在一行中寫完的If語句。其一般格式為：</p><

83、;p>　　格式一：If條件Then語句</p><p>　　執(zhí)行這種形式的If語句時(shí)，首先對條件進(jìn)行判斷。若條件成立，則執(zhí)行Then后面的語句；若條件不成立，則執(zhí)行If語句后繼程序行的語句</p><p>　　格式二：If條件 Then 語句 1 Else 語句 2</p><p>　　例題：輸入三個(gè)不相同的數(shù)，求出其中最小數(shù)。</p><

84、;p>　　Private Sub Form_Click()</p><p>　　Dim a As Single, b As Single, c As Single</p><p>　　Dim Min As Single</p><p>　　a = InputBox("輸入a", "輸入框")</p&g

85、t;<p>　　b = InputBox("輸入b", "輸入框")</p><p>　　c = InputBox("輸入c", "輸入框")</p><p>　　If a < b Then Min = a Else Min = b</p><p>　　If c &l

86、t; Min Then Min = c</p><p>　　Print "最小數(shù)＝"; Min</p><p><b>　　End Sub</b></p><p>　　執(zhí)行這種形式的語句時(shí)，先進(jìn)行判斷。若條件成立，則執(zhí)行語句1；否則執(zhí)行語句2。</p><p><b>　　塊If語句<

87、/b></p><p>　　上述If-then語句只能根據(jù)條件的真假是否執(zhí)行一條語句，當(dāng)Then部分和Else部分包含的內(nèi)容較多時(shí)，則可選用“塊If語句”結(jié)構(gòu)。</p><p>　　格式三：If 條件 Then</p><p><b>　　語句塊</b></p><p><b>　　End If</

88、b></p><p>　　例題：當(dāng)從輸入一個(gè)數(shù)時(shí)，當(dāng)該數(shù)大于或等于60時(shí)顯示"及格"，該數(shù)小于60時(shí)顯示"不及格"。</p><p>　　Private Sub Command1_Click()</p><p>　　Dim a As Single</p><p>　　a = Val(Text1.T

89、ext)</p><p>　　If a >= 60 Then</p><p>　　Label1.Caption = "及格"</p><p><b>　　End If</b></p><p>　　If a < 60 Then</p><p>　　Label1.Cap

90、tion = "不及格"</p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　格式四：If 條件 Then</p><p><b>　　語句塊1</b></p><p&

91、gt;<b>　　Else</b></p><p><b>　　語句塊2</b></p><p><b>　　End If</b></p><p>　　例題：編寫程序，求函數(shù)Y的值（當(dāng)x≤0時(shí)，y=3x+1；當(dāng)x>0時(shí)，y=4x+1）。</p><p>　　Private

92、 Sub Form_Click()</p><p>　　Dim x As Single</p><p>　　Dim y As Single</p><p>　　x = Val(InputBox("請輸入變量x"))</p><p>　　If x <= 0 Then</p><p>　　y =

93、3 * x + 1</p><p><b>　　Else</b></p><p>　　y = 4 * x + 1</p><p><b>　　End If</b></p><p>　　Print "y="; y</p><p><b>　　End

94、 Sub</b></p><p><b>　　相關(guān)題解</b></p><p><b>　　單選題</b></p><p>　　1、以下是一段Visual Basic程序:</p><p>　　If I=1 Then</p><p><b>　　X=X+

95、1</b></p><p><b>　　Else</b></p><p><b>　　X=X*2</b></p><p><b>　　End If</b></p><p>　　它的基本結(jié)構(gòu)屬于( A ).</p><p>　　A、選擇結(jié)構(gòu) B

96、、循環(huán)結(jié)構(gòu)C、順序結(jié)構(gòu)D、樹型結(jié)構(gòu)</p><p>　　2、下列程序段運(yùn)行后，變量Value的值是（ A ）</p><p><b>　　x = 20</b></p><p>　　If x >= 10 Then</p><p>　　Value = 5 * x</p><p><b>

97、;　　Else</b></p><p>　　Value = 4 * x</p><p><b>　　End If</b></p><p>　　A、100 B、80 C、90 D、70</p><p><b>　　綜合分析</b></p><p>　　

98、1、如要完成:從鍵盤輸入一個(gè)正整數(shù)，判斷是否是奇數(shù)，如是就在屏幕上顯示。比較好</p><p>　　的算法是( B D )。</p><p><b>　　選項(xiàng):</b></p><p>　　A、①輸人的數(shù)存人n變量②f=(n/2=Int(n/2))③如果f中的值為True就顯示n中值</p><p>　　B、①輸人

99、的數(shù)存人n變量②f=(n/2=Int(n/2))③如果f中的值為False就顯示n中值</p><p>　　C、①輸人的數(shù)存人n變量②如果n/2=Int(n/2)成立，就顯示n中值</p><p>　　D、①輸人的數(shù)存人n變量②如果n/2=Int(n/2)不成立，就顯示n中值</p><p>　　2、下面是判斷變量x是不是能被5整除的偶數(shù)的程序，橫線上的邏輯表達(dá)式應(yīng)

100、為( AB )</p><p>　　Private Sub commandl_Click()</p><p>　　Dim x As Integer</p><p>　　x=Val(Text1. Text)</p><p>　　If ____ = 0 Then</p><p>　　Labell.Caption=這個(gè)

101、數(shù)是能被5整除的偶數(shù)</p><p><b>　　Else</b></p><p>　　Labell.Caption=這個(gè)數(shù)不是能被5整除的偶數(shù)</p><p><b>　　End If</b></p><p><b>　　選項(xiàng)：</b></p><p>

102、;　　A、(x Mod 5) = 0 And (x Mod 2 ) = 0</p><p>　　B、x Mod 10 = 0</p><p>　　C、x Mod 5 = 0</p><p>　　D、x Mod 2 = 0</p><p>　　3、如要完成:從鍵盤輸入一個(gè)正整數(shù)，判斷是否是偶數(shù)，如是就在屏幕上顯示。比較好</p>

103、<p>　　的算法是( AC )。</p><p><b>　　選項(xiàng):</b></p><p>　　A、①輸入的數(shù)存人n變量②f=(n/2=Int(n/2))③如果f中的值為True就顯示n中值</p><p>　　B、①輸入的數(shù)存人n變量②f=(n/2=Int(n/2))③如果f中的值為False就顯示n中值</p>

104、;<p>　　C、①輸入的數(shù)存人n變量②如果n/2=Int(n/2)成立，就顯示n中值</p><p>　　D、①輸入的數(shù)存人n變量②如果n/2=Int(n/2)不成立，就顯示n中值</p><p>　　4、下列程序段運(yùn)行后,m的值為( A )</p><p>　　A=2: b=1: c=5</p><p>　　If A &

105、lt; b Then m = A Else m = b</p><p>　　If c < m Then m = c</p><p><b>　　選項(xiàng)：</b></p><p><b>　　A、1</b></p><p><b>　　B、2</b></p>&

106、lt;p><b>　　C、5</b></p><p>　　D、提示錯(cuò)誤，無答案</p><p><b>　　程序設(shè)計(jì)的循環(huán)結(jié)構(gòu)</b></p><p>　　一、For-Next循環(huán)</p><p>　　For循環(huán)變量一般形式是：</p><p>　　For循環(huán)變量=初值

107、To終值 Step循環(huán)變量增量</p><p><b>　　循環(huán)體</b></p><p><b>　　Next循環(huán)變量</b></p><p>　　例題1：求s＝1+2+3+4.....+100</p><p>　　Private Sub Form_Click()</p>&l

108、t;p>　　Dim i As Integer</p><p>　　Dim sum As Integer</p><p><b>　　sum = 0</b></p><p>　　For i = 1 To 100</p><p>　　sum = sum + i ' 循環(huán)體</p><

109、p><b>　　Next i</b></p><p>　　Print "sum="; sum</p><p><b>　　End Sub</b></p><p>　　例題2：Step循環(huán)變量增量</p><p>　　Private Sub Form_Click()</

110、p><p>　　For j = 15 To 3 Step -2</p><p><b>　　Print j</b></p><p><b>　　Next j</b></p><p><b>　　End Sub</b></p><p>　　循環(huán)變量的初值、終值

111、、循環(huán)變量增量都是數(shù)值型。其中要重復(fù)執(zhí)行的操作稱為循環(huán)體，增量可正可負(fù)，如果沒有設(shè)置Step，則增量的缺省值為1</p><p><b>　　循環(huán)變量取初值；</b></p><p>　　循環(huán)變量與終值比較，沒有超過終值轉(zhuǎn)3，否則循結(jié)束，接著執(zhí)行循環(huán)語句的后繼語句；</p><p><b>　　執(zhí)行一次循環(huán)體</b><

112、;/p><p>　　循環(huán)變量增加一個(gè)增量</p><p><b>　　重復(fù)步驟2~4。</b></p><p>　　以上可以看出，F(xiàn)or-Next循環(huán)變量是一種當(dāng)型循環(huán)。說明</p><p>　　For語句與Next語句必須成對出現(xiàn)，而且它們當(dāng)中的“循環(huán)變量”必須是同一個(gè)變量，如上例中均為I。</p><

113、p>　　當(dāng)循環(huán)變量為正時(shí)，循環(huán)變量超過終值，是指循環(huán)變量的值大于終值時(shí)；若為負(fù)，則是指循環(huán)變量的值小于終值。</p><p>　　二、Do－Loop循環(huán)</p><p>　　For-Next循環(huán)的次數(shù)是確定的，但是有的問題只知道循環(huán)結(jié)束的條件，重復(fù)執(zhí)行的次數(shù)事先并不知道，這是需要Do-Loop循環(huán)</p><p>　　格式一：　Do While 條件</

114、p><p><b>　　循環(huán)體</b></p><p><b>　　Loop</b></p><p><b>　　例題：求最大公約數(shù)</b></p><p>　　Private Sub Command1_Click()</p><p>　　Dim a As

115、Integer</p><p>　　Dim b As Integer</p><p>　　Dim r As Integer</p><p>　　a = Val(Text1.Text)</p><p>　　b = Val(Text2.Text)</p><p>　　r = a Mod b</p><p

116、>　　Do While r <> 0</p><p><b>　　a = b</b></p><p><b>　　b = r</b></p><p>　　r = a Mod b</p><p><b>　　Loop</b></p><p&g

117、t;　　Text3.Text = Str(b)</p><p><b>　　End Sub</b></p><p>　　Private Sub Command2_Click()</p><p><b>　　End</b></p><p><b>　　End Sub</b><

118、;/p><p>　　當(dāng)VB執(zhí)行Do While-Loop循環(huán)時(shí)，先判斷指定的條件是否為真，若條件為真，執(zhí)行循環(huán)體，條件為假時(shí)退出循環(huán)。</p><p><b>　　格式二： Do</b></p><p><b>　　循環(huán)體</b></p><p>　　Loop Until條件</p>&l

119、t;p>　　這種循環(huán)的執(zhí)行過程如圖所示。進(jìn)入循環(huán)體后，先執(zhí)行一次循環(huán)體A，然后再檢查條件P是否成立。如果不成立，就重復(fù)執(zhí)行循環(huán)體A，直到條件P成立退出循環(huán)體。</p><p>　　例題：如果我國人口每年以平均1.5%的速度增長，問多少年后我國人口達(dá)到或超過15億？設(shè)現(xiàn)在人口為12.3億。</p><p>　　Private Sub Form_Click()</p>&l

120、t;p>　　Dim p As Single</p><p>　　Dim r As Single</p><p>　　Dim n As Integer</p><p>　　p = 1230000000#</p><p><b>　　r = 0.015</b></p><p><b&

121、gt;　　n = 0</b></p><p><b>　　Do</b></p><p>　　p = p * (1 + r)</p><p><b>　　n = n + 1</b></p><p>　　Loop Until p >= 1500000000#</p>&l

122、t;p>　　Print n; "年后", "人口="; p</p><p><b>　　End Sub</b></p><p>　　下列程序段執(zhí)行結(jié)束后，變量y的值是（C）。 </p><p><b>　　y=2 </b></p><p>　　Do wh

123、ile y<=6 </p><p><b>　　y=y+y </b></p><p><b>　　Loop </b></p><p>　　A、2 B、6 C、8 D、16</p><p>　　分析程序，寫出執(zhí)行結(jié)果。</p><p>　　Private Sub c

124、ommand1_click()</p><p>　　Dim S As Integer,I As Integer </p><p><b>　　S=0 </b></p><p>　　For i=1 to 10 Step 2 </p><p><b>　　S=S+i </b></p>&l

125、t;p><b>　　Next i </b></p><p>　　Print “S=”;s </p><p><b>　　End Sub</b></p><p><b>　　答案：S= 25</b></p><p>　?。ㄈ┧惴ㄅc問題解決</p><p

126、><b>　　1、解析法</b></p><p><b>　　2、窮舉法</b></p><p><b>　　3、遞歸法</b></p><p><b>　　綜合分析</b></p><p>　　1、有5人，問第5人年齡，說比前面第4人小3歲，問第4

127、. 3. 2人，都說比前面人小3歲，問第1人，說他的年齡為38歲。問第5人的年齡多大。用遞歸法解決此問題的正確步驟是( B )。</p><p><b>　　選項(xiàng):</b></p><p>　　A、①定義age (n)函數(shù) ②函數(shù)中當(dāng)n>1時(shí)返回函數(shù)值為age (n-1)當(dāng)n=1返回函數(shù)值為38</p><p>　　B、①定義age

128、(n)函數(shù) ②函數(shù)中當(dāng)n>1時(shí)返回函數(shù)值為age (n-1)-3當(dāng)n=1返回函數(shù)值為38</p><p>　　C、①定義age (n)函數(shù) ②函數(shù)中不斷地調(diào)用age (n-1)-3</p><p>　　D、①定義age (n)函數(shù) ②函數(shù)中不斷地調(diào)用age (n)函數(shù)自己</p><p><b>　　4、排序與查找數(shù)據(jù)</b></p

129、><p><b>　　四、應(yīng)用程序設(shè)計(jì)</b></p><p>　　1、程序設(shè)計(jì)的一般步驟</p><p><b>　　2、 簡單程序設(shè)計(jì)</b></p><p><b>　　綜合分析</b></p><p>　　1、a,b,c三變量存放不同的數(shù)，值a 最大

130、，b 第二，比較好的算法是（ ）</p><p>　　A、①定義一個(gè)max(x,y)函數(shù)（值為 x,y 中的大值）② a = max(max(a,b),c)</p><p>　　B、①如a < b就a = b ②如 a < c 就 a = c 如 b <c 就 b = c</p><p>　　C、①如a > b就a = b ②如 a

131、 > c 就 a = c 如 b >c 就 b = c</p><p>　　D、①如a < b就兩變量交換 ②如 a < c 就兩變量交換 如 b <c 就兩變量交換</p><p>　　2、求2! +3! +4! +5!……+10!的值。能完成此運(yùn)算，并且比較好的算法是( A )。</p><p><b>　　選項(xiàng)

132、:</b></p><p>　　A、①定義求階乘的函數(shù)用j c(n) ②主程序中用一個(gè)循環(huán)9次調(diào)用j c(n)函數(shù)進(jìn)行累加</p><p>　　B、用一個(gè)程序完成:每一項(xiàng)階乘用一個(gè)For/Next循環(huán)完成，整個(gè)程序包括9個(gè)循環(huán)</p><p>　　C、用解析法:s=1*2+1*2*3+1*2*3*4+…+1*2*3*4*5*6*7*8*9*10</

133、p><p>　　D、不必定義函數(shù)，只要用一個(gè)單重循環(huán)就能完成</p><p>　　3、要求打印 100 至 200之間所有偶數(shù)的平方根（ C ）</p><p>　　A、① i = 100 ② Do While i < 200:Print i,Sqr(i):loop</p><p>　　B、① i = 100 ② Do While i

134、 < 200:Print i,Sqr(i):i = i + 1:loop</p><p>　　C、① For i = 100 to 200 step 2:Print i,Sqr(i) : Next i</p><p>　　D、① For i = 100 to 200:Print i,Sqr(i):Next i</p><p><b>　　編程題<

135、;/b></p><p>　　必修1_15、編寫程序，使能打印下面所示的圖案。</p><p><b>　　*</b></p><p><b>　　**</b></p><p><b>　　***</b></p><p><b>　　**

136、</b></p><p><b>　　*</b></p><p><b>　　程序：</b></p><p>　　Private Sub Form Click()</p><p>　　Dim i As Integer '定義i為整型變量</p><p>　

137、　Dim j As Integer '定義j為整型變量</p><p>　　For i = -3 To 3</p><p>　　Print Tab(Abs(i)+5)</p><p>　　For j=1 To (4-Abs(i))-1</p><p>　　Print "*";</p><p>