算法與程序知識(shí)點(diǎn)

1、（一）算法1.定義相關(guān)題解：1算法：就是解決問題的方法和步驟。算法是程序設(shè)計(jì)的靈魂”，算法+數(shù)據(jù)結(jié)構(gòu)=程序。單選題1、運(yùn)用計(jì)算機(jī)程序解決實(shí)際問題時(shí)，合理的步驟是（ B）。A、設(shè)計(jì)算法一分析問題一編寫程序一調(diào)試程序B、分析問題一設(shè)計(jì)算法一編寫程序一調(diào)試程序C、分析問題一編寫程序一設(shè)計(jì)算法一調(diào)試程序D、設(shè)計(jì)算法一編寫程序一分析問題一調(diào)試程序2 .算法的描述方法：1算法的描述：可分多種表達(dá)方法，一般用自然語言、流程圖和偽代碼進(jìn)行描述。2自然語言描述法：指用人們?nèi)粘Ｉ钪惺褂玫恼Z言（本國(guó)語言），用自然語言描述符合我 們的習(xí)慣，且容易理解。3流程圖描述：也稱程序框圖，它是算法的一種圖形化表示方法。且描述

2、算法形象、直觀， 更易理解。4偽代碼描述法：是介于自然語言和計(jì)算機(jī)程序語言之間的一種算法描述。是專業(yè)軟件開發(fā)人員常用方法。相關(guān)題解：?jiǎn)芜x題1、圖形符號(hào)"菱形"在算法流程圖描述中表示 （B ）.A處理或運(yùn)算的功能B輸入輸出操作C用來判斷條件是否滿足需求D算法的開始或結(jié)束2、圖形符號(hào)"矩形”在算法流程圖描述中表示（A ）.A處理或運(yùn)算的功能 B輸入輸出操作C用來判斷條件是否滿足需求 D算法的開始或結(jié)束3、以下哪個(gè)是算法的描述方法 ？（ A ）A流程圖描述法 B枚舉法 C順序法 D列表法4、以下哪個(gè)是算法的描述方法 ?（ D ）A順序法B列表法C集合法D自然語言描述法介

3、于自然語言和計(jì)算機(jī)語言之間的一種算法描述是下列哪個(gè)選項(xiàng)？（）A、偽代碼B、流程圖C、（Wj級(jí)語言D、VB程序設(shè)計(jì)語言（二）程序設(shè)計(jì)基礎(chǔ)（1）常用高級(jí)編程語言：BASIC、VB、Pascal、C、C+、Java1面向?qū)ο蟮某绦蛟O(shè)計(jì)語言：其中的對(duì)象主要是系統(tǒng)設(shè)計(jì)好的對(duì)象，包括窗體等、控件等2控件：是指工具箱中的工具在窗體中畫出的、能實(shí)現(xiàn)一定功能的部件，如文本框，命令按 鈕等。常用控件：控件對(duì)象的類型前綴名字舉例窗體Formfrmfrmfind命令按鈕Command buttoncmdcmdok標(biāo)簽Labellbllblinput文本框TextBoxtmrtmrClock右命令按鈕（Command）

4、的Enabled屬性設(shè)置為True時(shí)按鈕有效，設(shè)置為 False時(shí)按鈕無效3對(duì)象的屬性、方法和事件1屬性屬性Name設(shè)置對(duì)象的名稱Caption決定控件中顯示的內(nèi)容（義字）Text決定窗體中文本框中顯示的內(nèi)容（初始為空白）Height決定控件高度Width決定控件寬度TOP決定控件的靠頂部位置Left決定控件的靠左邊位置Font設(shè)置控件中字體格式BackColor設(shè)置控件背景色ForeColor設(shè)置控件的前景色BorderStyle設(shè)置控件的邊框風(fēng)格Alignment即標(biāo)簽文字對(duì)齊屬性：（0）Left Justify時(shí)文本左對(duì)齊；（1）Right Justify時(shí)文本石對(duì)齊；設(shè)置為 （2）Ce

5、nter時(shí)文本居中。AutoSize設(shè)置為False時(shí)輸入控件Caption中文字超過控件寬度時(shí)超出部分被裁剪掉，設(shè)置為True時(shí)，控件可水平擴(kuò)充，以適應(yīng)控件Caption 屬性。Visible決定控件是否可見Enabled決定控件運(yùn)行時(shí)是否有效對(duì)象.屬性=屬性值對(duì)象中屬性可以在設(shè)計(jì)界面時(shí)通過屬性窗中設(shè)置，也可以在運(yùn)行時(shí)通過程序代碼設(shè)置，方法如下例：給文本框 “Txt123”的“Text”屬性賦值為字符串“20”，代碼如下Txt123.text =" 20”變量=對(duì)象.屬性如果要獲取對(duì)象的狀態(tài)或特性，這時(shí)就要讀取對(duì)象的屬性值，方法如下例：讀取文本框 “txt123 ”的“Text”屬

6、性的代碼如下a = txt123.text2方法對(duì)象.方法參數(shù)名表例：form.print"歡迎使用"該語句使用print方法在forml窗體中顯示字符串歡迎使用“3事件及事件驅(qū)動(dòng)事件是對(duì)象對(duì)外部操作的響應(yīng)，如在程序執(zhí)行時(shí)，單擊命令按鈕會(huì)產(chǎn)生一個(gè)Click事件。如需要命令按鈕響應(yīng) Click事件，就把完成 Click事件功能的代碼寫到 Click事件的事件過程 中，與事件對(duì)應(yīng)。事件過程的形式如下：Private Sub對(duì)象事件名（）（事件過程代碼）End Sub一個(gè)簡(jiǎn)單的VB程序求圓的周長(zhǎng)和面積Private Sub Command1_Click()Dim r As Sin

7、gleDim c As SingleDim s As Singler = Val(Text1.Text)' c = 2 * 3.14159 * rs = 3.14159 * r * rText2.Text = cText3.Text = sEnd Sub'定義r為單精度型'定義c為單精度型'定義s為單精度型輸入半徑r計(jì)算周長(zhǎng)'計(jì)算面積'輸出周長(zhǎng)'輸出面積Private Sub Command2_Click（）End'退出End Sub相關(guān)題解：?jiǎn)芜x題1、下列關(guān)于程序設(shè)計(jì)說法正確的是 （B ）。A、程序設(shè)計(jì)語言的發(fā)展經(jīng)歷了機(jī)器語言、

8、匯編語言到高級(jí)語言的過程，比較流行的高級(jí)語言是 PASCAL, FORTRAN, EXCEL, C+ 等B、程序設(shè)計(jì)就是尋求解決問題的方法，并將其實(shí)現(xiàn)步驟編寫成計(jì)算機(jī)可以執(zhí)行的程序的過程C、程序設(shè)計(jì)語言和計(jì)算機(jī)語言是同一個(gè)概念的兩個(gè)方面D、程序設(shè)計(jì)就是指示計(jì)算機(jī)如何去解決間題或完成一組可執(zhí)行指令的過程2、下列說法錯(cuò)誤的是（ D ）.A、程序設(shè)計(jì)就是尋求解決問題的方法，并將其實(shí)現(xiàn)步驟編寫成計(jì)算機(jī)可以執(zhí)行的程序的過程B、程序設(shè)計(jì)語言的發(fā)展經(jīng)歷了機(jī)器語言、匯編語言、高級(jí)語言的過程C、計(jì)算機(jī)程序就是指計(jì)算機(jī)如何去解決間題或完成一組可執(zhí)行指令的過程D、程序設(shè)計(jì)語言和計(jì)算機(jī)語言是同一概念的兩個(gè)方面3、下列

9、不屬于程序設(shè)計(jì)語言中高級(jí)語言的是（C）。A、BASIC B、C 語言 C、匯編語言 D、PASCAL4、程序設(shè)計(jì)語言的發(fā)展歷程中，不包括（ A ）。A、自然語言 B、機(jī)器語言 C、匯編語言 D、高級(jí)語言5、介于自然語言和計(jì)算機(jī)語言之間的一種算法描述是下列哪個(gè)選項(xiàng)？ （ A ）A、偽代碼B、流程圖C、局級(jí)語言D、VB程序設(shè)計(jì)語言一、常量：批在程序進(jìn)行過程中不變的量在VB中一般分?jǐn)?shù)值常量與字符常量?jī)煞N數(shù)值常量：就是數(shù)學(xué)中說的常數(shù)，分整型常量和實(shí)型常量?jī)煞N整型常量：即整數(shù)，指不帶小數(shù)點(diǎn)的數(shù)值如1、0、-10、+35等都是合法的整數(shù)實(shí)型常量：即實(shí)數(shù)，指帶小數(shù)點(diǎn)的數(shù)值。實(shí)型常量又分為定點(diǎn)數(shù)和浮點(diǎn)數(shù)兩種。

10、例：定點(diǎn)數(shù)：3.14159 和-6.8 , 1.99浮點(diǎn)數(shù)：2E6、1E5、88E例：1.2345 X 103可表示為1.2345E3 ,字母E表示底數(shù)10浮點(diǎn)數(shù)就是數(shù)學(xué)上的科學(xué)計(jì)數(shù)法。字符串常量：被一對(duì)雙引號(hào)括起來的若干個(gè)合法的字符稱為字符串常量。例如："China"、" Visual Basic > " 18"、" 3.1415”等,雙引號(hào)中字符，不包括雙引號(hào)本身。符號(hào)常量：如果多次用到同一個(gè)常量，則可用一個(gè)有意義的名字表示這個(gè)常量。二、變量：在程序執(zhí)行過程中，其值可以改變的量稱為變量變量命名注意要點(diǎn)：1、必須以字母開頭，不

11、能以數(shù)字或其他字符開頭。2、只能由字母、漢字、數(shù)字學(xué)或下劃線組成，不能含有小數(shù)點(diǎn)、空格等字符。3、最長(zhǎng)不超過255個(gè)字符4、不能以VB保留字作變量名，如語句定義符、函數(shù)名等。5、VB不區(qū)分變量名中字母大小寫。如 HELLO和Hello是同一個(gè)變量。 數(shù)據(jù)及運(yùn)算（1）常用數(shù)據(jù)類型：（整型）Integer 、（長(zhǎng)整型）Long、（單精度型）Single、（雙精度 型）Double、（字符串型）String、（布爾型）Boolean、（日期型）Date其中（整型）Integer 、（長(zhǎng)整型）Long、（單精度型）Single、（雙精度型）Double屬于 數(shù)值型 表小范圍：（整型）Integer （

12、-32768 32767 ,存儲(chǔ)為 16 位，2個(gè)字節(jié)）（長(zhǎng)整型）Long（-21億 一一21億，可以表示人口數(shù)量 ）（布爾型）Boolean（True 真、是或False 假、非）（字符串型）String（定長(zhǎng)字符串：0 一 65535 個(gè)字符，不定長(zhǎng)字符串：0 一 20億個(gè)字符）字符串型數(shù)據(jù)是指用 “括起來的一串字符。如歡迎進(jìn)入VB世界！ "、 “ VisualBasic ”、 “ 1234都是字符串類型。（日期型）Date （100/1/19999/12/31）日期型數(shù)據(jù)專門用來處理日期和時(shí)間。VB采用一對(duì)“ #把日期和時(shí)間的值括起來，如#2003/08/20# 表示 2003

13、 年 8 月 20 日。（2）常量和變量的命名、聲明及賦值符號(hào)常量的聲明：Const常量名As常量類型=常量值（表達(dá)式） 如：Const pi As Single = 3.14159常量名為 pi變量的聲明： Dim < 變量名 >As < 變量類型>如：Dim a As Integer定義一個(gè)整型變量，變量名為a變量的賦值VB中使用Let語句給變量賦值，其形式如下：Let變量=表達(dá)式 其中，方括號(hào)表示這部分內(nèi)容是可選的，通常可以省略該關(guān)鍵 字。例題Private Sub Form_Click（）Dim a As Integer, b As Integer, c As

14、IntegerDim str As StringLet a = 54Let b = 114 c = a + b str = "Hello World" Print "a=" a, "b=" b, "c=" c Print str End SubB）。VB語言中，下列數(shù)據(jù)類型說明符中表示整型的是（A、BooleanB、IntegerC、DateD、String數(shù)據(jù)的輸出Pint程序中運(yùn)算得到的結(jié)果，除可以使用文本框和標(biāo)簽顯示外，對(duì)于大批量的數(shù)據(jù)更適合用方法輸出，格式如下對(duì)象.Pint 表達(dá)式列表例題：Private

15、Sub Form_Click（）Dim x As Single, y As SingleForml.Print-61;-34Form1.Print9 * 2; 12Form1.Print"This is""a book"x = 3: y = 4Print "x=" x, "y=" yEnd Sub注意：Print 方法相關(guān)題解：?jiǎn)芜x題在VB語言中，下列合法的變量名是（ B）。A、34ab B、ab34 C、*abc D、cc下列選項(xiàng)中屬于字符串常量的是（）。A、ab B、a+bC、"1235"

16、D、1235在VB語言中，下列合法的變量名是（）。A、aa B、 a*bC、 7ab D、dim運(yùn)算符1、 算術(shù)運(yùn)算：例：2A2 = 4例：5 / 2 = 2.5例：52 = 2例：5 Mod 2 = 1+力口 一減 *乘A指數(shù)/ （浮點(diǎn)）除、 整除Mod求余數(shù)相關(guān)題解單選題1、分析下列程序：Private Sub Form_Click()s=113 + 11 Mod 3Print sEnd Sub當(dāng)單擊窗體時(shí)s的值是).A、5 B、6 C、4D、關(guān)系運(yùn)算<>>=賦值、不等于大于等于號(hào)小于號(hào)大于號(hào)二小于等于號(hào)注意：關(guān)系表達(dá)式的運(yùn)算結(jié)果為布爾值True 或 False例：3 &

17、gt; 2 結(jié)果為True（真或是）相關(guān)題解單選題1、下面表達(dá)式的值是false的有(C ).A、"969" < "n97" B、Int(4.99) <> len("basic")C、str(2000) < "1997"D2邏輯運(yùn)算Not （取反）And （與）Or （或）運(yùn)算結(jié)果為布爾型（Boolean ） True 或False邏輯運(yùn)算符的優(yōu)先級(jí)為：No > And > Or1、下列邏輯表達(dá)式的值為假"的是（A）。A、2 + 4 > 8 B、3 + 12 =

18、15 C、5 > 0 And 4 > 3 D、10 / 5 <32、下列邏輯表達(dá)式的值為假"的是（D）。A、3 + 5 > 7 B、8 / 4 < 4C、5 > 3 And 3 > 2 D、4 + 11 > 203、已知A, B, C, D是簡(jiǎn)單變量，且都已有互不相同的值，執(zhí)行語句A=C: D=B 后,下列關(guān)系表達(dá)式邏輯值為 真"的是（A）。A、C=A B、A=BC、D=C D、B=C日期運(yùn)算符與日期表達(dá)式日期表達(dá)式是用日期運(yùn)算符“+”或-'”將算式表達(dá)式、日期型常量、日期型變量、日期函數(shù)等連接起來的式子，如表達(dá)式“#

19、2003/09/01# +30”的運(yùn)算結(jié)果是 “2003-10- 1”；表達(dá)式 “#2003/10/20#- #2003/10/10#”的運(yùn)算結(jié)果為整數(shù)10相關(guān)題解單選題1、設(shè) a=2, b=3, 在 VB 中，表達(dá)式 a>b Or b>3值是:(B )A、False B、TrueC、-1 D、1字符運(yùn)算字符串連接符為 “+%口 “&”“123” +“45” =" 12345 ”“123” &“45” =" 12345 ”123 +“45” = 168“123” + 45 = 168相關(guān)題解單選題VB的字符串運(yùn)算符是“ &：該運(yùn)算符主要用

20、于連接兩個(gè)或更多的字符串。如： "abcd" &“efg”連接后的運(yùn)算結(jié)果為："abcdefg"。那么，"1+2" & "3"的運(yùn)算結(jié)果為：(C)。A、33 B、6 C、"1+23" D、True運(yùn)算符的執(zhí)行順序在VB中，當(dāng)一個(gè)表達(dá)式中同時(shí)出現(xiàn)多種運(yùn)算符時(shí)，運(yùn)算次序由運(yùn)算符的優(yōu)先級(jí)決定，優(yōu) 先級(jí)高的運(yùn)算符先運(yùn)算，優(yōu)先級(jí)相同的從左向右進(jìn)行運(yùn)算。不同性質(zhì)的運(yùn)算符優(yōu)先級(jí)如下。算術(shù)運(yùn)算符 > 字符串運(yùn)算符 > 關(guān)系運(yùn)算符 > 邏輯運(yùn)算符相關(guān)題解單選題在VB語言中，表示

21、大于0且b小于12”的正確表達(dá)式是(D)。A、b<12 or a > 0B、b > 12 And a < 0C、a > 12 Or a < 0D、a > 0 And b < 12常用函數(shù)數(shù)學(xué)函數(shù)Abs(x) 求 x 的絕對(duì)值，例：abs(-3.6) = 3.6Sqr(x) 求 x 的平方根，例：sqr(100) = 10int(-3.6) = -4Int(x) 求 x的最大整數(shù)例：int(3.6) = 3Rnd(x)產(chǎn)生0 , 1)之間的隨機(jī)數(shù)(不包括 1 )Sin(x)Cos(x)Tan(x)Atn(x)Exp(x)Log(x)使用三角函數(shù)時(shí)，

22、參數(shù)應(yīng)是弧度，如數(shù)學(xué)中 sin30 0應(yīng)寫為：sin(30*3.14159/180)字符串函數(shù)Len(字符串)求字符串的長(zhǎng)度 ，例：Len( "hello " ) = 5Left(字符串，截取長(zhǎng)度)截取字符串左邊部分，例:Left( "hello "，2) =“he”Mid(字符串，起始位置，截取長(zhǎng)度)，例：Mid( "hello "，2,2) ="el”Right (字符串，長(zhǎng)度)截取字符串右邊部分。例：Right ("hello "，2) =“l(fā)o ”String(數(shù)值，字符)生成指定長(zhǎng)度與指定字符的

23、字符串，例： String(3, “ 9")=" 999函數(shù)mid (C,N1,N2)的作用是從字符串C中N1位開始取出長(zhǎng)度為N2的子串。那么，Mid ("aBcDeFg", 3, 3) 的值為(D)。A、aBc B、cde C、eFg D、cDe常用轉(zhuǎn)換函數(shù)Val(字符串)將字符串轉(zhuǎn)換為數(shù)值Str(數(shù)彳1)將數(shù)值轉(zhuǎn)換為字符串Chr(字符代碼)Asc(字符)Tab定位函數(shù)的使用例題Private Sub Form_Click( )Dim aAs IntegerDim bAs Integera = 4: b = 9Print Tab(1);" 數(shù)

24、"Tab(9);"平方"Tab(18);"立方"Tab(27);" 平方根"Print Tab;a; Tab(9); a * a; Tab(18); a * a * a; Tab(27); Sqr(a)Print Tab(1); b; Tab(9); b * b; Tab(18); b * b * b; Tab(27); Sqr(b)End Sub用戶交互函數(shù)VB提供InputBox() 和MsgBox()函數(shù)用于人機(jī)交互InputBox()其語法格式為：InputBox( 提示,標(biāo)題,默認(rèn)值 兒X 坐標(biāo),Y坐標(biāo))MsgBo

25、x()其語法格式為：MsgBox(提示信息,按鈕,標(biāo)題)相關(guān)題解單選題1、Visual Basic 中，下列(A )函數(shù)是求絕對(duì)值的。A、ABS (X) B、SQR(X ) C、INT (X) D、GN (X)2、表達(dá)式 Abs(-3.6)*sqr(100) 的值是(C )。A、-36 B、360 C、36 D、-3603、下列(A )數(shù)據(jù)類型不是數(shù)值型。A、DateB、Single C、Double D、Integer4、下列函數(shù)中，返回值是字符串的是(A ).A、Mid B、Instr C、Val D、Len5、下列(A )函數(shù)返回系統(tǒng)的當(dāng)前時(shí)間。A、time()B、date()C、day

26、() D、year()6、代數(shù)表達(dá)式表達(dá)式后錯(cuò)誤的是(D )A、g*t*t/2B、1/2*g*tA2C、g*tA2/2D、gtA2/27、數(shù)學(xué)式子 在VB中的正確寫法是：()A、 (2*a+b)/4*aB、(2*a+b)/(4ab)C、(2a+b)(4ab)D、(2*a+b)/(4*a*b)8、判斷x是否在區(qū)間a, b上，在VB中以哪個(gè)邏輯表達(dá)式是正確的？( C )A、a<x and x<=b B、 a<x<=b C、a<x and x < b D、a>x and x<=b綜合分析1、向n變量存入1個(gè)2位整數(shù)，要使此 2位數(shù)十位和個(gè)位上的值分別存

27、入x, y變量。正確的算法是(D )。選項(xiàng)：x、x=Left(n, 1) (2)y=n-x*10 Print x:Print yB、x=Left(n, 1)y=Right(n, 1) Print x:Print yC、*。y=n-x*10Print x:Print yD、 x=Int(n/10)y=n-x*10 Print x:Print y2、向x變量中輸入任意一個(gè)小寫字母，再將 x變量中的小寫字母轉(zhuǎn)成大寫字母。正確的算 法是(A ).A、輸人字母到B、輸人字母到C、輸人字母到D、輸人字母到x a=Asc(x)-32選項(xiàng)：x a=Asc(x)+32*) Print xx a=Val(x) -

28、 32 x=Chr(x) Print xx a=Val(x)+32x=Chr(x) Print x程序設(shè)計(jì)的順序結(jié)構(gòu)順序結(jié)構(gòu)：代碼按照由上到下的順序一行一行地執(zhí)行。程序執(zhí)行過程中沒有分支、沒有重 復(fù)，這種結(jié)構(gòu)稱為順序結(jié)構(gòu)。例題：交換兩個(gè)變量中的數(shù)據(jù)。Private Sub cmdSwap_Click()Dim x As Single, y As SingleDim m As Singlex = Val(txtsx.Text)y = Val(txtsy.Text)m = x: x = y: y = m'交換數(shù)據(jù)txtdx.Text = Str(x)txtdy.Text = Str(y)E

29、nd SubPrivate Sub cmdEnd_Click()EndEnd Sub相關(guān)題解單選題1、以下是一段VB程序：a = 1b = a + 1c = a + b它的基本結(jié)構(gòu)屬于（A ）A、順序結(jié)構(gòu) B、選擇結(jié)構(gòu)C、循環(huán)結(jié)構(gòu)D、樹型結(jié)構(gòu)2、下列VB程序運(yùn)行后，變量 x的值為（A ）.x=2Print x+lPrint x+2A、 2B、 3C、 5 D、 8程序設(shè)計(jì)的分支結(jié)構(gòu)行If語句行If是指在一行中寫完的If語句。其一般格式為：格式一：If條件Then語句Then后面的語句;執(zhí)行這種形式的If語句時(shí)，首先對(duì)條件進(jìn)行判斷。若條件成立，則執(zhí)行 若條件不成立，則執(zhí)行 If語句后繼程序行的語

30、句格式二：If條件Then 語句1 日se 語句2 例題：輸入三個(gè)不相同的數(shù)，求出其中最小數(shù)。Private Sub Form_Click（）Dim a As Single, b As Single, c As SingleDim Min As Singlea = InputBox（" 輸入 a","輸入框"）b = InputBox（" 輸入 b","輸入框"）c = InputBox（" 輸入 c","輸入框"）If a < b Then Min = a Else

31、Min = bIf c < Min Then Min = cPrint "最小數(shù)="Min執(zhí)行這種形式的語句時(shí)，先進(jìn)行判斷。若條件成立，則執(zhí)行語句 1;否則執(zhí)行語句2。塊If語句上述If-then 語句只能根據(jù)條件的真假是否執(zhí)行一條語句，當(dāng) Then部分和曰se部分包含 的內(nèi)容較多時(shí)，則可選用塊If語句”結(jié)構(gòu)。格式三：If條件Then語句塊End If例題：當(dāng)從輸入一個(gè)數(shù)時(shí)，當(dāng)該數(shù)大于或等于 60時(shí)顯示"及格"，該數(shù)小于60時(shí)顯示"不及格"。Private Sub Command1_Click()Dim a As Singlea

32、 = Val(Text1.Text)If a >= 60 ThenLabel1.Caption =" 及格"End IfIf a < 60 ThenLabel1.Caption ="不及格"End IfEnd Sub格式四：If條件Then語句塊1Else語句塊2End If例題：編寫程序，求函數(shù) Y的值(當(dāng)xWO時(shí)，y=3x+1;當(dāng)x>0時(shí)，y=4x+1)。Private Sub Form_Click()Dim x As SingleDim y As Singlex = Val(InputBox("請(qǐng)輸入變量 x"

33、)If x <= 0 Theny = 3 * x + 1ElseEnd IfPrint "y=" yEnd Sub相關(guān)題解單選題1、以下是一段 Visual Basic 程序:If I=1 ThenX=X+1ElseX=X*2End If它的基本結(jié)構(gòu)屬于（A ）.A、選擇結(jié)構(gòu) B、循環(huán)結(jié)構(gòu)C、順序結(jié)構(gòu)D、樹型結(jié)構(gòu)2、下列程序段運(yùn)行后，變量 Value的值是（A ）x = 20If x >= 10 ThenValue = 5 * xElseValue = 4 * xEnd IfA、100 B、80 C、90 D、70綜合分析1、如要完成：從鍵盤輸入一個(gè)正整數(shù)，判斷

34、是否是奇數(shù)，如是就在屏幕上顯示。比較好的算法是（BD ）。選項(xiàng)：A、輸人的數(shù)存人變量 f=(n/2=Int(n/2)B、輸人的數(shù)存人變量 f=(n/2=Int(n/2)C、輸人的數(shù)存人變量如果n/2=Int(n/2)D、輸人的數(shù)存人n變量如果n/2=Int(n/2)如果f中的值為True就顯示n中值如果f中的值為False就顯示n中值成立，就顯示n中值不成立，就顯示n中值2、下面是判斷變量x是不是能被5整除的偶數(shù)的程序， 橫線上的邏輯表達(dá)式應(yīng)為(AB )Private Sub commandl_Click()Dim x As Integerx=Val(Text1. Text)If = 0 Th

35、enLabell.Caption=這個(gè)數(shù)是能被5整除的偶數(shù)ElseLabell.Caption=這個(gè)數(shù)不是能被5整除的偶數(shù)End If選項(xiàng)：A、(x Mod 5) = 0 And (x Mod 2 ) = 0B、x Mod 10 = 0C、x Mod 5 = 0D、x Mod 2 = 03、如要完成：從鍵盤輸入一個(gè)正整數(shù)，判斷是否是偶數(shù)，如是就在屏幕上顯示。比較好的算法是(AC )。選項(xiàng)：如果f中的值為True就顯示n中值如果f中的值為False就顯示n中值成立，就顯示n中值不成立，就顯示n中值A(chǔ)、輸入的數(shù)存人n變量f=(n/2=Int(n/2)B、輸入的數(shù)存人n變量f=(n/2=Int(n/

36、2)C、輸入的數(shù)存人 n變量如果n/2=Int(n/2)D、輸入的數(shù)存人n變量如果n/2=Int(n/2)4、下列程序段運(yùn)行后，m的值為(A )A=2:b=1:c=5If A < b Then m = A Else m = bIf c < m Then m = c選項(xiàng)：A、1B、2C、5D、提示錯(cuò)誤，無答案程序設(shè)計(jì)的循環(huán)結(jié)構(gòu)一、For-Next 循環(huán)For循環(huán)變量一般形式是：For循環(huán)變量=初值To終值Step循環(huán)變量增量 循環(huán)體Nxt循環(huán)變量例題 1 :求 s = 1+2+3+4.+100Private Sub Form_Click()Dim i As IntegerDim su

37、m As Integersum = 0For i = 1 To 100sum = sum + i '循環(huán)體Next iPrint "sum=" sumEnd Sub例題2 : Step循環(huán)變量增量Private Sub Form_Click()For j = 3 To 15 Step 2Print jNext jEnd Sub循環(huán)變量的初值、終值、循環(huán)變量增量都是數(shù)值型。其中要重復(fù)執(zhí)行的操作稱為循環(huán)體，增量可正可負(fù)，如果沒有設(shè)置Step ,則增量的缺省值為11、 循環(huán)變量取初值；2、 循環(huán)變量與終值比較，沒有超過終值轉(zhuǎn)3,否則循結(jié)束，接著執(zhí)行循環(huán)語句的后繼語句；3、

38、 執(zhí)行一次循環(huán)體4、 循環(huán)變量增加一個(gè)增量5、 重復(fù)步驟24 。以上可以看出，F(xiàn)or-Next 循環(huán)變量是一種當(dāng)型循環(huán)。說明(a) For語句與Next語句必須成對(duì)出現(xiàn)， 而且它們當(dāng)中的 循環(huán)變量”必須是同一個(gè) 變量，如上例中均為I。(b) 當(dāng)循環(huán)變量為正時(shí)，循環(huán)變量超過終值，是指循環(huán)變量的值大于終值時(shí)；若為負(fù)，則是指循環(huán)變量的值小于終值。入口出口二、Do Loop 循環(huán)For-Next循環(huán)的次數(shù)是確定的，但是有的問題只知道循環(huán)結(jié)束的條件，重復(fù)執(zhí)行的次數(shù)事先并不知道，這是需要Do-Loop 循環(huán)格式一 ： Do While 條件循環(huán)體Loop例題：求最大公約數(shù)Private Sub Comma

39、nd1_Click()Dim a As IntegerDim b As IntegerDim r As Integera = Val(Text1.Text)b = Val(Text2.Text)r = a Mod bDo While r <> 0a = bb = rr = a Mod bLoopText3.Text = Str(b)End SubPrivate Sub Command2_Click()EndEnd Sub當(dāng)VB執(zhí)行Do While-Loop循環(huán)時(shí)，先判斷指定的條件是否為真，若條件為真，執(zhí)行循環(huán)體，條件為假時(shí)退出循環(huán)。格式二：Do循環(huán)體Loop Until 條件這種循

40、環(huán)的執(zhí)行過程如圖所示。進(jìn)入循環(huán)體后，先執(zhí)行一次循環(huán)體A,然后再檢查條件 P是否成立。如果不成立，就重復(fù)執(zhí)行循環(huán)體A,直到條件P成立退出循環(huán)體。PN例題：如果我國(guó)人口每年以平均1.5% 的速度增長(zhǎng)，問多少年后我國(guó)人口達(dá)到或超過15億？設(shè)現(xiàn)在人口為 12.3億。Private Sub Form_Click()Dim pAs SingleDim rAs SingleDim nAs Integerp=1230000000#r = 0.015n = 0Dop = p * (1 + r)n = n + 1Loop Until p >= 1500000000#Print n;" 年后&quo

41、t;,"人口 =" pEnd Sub下列程序段執(zhí)行結(jié)束后，變量y的值是(C)。y=2Do while y<=6y=y+yLoopA、2 B、6 C、8 D、16分析程序，寫出執(zhí)行結(jié)果。Private Sub command1_click()Dim S As IntegerAs IntegerS=0For i=1 to 10 Step 2S=S+iNext iPrint " S=" ;sEnd Sub答案：S= 25(三)算法與問題解決1、解析法2、窮舉法3、遞歸法綜合分析1、有5人，問第5人年齡，說比前面第 4人小3歲，問第4. 3. 2人，都說比

42、前面人小 3 歲，問第1人，說他的年齡為38歲。問第5人的年齡多大。用遞歸法解決此問題的正確步 驟是(B )。選項(xiàng)：A、定義age (n)函數(shù) 函數(shù)中當(dāng)n>1時(shí)返回函數(shù)值為age (n-1) 當(dāng)n=1返回函數(shù)值 為38B、定義age (n)函數(shù) 函數(shù)中當(dāng)n>1時(shí)返回函數(shù)值為 age (n-1)-3 當(dāng)n=1返回函數(shù) 值為38C、定義age (n)函數(shù) 函數(shù)中不斷地調(diào)用 age (n-1)-3D、定義age (n)函數(shù) 函數(shù)中不斷地調(diào)用 age (n)函數(shù)自己4、排序與查找數(shù)據(jù)四、應(yīng)用程序設(shè)計(jì)1、程序設(shè)計(jì)的一般步驟2、簡(jiǎn)單程序設(shè)計(jì)綜合分析1、a,b,c三變量存放不同的數(shù)，值a最大，b

43、第二，比較好的算法是(A、定義一個(gè)max(x,y)B、如a < b 就a = bC、如a > b 就a = b函數(shù)(值為 x,y 中的大值) a = max(max(a,b),c)如 a < c 就 a = cl如 b <c 就 b = c如 a > c 就 a = cl如 b >c 就 b = cD、如a < b就兩變量交換如a < c就兩變量交換l如b <c 就兩變量交換2、求 2! +3! +4! +5!+ 1的值。能完成此運(yùn)算，并且比較好的算法是(A )。選項(xiàng)：A、定義求階乘的函數(shù)用j c(n)主程序中用一個(gè)循環(huán)9次調(diào)用j c(n)

44、函數(shù)進(jìn)行累加B、用一個(gè)程序完成：每一項(xiàng)階乘用一個(gè)For/Next循環(huán)完成，整個(gè)程序包括9個(gè)循環(huán)C、用解析法：s=1*2+1*2*3+1*2*3*4+1*2*3*4*5*6*7*8*9*10D、不必定義函數(shù)，只要用一個(gè)單重循環(huán)就能完成3、要求打印100至200之間所有偶數(shù)的平方根( C )A、i = 100 Do While i < 200:Printi,Sqr(i):loopB、i = 100 Do While i < 200:Printi,Sqr(i):i= i + 1:loopC、For i = 100to 200 step 2:Print i,Sqr(i): Next iD、

45、For i = 100to 200:Print i,Sqr(i):Next i編程題必修1_15、編寫程序，使能打印下面所示的圖案。*程序：Private Sub Form Click()Dim i As Integer '定義i為整型變量Dim j As Integer '定義j為整型變量For i = -3 To 3Print Tab(Abs(i)+5)For j=1 To (4-Abs(i)-1Print "*"Next jPrint '換行Next iEnd Sub必修2_15、編寫程序，使能打印下面所示的圖案。*程序：Private Sub

46、 Form Click()Dim i As Integer '定義i為整型變量Dim j As Integer '定義j為整型變量For i = -3 To 3Print Tab(Abs(i)+5);For j=1 To 2*(3-Abs(i)-1Print "*"Next jPrint '換行Next iEnd Sub必修3_15、編寫程序，使能打印下面所示的圖案。程序：Private Sub Form_Click()Dim i As IntegerDim j As IntegerFori = 1 To 6Print Tab(10);Forj =

47、1 To iPrint " ；Next jPrintNext iEnd Sub必修4_15、完善顯示按鈕的 click程序，將代碼段中變量1 變量2.變量3、處換成正確的變量名，使當(dāng)單擊該按鈕時(shí)，Labell. Label2 分別顯示30、10,完成所有操作后，諸按 “Ctrl+S ”保存。Private Sub Command_Click()x = 10y = 30If x < y Thent = xx = yy = tEnd IfLabel1.Caption = xLabel2.Caption = yEnd Sub必修5_15、完善"判斷"按鈕的clic

48、k程序，使當(dāng)從Textl中輸入一個(gè)數(shù)時(shí)，當(dāng)該數(shù)大于或等于60時(shí)在Lebell中顯示"及格"，該數(shù)小于60時(shí)在Labell中顯示"不及格"。完成所有操作后，諸按 “Ctrl+S ”保存。Private Sub Command1_Click()Dim a As Singlea = Val(Textl.Text)If a>=60 ThenLabell.Caption = 及格”End IfIf a < 60 ThenLabel1.Caption =不及格”End IfEnd Sub必修1_16、編寫程序，求函數(shù) y的值(當(dāng)x<=0 時(shí),y=3

49、x+1;當(dāng)x>0 時(shí)，y=4x+1)。程序：Private Sub Form Click()Dim x As Single ' 定義x為單精度型變量Dim y As Single ' 定義y為單精度型變量x = Val(InputBox("請(qǐng)輸入變量 x")If x <=0 Theny = 3 * x + 1Elsey = 4 * x + 1End IfPrint "y="yEnd Sub必修2_16、編寫程序，求 y=6x-5 的值。(x的值在程序中調(diào)用InputBox 函數(shù)，在彈出的標(biāo)準(zhǔn)輸入對(duì)話框中輸入)程序：Privat

50、e Sub Form_Click()x = Val(InputBox(請(qǐng)輸入變量x”)y = 6*x- 5Print "y=” ； End Sub必修3_16、一只猴子摘了一堆桃子，它每天吃當(dāng)天桃子數(shù)的一半，每次忍不住多吃了一個(gè)。這樣到第十天時(shí)只有一個(gè)桃子可以吃了，編程計(jì)算猴子最 初共有多少個(gè)桃子。完成所有操作后，諸按“Ctrl+S ”保存。程序：Private Sub Form_Click()Dim i As IntegerDim s As Integer s = 1For i =1 To 9s = (s + 1)*2NextPrint " s= " ;sEnd

51、 Sub必修4_16、完善按鈕 計(jì)算7!”的Click事件程序，當(dāng)單擊命令按鈕時(shí) Text1顯示7!的值。 Private Sub Command1_Click()Dim a As IntegerDim i As Integer a = 1Fori = 1 To 7a = a * iNext iText1.Text = a必修5_16、請(qǐng)將按鈕"計(jì)算1+2+100"的Click事件程序中的"常量"和"變量"換成正確的常量和變量，當(dāng)單擊命令按鈕時(shí)Textl顯示1+2+"""+100的值。完成所有操作后，諸按“Ctrl+S ”保存。Private Sub Command1_Click()Dim a As IntegerDim I As Integer a = 0For i = 1 To 100 a = a + iNext iText1.