《《算法與程序設(shè)計(jì)》知識(shí)點(diǎn).doc》由會(huì)員分享，可在線閱讀，更多相關(guān)《《算法與程序設(shè)計(jì)》知識(shí)點(diǎn).doc（12頁(yè)珍藏版）》請(qǐng)?jiān)谘b配圖網(wǎng)上搜索。

高中信息技術(shù)《算法與程序設(shè)計(jì)VB（選修）》 知識(shí)要點(diǎn) 相關(guān)知識(shí)點(diǎn) （一）算法 1.定義 相關(guān)題解： 算法：就是解決問(wèn)題的方法和步驟。算法是程序設(shè)計(jì)的“靈魂”，算法+數(shù)據(jù)結(jié)構(gòu)＝程序。 單選題 1、運(yùn)用計(jì)算機(jī)程序解決實(shí)際問(wèn)題時(shí)，合理的步驟是（ ）。 A、設(shè)計(jì)算法→分析問(wèn)題→編寫程序→調(diào)試程序 B、分析問(wèn)題→設(shè)計(jì)算法→編寫程序→調(diào)試程序 C、分析問(wèn)題→編寫程序→設(shè)計(jì)算法→調(diào)試程序 D、設(shè)計(jì)算法→編寫程序→分析問(wèn)題→調(diào)試程序 2．算法的描述方法： 算法的描述：可分多種表達(dá)方法，一般用自然語(yǔ)言、流程圖和偽代碼進(jìn)行描述。 自然語(yǔ)言描述法：指用人們?nèi)粘Ｉ钪惺褂玫恼Z(yǔ)言（本國(guó)語(yǔ)言），用自然語(yǔ)言描述符合我們的習(xí)慣，且容易理解。 流程圖描述：也稱程序框圖，它是算法的一種圖形化表示方法。且描述算法形象、直觀，更易理解。 偽代碼描述法：是介于自然語(yǔ)言和計(jì)算機(jī)程序語(yǔ)言之間的一種算法描述。是專業(yè)軟件開發(fā)人員常用方法。 輸入或輸出 判斷 處理或運(yùn)算 開始或結(jié)束 （二）程序設(shè)計(jì)基礎(chǔ) 常用高級(jí)編程語(yǔ)言：BASIC、VB、Pascal、C、C++、Java 面向?qū)ο蟮某绦蛟O(shè)計(jì)語(yǔ)言：其中的對(duì)象主要是系統(tǒng)設(shè)計(jì)好的對(duì)象，包括窗體等、控件等 控件：是指工具箱中的工具在窗體中畫出的、能實(shí)現(xiàn)一定功能的部件，如文本框，命令按鈕等。 常用控件： 控件 對(duì)象的類型 名字舉例 窗體 Form Form1 命令按鈕 Command button Command1 標(biāo)簽 Label Label1 文本框 TextBox Text1 對(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)格 Visible 決定控件是否可見(jiàn) 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ì)象的屬性值，方法如下 例：讀取文本框“txt123”的“Text”屬性的代碼如下 a = txt123.text ‘讀取字符 (或a=Val(txt123.text) ’讀取數(shù)值) 2、方法 ［對(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)單的VB程序 求圓的周長(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，變量r為數(shù)值型，因此輸入語(yǔ)句必須加函數(shù)Val() c = 2 * 3.14159 * r 計(jì)算周長(zhǎng) s = 3.14159 * r * r 計(jì)算面積 Text2.Text =str(c) 輸出周長(zhǎng) Text3.Text = str(s) 輸出面積, 變量s為數(shù)值型，因此輸出語(yǔ)句必須加函數(shù)str() End Sub Private Sub Command2_Click() End 退出 End Sub （三）、常量：在程序進(jìn)行過(guò)程中不變的量。在VB中一般分?jǐn)?shù)值常量與字符常量?jī)煞N 數(shù)值常量：就是數(shù)學(xué)中說(shuō)的常數(shù)，分整型常量和實(shí)型常量?jī)煞N 整型常量：即整數(shù)，指不帶小數(shù)點(diǎn)的數(shù)值如1、0、-10、+35等都是合法的整數(shù) 實(shí)型常量：即實(shí)數(shù)，指帶小數(shù)點(diǎn)的數(shù)值。 字符串常量：被一對(duì)雙引號(hào)括起來(lái)的若干個(gè)合法的字符稱為字符串常量。例如：”China”、”Visual Basic”、”18”、”3.1415”等，雙引號(hào)中字符，不包括雙引號(hào)本身。 邏輯常量：包含true和false兩個(gè)值。 系統(tǒng)常量：包括VB已定義的常量（如Vbred）和用戶定義常量（如果多次用到同一個(gè)常量，則可用一個(gè)有意義的名字表示這個(gè)常量。Const pi=3.14159） （四）、變量：在程序執(zhí)行過(guò)程中，其值可以改變的量稱為變量 變量命名注意要點(diǎn)：1、必須以字母開頭,不能以數(shù)字或其他字符開頭。 2、只能由字母、數(shù)字或下劃線組成，不能含有小數(shù)點(diǎn)、空格等字符。 3、最長(zhǎng)不超過(guò)255個(gè)字符 4、不能以VB保留字作變量名，如語(yǔ)句定義符dim、函數(shù)名str等。 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é)) （字符串型）String字符串型數(shù)據(jù)是指用 “ ”括起來(lái)的一串字符。如“歡迎進(jìn)入VB世界！”、“ Visual Basic” 、“1234 ”都是字符串類型。 （2）常量和變量的命名、聲明及賦值 符號(hào)常量的聲明：Const 常量名= 常量值 如：Const pi = 3.14159 常量名為pi 變量的聲明： Dim <變量名 >As <變量類型> 如：Dim a As Integer 定義一個(gè)整型變量，變量名為a 變量的賦值 　 變量名 = 表達(dá)式　 例題 Private Sub Form_Click() Dim a As Integer, b As Integer, c As Integer Dim str_1 As String a = 54 : b = 114 : c = a + b str_1 = "Hello World" Print a,b,c Print str_1 End sub 2、VB語(yǔ)言中，下列數(shù)據(jù)類型說(shuō)明符中表示字符型的是（ ）。 A、Boolean B、Integer C、Date D、String 3、在VB 語(yǔ)言中，下列合法的變量名是（ ）。 A、34ab B、ab34 C、*abc D、c\c 4、下列選項(xiàng)中屬于字符串常量的是（ ）。 A、ab B、a+b C、"1235" D、1235 5、在VB 語(yǔ)言中，下列合法的變量名是（ ）。 A、aa B、a*b C、7ab D、dim （五）運(yùn)算符 算術(shù)運(yùn)算： + 加 -- 減 *乘 ^ 冪 　　　　　　 例：2^2 = 4 / （實(shí)數(shù)）除 　　　例：5 / 2 = 2.5 \ 整除 　　　　　例： 5 \ 2 = 2 Mod 求余數(shù) 　　　　例：5 Mod 2 = 1 單選題 6、分析下列程序: Private Sub Form_Click() s=11\3 + 11 Mod 3 Print s End Sub 當(dāng)單擊窗體時(shí)s的值是( ). 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(真或是) 7、下面表達(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í)為：Not > And > Or 8、下列邏輯表達(dá)式的值為“假”的是（ ）。 A、2 + 4 > 8 B、3 + 12 = 15 C、5 > 0 And 4 > 3 D、10 / 5 <3 9、下列邏輯表達(dá)式的值為“假”的是（ ）。 A、3 + 5 > 7 B、8 / 4 < 4 C、5 > 3 And 3 > 2 D、4 + 11 > 20 10、已知A，B，C，D 是簡(jiǎn)單變量，且都已有互不相同的值，執(zhí)行語(yǔ)句A=C: D=B 后，下列 關(guān)系表達(dá)式邏輯值為“真”的是（ ） 。 A、C=A B、A=B C、D=C D、B=C 11、設(shè)a=2, b=3,在VB中，表達(dá)式a>b Or b>3值是:( ) A、False B、True C、-1 D、1 字符運(yùn)算 字符串連接符為“+”和“&” “123” + “45” = “12345” “123” & “45” = “12345” 123 + “45” 語(yǔ)法錯(cuò)誤 12、VB的字符串運(yùn)算符是“&”，該運(yùn)算符主要用于連接兩個(gè)或更多的字符串。如："abcd" & "efg" 連接后的運(yùn)算結(jié)果為："abcdefg"。那么，"1+2" & "3"的運(yùn)算結(jié)果為：（ ）。 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)算符 13、在VB語(yǔ)言中，表示“a大于0且b小于12”的正確表達(dá)式是（ ）。 A、b<12 or a > 0 B、b > 12 And a < 0 C、a > 12 Or a < 0 D、a > 0 And b < 12 （六）常用函數(shù) 數(shù)學(xué)函數(shù) Abs(x) 求x 的絕對(duì)值，例：abs(-3.6) = 3.6 Sqr(x) 求 x 的平方根，例：sqr(100) = 10 Int(x)求≤x的最大整數(shù) 例：int(3.6) = 3 int(--3.6) = --4 Rnd()產(chǎn)生[0，1)之間的隨機(jī)小數(shù)（不包括1） Sin(x) Cos(x) Tan(x) Atn(x) Exp(x) Log(x) 使用三角函數(shù)時(shí)，參數(shù)應(yīng)是弧度，如數(shù)學(xué)中sin300應(yīng)寫為：sin(30*3.14159/180) 字符串函數(shù) Len(字符串) 求字符串的長(zhǎng)度 ,例：Len(“hello”) = 5 Mid(字符串，起始位置，截取長(zhǎng)度) ,例：Mid(“hello”,2,2) = “el” 14、 函數(shù)mid (C,N1,N2)的作用是從字符串C中N1位開始取出長(zhǎng)度為N2 的子串。那么， Mid ("aBcDeFg", 3, 3)的值為（ ）。 A、aBc B、cde C、eFg D、cDe 常用轉(zhuǎn)換函數(shù) Val(字符串) 將字符串轉(zhuǎn)換為數(shù)值,常用于數(shù)值的輸入語(yǔ)句中。例：Val(“123”)=123 Str(數(shù)值) 將數(shù)值轉(zhuǎn)換為字符串，常用于數(shù)值的輸出語(yǔ)句中 Chr(在ASCII表中取數(shù)值對(duì)應(yīng)的字符) 例：chr(65)=”A” Asc(求字符在ASCII表中的數(shù)值) 例：asc(“a”)=97 15、Visual Basic中，下列( )函數(shù)是求絕對(duì)值的。 A、ABS（X） B、SQR(X） C、INT（X） D、STR（X) 16、表達(dá)式Abs(-3.6)*sqr(100)的值是( )。 A、-36 B、360 C、36 D、-360 17、下列( )數(shù)據(jù)類型不是數(shù)值型。 A、Date B、Single C、Double D、Integer 18、下列函數(shù)中，返回值是字符串的是 ( ). A、Mid B、Int C、Val D、Len 19、代數(shù)表達(dá)式表達(dá)式后錯(cuò)誤的是( ) A、g*t*t/2 B、1/2*g*t^2 C、g*t^2/2 D、gt^2/2 20、數(shù)學(xué)式子在VB中的正確寫法是：（ ） A、(2*a+b)/4*a*b B、(2*a+b)/(4ab) C、(2a+b)(4ab) D、(2*a+b)/(4*a*b) 21、判斷x是否在區(qū)間[a, b]上，在VB中以哪個(gè)邏輯表達(dá)式是正確的( ) A、ax and x<=b (七) 程序設(shè)計(jì)的順序結(jié)構(gòu) 順序結(jié)構(gòu)：代碼按照由上到下的順序一行一行地執(zhí)行。程序執(zhí)行過(guò)程中沒(méi)有分支、沒(méi)有重復(fù)，這種結(jié)構(gòu)稱為順序結(jié)構(gòu)。 例題：交換兩個(gè)變量中的數(shù)據(jù)。 Private Sub cmdSwap_Click() Dim x As Single, y As Single Dim m As Single x = Val(txtsx.Text) y = Val(txtsy.Text) m = x: x = y: y = m 交換數(shù)據(jù) txtdx.Text = Str(x) txtdy.Text = Str(y) End Sub 牢記以上代碼中的數(shù)值型數(shù)據(jù)的輸入和輸出語(yǔ)句?。。?！ 22、以下是一段VB程序： a = 1 b = a + 1 c = a + b 它的基本結(jié)構(gòu)屬于（ ） A、順序結(jié)構(gòu) B、選擇結(jié)構(gòu) C、循環(huán)結(jié)構(gòu) D、樹型結(jié)構(gòu) 23、下列VB程序運(yùn)行后，變量x的值為( ). x=2 Print x+l Print x+2 A、2 B、3 C、5 D、8 (八)程序設(shè)計(jì)的分支結(jié)構(gòu) 行If語(yǔ)句 行If是指在一行中寫完的If語(yǔ)句。其一般格式為： 格式一：If條件Then語(yǔ)句 執(zhí)行這種形式的If語(yǔ)句時(shí)，首先對(duì)條件進(jìn)行判斷。若條件成立，則執(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 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 End Sub 執(zhí)行這種形式的語(yǔ)句時(shí)，先進(jìn)行判斷。若條件成立，則執(zhí)行語(yǔ)句1；否則執(zhí)行語(yǔ)句2。必須寫在一行內(nèi)，不能換行，沒(méi)有End If 塊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í)顯示"及格"，該數(shù)小于60時(shí)顯示"不及格"。 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 If End Sub {這樣的格式是不是太麻煩了，所以請(qǐng)選用格式四，自己改過(guò)來(lái)吧！} 格式四：If 條件 Then 語(yǔ)句塊1 Else 語(yǔ)句塊2 End If 例題：編寫程序，求函數(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 Dim y As Single x = Val(InputBox("請(qǐng)輸入變量x")) If x <= 0 Then y = 3 * x + 1 Else y = 4 * x + 1 End If Print "y="; y End Sub 單選題 24、以下是一段Visual Basic程序: If I=1 Then X=X+1 Else X=X*2 End If 它的基本結(jié)構(gòu)屬于( ). A、選擇結(jié)構(gòu) B、循環(huán)結(jié)構(gòu)C、順序結(jié)構(gòu)D、樹型結(jié)構(gòu) 25、下列程序段運(yùn)行后，變量Value的值是（ ） x = 20 If x >= 10 Then Value = 5 * x Else Value = 4 * x End If A、100 B、80 C、90 D、70 26、下面是判斷變量x是不是能被5整除的偶數(shù)的程序，橫線上的邏輯表達(dá)式應(yīng)為( ) Private Sub commandl_Click() Dim x As Integer x=Val(Text1. Text) If 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 ) = 0 B、(x Mod 5) = 0 or (x Mod 2 ) = 0 C、x Mod 5 = 0 D、x Mod 2 = 0 27、下列程序段運(yùn)行后,m的值為( ) A=2: b=1: c=5 If A < b Then m = A Else m = b If c < m Then m = c A、1 B、2 C、5 D、提示錯(cuò)誤，無(wú)答案 （九）程序設(shè)計(jì)的循環(huán)結(jié)構(gòu) 1、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.....+100 Private Sub Command1_Click() Dim i As Integer Dim sum As Integer sum = 0 For i = 1 To 100 sum = sum + i 循環(huán)體 Next i Text1.text=str( sum) End Sub ‘注意這里累加器的應(yīng)用 例題2：Step循環(huán)變量增量 Private Sub Command_Click() For j = 3 To 15 Step 2 Print j ‘共輸出7個(gè)值 Next j End Sub ‘變量j=3 5 7 9 11 13 15 17 循環(huán)7次，j最后的值為17不算在循環(huán)中。 循環(huán)變量的初值、終值、循環(huán)變量增量都是數(shù)值型。其中要重復(fù)執(zhí)行的操作稱為循環(huán)體，增量可正可負(fù)，如果沒(méi)有設(shè)置Step，則增量的缺省值為1 1、 循環(huán)變量取初值； 2、 循環(huán)變量與終值比較，沒(méi)有超過(guò)終值轉(zhuǎn)3，否則循環(huán)結(jié)束，接著執(zhí)行循環(huán)語(yǔ)句的后繼語(yǔ)句； 3、 執(zhí)行一次循環(huán)體 4、 循環(huán)變量增加一個(gè)增量 5、 重復(fù)步驟2~4。 以上可以看出，F(xiàn)or-Next循環(huán)變量是一種當(dāng)型循環(huán)。說(shuō)明 （a） For語(yǔ)句與Next語(yǔ)句必須成對(duì)出現(xiàn)，而且它們當(dāng)中的“循環(huán)變量”必須是同一個(gè)變量，如上例中均為I。 （b） 當(dāng)循環(huán)變量為正時(shí)，循環(huán)變量超過(guò)終值，是指循環(huán)變量的值大于終值時(shí)；若為負(fù)，則是指循環(huán)變量的值小于終值。 A P 入口 出口 2、Do－Loop循環(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,b,r As Integer a = Val(Text1.Text) b = Val(Text2.Text) r = a Mod b Do While r <> 0 a = b b = r r = a Mod b Loop Text3.Text = Str(b) End Sub 當(dāng)VB執(zhí)行Do While-Loop循環(huán)時(shí)，先判斷指定的條件是否為真，若條件為真，執(zhí)行循環(huán)體，條件為假時(shí)退出循環(huán)。 28、下列程序段執(zhí)行結(jié)束后，變量y的值是（ ）。 y=2 Do while y<=6 y=y+y Loop A、2 B、6 C、8 D、16 29、分析程序，寫出執(zhí)行結(jié)果。 Private Sub command1_click() Dim S As Integer,I As Integer S=0 For i=1 to 10 Step 2 S=S+i Next i Print “S=”;s End Sub 答案：S= （十）算法與問(wèn)題解決 1、解析法 利用所學(xué)的數(shù)學(xué)或物理等知識(shí)來(lái)求解一個(gè)問(wèn)題。 2、枚舉法 對(duì)所有可能的情況都逐一列舉和判斷。外循環(huán)分支的結(jié)構(gòu)。 簡(jiǎn)單理解一下程序思想及代碼(部分程序請(qǐng)補(bǔ)充完整代碼) (1) 一只猴子摘了一堆桃子，它每天吃當(dāng)天桃子數(shù)的一半，每次忍不住多吃了一個(gè)。這樣到第十天時(shí)只有一個(gè)桃子可以吃了，編程計(jì)算猴子最初共有多少個(gè)桃子。 程序： Private Sub Command_Click() Dim i As Integer Dim s As Integer s = 1 For i =1 To 9 s = (s + 1)*2 Next Print “s=”;s End Sub (2) 完善按鈕“計(jì)算7!”的Click事件程序，當(dāng)單擊命令按鈕時(shí)Text1顯示7!的值。 Private Sub Command1_Click( ) Dim a As long Dim i As Integer (30) For i = 1 To 7 a = a * i Next i (31) End Sub 這里輸入值太大容易“溢出”，可以更改變量a的類型為double (3) "計(jì)算1+2+……+100" Private Sub Command1_Click( ) Dim a As Integer Dim I As Integer a = 0 For i = 1 To 100 a = a + i Next i Text2.Text = Str(a) (4) 編程計(jì)算 s=1-2+3-4+5-……+99-100 程序： Private Sub command1_Click() Dim s As Integer 定義變量s為整型變量 Dim i As Integer 定義循環(huán)變量 (32) For i=1 To 100 if int(i/2) <> i/2 Then ‘判斷奇數(shù)，也可以使用語(yǔ)句“ i mod 2 <> 0 ” s = s + i (33) s = s - i End if Next i Print "s=";s End Sub (5) 編程計(jì)算s = 1*2+2*3+3*4+……+n*(n+1)的值，其中n 通過(guò)文本框txta輸入 Private Sub Form_Click() Dim s As Single Dim i As Integer s = 0 （34） For i = 1 To n (35) Next i Print “s=”;s End Sub (6) 編程求:雞和兔在一個(gè)籠里，共有腿100條，頭40個(gè)，問(wèn)雞有幾只，兔有幾只? 程序： Private Sub Form Click() Dim Ji As Integer 雞 Dim Tu As Integer 兔 Dim Leg As Integer 腿數(shù) Dim Head As Integer 頭數(shù) For Ji=1 To 50 For Tu=1 To 25 Leg = Ji*2 + Tu*4 計(jì)算腿 計(jì)算頭 (36) If Then (37) Print "雞=";Ji;"只", "兔=";Tu;"只" End If Next Tu Next Ji End Sub B D B C A A C A D A A C D D A C A A D D C A A A A A A C 25 a=1 text1.text=str(a) s=0 else n=val(txta.text) s=s+i*(i+1) head=ji+tu leg=100 and head=40