1、高中信息技術算法與程序設計VB(選修)知識要點相關知識點(一)算法1. 定義相關題解：1 算法： 就是解決問題的方法和步驟。算法是程序設計的“靈魂”，算法 + 數據結構程序。單選題1 、下列關于算法說法不正確的是 ( A )A 、算法獨立于任何具體的語言， BASIC 算法只能用 BASIC 語言來實現B、解決問題的過程就是實現算法的過程C、算法是程序設計的“靈魂”2算法的描述方法：1 算法的描述： 可分多種表達方法，一般用自然語言、流程圖和偽代碼進行描述。2 自然語言描述法： 指用人們日常生活中使用的語言(本國語言) ，用自然語言描述符合我們的 習慣，且容易理解。3 流程圖描述： 也稱程序框

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

3、序法 D 列表法4、以下哪個是算法的描述方法 ?( D )A 順序法 B 列表法 C 集合法 D 自然語言描述法(二)程序設計基礎(1)常用高級編程語言： BASIC 、VB 、 Pascal、C、 C+ 、 Java1 面向對象的程序設計語言： 其中的 對象 主要是系統設計好的對象，包括窗體等、控件等 對象 .屬性屬性值 對象中屬性可以在設計界面時通過屬性窗中設置， 也可以在運行時通過程序代碼設置 ,方法如下 例：給文本框“ Txt123 ”的“ Text”屬性賦值為字符串“ 20”，代碼如下Txt123.text = ”20” 變量對象 .屬性 如果要獲取對象的狀態或特性，這時就要讀取對象

4、的屬性值，方法如下 例：讀取文本框“ txt123 ”的“ Text”屬性的代碼如下a = txt123.text2 事件及事件驅動 事件是對象對外部操作的響應，如在程序執行時， 單擊命令按鈕會產生一個 Click 事件 。如需 要命令按鈕響應 Click 事件，就把完成 Click 事件功能的代碼寫到 Click 事件的事件過程中，與 事件一一對應。事件過程的形式如下：Private Sub 對象 _事件名 ( ) (事件過程代碼) End Sub 一個簡單的 VB 程序 求圓的周長和面積Private Sub Command1_Click()Dim r As Single '定義

5、r 為單精度型Dim c As Single '定義 c 為單精度型Dim s As Single '定義 s 為單精度型 r = Val(Text1.Text) ' 輸入半徑 r c = 2 * 3.14159 * r '計算周長 s = 3.14159 * r * r ' 計算面積 Text2.Text = c'輸出周長Text3.Text = s'輸出面積End SubPrivate Sub Command2_Click()End'退出End Sub 相關題解： 單選題1、下列關于程序設計說法正確的是 ( B )。 A 、程

6、序設計語言的發展經歷了機器語言、匯編語言到高級語言的過程，比 較流行的高級語言是 PASCAL, FORTRAN, EXCEL, C+ 等B、程序設計就是尋求解決問題的方法，并將其實現步驟編寫成計算機可以執行的程序的過程C、程序設計語言和計算機語言是同一個概念的兩個方面D、程序設計就是指示計算機如何去解決間題或完成一組可執行指令的過程2、下列說法錯誤的是( D ) .A 、程序設計就是尋求解決問題的方法，并將其實現步驟編寫成計算機可以執行的程序的過程B、程序設計語言的發展經歷了機器語言、匯編語言、高級語言的過程C、計算機程序就是指計算機如何去解決間題或完成一組可執行指令的過程D 、程序設計語言

7、和計算機語言是同一概念的兩個方面一、常量：批在程序進行過程中不變的量在 VB 中一般分數值常量與字符常量兩種 數值常量：就是數學中說的常數，分 整型常量和實型常量兩種 整型常量：即整數，指不帶小數點的數值如 1、 0、 -10、 +35 等都是合法的整數 實型常量：即實數，指帶小數點的數值。實型常量又分為定點數和浮點數兩種。 例：定點數： 3.14159 和-6.8，1.99浮點數：例： 1.2345×103 可表示為 1.2345E3，字母 E 表示底數 10 浮點數就是數學上的科學計數法。 字符串常量：被一對雙引號括起來的若干個合法的字符稱為字符串常量。例如：”China”、”V

8、isualBasic ”、”18”、 ”3.1415”等，雙引號中字符， 不包括雙引號本身 。 符號常量：如果多次用到同一個常量，則可用一個有意義的名字表示這個常量。二、變量：在程序執行過程中，其值可以改變的量稱為變量 變量命名注意要點： 1、必須以英文字母開頭 ,不能以數字或其他字符開頭。2、只能由英文字母、漢字、數字學或下劃線組成， 不能含有小數點、 空格等字符。3、最長不超過 255 個字符4、不能以 VB 保留字作變量名，如語句定義符、函數名等。5、VB 不區分變量名中字母大小寫。如HELLO 和 Hello 是同一個變量。數據及運算（1）常用數據類型： （整型）Integer、（長整

9、型） Long、（單精度型） Single、（雙精度型） Double 、 （字符串型） String 、（布爾型） Boolean、（日期型） Date其中 （整型 ）Integer 、（長整型） Long、（單精度型） Single、（雙精度型） Double 屬于數值型 表示范圍：（整型）Integer （-32768 32767） （長整型 ）Long（-21 億 21億）（布爾型） Boolean（True 真、是或 False假、非 ）（字符串型） String（定長字符串： 0 65535 個字符，不定長字符串： 020 億個字符 ） 字符串型數據是指用 “”括起來的一串字符。如

10、 “歡迎進入 VB 世界！ ”、“Visual Basic” 、“1234 ”都是字符串類型。（日期型） Date（100/1/1 9999/12/31） 日期型數據專門用來處理日期和時間。VB 采用一對“ #”把日期和時間的值括起來，如#2003/08/20#表示 2003年8月 20日。（2）常量和變量的命名、聲明及賦值 符號常量的聲明： Const 常量名 As 常量類型 = 常量值 如： Const pi As Single = 3.14159 常量名為 pi 變量的聲明：Dim < 變量名 >As <變量類型 >如： Dim a As Integer 定義一個

11、 整型變量，變量名為 a變量的賦值VB 中使用 Let 語句給變量賦值，其形式如下：Let 變量 = 表達式 其中，方括號 表示這部分內容是可選的，通常可以省略該關鍵字。例題Private Sub Form_Click()Dim a As Integer, b As Integer, c As IntegerDim str As StringLet a = 54Let b = 114c = a + bstr = "Hello World"Print "a=" a, "b=" b, "c=" cPrint strPi

12、nt 方End Sub 數據的輸出 程序中運算得到的結果，除可以使用文本框和標簽顯示外，對于大批量的數據更適合用 法輸出，格式如下Print 表達式列表 例題：Private Sub Form_Click()Dim x As Single, y As SinglePrint -61; -34Print 9 * 2; 12Print "This is" "a book"x = 3: y = 4Print "x=" x, "y=" yEnd Sub注意： Print 方法相關題解：單選題1、下列變量名寫法錯誤的是 (

13、B )A 、 abc_123 B、 123abc C 、 abc123 D、 abc2、下列語句中定義了一個實型變量的是( B )A 、 Dim end as IntegerB 、 Dim sum As SingleC、 Dim Name As String D、其它三項都不對3、在 VB 中，以下關于符號常量的聲明，聲明正確的是:( C )A 、 Dim TAG as StringB 、 Const TAG as String "Visual" + "Basic"C 、 Const TAG as String ="Visual Basic&q

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

15、 、<小于號<> 不等于>大于號>= 大于等于號<=小于等于注意：關系表達式的運算結果為布爾值 True 或 False例： 3 > 2 結果為 True( 真或是 ) 相關題解 單選題1、下面表達式的值是 false 的有 ( C ).A 、 "969" < "n97"B、 Int(4.99) <> len("basic") C、str(2000) < "1997" D、3 > 2注：字符串排序：數字大寫字母小寫字母 (同一類別按字典順序 排

16、列)邏輯運算Not (取反) And(與) Or (或) 運算結果為布爾型( Boolean ) True 或 False 邏輯運算符的優先級為： No > And > Or 日期運算符與日期表達式 日期表達式是用日期運算符“ + ”或“ -”將算式表達式、日期型常量、日期型變量、日期函數 等連接起來的式子，如表達式“ #2003/09/01# +30 ”的運算結果是“ 2003-10-1 ”；表達式 “#2003/10/20# - #2003/10/10# ”的運算結果為整數 10 相關題解 單選題1、設 a=2, b=3,在 VB 中，表達式 a>b Or b>3

17、值是:( A )A 、 False B 、 True C、 -1 D 、 1 字符運算 字符串連接符為“ +”和“ & ” “123” + “45” = “ 12345 ” “123” & “45” = “ 12345 ” 123 + “45” = 168 “123” + 45 = 168運算符的執行順序在 VB 中，當一個表達式中同時出現多種運算符時，運算次序由運算符 的優先級決定， 優先級高的運算符先運算，優先級相同的從左向右進行 運算。不同性質的運算符優先級如下。算術運算符 > 字符串運算符 > 關系運算符 > 邏輯運算符 常用函數數學函數Abs(x)

18、求 x 的絕對值，例： abs(-3.6) = 3.6Sqr(x) 求 x 的平方根，例： sqr(100) = 10Int(x) 求 x 的最大整數 例： int(3.6) = 3 int(-3.6) = -4Rnd(x)產生 0，1)之間的隨機數 (不包括 1)Sin(x)Cos(x)用戶交互函數VB 提供 InputBox( ) 和 MsgBox( )函數用于人機交互InputBox( ) 其語法格式為：InputBox( 提示，標題，默認值,X 坐標，Y 坐標)MsgBox( ) 其語法格式為：MsgBox(提示信息 ，按鈕，標題 )相關題解單選題1、 Visual Basic 中，下

19、列 ( A )函數是求絕對值的。A、ABS(X) B、SQR(X ) C、INT(X) D、GN(X)2、表達式Abs(-3.6)*sqr(100) 的值是 ( C) 。A、-36B、360C、36 D 、-3603、下列 (A)數據類型不是數值型。A、DateB 、 SingleC、DoubleD、Integer4、下列函數中，返回值是字符串的是 (A ).A、MidB、 InstrC、ValD 、 Len5、下列 (A)函數返回系統的當前時間。A、time()B 、date()C、day()D、year()6、代數表達式 2 表達式后錯誤的是 ( D )A 、 g*t*t/2B 、 1/2

20、*g*t2C、 g*t2/2D、 gt2/22a b7、數學式子 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 是否在區間 (a, b 上，在 VB 中以哪個邏輯表達式是正確的 ?( 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 個 2 位整數， 要使此 2 位數十位和個位上的值分別存入 x, y

21、變量。 不正確的 算法是 ( C )。選項: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 程序設計的順序結構 順序結構：代碼按照由上到下的順序一行一行地執行。程序執行過程中沒有分支、 沒有重復，這種結構稱為順序結構。例題：在文本框 text1 和 text2 中輸入變量 x、 y,交換兩個變量 中的數據。Private S

22、ub cmdSwap_Click()Dim x As Single, y As SingleDim m As Singlex = Val(text1.Text)y = Val(text.Text)m = x: x = y: y = m '交換數據Text1.Text = xText2.Text = yEnd SubPrivate Sub cmdEnd_Click()EndEnd Sub注： Val(x)- 將字符 X 轉化為數 如 val("123")=123 str(x)- 將數 X 轉化為字符如 str(123)="123"相關題解單選題1、

23、以下是一段 VB 程序：a = 1b = a + 1c = a + b 它的基本結構屬于( A )A 、順序結構 B、選擇結構 C、循環結構 D 、樹型結構2、下列 VB 程序運行后，變量 x 的值為 ( A ). x=2Print x+lPrint x+2A 、2B、3C、5D、8 程序設計的分支結構 行 If 語句 行 If 是指在一行中寫完的 If 語句。其一般格式為： 格式一： If 條件 Then 語句執行這種形式的 If 語句時，首先對條件進行判斷。若條件成立，則執行 Then 后面的語句；若 條件不成立，則執行 If 語句后繼程序行的語句格式二： If 條件 Then 語句 1

24、Else 語句 2例題：輸入三個不相同的數，求出其中最小數。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

25、c < Min Then Min = cPrint "最小數 " MinEnd Sub 執行這種形式的語句時，先進行判斷。若條件成立，則執行語句1；否則執行語句 2。塊 If 語句上述 If-then 語句只能根據條件的真假是否執行一條語句，當Then 部分和 Else 部分包含的內容較多時，則可選用“塊 If 語句”結構。格式三： If 條件 Then語句塊End If例題：當從輸入一個數 a時，當該數大于或等于 60時顯示 "及格"，該數 小于 60時顯示 "不及格"。Private Sub Command1_Click（）

26、Dim a As Singlea = Val（Text1.Text）If a >= 60 ThenLabel1.Caption = " 及格 "End IfIf a < 60 ThenLabel1.Caption = " 不及格 "End IfEnd Sub 格式四： If 條件 Then 語句塊 1 Else 語句塊 2 End If例題：編寫程序，求函數 Y 的值（當 x0 時，y=3x+1 ；當 x>0 時，y=4x+1 ）。Private Sub Form_Click() Dim x As Single Dim y As Sin

27、gle x = Val(text1.text) If x <= 0 Theny = 3 * x + 1Elsey = 4 * x + 1End If Print "y=" y End Sub 相關題解 單選題 1、以下是一段 Visual Basic 程序 :If I=1 Then X=X+1ElseX=X*2End If 它的基本結構屬于 ( A ). A 、選擇結構 B、循環結構 C、順序結構 D 、樹型結構 2 、下列程序段運行后，變量 Value 的值是( A ) x = 20 If x >= 10 ThenValue = 5 * xElseValue

28、= 4 * xEnd IfA 、100 B、80 C、90D、 70綜合分析1、下面是判斷變量 x 是不是能被 5 整除的偶數的程序，橫線上的邏輯表達式應為( A )Private Sub commandl_Click()Dim x As Integerx=Val(Text1. Text)If = 0 ThenLabell.Caption= 這個數是能被 5 整除的偶數ElseLabell.Caption= 這個數不是能被 5 整除的偶數End If選項：A 、 (x Mod 5)= 0 And (x Mod 2 ) = 0B 、 x Mod 10= 0C、 x Mod 5 =0D 、 x M

29、od 2 =02、下列程序段運行后 ,m 的值為 ( AA=2: b=1: c=5If A < b Then m = A Else m = bIf c < m Then m = c選項：A、1B、2C、5D、提示錯誤，無答案 程序設計的循環結構 一、 For-Next 循環For 循環變量一般形式是：For 循環變量 =初值 To 終值 Step 循環變量增量 循環體Next 循環變量例題 1：求 s 1+2+3+4+100Private Sub Form_Click()Dim i As IntegerDim sum As Integersum = 0For i = 1 To 10

30、0sum = sum + i ' 循環體Next iPrint "sum=" sumEnd Sub例題 2： Step循環變量增量Private Sub Form_Click()For j = 3 To 15 Step 2Print jNext jEnd Sub 循環變量的初值、終值、循環變量增量都是數值型。其中要重復執行的操作稱為循環體，增量 可正可負，如果沒有設置 Step，則增量的缺省值為 11、 循環變量取初值；2、循環變量與終值比較，沒有超過終值轉3，否則循結束，接著執行循環語句的后繼語句；3、執行一次循環體4、循環變量增加一個增量5、重復步驟 24。 以

31、上可以看出， For-Next 循環變量是一種當型循環。說明( a) For 語句與 Next 語句必須成對出現， 而且它們當中的 “循環變量” 必須是同一個變 量，如上例中均為 I。( b) 當循環變量為正時，循環變量超過終值，是指循環變量的值大于終值時；若為負， 則是指循環變量的值小于終值。二、 DoLoop 循環For-Next 循環的次數是確定的， 但是有的問題只知道循環結束的條件， 重復執行的 次數事先并不知道，這是需要 Do-Loop 循環 格式一： Do While 條件循環體 Loop 例題：求最大公約數Private Sub Command1_Click()Dim a As

32、IntegerDim b As IntegerDim r As Integera = Val(Text1.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當 VB 執行 Do While-Loop 循環時，先判斷指定的條件是否為真，若條件為真，執 行循環體，條件為假時退出循環。格式二： Do 循環體Loop Until 條件 這種循環的執行過程如圖

33、所示。進入循環體后，先執行一次循環體A，然后再檢查條件 P 是否成立。如果不成立，就重復執行循環體 A，直到條件 P 成立退出循環體。例題：如果我國人口每年以平均 1.5% 的速度增長，問多少年后我國人 口達到或超過 15 億？設現在人口為 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; " 年后

34、", "人口 =" pEnd Sub1、下列流程圖表示的是程序的 ( B )基本結構的算法。A 其它三項都不是 B 循環結構 C 選擇結構 D 順序結構2、在 VB 中，以下程序段 :x=0Do While x<50x=(x+2)*(x+3)Loop執行后， x 的值為 :( C ).A、168 B、50 C、 72 D、03、閱讀下面程序，當單擊窗體之后，窗體上輸出的是 ( A )Private Sub Form_Click()Dim i As Integer:Dim s As Integers = 0For i = 1 To 5s = s + iNext

35、 iPrint s,iEnd Sub選項:i=5( C ) 。A 、15 6 B、 s=15 i=6C、65 D 、 s=64、要求計算機打印出 100 至 200 之問所有偶數的平方根值。正確的算法是 選項: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、下

36、列程序段中，循環體執行的次數是( B )y = 2Do While y <= 8y = y+yLoop 選項:A 、2B、3C、 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 、0B、4 C、6 D 、 87、在 VB 中，假定有以下程序段 :For i=1 To 3 Step 2Print "VB"Next i則語句 Print

37、 "VB" 的執行次數是： ( B )。A 、1B、2C、3D、48、下列程序段中，循環體執行的次數是( B )x=0For y=1 To 10 step -1x=x+1Next yA 、1B、 0C、10D 、49、在 VB 中，假定有以下程序段 :For i=3 To 1Print "VB"Next i則語句 Print “VB ”的執行次數是 :( D )A 、出錯B、 2C、1D、 010、下列程序段中，循環體執行的次數是(C )x=0For y = 1 To 10 step -1x = x+1Next yA 、1B、 10C、0D、 411、單

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

39、tegerx = 1:y = 0 Do While x < 3y = y + xx = x * 3 Loop Text1.text = Str(x) Text2.text = Str(n) End Sub A 、27 3 B 、3 27C、20 3 D、3216面向對象程序設計思想 相關題解 單選題1、在 visual Basic 中顯示和編輯程序代碼時，采用 ( C ). A 工程資源管理器窗口B 窗體設計器窗口C 代碼編輯窗口D 屬性窗口2、在 VB 中，要設置文本框的缺省文字，應使用屬性:( A )A 、Text B 、 Name C、 Caption D 、 Font3、在 VB

40、 中，要設置窗口的標題文本，應使用屬性 :( B ) A 、 Font B 、CaptionC 、 Name D 、Text4、用 visual Basic 編程，我們把工具箱中的工具稱為 ( A ) A 、控件B、工具C、窗體D、事件5、在 VB 中，要設置某個對象屬性時，應進入 :( D ) A 任意模式 B 中斷模式 C 運行模式 D 設計模式6、能夠改變復選框中背景顏色的屬性是( C)。A 、 Value B 、FontColorC、BackColorD、 Font7、對于窗體， Click(單擊 )是它的一個 ( A )A 重要事件 B 重要屬性 C 重要方法 D 重要對象8、Vis

41、ual Basic 中，設置控件的位置，可改變下列( B )屬性。A 、Height 與 TopB 、Left 與 TopC、Height 與 WidthD、Left 與 Width9、在 VB 中，設置控件的大小可改變( A )A 、 Height 與 Width B、 Height 與 Top C、 Left 與 Top D 、 Left 與 Width三、應用程序設計編程題必修 1_15、編寫程序，使能打印下面所示的圖案。程序：Private Sub Form Click()Dim i As Integer ' 定義 i 為整型變量Dim j As Integer ' 定

42、義 j 為整型變量For i = -3 To 3Print Tab(Abs(i)+5)For 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 &

43、quot;*"Next jPrint '換行Next iEnd Sub必修 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、處換成正確的變量名，使當單擊該按鈕時，Labell. Label2 分別顯示 30、 10,完成

44、所有操作后，諸按“ Ctrl+S ”保存。Private Sub Command_Click( )x = 10y = 30If x < y Then t = x x = y y = tEnd IfLabel1.Caption = xLabel2.Caption = yEnd Sub必修 5_15、完善"判斷"按鈕的 click 程序，使當從 Textl 中輸入一個數時，當該數 大于或等于 60 時在 Lebell 中顯示 "及格 "，該數小于 60 時在 Labell 中顯 示"不及格 "。完成所有操作后，諸按“ Ctrl+S

45、”保存。Private Sub Command1_Click( )Dim a As Singlea = Val(Text1.Text)If a>=60 ThenLabel1.Caption = 及格“”End IfIf a < 60 ThenLabel1.Caption = 不及“格 ”End IfEnd Sub必修 1_16、編寫程序，求函數 y的值(當 x<=0 時,y=3x+1;當 x>0 時， y=4x+1) 。 程序：Private Sub Form Click()Dim x As Single ' 定義 x 為單精度型變量Dim y As Singl

46、e '定義 y為單精度型變量 x = Val(InputBox(" 請輸入變量 x") If x <=0 Theny = 3 * x + 1Elsey = 4 * x + 1 End If Print "y="y End Sub必修 2_16、編寫程序，求 y=6x-5 的值。 (x 的值在程序中調用 InputBox 函數，在 彈出的標準輸入對話框中輸入 ) 程序：Private Sub Form_Click() Dim x As Single Dim y As Single x = Val(InputBox( 請輸“入變量 x” ) y

47、 = 6*x 5 Print “ y= ”;End Sub必修 3_16、一只猴子摘了一堆桃子，它每天吃當天桃子數的一半，每次忍不住多 吃了一個。這樣到第十天時只有一個桃子可以吃了，編程計算猴子最 初共有多少個桃子。完成所有操作后，諸按“ Ctrl+S ”保存。程序：Private Sub Form_Click()Dim i As IntegerDim s As Integers = 1For i =1 To 9s = (s + 1)*2NextPrint “ s=” ;s End Sub必修 4_16、完善按鈕“計算 7!”的 Click 事件程序，當單擊命令按鈕時 Text1 顯示 7!的值。 Private Sub Command1_Click( )Dim a As IntegerDim i As Integera = 1For i = 1 To 7a = a * iNext iText1.Text = aEnd Sub必修 5_16、請將按鈕 "計算 1+2+100"的 Click 事件程序中的 "