信息技術(shù)《算法與程序設(shè)計(jì)VB選修》知識(shí)點(diǎn)匯總

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

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

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

4、nd) 的 Enabled 屬性設(shè)置為 True 時(shí)按鈕有效，設(shè)置為 False 時(shí)按鈕無(wú)效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

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

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

7、B 程序 求圓的周長(zhǎng)和面積Private Sub Command1_Click()Dim r As Single '定義 r 為單精度型Dim c As Single '定義 c 為單精度型Dim s As Single '定義 s 為單精度型r = Val(Text1.Text) ' 輸入半徑 r c = 2 * 3.14159 * r '計(jì)算周長(zhǎng) s = 3.14159 * r * r ' 計(jì)算面積 Text2.Text = c'輸出周長(zhǎng)Text3.Text = s'輸出面積End SubPrivate Sub Command

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

9、語(yǔ)言、匯編語(yǔ)言、高級(jí)語(yǔ)言的過(guò)程C、計(jì)算機(jī)程序就是指計(jì)算機(jī)如何去解決間題或完成一組可執(zhí)行指令的過(guò)程D 、程序設(shè)計(jì)語(yǔ)言和計(jì)算機(jī)語(yǔ)言是同一概念的兩個(gè)方面一、常量 ：批在程序進(jìn)行過(guò)程中不變的量在 VB 中一般分 數(shù)值常量 與字符常量 兩種 數(shù)值常量： 就是數(shù)學(xué)中說(shuō)的常數(shù)，分 整型常量 和 實(shí)型常量 兩種整型常量： 即整數(shù)，指不帶小數(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ù)： 2E6、 1E5、88E例： 1.2345×103 可表示為 1.2

10、345E3，字母 E 表示底數(shù) 10 浮點(diǎn)數(shù)就是數(shù)學(xué)上的科學(xué)計(jì)數(shù)法。 字符串常量：被一對(duì)雙引號(hào)括起來(lái)的若干個(gè)合法的字符稱為字符串常量。例如：”China”、”VisualBasic ”、”18”、 ”3.1415”等，雙引號(hào)中字符， 不包括雙引號(hào)本身 。符號(hào)常量：如果多次用到同一個(gè)常量，則可用一個(gè)有意義的名字表示這個(gè)常量。 二、變量：在程序執(zhí)行過(guò)程中，其值可以改變的量稱為變量變量命名注意要點(diǎn)： 1、必須以字母開頭 ,不能以數(shù)字或其他字符開頭。2、只能由字母、漢字、數(shù)字學(xué)或下劃線組成，不能含有小數(shù)點(diǎn)、空 格等字符。3、最長(zhǎng)不超過(guò) 255個(gè)字符4、不能以 VB 保留字作變量名，如語(yǔ)句定義符、函數(shù)名

11、等。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 （-32768 32767，存儲(chǔ)為 16 位， 2 個(gè)字節(jié) ） （長(zhǎng)整型 ）Long（-21 億 21億，可以表示人口數(shù)量 ）（布爾型） Bool

12、ean（True 真、是或 False假、非 ）（字符串型） String（定長(zhǎng)字符串： 0 65535 個(gè)字符，不定長(zhǎng)字符串： 020 億個(gè)字符 ） 字符串型數(shù)據(jù)是指用 “”括起來(lái)的一串字符。如 “歡迎進(jìn)入 VB 世界！ ”、“Visual Basic” 、“1234 ”都是字符串類型。（日期型） Date（ 100/1/1 9999/12/31） 日期型數(shù)據(jù)專門用來(lái)處理日期和時(shí)間。 VB 采用一對(duì)“ #”把日期和時(shí)間的值括起來(lái)，如#2003/08/20#表示 20XX 年 8月 20日。（2）常量和變量的命名、聲明及賦值 符號(hào)常量的聲明： Const 常量名 As 常量類型 = 常量值 如

13、： Const pi As Single = 3.14159 常量名為 pi 變量的聲明：Dim < 變量名 >As <變量類型 > 如：Dim a As Integer 定義一個(gè) 整型變量，變量名為 a 變量的賦值VB 中使用 Let 語(yǔ)句給變量賦值，其形式如下：Let 變量 = 表達(dá)式 其中，方括號(hào) 表示這部分內(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 =

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

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

16、32FB、H32FC、h32FD、 &32F4、在 VB 中，以下關(guān)于符號(hào)常量的聲明，聲明正確的是 :( )A 、 Dim TAG as StringB 、 Const TAG as String "Visual" + "Basic" C、 Const TAG as String ="Visual Basic"D 、Const TAG as String5、下面 ()不是字符串常量A 、 "True"B 、 #False#C、 " "D 、"你好"運(yùn)算符*乘例：22

17、= 4例：5 / 2 = 2.5 例：5 2 = 2例： 5 Mod 2 = 11、算術(shù)運(yùn)算： + 加 - 減 指數(shù)/ (浮點(diǎn))除 整除Mod 求余數(shù) 相關(guān)題解 單選題1、分析下列程序 :Private Sub Form_Click() s=113 + 11 Mod 3Print sEnd Sub 當(dāng)單擊窗體時(shí) s的值是 （ ）. A、5B、6C、4D、 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)題

18、解單選題1、下面表達(dá)式的值是false 的有 ( ).A 、 "969" < "n97"B 、 Int(4.99) <> len("basic")C 、 str(2000) < "1997"D 、3 > 2 邏輯運(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á)式、日期型常量、日期

19、型變量、日期函數(shù) 等連接起來(lái)的式子，如表達(dá)式“ #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 值是:（）A 、 FalseB、 TrueC、 -1D、1 字符運(yùn)算 字符串連接符為“ +”和“ & ”“ 123 ”+ “45” = “ 12345 ”“ 123 ”& “45” = “ 12345 ”123 + “45”= 168“ 123 ”+ 45 =168運(yùn)算

20、符的執(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)算符 常用函數(shù)數(shù)學(xué)函數(shù)Abs(x) 求 x 的絕對(duì)值，例： Sqr(x) 求 x 的平方根，例：abs(-3.6) = 3.6sqr(100) = 10Int(x) 求x 的最大整數(shù) 例： int(3.6) = 3int(-3.6) = -4Rnd(x)產(chǎn)生 0，1)之間的隨機(jī)數(shù)(不包括 1)Sin(x)Cos(x)Tan(x)Atn(x)Ex

21、p(x)Log(x) 使用三角函數(shù)時(shí)，參數(shù)應(yīng)是弧度，如數(shù)學(xué)中 sin300 應(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 ”“,2lo) =”String(數(shù)值，字符 )生成指定長(zhǎng)度與指定字符的字

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

23、; 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( )其語(yǔ)法格式為：InputBox( 提示，標(biāo)題 ，默認(rèn)值 ,X 坐標(biāo)，Y 坐標(biāo))MsgBox( ) 其語(yǔ)法格式為：MsgBox(提示信息 ，按鈕，標(biāo)題 )相關(guān)題解單選題1、Visual Basic 中，下列 ()函數(shù)是求絕對(duì)值的。D、GN(X)A、ABS(X) B、SQ

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

25、數(shù)學(xué)式子 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 中以哪個(gè)邏輯表達(dá)式是正確的 ?( )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è)位上的值分別存入x, y 變量。 正確的算法是 ()。選項(xiàng):x、 x=Left(n, 1)

26、 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 y2、向 x 變量中輸入任意一個(gè)小寫字母， 再將 x 變量中的小寫字母轉(zhuǎn)成大寫字母。 正確的算法是( ). 選項(xiàng):A 、輸人字母到 B、輸人字母到 C、輸人字母到 D、輸人字母到x a=Asc(x)-32 x=chr(x) Print xx a=Asc(x)+32 x=chr(x) Print xx a=Val

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

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

29、成立，則執(zhí)行 Then 后面的語(yǔ)句；若 條件不成立，則執(zhí)行 If 語(yǔ)句后繼程序行的語(yǔ)句格式二： If 條件 Then 語(yǔ)句 1 Else 語(yǔ)句 2例題：輸入三個(gè)不相同的數(shù)，求出其中最小數(shù)。Private Sub Form_Click()Dim a As Single, b As Single, c As SingleDim Min As Singlea = val(InputBox(" 輸入 a", "輸入框 ")b = InputBox(" 輸入 b", "輸入框 ")c = InputBox(" 輸入

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

31、uot;及格" ，該數(shù) 小于 60時(shí)顯示 "不及格"。Private Sub Command1_Click()Dim a As Singlea = Val(Text1.Text)If a >= 60 Then Label1.Caption = " 及格 "ElseLabel1.Caption = " 不及格 "End IfEnd Sub 格式四： If 條件 Then 語(yǔ)句塊 1 Else 語(yǔ)句塊 2 End If例題：編寫程序，求函數(shù) Y 的值(當(dāng) x0 時(shí)，y=3x+1 ；當(dāng) x>0 時(shí)，y=4x+1 )。P

32、rivate Sub Form_Click()Dim x As SingleDim y As Singlex = Val(InputBox(" 請(qǐng)輸入變量 x")If x <= 0 Theny = 3 * x + 1Elsey = 4 * x + 1End If Print "y=" y End Sub 相關(guān)題解 單選題 1、以下是一段 Visual Basic 程序 :If I=1 ThenX=X+1ElseX=X*2End If 它的基本結(jié)構(gòu)屬于 ( ). A 、選擇結(jié)構(gòu) B、循環(huán)結(jié)構(gòu) C、順序結(jié)構(gòu) D 、樹型結(jié)構(gòu) 2 、下列程序段運(yùn)行后，變量

33、 Value 的值是( ) x = 20If x >= 10 ThenValue = 5 * x ElseValue = 4 * x End IfA 、 100 B、 80 綜合分析C、90D、 701、如要完成 : 從鍵盤輸入一個(gè)正整數(shù)，判斷是否是奇數(shù)，如是就在屏幕上顯示。比較好 的算法是 ( )。選項(xiàng):A 、輸人的數(shù)存入B、輸人的數(shù)存入n 變量 f=(n/2=Int(n/2) 如果 f 中的值為 n 變量 f=(n/2=Int(n/2) 如果 f 中的值為True 就顯示 n 中值 False 就顯示 n 中值C、輸人的數(shù)存入 n 變量如果 D、輸人的數(shù)存入 n 變量如果 2、下面是

34、判斷變量 x 是不是能被n/2=Int(n/2) 成立，就顯示 n 中值 n/2=Int(n/2) 不成立，就顯示 n 中值 5 整除的偶數(shù)的程序，橫線上的邏輯表達(dá)式應(yīng)為Private Sub commandl_Click()Dim x As Integerx=Val(Text1. Text)If = 0 ThenLabell.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 = 0

35、D 、 x Mod 2 = 03、如要完成 : 從鍵盤輸入一個(gè)正整數(shù)，判斷是否是偶數(shù)，如是就在屏幕上顯示。比較好 的算法是 ( ) 。選項(xiàng):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 變量如果D、輸入的數(shù)存人 n 變量如果 4、下列程序段運(yùn)行后 ,m 的值為 (n/2=Int(n/2) 成立，就顯示 n 中值 n/2=Int(n/2) 不成立，就顯示 n 中值 )A=2: b=1: c=5If A <

36、 b Then m = A Else m = bIf c < m Then m = c 選項(xiàng)：A、1B、2C、5D、提示錯(cuò)誤，無(wú)答案程序設(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：求 s 1+2+3+4+100Private Sub Form_Click()Dim i As IntegerDim sum As Integersum = 0For i = 1 To 100sum = sum + i ' 循環(huán)體Next iPrint "sum="

37、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)變量與終值比較，沒有超過(guò)終值轉(zhuǎn)3，否則循結(jié)束，接著執(zhí)行循環(huán)語(yǔ)句的后繼語(yǔ)句；3、執(zhí)行一次循環(huán)體4、循環(huán)變量增加一個(gè)增量5、重復(fù)步驟 24。以上可以看出， For-Next 循環(huán)變量是一種當(dāng)型循環(huán)。說(shuō)明( a) For 語(yǔ)句與 Next 語(yǔ)句必須成對(duì)出

38、現(xiàn)， 而且它們當(dāng)中的 “循環(huán)變量” 必須是同一個(gè)變 量，如上例中均為 I。( b) 當(dāng)循環(huán)變量為正時(shí)，循環(huán)變量超過(guò)終值，是指循環(huán)變量的值大于終值時(shí)；若為負(fù)， 則是指循環(huán)變量的值小于終值。出口二、 DoLoop 循環(huán)For-Next 循環(huán)的次數(shù)是確定的， 但是有的問(wèn)題只知道循環(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.

39、Text)b = Val(Text2.Text) r = a Mod bDo While r <> 0 a = b b = r r = 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 條件 這種循環(huán)的執(zhí)行過(guò)程如圖所示。進(jìn)入循環(huán)體后，先執(zhí)行一次循環(huán)體A，然后再檢查條件 P 是否成立。如果不成立，就重復(fù)執(zhí)行循環(huán)體 A，直到

40、條件 P 成立退出循環(huán)體。例題：如果我國(guó)人口每年以平均 1.5% 的速度增長(zhǎng)，問(wèn)多少年后我國(guó)人 口達(dá)到或超過(guò) 15 億？設(shè)現(xiàn)在人口為 12.3億。Private Sub Form_Click()Dim p As SingleDim r As SingleDim n As Integerp = 1230000000#r = 0.015n = 0Dop = p * (1 + r)n = n + 1Loop Until p >= 1500000000#Print n; " 年后", "人口 =" pEnd Sub1、下列流程圖表示的是程序的 ( )基本結(jié)

41、構(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<50x=(x+2)*(x+3)Loop執(zhí)行后， x 的值為 :( ).A 、168B、50C、 72D、03、閱讀下面程序，當(dāng)單擊窗體之后，窗體上輸出的是 ( )Private Sub Form_Click()Dim i As Integer:Dim s As Integers = 0For i = 1 To 5s = s + iNext iPrint s,iEnd Sub選項(xiàng):i=5正確的算法是 ( )。A 、15 6B、 s=15i=6C 、65D、s=6

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

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

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

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

46、、 321Text2.text = Str(n) End SubA 、27 3 B 、32713、讀下面程序，單擊窗體后，在文本框顯示的內(nèi)容是(B )Private Sub Form_Click( )Dim a( 8 ),b( 8 ) as IntegerDim i,j As IntegerFor j = 1 To 4 a( j ) = 2 * j b( j ) = a( j ) * 3Next jText1.Text = b( j / 2 )End SubA 、10B、12C、 14D、186面向?qū)ο蟪绦蛟O(shè)計(jì)思想 相關(guān)題解 單選題1、在 visual Basic 中顯示和編輯程序代碼時(shí)，采用

47、 ( ). A 工程資源管理器窗口 B 窗體設(shè)計(jì)器窗口2、在 VB 中，要設(shè)置文本框的缺省文字，應(yīng)使用屬性:( )A 、 TextB 、 NameC 、 CaptionD 、Font3、在 VB 中，要設(shè)置窗口的標(biāo)題文本，應(yīng)使用屬性:( )A 、 FontB 、 CaptionC 、 NameD 、 Text4、用 visual Basic 編程，我們把工具箱中的工具稱為 ( )A 、控件B、工具C、窗體D、事件5、在 VB 中，要設(shè)置某個(gè)對(duì)象屬性時(shí)，應(yīng)進(jìn)入 :( )A 任意模式 B 中斷模式 C 運(yùn)行模式 D 設(shè)計(jì)模式6、能夠改變復(fù)選框中背景顏色的屬性是 ()。A 、 ValueB、 Fon

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

49、，說(shuō)比前面第 4 人小 3 歲，問(wèn)第 4. 3. 2 人，都說(shuō)比前面人小 3 歲，問(wèn) 第 1 人，說(shuō)他的年齡為 38 歲。問(wèn)第 5 人的年齡多大。 用遞歸法解決此問(wèn)題的正確步驟是 ( 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)-3 D、定義 age (n)函數(shù)函數(shù)中不斷地調(diào)用 age (n)函數(shù)自己4、排序與查找

50、數(shù)據(jù) 四、應(yīng)用程序設(shè)計(jì)1、程序設(shè)計(jì)的一般步驟2、簡(jiǎn)單程序設(shè)計(jì) 綜合分析1、 a,b,c 三變量存放不同的數(shù)，值 a 最大， b 第二，比較好的算法是()A 、定義一個(gè) 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! +

51、4! +5! +10!的值。能完成此運(yùn)算，并且比較好的算法是( A )。選項(xiàng):A 、定義求階乘的函數(shù)用 j c(n) 主程序中用一個(gè)循環(huán) 9次調(diào)用 j c(n)函數(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:Print i,Sqr(i):loopB、 i = 100 Do

52、 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 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)Fo

53、r j=1 To (4-Abs(i)-1Print "*"Next jPrint'換行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)-1Print "*"Next jPrint '換行Next iEnd Sub必修

54、 3_15、編寫程序，使能打印下面所示的圖案。 程序：Private Sub Form_Click()Dim 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、處換成正確的變量名，使當(dāng)單擊該按鈕時(shí)，Labell. Label2 分別顯示 30、 10,完成所有操作后，諸按“ Ctrl+S ”保存。Private Sub Command_Clic

55、k( )x = 10y = 30If x < y Then t = x x = y y = tEnd IfLabel1.Caption = xLabel2.Caption = yEnd Sub必修 5_15、完善"判斷"按鈕的 click 程序，使當(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 Sin

56、glea = Val(Text1.Text)If a>=60 ThenLabel1.Caption = 及格“”End IfIf a < 60 ThenLabel1. Caption = 不“及格 ”End IfEnd Sub必修 1_16、編寫程序，求函數(shù) y的值(當(dāng) x<=0 時(shí),y=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)

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