算法與程序設(shè)計(jì)VB

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

2、算法形象、直觀，更易理解。4偽代碼描述法：是介于自然語言和計(jì)算機(jī)程序語言之間的一種算法描述。是專業(yè)軟件開發(fā)人員常用方法。輸入或輸出判斷處理或運(yùn)算連接點(diǎn)流程線開始或結(jié)束相關(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、以

3、下哪個(gè)是算法的描述方法?( D )A 順序法B 列表法C 集合法D 自然語言描述法（二）程序設(shè)計(jì)基礎(chǔ)（1）常用高級(jí)編程語言：BASIC、VB、Pascal、C、C+、Java1面向?qū)ο蟮某绦蛟O(shè)計(jì)語言：其中的對(duì)象主要是系統(tǒng)設(shè)計(jì)好的對(duì)象，包括窗體等、控件等對(duì)象.屬性屬性值對(duì)象中屬性可以在設(shè)計(jì)界面時(shí)通過屬性窗中設(shè)置，也可以在運(yùn)行時(shí)通過程序代碼設(shè)置,方法如下例：給文本框“Txt123”的“Text”屬性賦值為字符串“20”，代碼如下Txt123.text =”20”變量對(duì)象.屬性如果要獲取對(duì)象的狀態(tài)或特性，這時(shí)就要讀取對(duì)象的屬性值，方法如下例：讀取文本框“txt123”的“Text”屬性的代碼如下a

4、= txt123.text2事件及事件驅(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 Single '定義r為單精度型Dim c As Single '定義c為單精度型Dim s As Single '定義s為單精度型r =

5、 Val(Text1.Text) '輸入半徑rc = 2 * 3.14159 * r '計(jì)算周長(zhǎng)s = 3.14159 * r * r '計(jì)算面積Text2.Text = c '輸出周長(zhǎng)Text3.Text = s '輸出面積End SubPrivate Sub Command2_Click()End '退出End Sub相關(guān)題解：?jiǎn)芜x題1、下列關(guān)于程序設(shè)計(jì)說法正確的是( B )。A、程序設(shè)計(jì)語言的發(fā)展經(jīng)歷了機(jī)器語言、匯編語言到高級(jí)語言的過程，比較流行的高級(jí)語言是PASCAL, FORTRAN, EXCEL, C+等B、程序設(shè)計(jì)就是尋求解決問題的

6、方法，并將其實(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è)方面一、常量：批在程序進(jìn)行過程中不變的量在VB中一般分?jǐn)?shù)值常量與字符常量?jī)煞N數(shù)值常量：就是數(shù)學(xué)中說的常數(shù)，分整型常量和實(shí)型常量?jī)煞N整型常量：即整數(shù)

7、，指不帶小數(shù)點(diǎn)的數(shù)值如1、0、-10、+35等都是合法的整數(shù)實(shí)型常量：即實(shí)數(shù)，指帶小數(shù)點(diǎn)的數(shù)值。實(shí)型常量又分為定點(diǎn)數(shù)和浮點(diǎn)數(shù)兩種。例：定點(diǎn)數(shù)：3.14159和-6.8，1.99浮點(diǎn)數(shù)：例：1.2345×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í)行過程中，其值可以改變的量稱

8、為變量變量命名注意要點(diǎn)：1、必須以英文字母開頭,不能以數(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ù)

9、值型表示范圍：(整型)Integer (-32768 32767)(長(zhǎng)整型)Long(-21億 21億)(布爾型）Boolean(True 真、是 或 False假、非)（字符串型）String(定長(zhǎng)字符串：065535個(gè)字符，不定長(zhǎng)字符串：020億個(gè)字符) 字符串型數(shù)據(jù)是指用 “ ”括起來的一串字符。如“歡迎進(jìn)入VB世界！”、“ Visual Basic” 、“1234 ”都是字符串類型。（日期型）Date（100/1/19999/12/31） 日期型數(shù)據(jù)專門用來處理日期和時(shí)間。VB采用一對(duì)“#”把日期和時(shí)間的值括起來，如#2003/08/20#表示2003年8月20日。（2）常量和變量的命

10、名、聲明及賦值符號(hào)常量的聲明：Const 常量名 As 常量類型 = 常量值如：Const pi As Single = 3.14159 常量名為pi變量的聲明：Dim <變量名 >As <變量類型> 如：Dim a As Integer 定義一個(gè)整型變量，變量名為a變量的賦值VB中使用Let語句給變量賦值，其形式如下：Let 變量 = 表達(dá)式其中，方括號(hào)表示這部分內(nèi)容是可選的，通?？梢允÷栽撽P(guān)鍵字。例題Private Sub Form_Click() Dim a As Integer, b As Integer, c As Integer Dim str As Str

11、ing Let a = 54 Let b = 114 c = a + b str = "Hello World" Print "a=" a, "b=" b, "c=" c Print strEnd Sub數(shù)據(jù)的輸出程序中運(yùn)算得到的結(jié)果，除可以使用文本框和標(biāo)簽顯示外，對(duì)于大批量的數(shù)據(jù)更適合用Pint方法輸出，格式如下Print 表達(dá)式列表例題：Private Sub Form_Click() Dim x As Single, y As Single Print -61; -34 Print 9 * 2; 12 Pri

12、nt "This is" "a book" x = 3: y = 4 Print "x=" x, "y=" yEnd Sub注意：Print 方法相關(guān)題解：?jiǎn)芜x題1、下列變量名寫法錯(cuò)誤的是( B )A、abc_123 B、123abc C、abc123 D、abc2、下列語句中定義了一個(gè)實(shí)型變量的是 ( B )A、Dim end as Integer B、Dim sum As SingleC、Dim Name As String D、其它三項(xiàng)都不對(duì)3、在VB中，以下關(guān)于符號(hào)常量的聲明，聲明正確的是:( C )A、D

13、im TAG as String B、Const TAG as String "Visual" + "Basic"C、Const TAG as String ="Visual Basic" D、Const TAG as String4、下面( B )不是字符串常量A、"True" B、#False# C、" " D、"你好"運(yùn)算符1、 算術(shù)運(yùn)算：+ 加 - 減 *乘 指數(shù) 例：22 = 4/ （浮點(diǎn)）除 例：5 / 2 = 2.5 整除 例： 5 2 = 2Mod 求余數(shù) 例

14、：5 Mod 2 = 1相關(guān)題解單選題1、分析下列程序: Private Sub Form_Click() s=113 + 11 Mod 3 Print s End Sub當(dāng)單擊窗體時(shí)s的值是( A ).A、5 B、6 C、4 D、3關(guān)系運(yùn)算=賦值、<小于號(hào)<>不等于>大于號(hào)>=大于等于號(hào)<=小于等于號(hào)注意：關(guān)系表達(dá)式的運(yùn)算結(jié)果為布爾值True 或 False例：3 > 2 結(jié)果為 True(真或是)相關(guān)題解單選題1、下面表達(dá)式的值是false的有( C ).A、"969" < "n97" B、Int(4.

15、99) <> len("basic") C、str(2000) < "1997" D、3 > 2注：字符串排序：數(shù)字大寫字母小寫字母 （同一類別按字典順序排列）邏輯運(yùn)算Not（取反）And（與） Or（或）運(yùn)算結(jié)果為布爾型（Boolean）True 或 False邏輯運(yùn)算符的優(yōu)先級(jí)為：No > And > Or日期運(yùn)算符與日期表達(dá)式日期表達(dá)式是用日期運(yùn)算符“+”或“-”將算式表達(dá)式、日期型常量、日期型變量、日期函數(shù)等連接起來的式子，如表達(dá)式“#2003/09/01# +30”的運(yùn)算結(jié)果是“2003-10-1”；表達(dá)式“

16、#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值是:( A )A、False B、True C、-1 D、1字符運(yùn)算字符串連接符為“+”和“&”“123” + “45” = “12345”“123” & “45” = “12345”123 + “45” = 168“123” + 45 = 168運(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í)如下

17、。算術(shù)運(yùn)算符 > 字符串運(yùn)算符 >  關(guān)系運(yùn)算符 >  邏輯運(yùn)算符常用函數(shù)數(shù)學(xué)函數(shù)Abs(x) 求x 的絕對(duì)值，例：abs(-3.6) = 3.6Sqr(x) 求 x 的平方根，例：sqr(100) = 10Int(x)求x的最大整數(shù) 例：int(3.6) = 3 int(-3.6) = -4Rnd(x)產(chǎn)生0，1)之間的隨機(jī)數(shù)（不包括1）Sin(x)Cos(x)用戶交互函數(shù)VB提供InputBox( )和MsgBox( )函數(shù)用于人機(jī)交互InputBox( )其語法格式為：InputBox( 提示，標(biāo)題，默認(rèn)值,X坐標(biāo)，Y坐標(biāo))MsgBox( ) 其語法

18、格式為：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、Date B、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()

19、D、year()6、代數(shù)表達(dá)式表達(dá)式后錯(cuò)誤的是( D )A、g*t*t/2 B、1/2*g*t2 C、g*t2/2 D、gt2/27、數(shù)學(xué)式子在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中以哪個(gè)邏輯表達(dá)式是正確的?( A )A 、a<x and x<=b B、 a<x<=b C、a<x and xb D 、a>x and x<=b綜合分析1、向n變量存入1個(gè)2位整數(shù)，要使此2位數(shù)十位和個(gè)位上的值分別存

20、入x, y變量。不正確的算法是( C )。選項(xiàng):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、x=n/10 y=n-x*10 Print x:Print yD、x=Int(n/10) y=n-x*10 Print x:Print y程序設(shè)計(jì)的順序結(jié)構(gòu)順序結(jié)構(gòu)：代碼按照由上到下的順序一行一行地執(zhí)行。程序執(zhí)行過程中沒有分支、沒有重復(fù)，這種結(jié)構(gòu)稱為順序結(jié)構(gòu)。例題：在文本框text1和text2中輸入變量x、y,交換兩個(gè)變量中的數(shù)據(jù)。Private Sub cmdSwap_Cli

21、ck() Dim x As Single, y As Single Dim m As Single x = Val(text1.Text) y = Val(text.Text) m = x: x = y: y = m '交換數(shù)據(jù) Text1.Text = x Text2.Text = yEnd SubPrivate Sub cmdEnd_Click() EndEnd Sub注：Val(x)-將字符X轉(zhuǎn)化為數(shù) 如val("123")=123 str(x)-將數(shù)X轉(zhuǎn)化為字符 如str(123)="123"相關(guān)題解單選題1、以下是一段VB程序：a =

22、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、2 B、3 C、5 D、8程序設(shè)計(jì)的分支結(jié)構(gòu)行If語句行If是指在一行中寫完的If語句。其一般格式為：格式一：If條件Then語句執(zhí)行這種形式的If語句時(shí)，首先對(duì)條件進(jìn)行判斷。若條件成立，則執(zhí)行Then后面的語句；若條件不成立，則執(zhí)行If語句后繼程序行的語句格式二：If條件 Then 語句 1 Else 語句 2例題：輸入三個(gè)不相同的數(shù)，求出其中最小數(shù)。Private Sub Form

23、_Click() Dim a As Single, b As Single, c As Single Dim Min As Single a = InputBox("輸入a", "輸入框") b = InputBox("輸入b", "輸入框") c = InputBox("輸入c", "輸入框") If a < b Then Min = a Else Min = b If c < Min Then Min = c Print "最小數(shù)" Min

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

25、tion = "及格" End IfIf a < 60 ThenLabel1.Caption = "不及格" End IfEnd Sub格式四：If 條件 Then 語句塊1 Else 語句塊2 End If例題：編寫程序，求函數(shù)Y的值（當(dāng)x0時(shí)，y=3x+1；當(dāng)x>0時(shí)，y=4x+1）。Private Sub Form_Click()Dim x As SingleDim y As Singlex = Val(text1.text)If x <= 0 Then y = 3 * x + 1Else y = 4 * x + 1End IfP

26、rint "y=" yEnd Sub相關(guān)題解單選題1、以下是一段Visual Basic程序: If I=1 Then X=X+1 Else X=X*2 End 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 Then Value = 5 * xElse Value = 4 * xEnd IfA、100 B、80 C、90 D、70綜合分析1、下面是判斷變量x是不是能被5整除的偶數(shù)的程序，橫線上的邏輯表達(dá)式應(yīng)為( A ) Private Sub co

27、mmandl_Click() Dim x As Integer x=Val(Text1. Text) If _ = 0 Then Labell.Caption=這個(gè)數(shù)是能被5整除的偶數(shù) Else Labell.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 = 02、下列程序段運(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)

28、：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)體Next 循環(huán)變量例題1：求s1+2+3+4.+100Private Sub Form_Click() Dim i As Integer Dim sum As Integer sum = 0 For i = 1 To 100 sum = sum + i ' 循環(huán)體 Next i Print "sum=" sumEnd Sub例題2：Step循環(huán)變量增量Private Sub Form_Click

29、()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、 執(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)變量超過終值，

30、是指循環(huán)變量的值大于終值時(shí)；若為負(fù)，則是指循環(huán)變量的值小于終值。AP入口出口二、DoLoop循環(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 Integer Dim b As Integer Dim r As Integer a = Val(Text1.Text) b = Val(Text2.Text) r = a Mod b Do While r <> 0 a = b

31、 b = r r = a Mod b Loop Text3.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條件這種循環(huán)的執(zhí)行過程如圖所示。進(jìn)入循環(huán)體后，先執(zhí)行一次循環(huán)體A，然后再檢查條件P是否成立。如果不成立，就重復(fù)執(zhí)行循環(huán)體A，直到條件P成立退出循環(huán)體。APN例題：如果我國(guó)人口每年以平均1.5%的速度增長(zhǎng)，問多少年后我國(guó)人口達(dá)到或超過15億？設(shè)現(xiàn)在人口為12.3億。P

32、rivate Sub Form_Click() Dim p As Single Dim r As Single Dim n As Integer p = 1230000000# r = 0.015 n = 0 Do p = p * (1 + r) n = n + 1 Loop Until p >= 1500000000# Print n; "年后", "人口=" pEnd Sub1、下列流程圖表示的是程序的( B )基本結(jié)構(gòu)的算法。A 其它三項(xiàng)都不是 B 循環(huán)結(jié)構(gòu) C 選擇結(jié)構(gòu) D 順序結(jié)構(gòu)2、在VB中，以下程序段:x=0Do While x<

33、;50 x=(x+2)*(x+3)Loop執(zhí)行后，x的值為:( C ).A、168 B、50 C、72 D、03、閱讀下面程序，當(dāng)單擊窗體之后，窗體上輸出的是( A ) Private Sub Form_Click() Dim i As Integer:Dim s As Integer s = 0 For i = 1 To 5 s = s + i Next i Print s,iEnd Sub選項(xiàng):A、156 B、 s=15 i=6 C、6 5 D、s=6 i=54、要求計(jì)算機(jī)打印出100至200之問所有偶數(shù)的平方根值。正確的算法是( C )。選項(xiàng):A、i=100 Do While i<

34、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 <= 8 y = y+yLoop選項(xiàng):A、2 B、3 C、4 D、56、閱讀下面程序，當(dāng)單擊窗體之后，m的值是( C ).Private Sub Form_Click() Dim m As In

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

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

37、* 3LoopText1.text = Str(x)Text2.text = Str(n)End SubA、273 B、3 27 C、203 D、3 2112、單擊窗體后，文本框Text1、Text2中顯示的內(nèi)容是（ A ）Private Sub Form_Click( )Dim x as Integer, y as Integer x = 1:y = 0Do While x < 3 y = y + x x = x * 3LoopText1.text = Str(x)Text2.text = Str(n)End SubA、273 B、3 27 C、203 D、3 216面向?qū)ο蟪绦蛟O(shè)計(jì)思

38、想相關(guān)題解單選題1、在visual Basic中顯示和編輯程序代碼時(shí)，采用( C ).A 工程資源管理器窗口 B 窗體設(shè)計(jì)器窗口C 代碼編輯窗口 D 屬性窗口2、在VB中，要設(shè)置文本框的缺省文字，應(yīng)使用屬性:（ A ）A、Text B、Name C、Caption D、Font3、在VB中，要設(shè)置窗口的標(biāo)題文本，應(yīng)使用屬性:( B )A 、Font B 、Caption C 、Name D 、Text4、用visual Basic編程，我們把工具箱中的工具稱為( A )A、控件 B、工具 C、窗體 D、事件5、在VB中，要設(shè)置某個(gè)對(duì)象屬性時(shí)，應(yīng)進(jìn)入:( D )A 任意模式 B 中斷模式 C 運(yùn)

39、行模式 D 設(shè)計(jì)模式6、能夠改變復(fù)選框中背景顏色的屬性是( C )。A、Value B、FontColor C、BackColor D、Font7、對(duì)于窗體，Click(單擊)是它的一個(gè)( A )A 重要事件 B 重要屬性 C 重要方法 D 重要對(duì)象8、Visual Basic中，設(shè)置控件的位置，可改變下列( B )屬性。A、Height與Top B、Left與Top C、Height與Width D、Left與Width9、在VB中，設(shè)置控件的大小可改變（ A ）A 、Height與Width B、 Height與Top C、 Left與Top D、 Left與Width三、應(yīng)用程序設(shè)計(jì)編程

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

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

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

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

44、3x+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 Then y = 3 * x + 1Else y = 4 * x + 1End IfPrint "y="yEnd Sub必修2_16、編寫程序，求y=6x-5的值。(x的值在程序中調(diào)用InputBox函數(shù)，在彈出的標(biāo)準(zhǔn)輸入對(duì)話框中輸入)程序：Private Su

45、b Form_Click()Dim x As SingleDim y As Singlex = 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 Integer Dim s As Integer s = 1 For i =1 To 9 s = (s + 1)*2 Next Print “s=”;sEnd Sub必修4_16、完善按鈕“計(jì)算7!”的Click事件程序，當(dāng)單擊命令按鈕時(shí)Text1顯示7!的值。Private Sub Command1_Click( )Dim a As IntegerDim i As Integera = 1For i = 1 To 7 a = a * iNext iText1.Text = aEnd Sub必修5_16、請(qǐng)將按鈕"計(jì)算1+2+100"的Click事件程序中的"常量"和"變量"換成正確的常量和變量，當(dāng)