算法復(fù)習資料

1、選擇題復(fù)習1 .下列各組控件都具有Caption屬性的是A.窗體、文本框 B.標簽、定日器C.窗體、標簽 D.文本框、定時器2 .下面關(guān)于算法的錯誤說法是A)算法必須有輸出B)算法必須在計算機上用某種語言實現(xiàn)C)算法不一定有輸入D)算法必須在有限步執(zhí)行后能結(jié)束3 .下列每個控件都具有的屬性是A.Name B.Caption C.Font D.Interval4 .下列運算結(jié)果中，值最大的是A.34B.3/4C.4 mod 3D.3 mod 45 .以下哪個是合法的變量名A . Len B. Testqw C. 6cost_1D. count2s6 .在Visual Basic代碼中，將多個語句

2、合并在一行上的并行符是A.撇號(') B.冒號(：) C.感嘆號(！) D.問號(？)7 .下列語句中，可以表示輸入語句的有 ,輸出語句的有 表示賦值語句的有 (多選)A.text1.text=str(a) B.msgbox(a) C.inputbox() D.P=val(text5.text)E.print a F. a=a*b+c G.ads=3098 .下面程序執(zhí)行的結(jié)果是Private Sub Form_Click()A = "123": B = "456"C = Val(A) + Val(B) msgbox (C 100) End Su

3、bA.123B.3C.5D.5799 .在VB中，執(zhí)行"IF A>5 then b=10 else b=20語句后'(程序在該行語句前未對A變量賦值)，B值為A. 5 B. 10 C. 20 D. 10 或 2010 .下列邏輯運算結(jié)果為"true"的是A.flase or not true B.flase and not trueC. true or not true D.true and not true11 .下列控件中可用于接受用戶輸入文本，又可用于顯示文本的是A . Label 控件 B. TextBox 控件C. Timer 控件 D.

4、CommandButton 控件12 .以下程序段執(zhí)行后，整型變量 n的值為year=2001n=year4+year400-year100A. 495 B. 505 C. 500 D. 48513 .下列關(guān)于 CommandButton控件的敘述正確的是A. CommandButton控件的Caption屬性決定按鈕上顯示的內(nèi)容B.單擊VB應(yīng)用程序中的按鈕，則系統(tǒng)激活按鈕控件對應(yīng)的Change事件C. CommandButton控件的name屬性決定按鈕上顯示的內(nèi)容D.以上都不對14 .使用枚舉法解決問題，在列舉問題可能解的過程中，。A.不能遺漏，但可以重復(fù)B.不能遺漏，也不應(yīng)重復(fù)C.可以遺

5、漏，但不應(yīng)重復(fù)D.可以遺漏，也可以重復(fù)15 .一只漂亮的酒杯被摔碎了，則漂亮，酒杯，摔，碎了是A.對象，屬性，事件，方法 B.對象，屬性，方法，事件C.屬性，對象，方法，事件 D.屬性，對象，事件，方法16 .如果要改變窗體的標題，需要設(shè)置窗體對象的屬性。A.Name B.Caption C.BackColor D.BorderStyle17 .窗體的BackColor屬性用于設(shè)置窗體的A.高度 B.寬度 C.背景色 D.前景色18 . Visual Basic提供的標簽控件(LABEL )可具有功能是A.輸入文本 B.顯示文本 C.計日D.顯示時間19 .要使窗體Form1的標題欄中顯示芷在

6、復(fù)制文件”，以下語句正確的是A . Form1.Caption=正在復(fù)制文件”B. Form1.title= 正在復(fù)制文件”C. Form1.Text=正在復(fù)制文件 ”D . Form1.名稱=正在復(fù)制文件 ”20 . Visual Basic規(guī)定窗體文件的擴展名是A. .for B. .frm C. .vbp D. .bas21 .下列關(guān)于算法的敘述不正確的是A.算法是解決問題的有序步驟B.算法具有確定性、可行性、有限性等基本特征C. 一個問題的算法都只有一種D.常見的算法描述方法有自然語言、圖示法、偽代碼法等22 .下列關(guān)于添加"控件"的方法正確的是A.單擊控件圖標，將

7、指針移到窗體上，雙擊鼠標B.雙擊工具箱中的控件，即在窗體上出現(xiàn)該控件C.單擊工具箱中的控件，將指針移到窗體上，再單擊D.用鼠標左鍵拖動工具箱中的某控件到窗體的適當位置23 .以下選項中，不是 Visual Basic控件的是A.文本框B.定時器C.窗體D.命令按鈕1.1. 編譯一個工程的目的是A .將工程的程序翻譯成可以看懂的文件B .將工程的程序重新正確編排C.按工程的程序生成計算機能夠執(zhí)行的機器代碼，使之能夠脫離VB繼承開發(fā)環(huán)境獨立運行D.檢查工程中有無錯誤的機器代碼，以便工程能夠脫離VB繼承開發(fā)環(huán)境獨立運行25 .雙擊窗體中的對象后，Visual Basic將顯示的窗口是A.項目(工程)

8、窗口 B.工具箱C.代碼窗口D.屬性窗口26 .下列邏輯表達式中能完全正確表示條件"year是閏年"的是A. year mod 4=0B. year mod 400=0C. (year mod 400=0) or (year mod 4=0) and (year mod 100<>0)D. (year mod 400=0) and (year mod 4=0) or (year mod 100<>0)27 .下列關(guān)于For .next語句的說法正確的是A.循環(huán)變量、初值、終值和步長都必須為數(shù)值型B.step后的步長只能為正數(shù)C.初值必須小于終值D.初

9、值必須大于終值28 .命令按鈕能響應(yīng)的事件是A. DblClick B. Click C. Load D. Scroll29 .如果想在程序中反復(fù)使用一個數(shù)據(jù)“01/01/2000,為了避免在編寫程序時反復(fù)輸入這個數(shù)據(jù)，也為了一次能夠修改程序中所有用到這個數(shù)據(jù)的語句，可以采用A.將這個數(shù)據(jù)聲明為字符串型常量，用一個常量標識符代表它。B.將這個數(shù)據(jù)聲明為字符串型變量，用一個變量標識符表示它。C.將這個數(shù)據(jù)聲明為日期型常量，用一個常量標識符代表它。D.將這個數(shù)據(jù)聲明為日期型變量，用一個變量標識符表示它。30 . Visual Basic程序設(shè)計的完整的步驟是A.可視性程序設(shè)計B.代碼程序設(shè)計C.可

10、視性程序設(shè)計和代碼程序設(shè)計D.界面設(shè)計31 .在 Visual Basic環(huán)境下，當寫一個新的Visual Basic程序時，所做的第一件事是A.編寫代碼B.新建一個工程C.打開屬性窗口D.進入VB環(huán)境32 . Visual Basic是一種面向?qū)ο蟮某绦蛟O(shè)計語言，構(gòu)成對象的三要素是A.屬性、事件、方法 B,控件、屬性、事件C.窗體、控件、過程 D.窗體、控件、模塊33 .只能用來顯示字符信息的控件是A.文本框 B.標簽框 C.圖片框 D.圖像框34 .如果x=4,那么以下運算結(jié)果為True的表達式是A . (x<=4)and(x>=6) B. (x>4)Or(x>=6

11、)C. (x<4)or(x>6) D . not(x<>4)35 .設(shè)計一個計算器時，必須要使用的控件是A.滾動條 B.圖片框 C.文本框D.單選框36 .下列各賦值語句，語法不正確的是A . x+y=5B. BiNumber =15C. Labell.caption =timeD. sLength =x+y37 . Visual Basic規(guī)定工程文件的擴展名是A. .for B. .frm C. .vbp D. .bas38 .下列關(guān)于控件”屬性的說法正確的是A.單擊窗體中的某控件，在屬性窗口中的屬性列表框中找到所要設(shè)置的屬性，即可設(shè)置其屬性值。B.所有對象都具有同

12、樣的屬性C.控件的屬性只能在設(shè)計時設(shè)置，不能在運行時修改D.控件的每一個屬性都具有同樣的默認值39 .下列關(guān)于事件的敘述中不正確的是A.事件是系統(tǒng)預(yù)先為對象定義的能被對象認別的動作B.事件可分為用戶事件與系統(tǒng)事件兩類C. VB為每個對象設(shè)置好各種事件，并定義好事件過程的過程名，但過程代碼必須由用 戶自行編寫D. VB中所有對象的默認事件都是ClickB . Dim p(3 to 100) as integer D . dim saa,str,sqr as char40 .下列各組變量聲明不正確的是A . Dim abc as integer , num as singleC. Dim aaa,

13、ccc,bb as double41 .找出表示問題的前提條件與結(jié)果之間關(guān)系的數(shù)學表達式，并通過表達式的計算來實現(xiàn)問 題求解，這種方法叫做。A.遞推法B.枚舉法C.選擇法D.解析法42 .在使用計算機處理數(shù)據(jù)的過程中，往往需要對數(shù)據(jù)進行排序，所謂排序就是：。A .把雜亂無章的數(shù)據(jù)變?yōu)閺男〉酱笈帕械臄?shù)據(jù)B.把雜亂無章的數(shù)據(jù)變?yōu)閺拇蟮叫∨帕械臄?shù)據(jù)C.把雜亂無章的數(shù)據(jù)變?yōu)橛行虻臄?shù)據(jù)D.以上說法都錯誤43 .已知：三角形三條邊的長a、b、c,求三角形的面積。求三角形面積的海倫公式是：s= p（ p二a）（ p二b）（ p二c）其中：p = （a b c） /2下述流程圖正確的是 oB.C.D.44 .

14、關(guān)于下面流程圖功能的描述正確的是:A.輸入一個數(shù)，若其大于 0則輸出該數(shù)，若其小于0則輸出該數(shù)的相反數(shù)B.輸入一個數(shù)，若其小于或等于0則輸出該數(shù)的相反數(shù)C.輸入一個數(shù)，輸出其絕對值D .45 .雞、兔共籠問題，有腿共 60條，問雞、兔各有多少只？下面雞和兔只數(shù)最合理的范圍是。（范圍確定了循環(huán)的起始值和終止值）A .雞：1至IJ28,兔：1 到 14B ,雞：2 至IJ 28,兔：1 至U 14C.雞：1至 IJ28,兔：2 到 14D.雞：2 至 IJ 28,兔：2 到 1446 .在程序中需要將兩個變量的值交換，以下四段流程圖中， 不能完成將變量X、Y的值互相交換。47 .使用計算機解題的步

15、驟，以下描述正確的是： 。A .正確理解題意一設(shè)計正確算法一尋找解題方法一編寫程序一調(diào)試運行B .正確理解題意一尋找解題方法一設(shè)計正確算法一編寫程序一調(diào)試運行C .正確理解題意一尋找解題方法一設(shè)計正確算法一調(diào)試運行一編寫程序D.正確理解題意一尋找解題方法一設(shè)計正確算法一編寫程序一調(diào)試運行48 .算法的特征是：有窮性、能行性、有0個或多個輸入和有一個或多個輸出。A.穩(wěn)定性B.確定性C.正常性D.快速性49 .可以用多種不同的方法來描述一個算法，算法的描述可以用：。A.流程圖、分支和循環(huán)B.順序、流程圖和自然語言C.流程圖、自然語言和偽代碼D.順序、分支和循環(huán)50 .算法中通常需要三種不同的執(zhí)行流

16、程，即：。A.連續(xù)模式、分支模式和循環(huán)模式B.順序模式、結(jié)構(gòu)模式和循環(huán)模式C.結(jié)構(gòu)模式、分支模式和循環(huán)模式D.順序模式、分支模式和循環(huán)模式51 .流程圖是一種描述算法的方法，其中最基本、最常用的成分有：。A.處理框、矩形框、連接框、流程線和開始、結(jié)束符B.菱形框、判斷框、連接框、流程線和開始、結(jié)束符C.處理框、判斷框、連接框、圓形框和開始、結(jié)束符D.處理框、判斷框、連接框、流程線和開始、結(jié)束符52 .關(guān)于程序中的變量，下面說法中錯誤的是：中。A. 一旦將數(shù)據(jù)存入某變量，讀取變量中的值，不會改變變量的內(nèi)容B. 一旦將數(shù)據(jù)存入某變量，以后就不能將新的數(shù)據(jù)存入該變量C. 一旦將數(shù)據(jù)存入某變量，以后可

17、以將新的數(shù)據(jù)存入該變量D. 一旦將數(shù)據(jù)存入某變量，只要不把新的數(shù)據(jù)存入，變量的內(nèi)容不會改變53 .程序通常需要三種不同的控制結(jié)構(gòu)，即：順序結(jié)構(gòu)、分支結(jié)構(gòu)和循環(huán)結(jié)構(gòu)，下面說法正 確的是：。A. 一個程序只能包含一種結(jié)構(gòu)B. 一個程序最多可以包含兩種結(jié)構(gòu)C. 一個程序可以包含以上三種結(jié)構(gòu)中的任意組合D. 一個程序必須包含以上三種結(jié)構(gòu)54.采用盲目的搜索方法，在搜索結(jié)果的過程中，把各種可能的情況都考慮到，并對所得的 結(jié)果逐一進行判斷，過濾掉那些不合要求的，保留那些合乎要求的結(jié)果，這種方法叫做一A.遞推法B.枚舉法C.選擇法D.解析法VB程序填空題1、下列程序的功能是從鍵盤上任意輸入一 個數(shù)，判斷這數(shù)

18、是正數(shù)、負數(shù)、還是零，并 輸出判斷結(jié)果。程序中有三處錯誤，請更正。 程序如下：Private Sub Command1_Click()Dim a As SingleDim py As Stringa=Val(Text1)If a>0 Then py="正數(shù)"If a=0 Then py="零"If a<=0 Then py="負數(shù)"Label3.Caption=aEnd Sub 2、完善程序，使其能輸出：1-2+3-4+5-6+.+99-100 的值。程序如下：Private Sub Command1_Click()s=F

19、or i=1 Tos=s+(1)A()*iNext iPrint sEnd Sub3、已知一元二次方程的二次項系數(shù)、一次項系數(shù)、常數(shù)項分別為a、b、c,其中a不等于0。編寫程序，求方程的根，要求：如 果方程無實數(shù)根，則輸出“無實數(shù)根”，否則輸出兩個實數(shù)根。程序如下：Private Sub Command1_Click()Dim a,b,c,d As SingleDim x1,x2 As Singlea=Val(Text1.Text)b=Val(Text2.Text)c=Val(Text3.Text)d=bA2-4*a*cIf d Thenx1=(-b+Sqr(d)/(2*a)x2=(-b-Sq

20、r(d)/(2*a)Label1.Caption=x1Label2.Caption=x2Label3.Caption=End IfEnd Sub4、如果下面程序執(zhí)行后輸出的結(jié)果是132,請將程序補充完整：Private Sub Command1_Click()i = 12: s = 1Do Whiles = s * ii = i - 1LoopMsgBox END Sub5、下面的程序是求 7! (7!=1*2*3.*6*7 )的 值，并在默認窗口輸出這個值。程序中有兩處錯誤，請更正。Private Sub Command1_Click()Dim a As Singlea=0For i=1 t

21、o na=a*iNext iMsgbox (a)End Sub6、下面的程序是求 100以內(nèi)奇數(shù)和s的值 (S=1+3+5+7.+99)。請將程序補充完整：Private Sub Command1_Click()Dim s As SingleDim i As SingleS=For i=1 to 100 StepNext iMsgbox(s )End Sub7、下列 Visual Basic 程序：Private Sub Command1_Click()Dim sum As Long , i As Integer sum = 0For i = 1 To 100 Step 2 sum = sum

22、 + i * iNext iTextl.Text = Str(sum) End Sub該程序能完成計算的數(shù)學表達式是8、小明數(shù)了圈在一起的雞和兔共有30個頭，90只腳，在這個圈子中雞和兔各有多少只？ 為了實現(xiàn)這一目標，完善下面的 VB程序， 在劃線處填入合適的語句或表達式。設(shè)雞為x只，兔為y只，Visual Basic程 序如下：Private Sub Command1_Click() Const head = 30, foot = 90Dim x, y As Integery =x =Textl.Text = Str(x) Text2.Text = Str(y) End Sub9、利用文本框

23、輸入一個正整數(shù)N ,求出2+3/2+4/3+5Z4+(N+1)/N程序是：Private Sub command1_click() Dim N, s, i As Integer s = 0N = Val(Textl.Text) For i =To s =Next iMsgbox ( ) End Sub10、編寫一個計算矩形面積的Sub過程，然后調(diào)用該過程計算矩形面積。Private Sub Form_Click()Dim A As Single, B As SingleA = Val(InputBox("What is the length?") B = Val(Input

24、Box("What is the width?") Call Recarea(A, B)End SubSub Recarea(Rlen As Single, Rwid As Single) Dim Area As SingleArea =MsgBox "Total Area is " & 輸出矩形面積End Sub11、用物理天平測量物體的質(zhì)量時，測得物 體的質(zhì)量為a克(a為整數(shù)，并小于1千克)， 問：這時在天平的祛碼盤中應(yīng)有哪幾個祛碼？請選用最少數(shù)量的祛碼(稱質(zhì)量為1千克的物體，天平的祛碼由下列質(zhì)量的祛碼組成：500克1個，200克1個，100

25、克2個，50克1個，20克1個，10克2個，5克1 個，2克2個，1克1個)。為了實現(xiàn)這一目標， 請參照下邊的流程 圖完善下面的VB程序，在劃線處填入合適 的語句或表達式，完成程序設(shè)計。Dim a(1 To 12) As IntegerDim i As Integer, x As IntegerPrivate Sub Command1_Click()a(1) = 500: a(2) = 200a(3) = 100: a(4) = 100a(5) = 50: a(6) = 20: a(7) = 10: a(8) = 10a(9) = 5: a(10) = 2: a(11) = 2: a(12)

26、= 1x = Val(Text1.Text)i = 1Do WhileIf x >= a(i) ThenList1.AddItem Str(a(i)End Ifi = i + 1LoopEnd Sub12、有一個單擊按鈕過程， 其作用是產(chǎn)生50 個60100的隨機數(shù)，統(tǒng)計其中被 6整除余2的個數(shù)，并將這些數(shù)輸出。請補充下面的 程序：Private Sub command1_click()Dim X, N As IntegerDim counter As Integer'counter保存能被6整除余2的數(shù)據(jù)的個數(shù)Randomize Timer'隨機數(shù)初始化，以時鐘為隨機數(shù)

27、種子For N = 1 To 50X =+ int(Rnd * 40)'隨機產(chǎn)生50個60100的隨機數(shù)If X Mod 6 = 2 ThenList1.AddItem Str(X)End IfNext NPrint counterEnd Sub13、下面是一個檢測密碼的程序(界面如圖74,其功能是：當用戶輸入的密碼正確時， 在窗體上顯示“歡迎您使用本系統(tǒng)”；否則顯示“密碼錯誤！請重新輸入密碼：正確 的密碼是 0123456789。仔細閱讀程序，請問程序中劃線處的語句 應(yīng)為。Private Sub Form_Load()Text1.Text = "": Text1.

28、MaxLength = 10Text1.PasswordChar = "*"'表示密碼用*顯示Label2.Caption = "": Label2.Alignment = 2 End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)Label2.Caption =""If KeyAscii = 13 Then 'KeyAscii=13 表 示是回車鍵if ThenLabel2.Caption ="歡迎您使用本系統(tǒng)!" ElseLabel2.Cap

29、tion='以下兩語句的作用是使程序能自動選 中錯誤的密碼，使用戶可直接重新輸入Text1.SelStart = 0Text1.SelLength = Len(Text1.Text) End IfEnd IfEnd Sub14、猴子吃桃問題。猴子第一天摘下若干個 桃子，當即吃了一半，還不過癮，又多吃了 一個。第二天早晨又將剩下的桃子吃了一 半，又多吃了一個。以后每天早上都吃了前 一天剩下的一半零一個。到第十天早上再想 吃時，見只剩一個桃子了。問：第一天猴子 共摘了多少個桃子。為了實現(xiàn)這一目標，完善下面的 VB程序， 在劃線處填入合適的語句或表達式，完成程序設(shè)方to Visual Bas

30、ic程序如下：Sub Command1_Click() Dim i, s As IntegerFor i=1 to 9Next iText1.Text = Str(s)End Sub15、下面程序(界面如圖)的功能是： 將0到255之間的十進制整數(shù)轉(zhuǎn)換為二進制 整數(shù)的表示形式。在如圖中上面的文本框(Text1)中輸入一個 0到255之間的十進制整數(shù)，單擊“轉(zhuǎn)換”按鈕，該十進制整數(shù) 的二進制形式會顯示在下面的文本框(Text2)中。為了實現(xiàn)這一目標，程序中 劃線處的語句應(yīng)為.Private Sub Command1_Click()Dim a As IntegerDim s As StringDi

31、m i As IntegerDim c(1 To 8) As Integera =val( Text1.Text)If a < 0 Or a > 255 ThenText2.Text ="輸入數(shù)據(jù)錯誤，請重新 輸入！”ElseFor i = 1 To 8c(i) = a Mod 2a =s = Str(c(i) + sNext iText2.Text = sEnd IfEnd Sub16、個位數(shù)字是6,且能被3整除的3位數(shù) 共有多少個？下面程序用于解決這一問題，在劃線處填入 合適的語句或表達式，設(shè)共有n個這樣的數(shù)，第16題流程圖Visual Basic程序如下：Sub C

32、ommand1_Click() Dim i As Integer, n As Integer m = 106n =Do While m <= 996If Then n = n + 1m =LoopText1.Text = Str(n)End Sub17、求兩個整數(shù)的最大公約數(shù)分析：求最大公約數(shù)的算法思想：(1)對于已知兩數(shù)m, n,使得m>n;(2) m除以n得余數(shù)r(3)若r=0,則n為求得的最大公約數(shù)，算 法結(jié)束；否則執(zhí)行(4);(4) m - n, n r,再重復(fù)執(zhí)行(2)。例如：求 m=14 ,n=6的最大公約數(shù).m n r14 6 26 2 0請根據(jù)以上思路補充下面的程序

33、代碼：Private Sub Command1_Click() m = InputBox("m=") n = InputBox("n=")If m < n Then t = m: m = n: n = tDo While (r <> 0)m = nn = rr = m Mod nLoopPrint "最大公約數(shù)=",nEnd Sub18、以下程序的功能是：從鍵盤上輸入若阡個學生的考試分數(shù)，統(tǒng)計并輸出最高分數(shù)和 最低分數(shù)，當輸入負數(shù)時結(jié)束輸入，輸出結(jié) 果，請將程序補充完整。Private Sub Form_Click(

34、)Dim x, amax, amin As Singlex = InputBox("Enter a score")amax = xamin = xDo WhileIf x > amax Thenamax = xEnd IfIf Thenamin = xEnd Ifx = InputBox("Enter a score")LoopLabe1.Caption= str(amax)Label2.Caption=End Sub19、從鍵盤鍵入一個整數(shù) x,將x插入到一 列有序數(shù)據(jù)：5, 3, 4, 12, 20, 45, 70 中，并使數(shù)據(jù)序列仍保持有序，

35、試求出 x應(yīng) 插入的位置。為了實現(xiàn)這一目標，請參照流程圖，完善下 面的VB程序，在劃線處填入合適的語句或 表達式，完成程序設(shè)計。/輸入0,均網(wǎng)(結(jié)束)Dim a(1 To 8) As IntegerDim n, i, j, x As IntegerPrivate Sub Command1_Click()x = Val(Text2.Text)If x > a(n) ThenElsei = 1Do While x > a(i)LoopEnd IfText3.Text = Str(i)End SubPrivate Sub Text1_KeyPress(KeyAscii As Intege

36、r)If KeyAscii = 13 Thenn = n + 1a(n) = Val(Text1.Text)List1.AddItem Str(a(n)Text1.Text = "": Text1.SetFocusEnd IfEnd Sub20、輸入100個數(shù)，統(tǒng)計其中負數(shù)、零及正 數(shù)的個數(shù)。Private Sub Form_Click()Dim i , fs, zs, ns As Integer ,fs, ns, zs 分別 代表負數(shù)、零及正數(shù)的個數(shù)Dim k As DoubleFor i = 1 To 100k = Val(InputBox("輸入一個數(shù)據(jù)&q

37、uot;)If k > 0 ThenElseIf k < 0 Thenfs = fs + 1ElseEnd IfNext iPrint "負數(shù)、零及正數(shù)的個數(shù)是 ："fs, ns, zs End Sub21、有一個數(shù)組 DATA存放了 N個數(shù)據(jù)， 現(xiàn)從中刪除了一個元素，其余的元素依次向前遞補(假設(shè)刪除的是第 3個元素，則要將 第4個元素移到第3個元素處，第5個元素 移到第4個元素處，以此類推)，然后輸出 數(shù)組內(nèi)容。填寫程序中的空缺Private Sub Command1_Click()Dim data(10) As IntegerDim I, N, T As I

38、ntegerN = 10For I = 1 To Ndata(I) = I * 2Next IT = InputBox("刪除第幾個元素")For I=data(I - 1) = data(I)Next IFor I = 1 To NPrint data(I);Next IEnd Sub22、尋找100以內(nèi)的勾股數(shù)?！肮慈伤南?五”大家都知道 32+42=52 , 3 , 4 , 5就是勾 股數(shù)，尋找100以內(nèi)的勾股數(shù)。請完成下面 的程序填空：Private Sub Command1_Click()Dim sum As IntegerDim i, j, k As Inte

39、gerList1.Clear'假定k>j>i ,可以避免重復(fù)尋找sum = 0For i = 1 To 100For j = 1 To 100For k = j To 100If ThenList1.AddItem (Str(i) + Str(j) + Str(k) sum = sum + 1 '統(tǒng)計個數(shù)End IfNext kNext jNext iLabel1.Caption ="組數(shù)："+ Str(sum)End Sub23、隨機產(chǎn)生10個1 100之間的正整數(shù)， 按從小到大的次序排序并輸出。為了實現(xiàn)這一目標，完善下面的VB程序，在劃線處填

40、入合適的語句或表達式，完成程序設(shè)計(流程圖參見下圖)Sub Command1_Click()Const n = 10Dim i As Integer, j As Integer, t As IntegerDim a(1 To 100) As IntegerFori = 1 To 10a(i) = 100 * Rnd(1) + iNext iFor i = 1 To n - 1For j = i + 1 To nIf Thenk = a(i): a(i) = a(j): a(j) = kEnd IfNext jNext iFori = 1 To 10List1.AddItem Str(a(i)N

41、ext iEnd Sub24、有30個人，其中有男人、女人和小孩。他們在一家飯館里花去 500元。已知，每個 男人花30元，每個女人花20元，每個小孩 花10元。問：男人、女人、小孩各為多少 人。為了實現(xiàn)這一目標，完善下面的 VB程序， 在劃線處填入合適的語句或表達式， 完成程 序設(shè)計。(一幅)chi- V)-ni in -v nman件的所有自然數(shù)。程序代碼如下，請補充完 整：(程序運行界面圖)h劉IQ* 雨 I*Private Sub Command1_Click()Dim man As Integer, woman As Integer, child As IntegerFor man

42、= 1 To 15For woman = 1 To 23child =s = 30 * man + 20 * woman + 10 * child If ThenList1.AddItem Str(man) +""+Str(woman) + "" + Str(child)End IfNext womanNext manEnd Sub25、在我國古代孫子算經(jīng)中曾經(jīng)提出這 樣一個問題。原文是這樣的：“今有物，不知其數(shù)，三三數(shù)之，剩二；五五數(shù)之，剩三； 七七數(shù)之，剩二；問物幾何？ ”試用枚舉法 來解決這一問題?，F(xiàn)分析如下，所尋找之數(shù) 為滿足如下條件的自然數(shù)：以

43、 3除余2,以 5除余3,以7除余2,程序?qū)淖匀粩?shù)1開始依次尋找，逐一判斷某一自然數(shù)是否滿 足全部條件，直至在指定范圍內(nèi)找到滿足條Private Sub Command1_Click()Dim sum As Integer 'sum 用來統(tǒng)計符 合條件的自然數(shù)個數(shù)Dim n, max As IntegerList1.Clearsum = 0max = 指定查找 范圍的最大自然數(shù)，在 text1框中輸入n = 0Do While n <= maxn = n + 1從自然數(shù)1開始不斷往上尋找If ThenList1.AddItem Str(n)'找到后在list1中顯木結(jié)果End IfLoopList1.AddItem ("共計"+ Str(sum) + "個") End Sub26、下面程序若用于計算 s=1!+2!+3!+4!+5! +6! + 7!+8!+9!+10!,則程序中劃線處的語句 應(yīng)為 。s = 0: t = 1Fori = 1 To 10s = s + tNext i27、用 VB 編寫一個計算 S=1 1/3!+1/5!1/7!+, + (1) n-1/ (2n1)!的程序，程序代碼如下，請補充完整：For i = 1 To nIf Then List1.AddItem Str(i)Nex