一、VB基本知識及選擇、循環(huán)結(jié)構(gòu)習(xí)題.doc

一、VB基本知識及選擇、循環(huán)結(jié)構(gòu)習(xí)題一、基本概念題（1） 說明下列哪些是Visual Basic合法的直接常量，并分別指出它們的類型。 100.0 %100 1E1 123D3 123,456 0100 “ASDF” “1234.5” #2004/10/7# 100# &O78 &H123 True T -1123! 345.54#答：在VB中，直接常量是以直接明顯的形式給出的數(shù)據(jù)。根據(jù)數(shù)據(jù)類型的不同，直接常量分為：字符串常量、數(shù)值常量、日期常量和布爾常量。字符串常量是由一對半角雙引號“”加以界定的字符序列，該字符序列可以是任何能被計算機處理的字符。本題中，“ASDF” 、 “1234.5”是字符串常量；數(shù)值常量是由數(shù)值、小數(shù)點和正負號所構(gòu)成的數(shù)值。在Visual Basic中除十進制數(shù)值常量外，還有八進制、十六進制數(shù)值常量。八進制常量前加&O；十六進制常量前加&H。本題中，100.0、1E1、123D3、0100、100#、&O78 、&H123、-1123!和345.54#均為數(shù)值常量。日期常量用來表示某一天或某一天的具體時間。在Visual Basic中，日期常量用兩個“#”號加以界定。本題中，#2004/10/7#是日期常量。邏輯型常量只有True和False兩個值，表示“真”和“假”。本題中，True是邏輯常量。 本題中，100、123,456、T不是合法的常量。（2）下列數(shù)據(jù)哪些是變量，哪些是常量？是什么類型的常量？ Name “name” False ff “11/16/99” cj “120” n #11/12/2004# 12.345 答：“name”、 “11/16/99”、 “120”是字符串常量；12.345是數(shù)值常量；#11/12/2004#是日期常量；False是邏輯常量。Name、ff、cj、n是變量。（3） 下列符號中，哪些可以是Visual Basic的合法變量名？ A123 a12_3 123_a a,123 a 123 Integer XYZ False Sin(x) 變量名 sinx 答：變量命名的規(guī)則是：必需以字母或漢字開頭，其后可以是下劃線、字母、漢字和數(shù)字，長度小于255個字符；不能使用VB的關(guān)鍵字。本題中，合法的變量名是：A123、 a12_3、XYZ、變量名、sinx；不合法的變量名是：123_a（不能用數(shù)字開頭）、a,123（不能用逗號）、a 123（不能有空格）、False、Sin(x)（VB的關(guān)鍵字）、（不是英文字母）。（4）把下列數(shù)學(xué)表達式寫成Visual Basic表達式：（1） （2）（3） （4）（5） （6）答：(1) abs(x+y)+z5 (2) (1+x*y)6 (3) (10*x+Sqr(3*y)/(x*y)(4)(-b+Sqr(b*b-4*a*c)/(2*a)(5) 1/(1/r1+1/r2+1/r3)(6) Sin(3.14159*45/180)+(Exp(10)+log(10)/Sqr(x+y+1)（5）寫出下列表達式的值：（1）123 + 23 Mod 10 7 + Asc(A)（2）Int(68.555 * 100 + 0.4) / 100（3）#11/22/2004# - 10（4）ZXY & 123 & abc答：VB中計算表達式的值時，首先要考慮的是運算符的優(yōu)先級。(1)式中整除運算符優(yōu)先級最高，故首先計算1071；然后計算23 Mod 10；所以整個表達式的值=123065188。(2)式中Int(68.555*100+0.4)=Int(6855.9)/100=6855/100=68.55。注意Int()函數(shù)取整時，參數(shù)如果是整數(shù)，略去小數(shù)部分；參數(shù)是負數(shù)時，取不大于參數(shù)的最大整數(shù)。(3)式中的10表示天數(shù)，故表達式的值是2004-11-12。(4)“&”運算符的作用是把字符串連接起來，如果遇到數(shù)值，則先把數(shù)值轉(zhuǎn)換成字符串后再連接，所以表達式的值是ZXY123abc。（6）設(shè)a=7，b=3，c=4，求下列表達式的值：（1）a + 3 * c （2）a 2 / 4（3）a / 2 + 3 2 （4）a Mod 3 + b 3 / c 5答：（1）式=7+3*4=19；（2）式=7*7/4=12.25;（3）式=7/2+32=3.5+1=4.5;（4）式=1+274/5=1+6.755=1+65=2;（7）寫出下列函數(shù)的值：（1）Int(-3.14159) （2）Fix(-3.14159)（3）Sqr(Sqr(81) （4）Len(Visual Basic程序設(shè)計)（5）Int(Abs(99 - 100) / 2) （6）Sgn(7 * 3 + 2)（7）LCase(Hellow VB!) （8）Mid(Hellow VB!, 4, 3)（9）Left(Hellow VB!, 3) （10）Val(16個加23個)（11）Str(-459.55) （12）UCase(Visual Basic)答：（1）Int(-3.14159)=-4;（2）Fix(-3.14159)=-3;（3）Sqr(Sqr(81)=3（4）Len(Visual Basic程序設(shè)計)=16;（5）Int(Abs(99 - 100) / 2)=0;（6）Sgn(7 * 3 + 2)=1;（7）LCase(Hellow VB!)=”hellow vb”;（8）Mid(Hellow VB!, 4, 3)=”low”;（9）Left(Hellow VB!, 3)=”Hel”;（10）Val(16個加23個)=16;（11）Str(-459.55)=”-459.55”;（12）UCase(Visual Basic)=”VISAUL BASIC”;二、 選擇題（1）可以同時刪除字符串前導(dǎo)和尾部空格的函數(shù)是 。 A. Ltrim B. Rtrim C. Trim D. Mid（2）函數(shù)Int(Rnd(1) * 10)是在哪個范圍產(chǎn)生隨機整數(shù) 。 A. (0,1) B. (0,9) C. (1,10) D. (1,9)（3）數(shù)學(xué)式子sin25寫成Visual Basic表達式是 。 A.Sin25 B. Sin(25) C. Sin(25) D. Sin(25*3.14/180)（4）表達式16/4 23 * 8/4 Mod 52的值是 。A. 14 B. 4 C. 20 D. 2（5）數(shù)學(xué)關(guān)系式表示成正確的VB表達式為 。 A. 3= x = 3 And x=3 Or x10 D. 3= x And “ABC” B. “THAT” “THE” C. 9 “H” D. “A” “a”（16）表達式a+b=c是 。 A. 賦值表達式 B. 字符表達式 C. 算術(shù)表達式 D. 關(guān)系表達式（17）在下列表達式中，非法的是 。 A. a=b+c B. ab+c C. abc D. ab+c（18）語句Print Format (“HELLO”, “”) 的輸出結(jié)果是。 A. HELLO B. hello C. He D. he（19）MsgBox函數(shù)的返回值的類型是。 A. 整數(shù)B. 字符串C. 邏輯值D. 日期（20）用語句Dim A(-3 to 5) As Long定義的數(shù)組元素個數(shù)是 。 A. 7 B. 8 C. 9 D.10答：（1）選C。Trim函數(shù)可以出去字符串兩端的空格，而Ltrim、Rtrim則分別出去字串左端或右端的空格。（2）選B。Rnd函數(shù)返回一個01（不包括1）的單精度小數(shù)，乘以10后用Int函數(shù)取整，得到的數(shù)應(yīng)在09之間。（3）選D。VB中，所有三角函數(shù)的參數(shù)必須用弧度代入計算，反三角函數(shù)的返回值是弧度。（4）選B。因為16/4 23 * 8/4 Mod 52=4-8*8/4 Mod 2=4-16 Mod 2=4-0=4。（5）選B。表示變量x大于等于3而且小于9，應(yīng)注意這里不能使用數(shù)學(xué)式子的習(xí)慣用法。（6）選B。Left(a,4)的值是”1234”，Mid(a,4,2)的值是”34”，兩字符串連接后再由Val函數(shù)轉(zhuǎn)變?yōu)閿?shù)值123445。（7）選A。在VB中，西文字符、中文字符和數(shù)字都是一個字符長度，字符串長度就等于字符的個數(shù)。（8）選C。賦值號左邊只能是變量，不能是表達式，故A是錯誤的；B、D中的均有不合法的變量名。（9）選A。選項B、D語法錯誤，選項C是一關(guān)系表達式。（10）選D。數(shù)值型數(shù)據(jù)與字符串相加時，如果字符串是數(shù)字，VB把字符串轉(zhuǎn)變?yōu)閿?shù)值后，再相加；字符串不是數(shù)字時，系統(tǒng)提示出錯。（11）選A。由邏輯運算符組成的表達式是邏輯表達式。（12）選B。（13）選B。（14）選A。字符串的比較是按字符的ASCII碼值從左到右一一比較，先大為大。（15）選A。（16）選D。表達式a+b=c是關(guān)系表達式，如果a+b的值等于c，則表達式的值為True，否則為False。（17）選C。VB中的不等號只能用。（18）選B。在格式輸出函數(shù)中，“”是強制小寫符號。（19）選A。MsgBox函數(shù)的返回值的類型是一整型數(shù)，記錄了用戶在消息框中選擇了哪一個按鈕。（20）選C。定義的數(shù)組元素個數(shù)是9，數(shù)組元素的下標分別是：-3，-2，-1，0，1，2，3，4，5。三、判斷題(1) VB6.0中&H12是8進制的數(shù)值常數(shù)。(2) 設(shè)A=123,B=123,則A+B的結(jié)果為246，A-B的結(jié)果為0。(3) 已知A$=87654321，則表達式Val(Left$(A$，4)+Mid$(A$,4,2)的值是：876554。(4) Rnd函數(shù)產(chǎn)生的是（0,1)之間不包括0、1的隨機小數(shù)。(5) 表示x是5的倍數(shù)或是9的倍數(shù)的邏輯表達式為:x Mod 5=0 OR x Mod 9=0。(6) Len(等級考試)和LenB(等級考試)的結(jié)果相同。(7) VB6.0中字符串常量是用雙引號或單引號括起來的字符串。(8) Print InStr(Visual Basic, I)的結(jié)果為0。(9) 固定數(shù)組中的數(shù)組元素個數(shù)一旦定義好后，在程序運行過程中不再會發(fā)生變化，并且數(shù)組中數(shù)組元素的值也不會變化。(10)數(shù)組元素的下標可以是常數(shù)、變量或表達式。(11)在ForNext循環(huán)中，其中Step步長可以是正數(shù),也可以是負數(shù)。(12)在DoLoopWhileUntil循環(huán)中，While關(guān)鍵字或Until關(guān)鍵字必須選擇其中之一。(13)在For.Next循環(huán)中，Exit For子句是可選項，它可以放置在循環(huán)體語句中的任何位置。(14)動態(tài)數(shù)組在定義時已被分配存儲空間。(15) 在VB6.0中，Option Base語句的參數(shù)只能是0或1。答：（1）錯。&H12是16進制的數(shù)值常數(shù)， 8進制數(shù)常數(shù)的前綴是&O。（2）對。數(shù)值型數(shù)據(jù)與字符串相加時，如果字符串是數(shù)字，VB把字符串轉(zhuǎn)變?yōu)閿?shù)值后，再相加。（3）對。Left$(A$，4)的返回值是“8765”，Mid$(A$,4,2)的返回值是“54”，兩個字符串相加后，再由Val函數(shù)轉(zhuǎn)換成876554。（4）錯。Rnd函數(shù)產(chǎn)生的是（0,1)之間的隨機小數(shù)，包括0，但不包括1。（5）對。一個數(shù)是另一個數(shù)的倍數(shù)時，相除余數(shù)為零。（6）錯。Len函數(shù)的返回值是字符個數(shù)，LenB函數(shù)的返回值是字符串所占用的字節(jié)數(shù)。（7）錯。VB6.0中字符串常量只能是用雙引號括起來的字符串。（8）對。InStr函數(shù)的返回值是乙字串在甲字串中的位置，如果甲字串中不包含乙字串，則函數(shù)返回值是0。（9）錯。固定數(shù)組中的數(shù)組元素個數(shù)一旦定義好后，在程序運行過程中不再會發(fā)生變化，但數(shù)組元素的值是可以變化的。（10）對。（11）對。（12）錯。While關(guān)鍵字和Until關(guān)鍵字可以同時省略，表示無條件循環(huán)。此時，循環(huán)體中應(yīng)有Exit Do子句。（13）對。（14）錯。動態(tài)數(shù)組在定義時沒有被分配存儲空間。（15）對。四、 程序閱讀題（1）執(zhí)行下面程序后,顯示的結(jié)果是。 Private Sub Form_Click()Dim x As Integerx = Int(Rnd) + 4Select Case xCase 5 Print 優(yōu)秀Case 4 Print 良好Case 3 Print 及格Case Else Print 不及格End SelectEnd Sub 答：運行結(jié)果是：“良好”。因為x=0+4=4，在Select Case語句中執(zhí)行Print 良好語句。（2）執(zhí)行下面程序段后，變量的值為。Dim x As Integerx = 5For i = 1 To 20 Step 3 x = x + i 5Next i答：變量的值為16。因為循環(huán)體共執(zhí)行Int(20-1)/3+1)=7次，前兩次循環(huán)x的值不變；第3次循環(huán)后x的值為6；第4、5次循環(huán)，x的值每次加2；第6、7次循環(huán)x的值每次加3；故循環(huán)結(jié)束后x的值為16。（3）執(zhí)行下面程序后，輸出的結(jié)果是。Private Sub Form_Click()Dim x As IntegerFor i = 1 To 3 For j = 1 To i For k = j To 3 x = x + 1 Next k Next jNext iPrint xEnd Sub答：輸出結(jié)果是x=14。這是一個3重循環(huán)，最內(nèi)層的循環(huán)體共執(zhí)行14次，每次加1。（4）執(zhí)行下面程序后，輸出的結(jié)果是。Private Sub Form_Click()Dim x As Integerx = 0Do While x 50 x = (x + 2) * (x + 3) n = n + 1LoopPrint x=; x; n=; nEnd Sub 答：輸出結(jié)果是x=72 n=2。本程序執(zhí)行循環(huán)2次，第1次循環(huán)，x的值為6，n值為1；第2次循環(huán)，x的值為72，n值為2。x大于50時，循環(huán)終止。（5）執(zhí)行下面程序后，輸出的結(jié)果是。Private Sub Form_Click()Dim x As Integer, a As Integerx = 0For j = 1 To 5 a = a + j Next j x = j Print x, aEnd Sub 答：輸出結(jié)果是6 15。變量x中保存的是循環(huán)變量j的終止值6。循環(huán)體執(zhí)行了5次，故a的值是15。（6）以下程序的循環(huán)次數(shù)是。For j = 8 To 35 Step 3 Print j;Next j 答： 循環(huán)體共執(zhí)行Int(35-8)/3+1)=10次。（7）執(zhí)行下面程序輸入后，程序輸出的結(jié)果是。Private Sub Form_Click()x = InputBox(x)If x 2 15 Then y = x 2 + 1Print yEnd Sub 答： 輸出結(jié)果是17。因為x21615，故程序執(zhí)行y = x 2 + 1=17。（8）執(zhí)行下面程序后，輸出的結(jié)果是。Private Sub Form_Click()Dim sum As Integersum% = 19sum = 2.23Print sum%; sumEnd Sub 答：輸出結(jié)果是2 2。程序中變量sum被定義成整型變量，所以賦與實數(shù)值時，系統(tǒng)會把小數(shù)部分除去。是類型符號，也是表示整型。（9）執(zhí)行下面程序后，輸出的結(jié)果是。Private Sub Form_Click()a = 100Do s = s + a a = a + 1Loop Until a 100Print aEnd Sub 答：輸出結(jié)果是101。程序中使用的是后測型循環(huán)結(jié)構(gòu)。循環(huán)體執(zhí)行1此后，變量a的值變?yōu)?01，滿足循環(huán)結(jié)束條件，故循環(huán)終止。(10) 執(zhí)行下面程序后，輸出的結(jié)果是。Private Sub Form_Click()a = ABCDb = efghc = LCase(a)d = UCase(b)Print c + dEnd Sub答：輸出結(jié)果是abcdEFGH。LCase()函數(shù)的作用是把字符串中的大寫字母轉(zhuǎn)換成小寫；UCase()函數(shù)的作用是把字符串中的大寫字母轉(zhuǎn)換成大寫。（11） 執(zhí)行下面程序后，輸出的結(jié)果是。 Private Sub Form_Click()x = 2: y = 4: z = 6x = y: y = z: z = xPrint x; y; zEnd Sub 答：輸出結(jié)果是4 6 4。應(yīng)注意的是本程序無法實現(xiàn)3個變量值的互換。 （12）執(zhí)行下面程序后，輸出的結(jié)果是。Private Sub Form_Click()Dim count As Integercount = 0While count 20 count = count + 1WendPrint countEnd Sub 答：輸出結(jié)果是20。程序中的循環(huán)體執(zhí)行20次，當count的值為20時，不再滿足循條件，程序執(zhí)行循環(huán)結(jié)構(gòu)后面的打印語句。 （13）執(zhí)行下面程序后，輸出的結(jié)果是。 Private Sub Form_Click()a = *: b = $For k = 1 To 3x = Str(Len(a) + k) & bPrint x;Next kEnd Sub 答：輸出結(jié)果是2$ 3$ 4$。程序循環(huán)執(zhí)行時，Len(a)的返回值始終是1，Str(Len(a)+k)的值分別是2、3、4。字符串連接符&把兩個字符連接在一起。 （14）執(zhí)行下面程序后，輸出的結(jié)果是。Private Sub Form_Click()k = 0: a = 0Do While k =i) Then Print Tab(j*3);Format(b(i,j),# # #); Next j Print Next iEnd Sub A. 1 2 3 B. 1 C. 1 4 7 D.1 2 3 4 5 6 4 5 2 4 6 4 6 7 8 9 7 8 9 3 6 9 9答：輸出結(jié)果是選項D。五、 填空題(1) 在VB中聲明符號常量的關(guān)鍵字是_。(2) 設(shè)a=1,b=2,c=3,則VB6.0表達式：ab or bc and ca 的值是_。(3) a,T,Z,9，這四個字符中，_的ASCII碼值最大。(4) 執(zhí)行語句 B = MsgBox(XXX,YYY)后,在消息框中的標題信息是_。(5)函數(shù)Len(Hello!+Space(2)+Mid(Shanghai,5,3)的值是_。(6)表達式 Ucase(Mid(abcdefgh,3,4) 的值是_。(7)表達式 Int(1234.555*100+0.5)/100 的結(jié)果是_。 (8)使用數(shù)組聲明語句Dim a(3, -2 TO 2, 5)，則數(shù)組a包含元素的個數(shù)有_。(9) For-Next循環(huán)的子句缺省時，循環(huán)變量每次改變的值是_。(10)填空，使得程序運行后，能在窗體上打印如圖所示的圖案。 Private Sub Form_Click()PrintFor i = 1 To 4 Print Tab(8 - i); For j = 1 To 8 Print *; ( ) Print Next iEnd Sub(11)下面程序的功能是利用隨機函數(shù)產(chǎn)生10個（1100）之間的隨機整數(shù)，打印其中能被5整除的數(shù)并求其和，請用正確的內(nèi)容填空。 Private Sub Form_Click()Dim sum As Integer, x As IntegerFor i = 1 To 10x = Int(Rnd * 100 + 1) If （） = 0 Then sum = sum + x Print x=; x End IfNext iIf sum 0 Then Print sum=; sumEnd IfEnd Sub(12)用正確的內(nèi)容填空，使得以下程序能夠找出50以內(nèi)所有能構(gòu)成直角三角形的整數(shù)。 Private Sub Form_Click()Dim a As Integer, b As IntegerDim c As SingleFor a = 1 To 50 For b = a To 50 c = Sqr(a 2 + b 2) If （） Then Print a, b, cNext bNext aEnd Sub(13)用正確的內(nèi)容填空，使得以下程序能夠計算1+1/3+1/5+1/(2N+1)，直到1/(2N+1)小于10-5。 Private Sub Form_Click()sum = 1: n = 1Don = n + 2temp = 1 / nsum = sum + tempIf temp cj Then Min = cjElseIf Max cj Then Max = cj End If End If sum = sum + cj Next i aver = （） Print 該選手的成績?yōu)椋? averEnd Sub(15)以下程序用隨機函數(shù)模擬擲骰子，統(tǒng)計擲50次骰子出現(xiàn)各點的次數(shù)，請用正確的內(nèi)容填空。 Private Sub Form_Click()Dim a(1 To 6) As IntegerRandomizeFor i = 1 To 50 n = （） a(n) = a(n) + 1 Next iFor i = 1 To 6 Print i; 點出現(xiàn); a(i); 次Next iEnd Sub答：（1）Const （2）True （3）a （4）YYY （5）11 （6）CDEF （7）1234.56 （8）120 （9）1 （10）Next j （11）x Mod 5 （12）c = Int(c) And c = 50 （13）Exit Do （14）(sum - Max - Min) / 5 （15）Int(Rnd * 6) + 1六、 編程題（1） 編寫程序?qū)?100自然數(shù)中能被3和5同時整除的數(shù)打印出來，并統(tǒng)計其個數(shù)。解答：一個整數(shù)能被另一整數(shù)整除的條件是，它們相除時余數(shù)為零。 Private Sub Form_Click()Dim i As Integer, n As Integer For i = 1 To 100 If i Mod 3 = 0 And i Mod 5 = 0 Then 能夠被3和5同時整除的條件Print in = n + 1End IfNext iPrint 1100自然數(shù)中能被3和5同時整除的個數(shù)為：; nEnd Sub（2） 我國現(xiàn)有人口13億，設(shè)年增長率為0.75，編寫程序，計算多少年后將超過16億。解答：本題有兩種解法，可以根據(jù)公式： 16=13(1+0.0075)n直接利用標準函數(shù)對數(shù)求得： n = Log(16 / 13) / Log(10.0075)也可以利用循環(huán)求得：Private Sub Form_Click()x = 13n = 0Do While x 16x = x * 1.0075n = n + 1LoopPrint n; 年后我國人口將超過16億，達到; x; 億End Sub（3） 編寫程序輸出100200之間不能被3整除的自然數(shù)。解答： Private Sub Form_Click()Dim i As IntegerFor i = 100 To 200If i Mod 3 0 Then 不能夠被3整除的條件Print iEnd IfNext iEnd Sub（4） 設(shè)計程序，求s=1+(1+2)+(1+2+3)+(1+2+3+n)的值。 解答： Private Sub Form_Click()Dim n As Integer, s As Integers = 0n = Val(InputBox(請輸入n:) n由Inputbox函數(shù)輸入再轉(zhuǎn)換為數(shù)值型數(shù)據(jù)For i = 1 To nFor j = 1 To is = s + jNext jNext iPrint sEnd Sub（5） 編寫程序計算S的近似值，直到最后一項的絕對值小于10-5為止。并用Print方法輸出計算結(jié)果。其中：解答：Private Sub Form_Click()Dim s As Single, k As Integers = 0k = 1Do While Abs(1 / k) 0.00001s = s + (-1) (k + 1) / kk = k + 1Loop Print sEnd Sub（6） 假設(shè)某項稅收的規(guī)定如下：l 收入在500元以內(nèi)，免征；l 收入在5001000元內(nèi)，超過500元的部分納稅3%；l 收入超過1000元時，超過的部分納稅4%；l 收入超過2000元時，超過的部分納稅5%。試編程實現(xiàn)上述操作。解答： Private Sub Form_Click()Dim income As Single, tax As Singleincome = Val(InputBox(請輸入收入:) income由Inputbox函數(shù)輸入Select Case incomeCase Is 2000 tax = 500 * 0.03 + 1000 * 0.04 + (income - 2000) * 0.05Case Is 1000 tax = 500 * 0.03 + (income - 1000) * 0.04Case Is 500 tax = (income - 500) * 0.03Case Else tax = 0End SelectPrint taxEnd Sub（7） 編寫程序，用InputBox函數(shù)輸入3個正整數(shù)，打印其中最大的數(shù)。解答： Private Sub Form_Click()Dim max As Integer, temp As Integermax = 0For i = 1 To 3Print 輸入第; i; 個數(shù);temp = Val(InputBox(輸入整數(shù))Print tempIf temp max Then max = tempNext iPrint 你輸入的最大的數(shù)是; maxEnd Sub（8） 編寫程序，任意輸入三個整數(shù)A，B，C，按由大到小順序把它們打印出來。解答： Private Sub Form_Click()Dim a%, b%, c%, t%a = Val(InputBox(輸入整數(shù)a, 數(shù)據(jù)輸入)b = Val(InputBox(輸入整數(shù)b, 數(shù)據(jù)輸入)c = Val(InputBox(輸入整數(shù)c, 數(shù)據(jù)輸入)Print 排序前 ; a; ; b; ; cIf a b Thent = a: a = b: b = tEnd IfIf a c Thent = a: a = c: c = tEnd IfIf b 0.00000001)sinx = sinx + tt = -t * x * x / (i + 1) * (i + 2)i = i + 2LoopPrint 編程求得的sin(; x; )值為; sinxPrint 調(diào)用內(nèi)部函數(shù)求得的sin(; x; )值為; Sin(x)End Sub（10） 分別編寫兩個程序，在窗體上分別打印出如下所示的圖形。解答：打印左邊圖案： Private Sub Form_Click()Print 打印一空行For i = 5 To 1 Step -1 步長為1Print Tab(10); 從第10列開始打印Print Spc(10 - i); 打印由Spc函數(shù)值規(guī)定的空格For j = 1 To 2 * i - 1Print *; 打印三角形的*號Next jNext iEnd Sub打印右邊圖案：Private Sub Form_Click()PrintFor i = 1 To 4Print Tab(7);Print Spc(4 - i);For j = 1 To 2 * i - 1Print *;Next jNext iFor i = 5 To 1 Step -1Print Tab(0);Print Spc(10 - i);For j = 1 To 2 * i - 1Print *;Next jNext iEnd Sub（11） 編寫程序，輸出1000之內(nèi)的所有完數(shù)。“完數(shù)”是指一個數(shù)恰好等于它的因子之和，如6的因子為1、2、3，而6=1+2+3，因而6是完數(shù)。解答： Private Sub Form_Click() For i = 1 To 1000 Sum = 0 For k = 1 To i - 1 If i Mod k = 0 Then Sum = Sum + k End If Next k If Sum = i Then Print i=; i; 是完全數(shù) End If Next iEnd Sub（12） 一只小球從10米高度上自由落下，每次落地后反彈回原高度的40，再落下。編程計算小球在第8次落地時，共計經(jīng)過了多少米？解答： Private Sub Form_Click() h =