VB題庫—程序填空

1、第1題程序填空（1分）（題號(hào):59）【程序填空】'功能：輸入任何一個(gè)英文字母X,'若X的值為"a","c","d-f",則顯示X的大寫字母；'若X的值為"m","o","p-z",則顯示X的小寫字母；'若X的值為其它的值，則顯示Xa （如輸入的X的值是g,則顯示ga）。PriVate SUb Comma nd1_Click()X = Text1.Text'功能：輸入一個(gè)數(shù)，若大于O則顯示"+"； 若小于0，'

2、則顯示"-"；若等于"0",則顯示"零"。I*SPACE*PriVate SUb Comma nd1_Click()X = VaI(TeXt1.Text)SeIeCt CaSe X【？】I*SPACE*I*SPACE*CaSe is > 0Label1.Capti On = "+"CaSe IS < 0CaSe【？】Label1.Caption = UCaSe(X)CaSe "m", "o", "p" To "z"Label

3、1.Capti On = LCaSe(X)CaSe ElseI*SPACE*I*SPACE*【？】Label1.Caption ="-"I*SPACE*CaSe is =Label1.Captio n ="零"End SeIeCtEnd SUbEnd SeIeCtEnd SUb答案：1).CaSe IS > 02).Label1.Caption ="-"3).CaSe 0 或 CaSe Else 或 CaSe IS0答案：1).SeIeCt CaSe X2)."a", "c", "

4、;d" To "f"3).LabeI1.Capti On = Trim(X) + "a" 或Label1.Caption = X + "a"第2題程序填空（1分）（題號(hào):60）第3題程序填空（1分）（題號(hào):36）【程序填空】【程序填空】功能：以下程序的功能如（圖1）。分）（題號(hào):51）第4題程序填空（1分）（題號(hào):49）'【程序填空】Dim x1, x2Dim p, q, ra = InPUtBox("請(qǐng)輸入 b = InPUtBox("請(qǐng)輸入 C = InPUtBox("請(qǐng)輸入 d =

5、 b * b - 4 * a * Ca的值"） b的值"）C的值"）'功能：下面的程序段用于建立文件并輸出文 件，文件內(nèi)容如下： *PriVate SUb Form_Click()Dim a%, b%, c%, d!*P = -b / (2 * a)If d >= 0 The n'* *SPACE *If 【？】ThenPriVate SUb Form_Click()'* *SPACE *OPe n "c:1.txt" For 【? AS #1For i = 1 To 5r = Sqr(d) / (2 * a) x

6、1 = P + rx2 = P - rElsex1 = Px2 = P'* *SPACE *Print #1, Spc(i); "*"NeXt i '* *SPACE *【？】【？】AS #1【？】Prin t "x1=" x1, "x2=" x2'* *SPACE *'* *SPACE *OPe n "c:1.txt" ForFor i = 1 To 5【?】q = Sqr(-d) / (2 * a)Print "x1=" p; "+" q;

7、 "i", "x2=" p; "-" q;ll：llEnd IfEnd SUb答案：1).d > 0 或 0 < d2).End If3).ElseLine In PUt #1, XPrint XNeXtiClose #1End SUb答案：1).OUtPUt2).Close #13).In PUt或 Close第5題程序填空（1'功能：根據(jù)輸入的學(xué)習(xí)成績，分別顯示優(yōu)秀'【程序填空】（90分以上）,良好'（75分以上）,及格（60分以上）,不及格'功能：以下程序段用于求n!幾個(gè)等級(jí)。PriV

8、ate SUb Form_Click()PriVate SUb Comma nd1_Click()X = VaI(TeXt1.Text)Dim SUm AS In teger, n AS In tegern = InPUtBox("請(qǐng)輸入一個(gè)正整數(shù) ")SUm = 0If X >= 90 ThenFor i = 1 To n'* *SPACE *Label1.Caption ="優(yōu)秀"'* *SPACE *SUm =【？】EISeIf 【?| ThenNeXt iLabel1.Caption ="良好"Print

9、 SUmEISeIf X >= 60 ThenEnd SUb'* *SPACE *【？】'* *SPACE *【？】PriVate FUnCtion mul(ByVal X AS In teger)Dim S AS In teger, i AS In teger'* *SPACE *Label1.Caption ="不及格"End IfEnd SUbFor i = 1 To【？】NeXt i'* *SPACE *【？】End FUnCtion答案：1) .X >= 75 或 75 <= X2) .Label1.CaptiOn

10、 ="及格" 或Label1 ="及格"3) .Else答案:1).SUm + mul(i)2).3).mul = S第6題程序填空（1分）（題號(hào):61）第8題程序填空（1分）（題號(hào):46）'【程序填空】I【程序填空】'功能：從鍵盤輸入學(xué)生分?jǐn)?shù)， 統(tǒng)計(jì)學(xué)生總?cè)?數(shù)和各分?jǐn)?shù)段人數(shù)，' 即優(yōu)秀（90-100）、良好（80-89）、中等 （ 70-79）、'及格（60-69）、不及格（60以下）的人數(shù)。分）（題號(hào):56）PriVate SUb Form_Click()Dim score%, n1%, n2%, n 3%, n4%

11、, n5%msg ="請(qǐng)輸入分?jǐn)?shù)(-1結(jié)束)" msgtitile ="輸入數(shù)據(jù)"score = Val( In PUtBoX(msg, msgtitle)I*SPACE*While【？】total = total + 1I*SPACE*SeIeCt CaSe【？】CaSe IS >= 90n1 = n1 + 1CaSe IS >= 80n2 = n2 + 1CaSe IS >= 70n3 = n3 + 1CaSe IS >= 60n4 = n4 + 1CaSe Elsen5 = n5 + 1I*SPACE*【？】score =

12、Val( In PUtBOX(msg, msgtitle) WendPrint n1, n2, n3, n4, n5,totalEnd SUb答案：1) .score >=0 And score <= 100或 0<=score And score <= 100 或 0<=score And 100>=score 或 score >=0 And 100>=score2) .score3) .End SeIeCt第9題程序填空（1【程序填空】'功能：輸入數(shù)字1-7,顯示其對(duì)應(yīng)是星期幾（例: 輸入1,顯示星期日，'如果輸入其它內(nèi)容，一

13、律顯示"輸入錯(cuò)誤"）PriVate SUb Comma nd1_Click() dim X as in tegerdim y as Stri ngx=val(text1.text)I*SPACE*【？】CaSe 1日"CaSe 2CaSe 3I*SPACEI*CaSe 4CaSe 5CaSe 6*SPACECaSe 7*【？】y="今天是星期y="星期一"y="星期二"y="星期三"y="星期四"【?】y="星期六"y ="輸入錯(cuò)誤"e

14、nd SeIeCtText2.Text = yEnd SUb答案：1) .SeIeCt CaSe X2) .y="星期五"3)CaSe EISe第10題程序填空（1分）（題號(hào):41）第11題程序填空(1分)(題號(hào):43)【程序填空】【程序填空】'下面過程max（）用于求3個(gè)數(shù)中最大值，利 用這個(gè)過程求5個(gè)數(shù)中最大值。'功能：下面的程序段用于實(shí)現(xiàn)以下功能：利用冒泡法將一組整數(shù)'從小到大排序。*SPACE*PriVate SUb Form_Click()Print "5 個(gè)數(shù) 34、124、68、73、352 的最大 值是："max1

15、 = max(34, 124, 68) max1 =【？】Print max1End SUbPriVate SUb Form_Click()ConSt n = 15Dim a(1 To n) AS In teger, work AS Boolea n Dim i AS In teger, j AS In teger, X AS In teger Ran domizeFor i = 1 To na(i) = In t(90 * Rnd) + 10NeXt iPUbIiC FUnction max(ByVal a%, ByVal b%, ByVal c%)*SPACE*For i = 1 To n

16、Print a(i);NeXt iIf【？】ThenPrintI*SPACE*Elsem = bEnd IfI*SPACE*If 【？】Thenmax = mElsemax = CEnd IfEnd FUnCtionForj = 1 To i- 1If a(j) > a(j + 1) The nX = a(j): a(j) = a(j + 1): a(j + 1) = XI*SPACE*【？】End IfNeXt jI*SPACE*For i = n To 2【？】work = TrUe答案:1).max(max1,73, 352)2).a>b 或 b<a3).m >

17、C 或 C < mEnd SUbIf work The n【？】NeXt iFor i = 1 To nPrint a(i);NeXt iEnd SUbI*答案：1) .SteP -12) .Work = False 或 Work=O 或 notWork = true3) . EXit For答案：1) .SWit = 02) .n Mod i = 0 或 n/i = ni或 n/i = int(n/i)3) .i = i + 1第12題程序填空（1分）（題號(hào):37）第13題程序填空（1分）（題號(hào):55）【程序填空】【程序填空】'功能：以下程序用于判斷一個(gè)正整數(shù) （ 3） 是否為

18、素?cái)?shù)。PriVate SUb Form_Click()n = InPUtBox("請(qǐng)輸入一個(gè)正整數(shù)(3)")k = In t(Sqr( n)i = 2SWit = 0'功能：過程SUiXian可以判斷某一個(gè)數(shù)字是 否是水仙花數(shù)，利用'該過程找出三位數(shù)中所有水仙花數(shù)。'所謂"水仙花數(shù)"是指一個(gè)3位數(shù)，其各位數(shù)字立方和等于'該數(shù)本身。PriVate SUb Form_Click()Dim i AS In tegerFor i = 100 To 999*SPACE*I*SPACE*Do While i <= k And 【

19、M*SPACE*【?】NeXt iSWit = 1ElseI*SPACE*I*SPACE*End SUbIf 【？】ThenPUbIiC SUb SUiXia n(x AS In teger)Dim i%, j%, k%【？】End IfLoopIf SWit = 0 The nPrint n;"是一個(gè)素?cái)?shù)"ElsePrint n;"不是素?cái)?shù)"End Ifk = X-i* 100 - j * 10*SPACE*If 【？】Then Print XEnd SUbi =【？】j = (X - i * 100) 10答案:1).SUiXia n iSUiXia

20、n (i)或 call SUiXian (i)或2).3). 3或X 100 或in t(X100)X = i 3 + j 3 + X = i*i*i + j*j*j + 答案：1) .Ch <> "?"或 nOt Ch = "?"或 not"?"=Ch2) ."A" To "Z"3) .LooP*k*k第14題程序填空(1分)(題號(hào):50)第15題程序填空(1分)(題號(hào):54)'【程序填空】'【程序填空】功能：從鍵盤上輸入一串字符，以"?"結(jié)束,

21、統(tǒng)計(jì)輸入字符中的'大、小寫字母和數(shù)字的個(gè)數(shù)。'功能：本程序用于實(shí)現(xiàn)：從鍵盤接收一數(shù)字， 判斷其是否在數(shù)組'中，如果在數(shù)組中則將其刪除，否則顯示該數(shù)字不在數(shù)組'中。PriVate SUb Form_Click()Dim Ch$, n 1%, n2%, n3%n1 = 0n2 = 0PriVate SUb Form_Click()Dim a(10) AS In teger, X AS In tegerFori = 1 To 10n3 = 0Ch = InPUtBox("請(qǐng)輸入一個(gè)字符")'* *SPACE *Do While 【？】SeI

22、eCt CaSe ChCaSe "a" To "z" a(i) = Int(Rnd * 90) + 10 Print a(i);NeXt iPrintX = InPUtBox("請(qǐng)輸入要?jiǎng)h除的整數(shù)")Fori = 1 To 10n1 = n1 + 1'* *SPACE *'* *SPACE *CaSe【？】If a(i) = X The n【？】NeXt in2 = n2 + 1CaSe "0" To "9"n3 = n3 + 1End SeIeCtCh = InPUtBox(&

23、quot;請(qǐng)輸入一個(gè)字符")'* *SPACE *【？】Print n1, n2, n3'* *SPACE *If【？】The nFor k = i To 9'* *SPACE *【？】NeXt kPrint"刪除后的數(shù)組:"Fori = 1 To 9End SUbPrint a(i);NeXt iElSePrint "該數(shù)字不在數(shù)組中"2) .S = 1 或 S = 1:P=O3) .P + y 或 x*yEnd IfEnd SUb答案：1).EXit For2).i<10 或 10>i3).a(k) =

24、a( k + )第17題程序填空（1分）（題號(hào):58）【程序填空】第16題程序填空（1分）（題號(hào):48）'功能：求A,B,C三個(gè)數(shù)的最大值。PriVate SUb Comma nd1_Click()A = VaI(TeXt1.Text)I*SPACE*【？】【程序填空】C = VaI(TeXt3.Text)If A > B And A > C The n功能：利用下面的過程求m!和m*nMAXDATE = AI*SPACE*PriVate SUb Form_Click()Dim m AS In teger, n AS In tegerm = 2*SPACE*EISeIf【？

25、】ThenMAXDATE = BElSeI*SPACE*【？】【？】End SUbPriVate SUb fin d(x AS In teger, y AS In teger)Dim S, i AS In tegerEnd IfLabel1.Caption = MAXDATE & " 是最大值"End SUbI*SPACE*【?】For i = 1 To XI*SPACE*P=【？】NeXt i答案：1) .B = VaI(TeXt2.Text)或b=val(text2)2) .B> C 或 C<B 或 B> C and b>a 或 c<

26、;b and* a<b3) .MAXDATE = CPrint S, PEnd SUb答案：1) . find m, n 或 call find(m,n)第18題程序填空(1分)(題號(hào):42)2) .t=ii>t3) .t <> I 或 t<i 或或 not t=i 或 not i=t【程序填空】功能：以下程序段利用隨機(jī)函數(shù)生成15個(gè)1010-100之間的整數(shù),然后用選擇法將其從小到大排序。PriVate SUb Form_Click()ConStn = 15Dim a(1 To n) AS In tegerDim i AS Integer, j AS Integ

27、er, t AS Integer, minAS In tegerRan domize第19題程序填空（1分）（題號(hào):44）【程序填空】'功能：以下程序的功能如（圖1）。For i = 1 To nI*SPACE*a(i)=【?NeXt iFor i = 1 To nPrint a(i);NeXt iPrintFor i = 1 To n - 1I*SPACE*【？】PriVate SUb Form_Click()Dim S AS Sin gle, m AS In teger, p#S = 1For m = 1 To 10I*SPACE*P=【？】S = S + 1 / PNeXt mP

28、rint SEnd SUbFor j = i + 1 To nIf a(j) < a(t) The n t = jNeXt jI*SPACE*FUnction n(k%)P = 1For m = 1 To kIf 【？】Thenmin = a(i): a(i) = a(t): a(t) = minEnd IfNeXt iFor i = 1 To nPrint a(i);NeXt iEnd SUb答案:1). Int( 100 * Rnd ) + I*SPACE*P =【?】NeXt mI*SPACE*【？】End FUnCtion答案：1) .n(m)2) .P * m3) .n = P

29、答案：1).2 * i - 1 SteP -12).Print ""或?""3).Print 或?第21題程序填空（1分）（題號(hào):595）【程序填空】第20題程序填空（1分）（題號(hào):592）'下面的程序段用于打印出以下圖形II*I* * * *I*I*I*PriVate SUb Form_Click()Dim i%, j%, k%For i = 3 To 0 SteP -1For j = 0 To 2 * iPrint ""NeXt j'功能：窗體上建立了一個(gè)文本框Text1（"輸入口令"）和一個(gè)命

30、令按鈕 Command1（"檢查 "）。'判斷密碼是否正確，并顯示相應(yīng)提示'在加載窗體時(shí)設(shè)置密碼框最大長度為8,密碼顯示字符為“ * ”I*SPACE*For k = 5 To【？】Prin t "*"NeXt kPrintNeXt iFori = 0 To 3Forj = 0 To 2 *i + 2I*SPACE*【?】NeXt jFor k = 0 To 4 - 2 * iPrin t "*"NeXt k*SPACE*dim X as Stri ngPriVate SUb Comma nd1_Click()X =

31、Text1.TextI*SPACE*If X 【？】"12345678" ThenMSgBOX ("歡迎你用機(jī)rjElseMSgBOX ("對(duì)不起，口令錯(cuò)")End IfText1.Text =""Text1.SetFocusEnd SUb【？】NeXt iEnd SUbPriVate SUb Form_Load()Text1.Text =""'* *SPACE *Text1.【？】=8'* *SPACE *TeXt1.【？】*End SUbNeXt jPrintNeXt iMaX = m

32、at(1, 1)For i = 1 To n答案：I).=2) .MaXLe ngth3) .PaSSWordCharForj = 1 To mI*SPACE*If 【？】ThenMaX = mat(i, j)col = jI*SPACE*第22題程序填空（1分）（題號(hào):38）【?】End IfNeXt jNeXt i【程序填空】PrintPrint "矩陣最大的元素的值為："mat（row,col）Print "它所在的行號(hào)為："row;"列號(hào)為："colEnd SUb功能：下面的程序段，用于實(shí)現(xiàn)在一個(gè)nXm 的矩陣中，找出值最&#

33、39;大的元素所在的行和列，并輸出其值及行號(hào)和列號(hào)。PriVate SUb Form_Click()Dim mat() AS In teger答案：1) .ReDim mat(n, m) AS Integer 或ReDim mat( n, m)2) .MaX < mat(i, j)或 mat(i, j) > MaX3) .row = IDim n as in teger, m AS In tegern = Val(InputBox("請(qǐng)輸入矩陣的行數(shù)") m = Val(InputBox("請(qǐng)輸入矩陣的列數(shù) ")*SPACE*【？】For i

34、 = 1 To nForj = 1 To mmat(i, j) = InPUtBox("請(qǐng)輸入數(shù)組元素 值")mat(i, j) = Val(mat(i, j)NeXt jNeXt iPrint "所建立的矩陣為"For i = 1 To nForj = 1 To m第23題程序填空（2分）（題號(hào):45）'【程序填空】I'功能：下面的程序段用于求矩陣相乘C=A× B ,設(shè)A、B、C分別為'm × p、P × n、m× n 的矩陣。Print mat(i, j);PriVate SUb For

35、m_Click()ConSt m = 4, P = 3, n = 2Dim a(1 To m, 1 To P) AS In tegerDim b(1 To p, 1 To n) AS In tegerDim c(1 To m, 1 To n) AS In tegerDim i AS Integer, j AS Integer, k AS Integer,SUm AS In tegerFor i = 1 To mFor k = 1 To Pa(i, k) = iNeXt kNeXt iFor i = 1 To PFor k = 1 To nb(i, k) = iNeXt kNeXt iFor i

36、 = 1 To mForj = 1 To nI*SPACE*【？】For k = 1 To PI*SPACE*SUm = SUm + 【？】NeXt kI*SPACE*c(i, j)=【?】NeXt j, iPrint "輸出矩陣"For i = 1 To mFor k = 1 To nPrint c(i, k),NeXt kPrintNeXt iEnd SUb答案：1).SUm =02).a(i, k) * b(k, j)3).SUm第24題程序填空（2分）（題號(hào):52）【程序填空】'功能：下面的程序段用于打印出以下圖形*PriVate SUb Form_Clic

37、k()Dim i%, j%, k%Fori = 0 To 3For j = 0 To 2 - iPrint ""NeXt jI*SPACE*For k = 1 To 【？】Prin t "*"NeXt kPrintNeXt iFori = 0 To 2Forj = 0 To iI*SPACE*【？】NeXt jFor k = 0 To 4 - 2 * iPrin t "*"NeXt kI*SPACENeXt iEnd SUb答案：1).2 * + 12).Il H.Print ""或 form1.print&quo

38、t;"53).Print 或form1.Print 或?或？1) .num1 < num2 或 num2 > num12) . b <> 0 或 b > 0 或 0 <b 或 temp<>0 或 temp>0 或 0 <temp 或 not b=0 或 not 0=b3) .b = temp第26題程序填空第25題程序填空(2分)(題號(hào):40)(2分)(題號(hào):47)'【程序填空】'【程序填空】'功能：以下程序段用于輸出楊輝三角：結(jié)果 樣式如圖1功能：以下程序段用于實(shí)現(xiàn)： 輸入兩個(gè)正整 數(shù)m和n,求其最

39、大'公因數(shù)和最小公倍數(shù)。PriVate SUb Form_Click()Dim a%, b%, num1%, nu m2%, temp num1 = InPUtBox("請(qǐng)輸入一個(gè)正整數(shù)") num2 = InPUtBox("請(qǐng)輸入一個(gè)正整數(shù) ") '* *SPACE *If 【？】The ntemp = nu m1: num1 = nu m2: num2 = tempEnd Ifa = nUm1b = nUm2'* *SPACE *Do While【？】temp = a Mod ba = b'* *SPACE *【？】L

40、oopPrint "最大公因數(shù)為："aPrint "最小公倍數(shù)為："num1 * num2 / aEnd SUbPriVate SUb Form_Click()ConStn = 10Dim arr(n, n) AS In tegerFor I = 1 To narr(I, I) = 1'* *SPACE *【?】NeXt IFor I = 3 To nForj = 2 To I - 1'* *SPACE * arr(i, j)=【?NeXt jNeXt IFor I = 1 To nForj = 1 To I'* *SPACE *

41、?【? & ""NeXt jPrintNeXt IEnd SUb答案:答案:1).arr(i, 1) = 12) . arr(i - 1, j - " + arr(i - 1, j)3) .arr(i, j)或 str(arr(i, j)第27題程序填空（2分）（題號(hào):39）【程序填空】Print b(I, j);PrintNeXt IEnd SUb答案：1).NeXt i或 NeXt2).b(j, i)=a(i, j)3).Print或 form1.print 或?NeXt jI*功能：以下程序段用于實(shí)現(xiàn)矩陣轉(zhuǎn)置，即將一個(gè)n× m的矩陣的行和列

42、'互換第28題程序填空（2分）（題號(hào):53）PriVate SUb Form_Click()ConStn = 3ConSt m = 4Dim a( n, m), b(m, m) AS In tegerFor I = 1 To nForj = 1 To ma(I, j) = Int(Rnd * 90) + 10 NeXt j'* *SPACE *【？】For I = 1 To nForj = 1 To mI*SPACE*【?】NeXt jNeXt IPrint "矩陣轉(zhuǎn)置前"For I = 1 To n【程序填空】'功能：下面的程序?qū)崿F(xiàn)：從鍵盤輸入一個(gè)

43、數(shù) 字，將其插入一個(gè)'有序數(shù)組中，插入后的數(shù)組仍保持有序。PriVate SUb Form_Click()Dim a(10) AS In teger, X AS In teger Fori = 1 To 8a(i) = 2 * i - 1Print a(i);NeXt iPrintX = InPUtBox("請(qǐng)輸入要插入的整數(shù)")'* *SPACE *【？】Do While a(i) > XForj = 1 To mPrint a(I, j);NeXt j*SPACE*'* *SPACE *【？】NeXt IPrint "矩陣轉(zhuǎn)置后&

44、quot;For I = 1 To mLoop*SPACE*Forj = 1 To nIf i > 0 Then【？】For i = 1 To 9Print a(i);NeXt iEnd SUb答案：1) .a(0) = X2) .a(i + 1) = a(i)或 a(1+i) = a(i)3) .a(i + 1) = X 或 a(1 + i) = X第2題程序填空（2分）（題號(hào):514）Form1.Print素?cái)?shù)個(gè)數(shù)"coUnt【程序填空】第7題程序填空（1分）（題號(hào):57）'功能：本程序求3100之間的所有素?cái)?shù)（質(zhì)數(shù)）并 統(tǒng)計(jì)個(gè)數(shù)；'同時(shí)將這些素?cái)?shù)從小到大依

45、次寫入順序文件 dataout.txt ；'素?cái)?shù)的個(gè)數(shù)顯示在窗體Form1上。【程序填空】'功能：求 1!+2!+10!的值。PriVate SUb COmmandI_Click()PriVate SUb Form_Click()Dim count AS Integer, flag AS Boolean*SPACE*Dim t1 AS Integer, t2 AS Integer【？】*SPACE*S = 1For I = 2 To 10OPen App.Path & "dataout.txt" For OUtPUtAS【？】coUnt = 0I*S

46、PACE*For t1 = 3 To 100【？】I*SPACE*SPACE*【?】Print SEnd SUbflag =【?For t2 = 2 To Int(Sqr(t1)If t1 Mod t2 = 0 Then flag = FalSeNeXt t2If flag Then*SPACE*答案:1).2).3).NeXt I 或 NeXtcoUnt =【？Write #1, t1End IfNeXt t1Close #1第4題程序填空答案：1).#12).TrUe3).CoUnt + 1或 1 + coUntEnd SUb（2分）（題號(hào):534）【程序填空】第3題程序填空（2分）（題號(hào)

47、:525）【程序填空】'功能：在窗體上有兩個(gè)列表框List1（處理前數(shù)據(jù)）和List2（處理'后數(shù)據(jù)），以及標(biāo)簽Labe11。程序功能為：隨機(jī)生成100個(gè)'0-20（不包括0和20）的隨機(jī)數(shù)填入List1 ，并將這些隨機(jī)'數(shù)中的零元素刪除，填入List2中。最后在Label1中顯示零'元素個(gè)數(shù)'功能：在窗體上畫一個(gè)標(biāo)簽（名稱為 LabeII ） 和一個(gè)'計(jì)時(shí)器（名稱為TimerI ）,然后編寫如下幾個(gè)事件過程：'要求：每一秒鐘Label1更新顯示一次系統(tǒng)時(shí)間PriVate SUb Form_Load()Dim n AS IntegerDim i, x, k A