高中《算法與程序設(shè)計VB(選修)》復(fù)習(xí)知識點

1、實用標(biāo)準(zhǔn)文案高中信息技術(shù)算法與程序設(shè)計VB（選修）知識要點相關(guān)知識點（一）算法1. 定義相關(guān)題解：1 算法： 就是解決問題的方法和步驟。算法是程序設(shè)計的“靈魂”，算法 + 數(shù)據(jù)結(jié)構(gòu)程序。單選題1 、下列關(guān)于算法說法不正確的是(A)A 、算法獨立于任何具體的語言，BASIC 算法只能用BASIC 語言來實現(xiàn)B、解決問題的過程就是實現(xiàn)算法的過程C、算法是程序設(shè)計的“靈魂”D 、其它三項都正確2 算法的描述方法：1 算法的描述： 可分多種表達方法，一般用自然語言、流程圖和偽代碼進行描述。2 自然語言描述法：指用人們?nèi)粘Ｉ钪惺褂玫恼Z言（本國語言），用自然語言描述符合我們的習(xí)慣，且容易理解。3 流程圖

2、描述： 也稱程序框圖，它是算法的一種圖形化表示方法。且描述算法形象、直觀，更易理解。4 偽代碼描述法：是介于自然語言和計算機程序語言之間的一種算法描述。是專業(yè)軟件開發(fā)人員常用方法。開始或結(jié)束輸入或輸出判斷處理或運算連流程線接點相關(guān)題解：單選題1 、 圖 形 符 號 ""在算法流程圖描述中表示(B).A處理或運算的功能B 輸入輸出操作C 用來判斷條件是否滿足需求D 算法的開始或結(jié)束2 、圖形符號 "" 在算法流程圖描述中表示(A).文檔實用標(biāo)準(zhǔn)文案A處理或運算的功能B 輸入輸出操作C 用來判斷條件是否滿足需求D 算法的開始或結(jié)束3 、以下哪個是算法的描述方

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

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

5、y時文本左對齊； (1)Right Justify時文本右對齊；設(shè)置為 (2)Center時文本居中。文檔實用標(biāo)準(zhǔn)文案AutoSize設(shè)置為 False 時輸入控件 Caption中文字超過控件寬度時超出部分被裁剪掉，設(shè)置為 True 時，控件可水平擴充，以適應(yīng)控件Caption 屬性。Visible決定控件是否可見Enabled決定控件運行時是否有效對象 .屬性屬性值對象中屬性可以在設(shè)計界面時通過屬性窗中設(shè)置，也可以在運行時通過程序代碼設(shè)置,方法如下例：給文本框“Txt123 ”的“ Text ”屬性賦值為字符串“20 ”，代碼如下Txt123.text =” 20 ”變量對象 .屬性如果要

6、獲取對象的狀態(tài)或特性，這時就要讀取對象的屬性值，方法如下例：讀取文本框“txt123 ”的“ Text ”屬性的代碼如下a = txt123.text2 方法對象 .方法參數(shù)名表例： form.print”歡迎使用”該語句使用print方法在 form1窗體中顯示字符串“歡迎使用”3 事件及事件驅(qū)動事件是對象對外部操作的響應(yīng)，如在程序執(zhí)行時，單擊命令按鈕會產(chǎn)生一個Click事件 。如需要命令按鈕響應(yīng)Click 事件，就把完成Click 事件功能的代碼寫到Click 事件的事件過程中，與事件一一對應(yīng)。事件過程的形式如下：Private Sub對象 _事件名 ( ) （事件過程代碼）End Sub

7、一個簡單的VB 程序求圓的周長和面積Private Sub Command1_Click()Dim r As Single'定義 r 為單精度型Dim c As Single'定義 c 為單精度型Dim s As Single'定義 s 為單精度型r = Val(Text1.Text) '輸入半徑r文檔實用標(biāo)準(zhǔn)文案c = 2 * 3.14159 * r' 計算周長s = 3.14159 * r * r'計算面積Text2.T ext = c'輸出周長Text3.T ext = s'輸出面積End SubPrivate Sub Co

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

9、展經(jīng)歷了機器語言、匯編語言、高級語言的過程C、計算機程序就是指計算機如何去解決間題或完成一組可執(zhí)行指令的過程D 、程序設(shè)計語言和計算機語言是同一概念的兩個方面一、常量 ：批在程序進行過程中不變的量在VB 中一般分 數(shù)值常量 與字符常量 兩種數(shù)值常量： 就是數(shù)學(xué)中說的常數(shù)，分整型常量 和實型常量 兩種整型常量： 即整數(shù)，指不帶小數(shù)點的數(shù)值如1 、 0 、 -10 、 +35等都是合法的整數(shù)實型常量： 即實數(shù)，指帶小數(shù)點的數(shù)值。實型常量 又分為 定點數(shù) 和浮點數(shù)兩種。例：定點數(shù)：3.14159和 -6.8 ， 1.99浮點數(shù)： 2E6 、 1E5 、 88E例： 1.2345 ×10 3

10、 可表示為1.2345E3 ，字母 E 表示底數(shù) 10浮點數(shù)就是數(shù)學(xué)上的科學(xué)計數(shù)法。字符串常量：被一對雙引號括起來的若干個合法的字符稱為字符串常量。例如：” China ”、”Visual Basic”、”18 ”、”3.1415 ”等，雙引號中字符，不包括雙引號本身。符號常量： 如果多次用到同一個常量，則可用一個有意義的名字表示這個常量。二、變量 ：在程序執(zhí)行過程中，其值可以改變的量稱為變量變量命名注意要點：1 、必須以字母開頭,不能以數(shù)字或其他字符開頭。文檔實用標(biāo)準(zhǔn)文案2 、只能由字母、漢字、數(shù)字學(xué)或下劃線組成，不能含有小數(shù)點、空格等字符。3 、最長不超過 255 個字符4 、不能以 VB

11、 保留字作變量名，如語句定義符、函數(shù)名等。5 、VB 不區(qū)分變量名中字母大小寫。如HELLO 和 Hello是同一個變量。數(shù)據(jù)及運算（1 ）常用數(shù)據(jù)類型： (整型 )Integer 、（長整型） Long 、（單精度型） Single 、（雙精度型）Double、（字符串型）String 、（布爾型） Boolean 、（日期型） Date其中 (整型 )Integer 、（長整型） Long 、（單精度型） Single 、（雙精度型）Double屬于數(shù)值型表示范圍：( 整型 )Integer(-3276832767 ，存儲為16位 ， 2 個字節(jié) )( 長整型 )Long(-21億 21

12、億，可以表示人口數(shù)量)( 布爾型） Boolean(True真、是或 False 假、非 )（字符串型）String( 定長字符串： 0 65535 個字符，不定長字符串：0 20 億個字符 )字符串型數(shù)據(jù)是指用“ ”括起來的一串字符。如“歡迎進入VB 世界！”、“ VisualBasic ” 、“ 1234”都是字符串類型。（日期型） Date （ 100/1/1 9999/12/31）日期型數(shù)據(jù)專門用來處理日期和時間。VB 采用一對“ # ”把日期和時間的值括起來，如 #2003/08/20# 表示 2003 年 8 月 20 日。（2 ）常量和變量的命名、聲明及賦值符號常量的聲明：Con

13、st常量名As常量類型 =常量值如： ConstpiAsSingle = 3.14159常量名為 pi變量的聲明 ：Dim < 變量名>As <變量類型 >如： DimaAsInteger定義一個整型變量，變量名為a變量的賦值VB 中使用 Let 語句給變量賦值，其形式如下：Let變量=表達式其中，方括號 表示這部分內(nèi)容是可選的，通?？梢允÷栽撽P(guān)鍵字。例題Private Sub Form_Click()Dim a As Integer, b As Integer, c As IntegerDim str As String文檔實用標(biāo)準(zhǔn)文案Let a = 54Let b

14、= 114c = a + bstr = "HelloWorld"Print "a=" a, "b=" b, "c=" cPrint strEnd Sub數(shù)據(jù)的輸出程序中運算得到的結(jié)果，除可以使用文本框和標(biāo)簽顯示外，對于大批量的數(shù)據(jù)更適合用Pint方法輸出，格式如下 對象 . Pint 表達式列表 例題：Private Sub Form_Click()Dim x As Single, y As SingleForm1.Print-61; -34Form1.Print9*2;12Form1.Print"Thi

15、s is" "a book"x = 3: y = 4Print"x=" x, "y=" yEnd Sub注意： Print方法相關(guān)題解：單選題1 、下列變量名寫法錯誤的是(B)A 、abc_123B、 123abcC、 abc123D 、 abc2 、下列語句中定義了一個實型變量的是(B)A 、Dim end as IntegerB 、Dim sum As SingleC、 Dim Name As StringD 、其它三項都不對3 、在 VB 中，以下哪個是正確表示十六進制整型數(shù)常量?(D)A 、32FB、 H32FC、

16、h32FD、 &32F4 、在 VB 中，以下關(guān)于符號常量的聲明，聲明正確的是:(C)A 、Dim TAG as StringB、 Const TAG as String "Visual" + "Basic"C、 Const TAG as String ="Visual Basic"D 、 Const TAG as String5 、下面 (B)不是字符串常量文檔實用標(biāo)準(zhǔn)文案A 、"True"B、 #False#C、 " "D 、 "你好 "運算符1 、算術(shù)運算：+加

17、- 減* 乘指數(shù)例：22=4/（浮點）除例：5/2=2.5整除例： 52=2Mod求余數(shù)例： 5 Mod 2 = 1相關(guān)題解單選題1 、分析下列程序:Private Sub Form_Click()s=113 + 11 Mod 3Print sEnd Sub當(dāng)單擊窗體時s 的值是 (A).A、5B、6C、4D、3關(guān)系運算=賦值、<小于號<>不等于>大于號>=大于等于號<= 小于等于號注意：關(guān)系表達式的運算結(jié)果為布爾值True 或 False例：3>2結(jié)果為True( 真或是 )相關(guān)題解單選題1 、下面表達式的值是false 的有 (C).A 、&quo

18、t;969" < "n97"B、 Int(4.99) <> len("basic")C、 str(2000) < "1997"D、 3 > 2邏輯運算Not （取反） And （與）Or （或）運算結(jié)果為布爾型（Boolean） True或 False邏輯運算符的優(yōu)先級為：No > And > Or日期運算符與日期表達式文檔實用標(biāo)準(zhǔn)文案日期表達式是用日期運算符“+ ”或“ - ”將算式表達式、日期型常量、日期型變量、日期函數(shù)等連接起來的式子，如表達式“#2003/09/01#+30

19、”的運算結(jié)果是“2003-10-1”；表達式“ #2003/10/20# - #2003/10/10#”的運算結(jié)果為整數(shù) 10相關(guān)題解單選題1 、設(shè) a=2, b=3,在 VB 中，表達式a>b Or b>3值是 :(B)A 、FalseB、 TrueC、 -1D 、 1字符運算字符串連接符為“+”和“ &”“123 ” + “ 45” = “12345 ” “123 ” & “45” = “12345 ”123 +“45 ” = 168“123 ” + 45 = 168運算符的執(zhí)行順序在 VB 中，當(dāng)一個表達式中同時出現(xiàn)多種運算符時，運算次序由運算符的優(yōu)先級決定，

20、 優(yōu)先級高的運算符先運算，優(yōu)先級相同的從左向右進行運算。不同性質(zhì)的運算符優(yōu)先級如下。算術(shù)運算符 > 字符串運算符 > 關(guān)系運算符 > 邏輯運算符常用函數(shù)數(shù)學(xué)函數(shù)Abs(x)求 x 的絕對值，例：abs(-3.6) = 3.6Sqr(x)求 x 的平方根，例：sqr(100) = 10Int(x) 求x 的最大整數(shù)例： int(3.6) = 3int(-3.6) = -4Rnd(x) 產(chǎn)生 0 ， 1) 之間的隨機數(shù)（不包括1 ）Sin(x)Cos(x)Tan(x)Atn(x)Exp(x)Log(x)使 用三角 函數(shù) 時，參數(shù) 應(yīng)是 弧度 ，如 數(shù) 學(xué)中sin30 0 應(yīng) 寫

21、為：sin(30*3.14159/180)文檔實用標(biāo)準(zhǔn)文案字符串函數(shù)Len( 字符串 ) 求字符串的長度,例： Len( “ hello ” ) = 5Left( 字符串，截取長度) 截取字符串左邊部分,例 :Left( “hello ” ,2) =“ he ”Mid( 字符串，起始位置，截取長度) , 例： Mid( “ hello ” ,2,2) =“ el ”其他：Right ( 字符串 ,長度 )截取字符串右邊部分。例: Right ( “ hello ” ,2) =“ lo ”String( 數(shù)值，字符 )生成指定長度與指定字符的字符串，例：String(3, ”9 ”) =”999

22、 ”常用轉(zhuǎn)換函數(shù)Val( 字符串 ) 將字符串轉(zhuǎn)換為數(shù)值Str( 數(shù)值 ) 將數(shù)值轉(zhuǎn)換為字符串Chr( 字符代碼 )Asc( 字符 )Tab 定位函數(shù)的使用例題Private Sub Form_Click()Dim aAs IntegerDim bAs Integera = 4: b = 9Print T ab(1); " 數(shù) " Tab(9); " 平方 " Tab(18); "立方 " T ab(27); " 平方根 "Print T ab(1); a; T ab(9); a * a; Tab(18); a *

23、 a * a; Tab(27); Sqr(a)Print T ab(1); b; T ab(9); b * b; Tab(18); b * b * b; Tab(27); Sqr(b)End Sub用戶交互函數(shù)VB 提供 InputBox( )和 MsgBox( )函數(shù)用于人機交互InputBox( )其語法格式為：InputBox(提示 ，標(biāo)題 ，默認值 ,X 坐標(biāo) ，Y 坐標(biāo) )MsgBox( )其語法格式為：MsgBox(提示信息 ，按鈕 ，標(biāo)題 )相關(guān)題解單選題文檔實用標(biāo)準(zhǔn)文案1、Visual Basic中，下列 ( A)函數(shù)是求絕對值的。A 、ABS （ X）B、SQR(X ）C、

24、INT （ X）D、GN （X)2、表達式 Abs(-3.6)*sqr(100)的值是 (C )。A 、-36B、 360C、36D 、-3603、下列 (A)數(shù)據(jù)類型不是數(shù)值型。A 、DateB、SingleC、 DoubleD 、 Integer4、下列函數(shù)中，返回值是字符串的是(A).A 、MidB、 InstrC、ValD 、 Len5、下列 (A)函數(shù)返回系統(tǒng)的當(dāng)前時間。A 、time()B、date()C、 day()D 、 year()6 、代數(shù)表達式A 、g*t*t/21 gt 22 表達式后錯誤的是 ( D )B、 1/2*g*t2C、 g*t2/2D 、 gt2/22ab7

25、、數(shù)學(xué)式子 4ab 在 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中以哪個邏輯表達式是正確的?(C )A、a<x andx<=bB、 a<x<=bC、 a<x and x bD 、 a>x and x<=b綜合分析1、向 n 變量存入1 個 2位整數(shù)，要使此2 位數(shù)十位和個位上的值分別存入x, y 變量。正確的算法是(D)。選項 :x 、 x=Left(n,1) y=n-x*10 Print x

26、:Print yB、 x=Left(n,1) y=Right(n,1) Print x:Print yC、 x=n/10 y=n-x*10 Print x:Print yD 、 x=Int(n/10) y=n-x*10 Print x:Print y2 、向 x 變量中輸入任意一個小寫字母，再將x 變量中的小寫字母轉(zhuǎn)成大寫字母。正確的算法是(A).選項 :A 、輸人字母到x a=Asc(x)-32 x=chr(x) Print xB、輸人字母到x a=Asc(x)+32 x=chr(x) Print xC、輸人字母到x a=Val(x)一 32 x=Chr(x) Print xD 、輸人字母到

27、x a=Val(x)+32x=Chr(x)Print x程序設(shè)計的順序結(jié)構(gòu)順序結(jié)構(gòu)：代碼按照由上到下的順序一行一行地執(zhí)行。程序執(zhí)行過程中沒有分支、文檔實用標(biāo)準(zhǔn)文案沒有重復(fù)，這種結(jié)構(gòu)稱為順序結(jié)構(gòu)。例題：交換兩個變量中的數(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.T ext = Str(x)txtdy.T ext = Str(y)End SubPriva

28、te 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 程序運行后，變量x 的值為 (A).x=2Print x+lPrint x+2A、2B、3C、5D、8程序設(shè)計的分支結(jié)構(gòu)行 If 語句行 If 是指在一行中寫完的 If 語句。其一般格式為：格式一： If 條件 Then 語句執(zhí)行這種形式的If 語句時，首先對條件進行判斷。若條件成立，則執(zhí)行Then 后面的語句；若條件不成立，則執(zhí)行If 語句后繼程序行的語

29、句文檔實用標(biāo)準(zhǔn)文案格式二： If 條件 Then語句 1Else 語句 2例題：輸入三個不相同的數(shù)，求出其中最小數(shù)。Private Sub Form_Click()Dim aAs Single, bAs Single, cAs SingleDim MinAs Singlea = InputBox("輸入 a", " 輸入框 ")b = InputBox("輸入 b", " 輸入框 ")c = InputBox("輸入 c", " 輸入框 ")If a < b Then

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

31、te Sub Command1_Click()Dim a As Singlea = Val(Text1.Text)If a >= 60ThenLabel1.Caption = "及格 "End IfIf a < 60ThenLabel1.Caption = "不及格 "End IfEnd Sub格式四： If條件 Then語句塊 1文檔實用標(biāo)準(zhǔn)文案Else語句塊 2End If例題： 編寫程序，求函數(shù) Y 的值（當(dāng) x0 時， y=3x+1 ；當(dāng) x>0 時， y=4x+1 ）。Private Sub Form_Click()Dim x

32、 As SingleDim y As Singlex = Val(InputBox("請輸入變量x")If x <= 0Theny = 3 * x + 1Elsey = 4 * x + 1End 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 、下列程序段運行后，變量Value 的值是（A ）x = 20If x >= 10 ThenValue =

33、 5 * xElseValue = 4 * xEnd IfA 、100B、80C、 90D 、70文檔實用標(biāo)準(zhǔn)文案綜合分析1 、如要完成 :從鍵盤輸入一個正整數(shù)，判斷是否是奇數(shù)，如是就在屏幕上顯示。比較好的算法是 (BD)。選項 :A 、輸人的數(shù)存人n 變量 f=(n/2=Int(n/2)如果 f 中的值為True 就顯示 n 中值B、輸人的數(shù)存人n 變量 f=(n/2=Int(n/2)如果 f 中的值為False 就顯示 n 中值C、輸人的數(shù)存人n 變量如果n/2=Int(n/2)成立，就顯示n 中值D 、輸人的數(shù)存人n 變量如果n/2=Int(n/2)不成立，就顯示n 中值2 、下面是判斷

34、變量x 是不是能被5 整除的偶數(shù)的程序，橫線上的邏輯表達式應(yīng)為(AB)Private Sub commandl_Click()Dim x As Integerx=Val(Text1. Text)If_ = 0 ThenLabell.Caption=這個數(shù)是能被5 整除的偶數(shù)ElseLabell.Caption=這個數(shù)不是能被5 整除的偶數(shù)End If選項：A 、(x Mod 5) = 0 And (x Mod 2 ) = 0B、 x Mod 10 = 0C、 x Mod 5 = 0D 、 x Mod 2 = 03 、如要完成 :從鍵盤輸入一個正整數(shù)，判斷是否是偶數(shù)，如是就在屏幕上顯示。比較好的

35、算法是 (AC)。選項 :A 、輸入的數(shù)存人n 變量 f=(n/2=Int(n/2)如果 f 中的值為 True就顯示 n 中值B、輸入的數(shù)存人n 變量 f=(n/2=Int(n/2)如果 f 中的值為 False就顯示 n 中值C、輸入的數(shù)存人n 變量如果 n/2=Int(n/2)成立，就顯示 n 中值D 、輸入的數(shù)存人n 變量如果 n/2=Int(n/2)不成立，就顯示 n 中值4 、下列程序段運行后,m 的值為 ( A )A=2: b=1: c=5If A < b Then m = A Else m = bIf c < m Then m = c選項：A 、1文檔實用標(biāo)準(zhǔn)文案B

36、、 2C、 5D 、提示錯誤，無答案程序設(shè)計的循環(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 ：求 s1+2+3+4.+100Private Sub Form_Click()Dim i As IntegerDim sumAs Integersum = 0For i = 1 To 100sum = sum + i' 循環(huán)體NextiPrint "sum=" sumEnd Sub例題 2 ：Step 循環(huán)變量增量Private Sub Form_Click()For

37、 j = 3 To 15 Step 2Print jNextjEnd Sub循環(huán)變量的初值、終值、循環(huán)變量增量都是數(shù)值型。其中要重復(fù)執(zhí)行的操作稱為循環(huán)體，增量可正可負，如果沒有設(shè)置 Step ，則增量的缺省值為 1 1 、循環(huán)變量取初值；2 、循環(huán)變量與終值比較，沒有超過終值轉(zhuǎn)3 ，否則循結(jié)束，接著執(zhí)行循環(huán)語句的后繼語句；3 、執(zhí)行一次循環(huán)體4 、循環(huán)變量增加一個增量5 、重復(fù)步驟24 。以上可以看出，F(xiàn)or-Next循環(huán)變量是一種當(dāng)型循環(huán)。說明文檔實用標(biāo)準(zhǔn)文案（ a） For 語句與 Next 語句必須成對出現(xiàn)，而且它們當(dāng)中的“循環(huán)變量”必須是同一個變量，如上例中均為 I。（ b ） 當(dāng)循環(huán)

38、變量為正時，循環(huán)變量超過終值，是指循環(huán)變量的值大于終值時；若為負，則是指循環(huán)變量的值小于終值。入口PA出口二、 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 Command1_Click()Dim a As IntegerDim b As IntegerDim r As Integera = Val(Text1.Text)b = Val(Text2.Text)文檔實用標(biāo)準(zhǔn)文案r = a Mod bDo W

39、hiler <> 0a = bb = rr = a Mod bLoopText3.T ext = Str(b)End SubPrivate Sub Command2_Click()EndEnd Sub當(dāng) VB 執(zhí)行 Do While-Loop 循環(huán)時，先判斷指定的條件是否為真，若條件為真，執(zhí)行循環(huán)體，條件為假時退出循環(huán)。格式二： Do循環(huán)體Loop Until條件這種循環(huán)的執(zhí)行過程如圖所示。進入循環(huán)體后，先執(zhí)行一次循環(huán)體A ，然后再檢查條件 P 是否成立。如果不成立，就重復(fù)執(zhí)行循環(huán)體A ，直到條件 P 成立退出循環(huán)體。ANP例題：如果我國人口每年以平均 1.5% 的速度增長，問多少

40、年后我國人口達到或超過 15 億？設(shè)現(xiàn)在人口為 12.3 億。文檔實用標(biāo)準(zhǔn)文案Private Sub Form_Click()Dim pAs SingleDim rAs SingleDim nAs Integerp = 1230000000#r = 0.015n = 0Dop = p * (1 + r)n = n + 1Loop Untilp >= 1500000000#Print n; "年后 ", " 人口 =" pEnd Sub1 、下列流程圖表示的是程序的( B)基本結(jié)構(gòu)的算法。A其它三項都不是B 循環(huán)結(jié)構(gòu)C 選擇結(jié)構(gòu)D 順序結(jié)構(gòu)2 、在

41、VB 中，以下程序段:x=0Do While x<50x=(x+2)*(x+3)Loop執(zhí)行后， x 的值為 :(C).A 、168B、50C、 72D、 03 、閱讀下面程序，當(dāng)單擊窗體之后，窗體上輸出的是(A)Private Sub Form_Click()Dim i As Integer:Dim s As Integers = 0For i = 1 To 5s = s + iNext iPrint s,iEnd Sub選項 :A、15 6B、s=15i=6C、65D 、s=64 、要求計算機打印出100至 200 之問所有偶數(shù)的平方根值。正確的算法是選項 :i=5(C)。文檔實用標(biāo)

42、準(zhǔn)文案A 、 i=100Do While i<200:Print i， Sqr(i):LoopB、 i=100 Do While i<200:Print i， Sqr(i):i=i+1:LoopC、 For i=100 To 200 Step 2:Print i，Sqr(i):Next iD 、 For i=100 To 200:Print i， Sqr(i):Next i5 、下列程序段中，循環(huán)體執(zhí)行的次數(shù)是(B)y = 2Do While y <= 8y = y+yLoop選項 :A 、2B、3C、4D、56 、閱讀下面程序，當(dāng)單擊窗體之后，m 的值是 ( C).Priv

43、ate Sub Form_Click()Dim m As Integer:Dim i As Integerm = 0For i = 1 To 3m = m + 2Next iPrint mEnd Sub選項：A 、0B、4C、6D、87 、在 VB 中，假定有以下程序段:For i=1 To 3 Step 2Print "VB"Next i則語句 Print "VB"的執(zhí)行次數(shù)是：(B)。A、1B、2C、3D、48 、下列程序段中，循環(huán)體執(zhí)行的次數(shù)是(B)x=0For y=1To10step -1x=x+1Next yA 、1B、0C、10D、49 、在

44、 VB 中，假定有以下程序段:文檔實用標(biāo)準(zhǔn)文案For i=3 To 1Print "VB"Next i則語句 Print“ VB ”的執(zhí)行次數(shù)是:(D)A、出錯B、2C、1D、010 、下列程序段中，循環(huán)體執(zhí)行的次數(shù)是（C）x=0For y = 1To10step -1x = x+1Next yA、1B、10C、0D、411 、單擊窗體后，文本框Text1 、 Text2 中顯示的內(nèi)容是（A）Private Sub Form_Click()Dim x as Integer, n as Integerx = 1n = 0Do While x < 20n = n + 1x

45、 = x * 3LoopText1.text = Str(x)Text2.text = Str(n)End SubA 、273B、327C、20 3D、32112 、單擊窗體后，文本框Text1 、 Text2 中顯示的內(nèi)容是（A）Private Sub Form_Click()Dim x as Integer, y as Integerx = 1:y = 0Do While x < 3y = y + xx = x * 3LoopText1.text = Str(x)Text2.text = Str(n)End Sub文檔實用標(biāo)準(zhǔn)文案A 、273B、327C、20 3D、32113 、讀下面程序，單擊窗體后，在文本框顯示的內(nèi)容是（B）Private Sub Form_Click()Dim a( 8 ),b( 8 ) as IntegerDim i,j As IntegerFor j = 1 To 4a( j ) = 2 * jb( j ) = a( j ) * 3Next jText1.T ext = b( j / 2 )End SubA 、10B、 12C、14D 、 186 面向?qū)ο蟪绦蛟O(shè)計思想相關(guān)題解單選題1、在 visual Basic 中顯