江蘇省高中信息技術(shù)《算法與程序設(shè)計VB選修》知識要點

1、江蘇省高中信息技術(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言（本國語言），用自然語言描述符合我們的習慣，且容易理解。3流程圖描述：也稱程序框圖，

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

3、?（ D ）A順序法B列表法C集合法D自然語言描述法（二）程序設(shè)計基礎(chǔ)（1）常用高級編程語言：BASIC、VB、Pascal、C、C+、B ).Java控件對象的類型前綴名字舉例窗體Formfrmfrmfind命令按鈕Command buttoncmdcmdok標簽Labellbllblinput文本框TextBoxtmrtmrClock右命令按鈕（Command）的Enabled屬性設(shè)置為 True時按鈕功效，設(shè)置為 False時按鈕無效1面向?qū)ο蟮某绦蛟O(shè)計語言：其中的對象主要是系統(tǒng)設(shè)計好的對象，包括窗體等、控件等2控件：是指工具箱中的工具在窗體中畫出的、能實現(xiàn)一定功能的部件，如文本框，命令

4、按鈕等。 常用控件：3對象的屬性、方法和事件1屬性屬性Name設(shè)置對象的名稱Caption決定控件中顯示的內(nèi)容（文字）Text決定窗體中文本框中顯示的內(nèi)容（初始為空白）Height決定控件高度Width決定控件寬度TOP決定控件的靠頂部位置Left決定控件的靠左邊位置Font設(shè)置控件中字體格式BackColor設(shè)置控件背景色ForeColor設(shè)置控件的前景色BorderStyle設(shè)置控件的邊框風格Alignment即標簽文字對齊屬性：（0）Left Justify時文本左對齊；（1）Right Justify時文本右對齊；設(shè)置為（2）Center時文本居中。AutoSize設(shè)置為False時輸

5、入控件Caption中文字超過控件寬度時超出部分被裁剪掉， 設(shè)置為True時，控件可水平擴充，以適應控件 Caption屬性。Visible決定控件是否可見Enabled決定控件運行時是否有效對象.屬性=屬性值對象中屬性可以在設(shè)計界面時通過屬性窗中設(shè)置，也可以在運行時通過程序代碼設(shè)置，方法如下例：給文本框“ Txt123”的“ Text”屬性賦值為字符串“ 20”，代碼如下="20”變量=對象.屬性如果要獲取對象的狀態(tài)或特性，這時就要讀取對象的屬性值，方法如下例：讀取文本框“ txt123”的“Text”屬性的代碼如下a =2方法對象.方法參數(shù)名表例：”歡迎使用”該語句使用print

6、方法在forml窗體中顯示字符串“歡迎使用”3事件及事件驅(qū)動Click事件是對象對外部操作的響應，如在程序執(zhí)行時，單擊命令按鈕會產(chǎn)生一個Click事件。如需要命令按鈕響應事件，就把完成 Click事件功能的代碼寫到 Click事件的事件過程中，與事件一一對應。事件過程的形式如下：Private Sub對象事件名（）（事作過程代碼）End Sub一個簡單的VB程序求圓的周長和面積Private Sub Command1_Click（）Dim r As Single '定義r為單精度型Dim c As Single '定義c為單精度型Dim s As Single '定義s

7、為單精度型r = Val（）'輸入半徑rc = 2 * 3.14159 * r'計算周長s = 3.14159 * r * r計算面積=c'輸出周長=s輸出面積End SubPrivate Sub Command2_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è)計語言和計算機語言是

8、同一個概念的兩個方面D 、程序設(shè)計就是指示計算機如何去解決間題或完成一組可執(zhí)行指令的過程2、下列說法錯誤的是（D ） .A、程序設(shè)計就是尋求解決問題的方法，并將其實現(xiàn)步驟編寫成計算機可以執(zhí)行的程序的過程B 、程序設(shè)計語言的發(fā)展經(jīng)歷了機器語言、匯編語言、高級語言的過程C、計算機程序就是指計算機如何去解決間題或完成一組可執(zhí)行指令的過程D 、程序設(shè)計語言和計算機語言是同一概念的兩個方面一、常量 ： 批在程序進行過程中不變的量在 VB 中一般分 數(shù)值常量 與 字符常量 兩種數(shù)值常量：就是數(shù)學中說的常數(shù)，分整型常量 和 實型常量 兩種整型常量： 即整數(shù)，指不帶小數(shù)點的數(shù)值如 1、 0 、 、 -10 、

9、 +35 等都是合法的整數(shù)實型常量：即實數(shù)，指帶小數(shù)點的數(shù)值。實型常量 又分為 定點數(shù) 和 浮點 數(shù)兩種。例：定點數(shù)： 3.14159 和-6.8， 1.99浮點數(shù)： 2E6、 1E5、 88E例：1.2345X 103可表示為1.2345E3,字母E表示底數(shù)10浮點數(shù)就是數(shù)學上的科學計數(shù)法。字 符 串 常量 ： 被 一對 雙 引 號 括 起 來 的 若 干 個 合 法 的 字符 稱 為 字符 串 常量 。 例 如 ： ”China” 、 ” VisualBasic”、 ”18”、 ” 3.1415”等，雙引號中字符，不包括雙引號本身 。符號常量： 如果多次用到同一個常量，則可用一個有意義的名

10、字表示這個常量。二、變量： 在程序執(zhí)行過程中，其值可以改變的量稱為變量變量命名注意要點： 1 、必須以字母開頭,不能以數(shù)字或其他字符開頭。2、只能由字母、漢字、數(shù)字學或下劃線組成，不能含有小數(shù)點、空格等字符。3 、最長不超過255 個字符4 、不能以 VB 保留字作變量名，如語句定義符、函數(shù)名等。5 、 VB 不區(qū)分變量名中字母大小寫。如 HELLO 和 Hello 是同一個變量。數(shù)據(jù)及運算（ 1）常用數(shù)據(jù)類型： （整型 ）Integer、 （長整型） Long 、 （單精度型） Single 、 （雙精度型） Double 、 （字符串型）String 、 （布爾型） Boolean 、 （

11、日期型） Date其中（整型）Integer、 （長整型） Long 、 （單精度型） Single 、 （雙精度型） Double 屬于數(shù)值型表示范圍：（整型 ）Integer （-32768 32767 ，存儲為 16 位 ， 2 個字節(jié) ）（長整型 ）Long（-21 億 21 億，可以表示人口數(shù)量）（布爾型）Boolean（True真、是或False假、非）（字符串型）String（定長字符串：065535個字符，不定長字符串：020億個字符）字符串型數(shù)據(jù)是指用 “”括起來的一串字符。如 “歡迎進入 VB 世界！ ”、“Visual Basic ” 、 “1234 ”都是字符串類型。（

12、日期型） Date （100/1/1 9999/12/31）日期型數(shù)據(jù)專門用來處理日期和時間。 VB 采用一對“ # ”把日期和時間的值括起來，如 #2003/08/20#表示 2003 年 8 月 20 日。（ 2）常量和變量的命名、聲明及賦值符號常量的聲明： Const 常量名 As 常量類型 = 常量值如： Const pi As Single = 3.14159 常量名為 pi變量的聲明 ：Dim < 變量名 >As <變量類型 >如： Dima As Integer 定義一個整型變量，變量名為 a變量的賦值VB 中使用 Let 語句給變量賦值，其形式如下：Le

13、t 變量 = 表達式 其中，方括號 表示這部分內(nèi)容是可選的，通?？梢允÷栽撽P(guān)鍵字。 例題Private Sub Form_Click（）Dim a As Integer, b As Integer, c As IntegerDim str As StringLet a = 54Let b = 114c = a + bstr = "Hello WorldPrint "a=" a, "b=" b, "c=" cPrint strEnd Sub數(shù)據(jù)的輸出Pint 方法輸出，格式如程序中運算得到的結(jié)果，除可以使用文本框和標簽顯示外，

14、對于大批量的數(shù)據(jù)更適合用下對象 . Pint 表達式列表例題：Private Sub Form_Click()Dim x As Single, y As Single-61; -349 * 2; 12"This is" "a book"x = 3: y = 4Print "x=" x, "y=" yEnd Sub注意： Print 方法相關(guān)題解：單選題1、下列變量名寫法錯誤的是( B )A、 abc_123 B、 123abc C、 abc123 D、 abc2、下列語句中定義了一個實型變量的是( B )A 、 D

15、im end as IntegerB 、 Dim sum As SingleC、 Dim Name As String D 、其它三項都不對3、在VB 中，以下哪個是正確表示十六進制整型數(shù)常量?( D )A、 32F B、 H32F C、 h32F D、 &32F4、在VB 中，以下關(guān)于符號常量的聲明，聲明正確的是:( C )A、 Dim TAG as String B 、 Const TAG as String "Visual" + "Basic"C、 Const TAG as String ="Visual Basic"

16、D、 Const TAG as String5、下面( B )不是字符串常量A、 "True" B、 #False#C、 " " D、 "你好 "運算符1、 算術(shù)運算：+ 加 - 減 * 乘例： 2A2 = 4例： 5 / 2 = 2.5例： 5 2 = 2例： 5 Mod 2 = 1A指數(shù)/ (浮點)除 整除Mod 求余數(shù)相關(guān)題解單選題1、分析下列程序:Private Sub Form_Click() s=113 + 11 Mod 3Print sEnd Sub當單擊窗體時s 的值是 ( A ).A、 5 B、 6 C、 4 D、

17、3關(guān)系運算=賦值 、<小于號<>不等于>大于號>=大于等于號<= 小于等于號注意：關(guān)系表達式的運算結(jié)果為布爾值True 或 False例：3 > 2結(jié)果為True(真或是)相關(guān)題解單選題1、下面表達式的值是false 的有 ( C ).A、 "969" < "n97" B、 Int(4.99) <> len("basic") C、 str(2000) < "1997"D 、 3 > 2邏輯運算Not (取反) And (與) Or (或)運算結(jié)

18、果為布爾型( Boolean ) True 或 False邏輯運算符的優(yōu)先級為： No > And > Or日期運算符與日期表達式日期表達式是用日期運算符“ + ” 或“ -”將算式表達式、日期型常量、日期型變量、 日期函數(shù)等連接起來的式子，如表達式“ #2003/09/01# +30 ”的運算結(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、 False B、 TrueC、 -1 D 、 1字符

19、運算字符串連接符為“+”和“& ”“123” +“45” =“ 12345”“123” &“45” =“ 12345”123 +“45” = 168“ 123” + 451=68運算符的執(zhí)行順序在 VB 中， 當一個表達式中同時出現(xiàn)多種運算符時， 運算次序由運算符的優(yōu)先級決定，優(yōu)先級高的運算符先運算，優(yōu)先級相同的從左向右進行運算。不同性質(zhì)的運算符優(yōu)先級如下。算術(shù)運算符> 字符串運算符> 關(guān)系運算符> 邏輯運算符常用函數(shù)數(shù)學函數(shù)Abs(x) 求 x 的絕對值，例：abs(-3.6) = 3.6Sqr(x) 求 x 的平方根，例：sqr(100) = 10Int(

20、x)求w 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ù)應是弧度，如數(shù)學中sin300應寫為：sin(30*3.14159/180)字符串函數(shù)Len(字符串)求字符串的長度，例：Len( "hello ”尸5Left(字符串，截取長度)截取字符串左邊部分，例:Left("hello "，2) =“he”Mid(字符串，起始位置，截取長度)，例：Mid( "hello "，2,2)

21、 ="el”其他：Right (字符串 ，長度 )截取字符串右邊部分。例: Right (“hello ” ，2) =“l(fā)o ”String(數(shù)值，字符)生成指定長度與指定字符的字符串，例： String(3, “ 9")= “ 999”常用轉(zhuǎn)換函數(shù)Val(字符串)將字符串轉(zhuǎn)換為數(shù)值Str(數(shù)彳1)將數(shù)值轉(zhuǎn)換為字符串Chr(字符代碼)Asc(字符)Tab定位函數(shù)的使用例題Private Sub Form_Click()Dim a As IntegerDim b As Integer a = 4: b = 9Print Tab(1);"數(shù)"Tab(9);&

22、quot;平方"Tab(18);"立方"Tab(27);"平方根"Print Tab(1); 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ù)用于人機交互InputBox()其語法格式為：InputBox(提示,標題，默認值1X坐標,Y坐標)MsgBox()其語法格式為：MsgBo

23、x(提示信息,按鈕,標題)相關(guān)題解單選題1、Visual Basic中，下列(A )函數(shù)是求絕對值的。A、ABS (X) B、SQR(X) C、INT (X) D、GN (X) 2、表達式 Abs(-3.6)*sqr(100)的值是(C )。A、-36 B、360 C、36D、-3603、下列(A )數(shù)據(jù)類型不是數(shù)值型。D、IntegerLenD、year()D、gtA2/2A、DateB、Single C、DoubleA、MidB、InstrC、ValD、5、下列(A )函數(shù)返回系統(tǒng)的當前時間。B、date()C、day()A、time()6、代數(shù)表達式4、下列函數(shù)中，返回值是字符串的是 (

24、A ).1 . 2_ gt2 表達式后錯誤的是(A、g*t*t/2B、1/2*g*tA2C、g*tA2/22a b7、數(shù)學式子 4ab在VB中的正確寫法是：()A、(2*a+b)/4*a B、(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 and x<=b B、 a<x<=b C、a<x and x< b D、a>x and x<=b綜合分析1、向n變量存入1個2位整數(shù)，要使此2位數(shù)十位和個位上的值分別存入x, y變量

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

26、r(x) Print xx (2) a=Val(x)+32 x=Chr(x) Print x程序設(shè)計的順序結(jié)構(gòu)順序結(jié)構(gòu)：代碼按照由上到下的順序一行一行地執(zhí)行。程序執(zhí)行過程中沒有分支、沒有重復，這 種結(jié)構(gòu)稱為順序結(jié)構(gòu)。例題：交換兩個變量中的數(shù)據(jù)。Private Sub cmdSwap_Click()Dim x As Single, y As SingleDim m As Singlex = Val()y = Val()m = x: x = y: y = m'交換數(shù)據(jù)= Str(x)= Str(y)End SubPrivate Sub cmdEnd_Click()EndEnd Sub相關(guān)題

27、解單選題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 語句后繼程序行的語句格式二： If 條件 Then 語句 1 Else 語

28、句 2例題：輸入三個不相同的數(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 Min = bIf c < Min The

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

30、ea = Val()If a >= 60 Thenon = " 及格 " End IfIf a < 60 Thenon = " 不及格 "End IfEnd Sub格式四： If 條件 Then語句塊1Else語句塊2End If例題：編寫程序，求函數(shù) Y的值(當xW0時，y=3x+1 ;當x>0時，y=4x+1)Private Sub Form_Click()Dim x As SingleDim y As Singlex = Val(InputBox(" 請輸入變量x")If x <= 0 Theny = 3

31、 * 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 = 5 * xElseValue = 4 * xEnd IfA、 100 B、 80 C、 90 D、 70綜合分析1、如要完成: 從鍵盤輸入一個正整數(shù)，判斷是否是

32、奇數(shù)，如是就在屏幕上顯示。比較好的算法是 ( B D ) 。選項 :A、輸人的數(shù)存人B 、輸人的數(shù)存人C、輸人的數(shù)存人D 、輸人的數(shù)存人2、下面是判斷變量n 變量 f=(n/2=Int(n/2) 如果 f 中的值為 True 就顯示 n 中值n變量f=(n/2=Int(n/2)如果f中的值為 False就顯示n中值n 變量如果n/2=Int(n/2) 成立，就顯示n 中值n 變量如果n/2=Int(n/2) 不成立，就顯示n 中值x 是不是能被 5 整除的偶數(shù)的程序，橫線上的邏輯表達式應為 ( AB )Private Sub commandl_Click()Dim x As Integer x

33、=Val(Text1. Text)If = 0 Thenon=這個數(shù)是能被5整除的偶數(shù)Else*=這個數(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 = 0 3、如要完成：從鍵盤輸入一個正整數(shù)，判斷是否是偶數(shù)，如是就在屏幕上顯示。比較好 的算法是(AC )。選項：A、輸入的數(shù)存人B、輸入的數(shù)存人C、輸入的數(shù)存人D、輸入的數(shù)存人n變量f=(n/2=Int(n/2)如果f中的值為True就顯示n中值 n變量f=(n/2=Int(n/2)如果f中的值為 False就顯

34、示n中值n變量如果 n/2=Int(n/2)成立，就顯示 n中值 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、1B、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:求 s= 1+2+3+4+100Private Sub Form_Click()Dim i As Integer

35、Dim sum 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ù)值型。其中要重復執(zhí)行的操作稱為循環(huán)體，增量可正可負，如果沒 有設(shè)置Step,則增量的缺省值為 11、循環(huán)變量取初值；2、循環(huán)變量與終值比較，沒有超過終值轉(zhuǎn)3,否則循結(jié)束，接著執(zhí)行循環(huán)語句的后繼語

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

37、lick()Dim a As IntegerDim b As IntegerDim r As Integer a = Val()b = Val()r = a Mod bDo While r <> 0a = bb = rr = a Mod bLoop= Str(b)End SubPrivate Sub Command2_Click()EndEnd Sub當 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 ，然

38、后再檢查條件P 是否成立。如果不成立，就重復執(zhí)行循環(huán)體A ，直到條件P 成立退出循環(huán)體。例題：如果我國人口每年以平均1.5%的速度增長，問多少年后我國人口達到或超過 15億？設(shè)現(xiàn)在人口為12.3億。Private Sub Form_Click()Dim p As SingleDim r As Single Dim n As Integer p = # r = 0.015 n = 0 Do p = p * (1 + r) n = n + 1Loop Until p >= #Print n;"年后","人口 =" p End Sub 1、下列流程圖表示

39、的是程序的(B)基本結(jié)構(gòu)的算法。A其它三項都不是B循環(huán)結(jié)構(gòu)C選擇結(jié)構(gòu)D順序結(jié)構(gòu)2、在VB中，以下程序段： x=0 Do While x<50x=(x+2)*(x+3)Loop 執(zhí)行后，x的值為：(C ).A、168 B、50 C、72 D、03、閱讀下面程序，當單擊窗體之后，窗體上輸出的是( A )Private Sub Form_Click()Dim i As Integer:Dim s As Integer s = 0 For i = 1 To 5 s = s + iNext iPrint s,iEnd Sub 選項：A、15 6 B、s=15i=6 C、65 D、s=6i=54、要

40、求計算機打印出100至200之問所有偶數(shù)的平方根值。正確的算法是 (C )。選項：A、 i=100 Do 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 i D、For i=100 To 200:Print i , Sqr(i):Next i5、下列程序段中，循環(huán)體執(zhí)行的次數(shù)是( B )y = 2Do While y <= 8y = y+yLoop選項 :A、 2

41、 B、 3 C、 4D、 56、閱讀下面程序，當單擊窗體之后，m 的值是 ( C ).Private Sub Form_Click()Dim m As Integer:Dim i As Integerm = 0For i = 1 To 3m = m + 2Next iPrint mEnd Sub選項：A、 0 B、 4C、 6 D、 87、在VB 中，假定有以下程序段:For i=1 To 3 Step 2Print "VB"Next i則語句 Print "VB" 的執(zhí)行次數(shù)是： ( B )。A、 1 B、 2 C、 3D、 48、下列程序段中，循環(huán)體

42、執(zhí)行的次數(shù)是( B )x=0For y=1 To 10 step -1x=x+1Next yA、 1 B、 0C、 10 D、 49、在VB 中，假定有以下程序段:For i=3 To 1Print "VB"Next i則語句 Print “ VB ”的執(zhí)行次數(shù)是:( D )A 、出錯B、 2 C 、 1 D 、 010、下列程序段中，循環(huán)體執(zhí)行的次數(shù)是(C )x=0For y = 1 To 10 step -1 x = x+1Next yA、 1 B、 10 C、 0 D、 411、單擊窗體后，文本框Text1、 Text2 中顯示的內(nèi)容是( A )Private Sub

43、 Form_Click( )Dim x as Integer, n as Integerx = 1n = 0Do While x < 20n = n + 1x = x * 3Loop= Str(x)= Str(n)End SubA、 27 3 B、 327 C、 20 3 D、 32112、單擊窗體后，文本框Text1、 Text2 中顯示的內(nèi)容是( A )Private Sub Form_Click( )Dim x as Integer, y as Integerx = 1:y = 0Do While x < 3Loop= Str(x)= Str(n)End SubA、 27 3

44、 B、 327C、 20 3 D、 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 j= b( j / 2 )End SubA、 10 B、 12 C、 14 D、 186面向?qū)ο蟪绦蛟O(shè)計思想相關(guān)題解單選題1、在visual Basic 中顯示和編輯程序代碼時，采用 ( C ).A 工程資源管理器窗口B 窗體設(shè)計器窗口C 代碼編輯窗口

45、D 屬性窗口2、在VB 中，要設(shè)置文本框的缺省文字，應使用屬性: ( A )A、 Text B 、 Name C、 Caption D 、 Font3、在VB 中，要設(shè)置窗口的標題文本，應使用屬性:( B )A 、 Font B 、 Caption C 、 Name D 、 Text4、用visual Basic 編程，我們把工具箱中的工具稱為 ( A )A、控件B、工具C、窗體 D、事件5、在VB 中，要設(shè)置某個對象屬性時，應進入 :( D )A 任意模式B 中斷模式C 運行模式D 設(shè)計模式6、能夠改變復選框中背景顏色的屬性是( C)。A、 Value B 、 FontColor C、 Ba

46、ckColor D、 Font7、對于窗體，Click( 單擊 )是它的一個( A )A 重要事件B 重要屬性C 重要方法D 重要對象8、 Visual Basic 中，設(shè)置控件的位置，可改變下列 ( B)屬性。A、 Height 與 TopB、 Left 與 TopC、 Height 與 WidthD、 Left 與 Width9、在VB 中，設(shè)置控件的大小可改變( A )A 、 Height 與 Width B、 Height 與 Top C、 Left 與 Top D 、 Left 與 Width(三)算法與問題解決1、解析法2、窮舉法3、遞歸法綜合分析1、有5 人，問第 5 人年齡，說

47、比前面第 4 人小 3 歲，問第 4. 3. 2 人，都說比前面人小3 歲，問第 1 人，說他的年齡為 38 歲。問第 5 人的年齡多大。用遞歸法解決此問題的正確步驟是( B ) 。選項 :A、定義age (n)函數(shù) 函數(shù)中當n>1時返回函數(shù)值為age (n-1)當n=1返回函數(shù)值為38B、定義age (n)函數(shù) 函數(shù)中當n>1時返回函數(shù)值為 age (n-1)-3當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ù)四、應用程序設(shè)計1、程序設(shè)計的一般步驟2、

48、 簡單程序設(shè)計綜合分析1、a,b,c三變量存放不同的數(shù)，值a最大，b第二，比較好的算法是()A、定義一個 max(x,y)函數(shù)(值為 x,y中的大值) a = max(max(a,b),c)B 、如a < b 就 a = b 如 a < c 就 a = c 如 b <c 就 b = cC、如a > b就a = b 如a > c就a = c 如b >c b = cD 、如a < b 就兩變量交換 如 a < c 就兩變量交換如 b <c 就兩變量交換2、求2! +3! +4! +5!+10!的值。能完成此運算，并且比較好的算法是(A )。選項

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

50、C、 For i = 100 to 200 step 2:Print i,Sqr(i) : Next iD、 For i = 100 to 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)-1 Print "*"Next jPrin

51、t'換行Next iEnd Sub必修2_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 2*(3-Abs(i)-1 Print "*"Next jPrint'換行Next iEnd Sub必修3_15、編寫程序，使能打印下面所示的圖案。程序：Private Sub Form_Click()Di

52、m i As IntegerDim j As IntegerFor i = 1 To 6Print Tab(10);For j = 1 To iPrint“ ”;Next jPrintNext iEnd Sub必修4_15、完善顯示按鈕的click 程序，將代碼段中“變量1 “、 “變量2. “變量3、處換成正確的變量名，使當單擊該按鈕時，Labell. Label2 分別顯示30、 10,完成所有操作后，諸按“ Ctrl+S ”保存。Private Sub Command_Click( )x = 10y = 30If x < y Thent = xx = yy = tEnd Ifon

53、= xon = yEnd Sub必修5_15、完善"判斷"按鈕的click 程序，使當從 Textl 中輸入一個數(shù)時，當該數(shù)大于或等于60 時在 Lebell 中顯示 "及格 "，該數(shù)小于60 時在 Labell 中顯示 " 不及格 " 。完成所有操作后，諸按“ Ctrl+S ”保存。Private Sub Command1_Click( )Dim a As Singlea = Val()If a>=60 Thenon = 及格“ ”End IfIf a < 60 Thenon = 不及格“ ”End IfEnd Sub必

54、修1_16、編寫程序，求函數(shù) y的值(當x<=0時,y=3x+1;當x>0時，y=4x+1)。程序：Private Sub Form Click()Dim x As Single ' 定義 x 為單精度型變量Dim y As Single ' 定義y 為單精度型變量x = Val(InputBox(" 請輸入變量x")If x <=0 Theny = 3 * x + 1Elsey = 4 * x + 1End IfPrint "y="yEnd Sub必修2_16、編寫程序，求y=6x-5 的值。 (x 的值在程序中調(diào)用

55、InputBox 函數(shù)，在彈出的標準輸入對話框中輸入 )程序：Private Sub Form_Click()Dim x As SingleDim y As Singlex = Val(InputBox( 請輸入變量 “ x” )y = 6*x - 5Print“ y= ”;End Sub必修3_16、一只猴子摘了一堆桃子，它每天吃當天桃子數(shù)的一半，每次忍不住多吃了一個。這樣到第十天時只有一個桃子可以吃了，編程計算猴子最初共有多少個桃子。完成所有操作后，諸按“ Ctrl+S ”保存。程序：Private Sub Form_Click()Dim i As IntegerDim s As Integer s = 1For i =1 To 9s = (s + 1)*2NextPrint “ s=” ;sEnd Sub必修4_16、完善按鈕“計算7! ”的 Click 事件程序，當單擊命令按鈕時Text1 顯示7!的值。Private Sub Command1_Click( )Dim a As IntegerDim i As Integer a = 1For i = 1 To 7 a = a * i