1、一、選擇題1如下程序運(yùn)行后輸出的結(jié)果是_。X=0For k=3 to 5 X=x+2 S=s+xNext kPrint sA)3 B)12 C)6 D)92下述程序的功能是_。 x="(a+B)*A)-(a*b+C)" n=Len(x) m=0 For k=1 To n P$=Mid(x,k,1) if p$=”(”Then m=m-1 ElseIf p$=”)”Then m=m+1 End If If m>0 Then Print ”:-p” End If Next k Print ”:-)” A)統(tǒng)計(jì)輸入的字符串中括號的總數(shù) B)統(tǒng)計(jì)輸入的字符串中匹配的括號的對數(shù)

2、 C)檢查輸入的字符串中的括號是否能夠匹配 D)刪除字符串的括號3下述程序段中，與其他個(gè)3程序段作用不同的是_。 A)s=0 B)s=0 i=0 i=0 While i>100 While i<100 S=s+i i=i+1 Wend Wend C)s=0 D)s=0 i=1 i=0 Do While i<100 Do Until i>100 S=s+1 s=s+1 Loop Loop4下列程序段的執(zhí)行結(jié)果為_。 a=0:b=1 Do a=a+b b=b+1 Loop While a<10 Print a; b A)10 5 B)a b C)0 1 D)10 30

3、5下列程序的運(yùn)行結(jié)果是_。 s=0: t=0: u=0 For X=1 To 3 For y=1 To x For z=y To 3 s=s+1 Next zt=t+1 Next y U=U+1 Next x Print s; t;u A)3 6 14 B)14 6 3 C)14 3 6 D)16 4 6下述程序的運(yùn)行結(jié)果是_。 j=0 Do While j<30 j=(j+1)*(j+2) k=k+l Loop Print k; j A)0 1 B)3 182 C)30 30 D)4 307下列程序的執(zhí)行結(jié)果為_。 n=0 j=1 DO Until n>2 n=n+1 j=j+n

4、*(n+1) Loop Print n; j A)0 1 B)3 7 C)3 21 D)3 138在窗體上畫一個(gè)命令按鈕，然后編寫如下事件過程，程序運(yùn)行后，單擊命令按鈕，依次在輸入對話框中輸入5，4，3，2，1，-1，輸出結(jié)果為_。 Private SubCommandl_Click() x=0 DO Until x=-1 a=Val(1nputBox(“請輸入A的值”) b=Val(1nputBox(“請輸入B的值”) x=Val(1nputBox(“請輸入X的值”) a=a+b+x Loop Print a End Sub A)2 B)3 C)14 D)15 9下面的數(shù)組聲明語句中_是正確

5、的。 A)Dim A3,4 As Integer B)Dim A(3,4) As Integer C)Dim A3;4 As Integer D)Dim A(3;4) As Integer 10下述語句的運(yùn)行結(jié)果是_。 Dim a i=0 a=Array(1,-2,9,0,-1,9) Do K=a(i) For m=10 To k Step -2 n=k+mNext m Print n+m i=i+1 Loop While Abs(m+n)<>27 A)3 -8 27 B)3 27 -8 C)-8 27 3 D)-8 3 2711.下列程序段的執(zhí)行結(jié)果為_。 Dim M(2) Fo

6、r i=1 To 2 M(i)=0 Next i k=2 For i=1 To k For j=1 To k M(j)=M(i)+1 Print M(k); Next j Next i A)1 2 2 3 B)1 2 3 4 C)0 2 2 3 D)0 1 2 312有如下程序： Dim arr(3，3) For j=1 T0 3 For k=1 To 3 arr(j,k)=(j-1)*3+k Next k Next j For j=2 To 3 For k=2 To 3 Print arr(k,j); Next k Print Next j 運(yùn)行后，輸出的結(jié)果是_。 A)2 5 B)5 8

7、C)4 7 D)5 9 3 6 6 9 5 8 6 813語句Dim abc(-2 T0 4,0 T0 4,5)As Long定義的三維數(shù)組，其數(shù)組元素有_。 A)96個(gè) B)112個(gè) C)140個(gè) D)210個(gè)14下列程序段的執(zhí)行結(jié)果為_。 Dim A(4) n=3 A(1)=1 For k=0 To n-1 For L=1 To k+1 X=k+2-1 A(X)=A(X)+A(X-1) If k<n-1 Then Exit For Print A(X); Next LNext k A)1 2 1 B)1 2 3 C)24 6 D)1 3 115有如下程序，運(yùn)行后輸出的是_。 Opti

8、on Base 1 Private Sub Command1_Click() Dim aj(1 T0 10) For j=6 T0 10 aj(j)=j*2 Next j Print aj(1)+aj(j) End Sub A)5 B)20 C)22 D)顯示出錯(cuò)信息16下列程序的輸出結(jié)果為_。 Private Sub Command1_Click() Dim a(20) For j=1 To 20 Step 2 a(j)=j Next j Print a(1)+a(2)+a(3) End Sub A)4 B)5 C)6 D)717使用ReDim Preserve可以改變數(shù)組的_。 A)最后一

9、維的大小 B)第一維的大小 C)所有維的大小 D)改變維數(shù)和所有維的大小18以下程序的輸出結(jié)果是_。 Private Sub Command1_Click() Dim a(-5 To 6) For i=LBound(a,1) To UBound(a,1) a(i)=i Next i Print a(LBound(a,1); a(UBound(a,1) End Sub A)0 0 B)-5 0 C)-5 6 D)0 619下列程序段的執(zhí)行結(jié)果為_。 K=0 For J=1 To 2 For I=1 To 3 K=I+1 Next I For I=1 T0 7 K=K+1 Next I Next

10、J Print K A)10 B)6 C)11 D)1620下列程序段的執(zhí)行結(jié)果為_。 x=Int(Rnd+4)Select Case x Case 5 Print “優(yōu)秀” Case4 Print ”良好” Case 5 Print ”合格” Case Else Print ”不合格” End Select A)優(yōu)秀 B)良好 C)合格 D)不合格21計(jì)算分段函數(shù)： 0 x<0 1 0x<1 2 lx<2 3 x2 下面程序段中正確的是_。 A) If x<0 Then y=0 B) If x>=2 Then y=3 If x<1 Then y=1 If

11、x>=1 Then y=2 If x<2 Then y=2 if x>=0 Then y=1 If x>=2 Then y=3 If x<0 Then y=0 C) If x<0 Then D)If x>=2 Then y=0 y=3 ElseIf x>=0 Then ElseIf x>=1 Then v=1 y=2 ElseIf x>=1 Then Elselfx>=0 Then y=2 y=1 Else Else Y=3 y=0 End if End if22有如下程序： For x=1 To 3 Print Tab(3*x

12、); 22*x Next x 運(yùn)行后，輸出的結(jié)果是_ A)22 B)22 C)22 D)22 44 66 44 44 44 66 66 6623有如下程序： a=0 For j=1 T0 20 Step 2 a=a+j5 Next j Print a 運(yùn)行后，輸出的結(jié)果是_ A)12 B)16 C)40 D)10024有如下程序a=1: b=2: c=3 a= a+b : b=b+c: c=b+a if a<>3 Or b<>3 then a=b-a: b=C-a: C=b+a EndIF Print a+b+c 運(yùn)行后，輸出的結(jié)果是_。 A)16 B)3 C)6 D)

13、825有如下程序： a$=”122345876” d$=Left$(a$,1) For i=2 T0 Len(a$) X$=Mid$(a$,I,1) if z$>d$ then d$=x$ Next i Ptint d$ 運(yùn)行后，輸出的結(jié)果是_。 A)1 B)7 C)4 D)826有如下程序： For m=3 To 1 Step-1 x$=String$(m, “”) Print m; x$ Next m 運(yùn)行后，輸出的結(jié)果是_。 A)1 B)1 C)3 D)3 2 2 2 2 3 3 1 127有如下程序： infocase$=InputBox(“Inputoneletter:”) S

14、elect Case infocase$ Case ”a" grade$=”Very good” Case ”b” grade$=”good" Case "C" grade$=”O(jiān)K” Case ”d” grade$=”Qualifled" Case Else grade$=”Bad” End Select Print grade$運(yùn)行時(shí)從鍵盤上輸入英文小寫字母d后，輸出的結(jié)果是_。 A)Very good B)Good C)Bad D)Qualified28. 有如下程序： total=0 For k=1 To 3If k>=1 The

15、n Part=1 Elseif k>=2 Then Part=2 Elseif k>=3Then Part=3 Else Part=4 Endif Print part ; Total=total+partNext kPrint total 運(yùn)行時(shí)輸出的結(jié)果是_。 A)3 3 3 9 B)3 2 1 6 C)1 1 1 3 D)1 2 3 629如果A為整數(shù)且|A|>=100，則打印“OK”，否則打印"Error"，表示這個(gè)條件的單行格式if語句是_ A)if Int(A)=A And Sqr(A)>=100 Then Print”O(jiān)K"

16、Else Print”Error" B)if Fix(A)=A And Abs(A)>=100 Then Print”O(jiān)K" Else Print "Error" C)if Int(A)=A And(A>=100，A<= -100)Then Print "OK" Else Print "Error" D)if Fix(A)=A And A>=100 And A<= -100 Then Print "OK" Else Print”Error"30下面程序段的

17、執(zhí)行結(jié)果為_。 I=4 A=5 Do I=I+1 A=A+2 Loop Until I>=7 Print ”I=”; I Print “A=”; A A)I=4 B)I=7 C)I=8 D)I=7 A=5 A=13 A=7 A=1131有如下程序，運(yùn)行后輸出的結(jié)果是_。 j=0: n=0 Do While n<3 j=(j+1)*(j+2) n=n+1 Loop Print j; n A)0 1 B)182 3 C)30 4 D)3 332下列程序段的執(zhí)行結(jié)果為_。 n=0 For i=1 To 3 For j=5 To 1 Step -1 n=n+1 Next j, i Prin

18、t n; j; iA)12 0 4 B)15 0 4 C)12 3 1 D)15 3 133下列程序段的執(zhí)行結(jié)果為_。 a=0: b=0 For i=-1 To-2 Step-1 For j=1 To 2 b=b+1 Next j a=a+1 Next i Print a; b A)2 4 B)-2 2 C)4 2 D)2 334下列語句正確的是_。 A)if x盧y Then Print “x不等于y" B)if x<>y Then Print “x不等于y” C)if x><y Then Print “x不等于y” D)if x<>y Prin

19、t “x不等于y”35下列程序的執(zhí)行結(jié)果是_。 a=75 if a>90 Then i=4 if a>80 Then i=3 if a>70 Then i=2 if a>60 Then i=1 Print “i=”; i A)i=1 B)i=2 C)i=3 D)i=436下列程序的執(zhí)行結(jié)果是_ 。 s=0 i=1 Do While i<=100 S=s+i Loop Print s A)5050 B)505 C)死循環(huán),無輸出 D)無窮大的數(shù)37有如下程序： a=100 Do s=s+a a=a+1 Loop While a>120 Print a 運(yùn)行時(shí)輸

20、出的結(jié)果是_。 A)100 B)120 C)201 D)10138有如下程序： K=-5 s=InputBox(”input value Of s：”) Select Case x Case K y=x+1 Case Is=0 y=x+2Case Else y=x+3 End Select Print x; y 運(yùn)行時(shí)，從鍵盤輸入-5，輸出的結(jié)果是_。 A)-5 -2 B)-5 -4 C)-5 -3 D)-5 -5 39下列程序段的執(zhí)行結(jié)果為_。 x=6 For k=1 To 10 Step-2 X=x+k Next k Print k; x A)-1 6 B)-1 16 C)1 6 D)11

21、 31 40有如下程序： For m=1 T04 a=0 For j=1 To 5 a=1 For k=1 To 6 a=a+3 Next k Next j Next m Print a 運(yùn)行后輸出的結(jié)果是_。 A)18 B)19 C)90 C)360 41下列語句組中，不能實(shí)現(xiàn)循環(huán)100次的有_。 A)N=0 B)N=0 Do Do N=N+1 N=N+1 Loop Until N>=100 Loop While n<100 C)N=0 D)N=0 Do Do While n<100 N=N+1 N=N+1 Loop Until N<100 Loop 42下述程序的輸

22、出結(jié)果是_。 x=0 For i=0 To 1 K=X+1 For j=0 To 3 if Not(j Mod 2) Then x=x+1 Next j Next i Print “X=”; K A)x=12 B)x=10 C)x=8 D)x=6 43設(shè)a=6，則執(zhí)行x=Iif(a>5, -1, 0)后，x的值為_。 A)5 B)6 C)0 D)-144下列程序輸出結(jié)果為_。 Private Sub Command1_Click() Dim a As Boolean a=True if a Then GoTo L1 Else GoTo L2 L1: Print "VB"

23、; L2: Print "VC" End Sub A)VB B)VC C)VB D)出錯(cuò)! VC45在窗體上畫一個(gè)名稱為Command1的命令按鈕，然后編寫如下事件過程： Private Su bCommand1_Click() x=0 n=InputBox (” ”) For i=1 To n For j=1 To i X=x+1 Next j Next i Print x End Sub 程序運(yùn)行后，單擊命令按鈕，如果輸入3，則在窗體上顯示的內(nèi)容是_。 A)3 B)4 C)5 D)6 46以下能夠正確計(jì)算n!的程序是_。 A)Private Sub Command1_C

24、lick() n=5: x=1 DO X=x*i i=i+1 Loop While i<n Print x End SubB)Private Sub Command1_Click() i=1 n=5: x=1:DO X=x*i i=i+1i<nLoop While Print xEnd SubC)Private Sub Command1_Cliek() n=5:x=1:i=1 DO X=x*i i=i+1 Loop While i<=n Print x End Sub D)Print Sub Command1_Cliek()n=5:x=1:i=1 DOx=x*ii=i+1Lo

25、op Whilei>nPrint xEnd Sub 47在窗體上畫個(gè)名稱為Command1的命令按鈕，一個(gè)名稱為label1的標(biāo)簽，然后編寫如下事件過程： Private Sub Command1_Click() s=0 For i=1 To 15 x=2*i-1 if x Mod 3=0 Then s=s+1 Next i Label1.Caption=s End Sub程序運(yùn)行后，單擊命令按鈕，則標(biāo)簽中顯示的內(nèi)容是_。 A)1 B)5 C)27 D)45 48使用語句Dim A(1 To 10)As Integer聲明數(shù)組A之后，以下說法正確的有_。 A)A數(shù)組中的所有元素值為0 B

26、)數(shù)組中的所有元素值不確定 C)A數(shù)組中的所有元素值為Empty D)執(zhí)行EraseA后，A數(shù)組中的所有元素值為Null 49在窗體上用復(fù)制、粘貼的方法建立了一個(gè)命令按鈕數(shù)組，數(shù)組名為M1。設(shè)窗體Forml標(biāo)題為“myformi"，雙擊控件數(shù)組中的第3個(gè)按鈕，打開代碼編輯器，寫下如下代碼： Private Sub M1_Click(Index As Integer) Form1.Caption= ”N03" End Sub 運(yùn)行時(shí)，單擊按鈕數(shù)組中的第1個(gè)按鈕，窗體標(biāo)題為_。 A)Form1 B)M1 C)myform1 D)No350設(shè)有數(shù)組聲明語句： Option Bas

27、e 1 Dim A(2, -1 To 1) 以上語句所定義的數(shù)組A為_維數(shù)組，共有_個(gè)元素，第一維下標(biāo)從_到_，第二維下標(biāo)從_到_ 。 A)1，2，6，2，-1，1 B)6，2，1，2，-1，1 C)2，6，1，2，-1，1 D)2，1，6，-1，1，251以下_是Visual Basic合法的數(shù)組元素。 A)X9 B)X(9) C)X(I+1) D)X652在窗體上畫一個(gè)命令按鈕其Name屬性為Command1，然后編寫如下代碼： Option Base 1 Private Sub Command1_Click() Dim a(4,4) For i=1 T0 4 For j=1 T0 4 a

28、(i,j)=(i-1)*3+j Next j Next i For i=3 T0 4 For j=3 T0 4 Print a(j, i); Next j Print Next i End Sub 程序運(yùn)行后，單擊命令按鈕，其輸出結(jié)果為_。 A)6 9 B)7 10 C)8 11 D)9 12 7 10 8 11 9 12 10 1353下列程序的輸出結(jié)果是_。 Dim a a=Array(1，2，3，4，5，6，7，8) i=0 For K=100 T0 90 Step-2 s=a(i)2 if a(i)>3 Then Exit For i=i+1 Next k Print k; a(

29、i); s A)88 6 36 B)88 1 2 C)90 2 4 D)94 4 1654有如下程序： Dim s(3, 3) As Integer For m=1 To 3 For n=1 To 3 a(m, n)=(m-1)* 3+n Next n Next m For m=1 T0 2 For n=1 To m Print a(n, m); Next n Next m 運(yùn)行后輸出的結(jié)果是_ 。 A)1 2 5 B)2 3 5 6 C)4 7 5 8 D)4 5 7 855設(shè)用復(fù)制、粘貼的方法建立了個(gè)命令按鈕數(shù)組Command1，以下對該數(shù)組的說法錯(cuò)誤的是_ A)命令按鈕的所有Captio

30、n屬性都是Command1 B)在代碼中訪問任意一個(gè)命令按鈕只需使用名稱Command1 C)命令按鈕的大小都相同 D)命令按鈕共享相同的事件過程56下列程序段的執(zhí)行結(jié)果為_。 Dim M(10) For i=0 To 10 M(i)=2*i Next i Print M(M(3) A)12 B)6 C)0 D)457語句Dimarr(-3 To 5,2 T0 6) As Integer定義的數(shù)組元素有_。 A)45個(gè) B)40個(gè) C)11個(gè) D)54個(gè)58執(zhí)行以下Command1的Click事件過程，在窗體上顯示_。 Option Base 0 Private Sub Command1_Cl

31、ick() Dim a a=Array(”a”,”b”,”c”,”d”,”e”,”f",”g”) Print a(1);a(3); a(5) End Sub A)abc B)bdf C)ace D)出錯(cuò)59有如下程序： Const n= -5: Const M=6 Dim a(n To M) For i=Lbound(a,1) To Ubound(a,1) a(i)=I Next I Print a(Lbound(a,1); a(Ubound(a,1) 運(yùn)行后輸出結(jié)果為_。 A)0 0 B)-5 0 C)-5 6 D)0 660語句Dim a&(1 To 20)，b#(2，-

32、1 To 1)定義的兩個(gè)數(shù)組，其類型區(qū)別為_ A)一維單精度實(shí)型數(shù)組和二維雙精度型數(shù)組 B)一維整型數(shù)組和二維單精度實(shí)型數(shù)組 C)一維單精度實(shí)型數(shù)組和二維整型數(shù)組 D)一維長整型數(shù)組和二維雙精度數(shù)組61設(shè)有數(shù)組聲明語句： Option Base 0 Dim b(-1 T0 10,2 T0 9,20) As Integer 則數(shù)組B中共有_個(gè)元素。 A)1800 B)1848 C)2016 D)231062以下說法不正確的是_。 A)使用ReDim語句可以改變數(shù)組的維數(shù) B)使用ReDim語句可以改變數(shù)組的類型 C)使用ReDim語句可以改變數(shù)組每一維的大小 D)使用ReDim語句可以對數(shù)組中的

33、所有元素進(jìn)行初始化63在窗體上畫一個(gè)名稱為Text1的文本框和一個(gè)名稱為Command1的命令按鈕，然后編寫如下事件過程： Private Sub Command1_Click() Dim array1(10, 10) As Integer Dim I, j As Integer For i=1 To 3 For j=2 To 4 Array1(i, j)=i+j Next j Next i Text1.Text=array1(2, 3)+array1(3, 4) End Sub程序運(yùn)行后，單擊命令按鈕，在文本框中顯示的值是_。 A)12 B)13 C)14 D)1564在窗體上畫一個(gè)名稱為C

34、ommand1的命令按鈕，然后編寫如下程序： Private Sub Command1_Click() Dim i As Integer, j As Integer Dim a(10, 10) As Integer For i=1 To 3 For j=1 To 3 a(i,j)=(i一1)*3+j Print a(I, j); Nextj Print Next i End sub程序運(yùn)行后，單擊命令按鈕，窗體上顯示的是_。 A)123 B)234 C)147 D)123 246 345 258 456 369 456 369 78965設(shè)有如下程序： Option Base 0 Privat

35、e Sub Form_Click() Dim a Dim I A8 Integer a=Array(1，2，3，4，5，6，7，8，9) For i=0 To 3 Print a(5-i); Next End Sub 程序運(yùn)行后，單擊窗體，則在窗體上顯示是_。 A)4321 B)5432 C)6543 D)765466在窗體上畫3個(gè)單選按鈕，組成一個(gè)名為chkOption的控件數(shù)組。用于標(biāo)記各個(gè)控件數(shù)組元素的參數(shù)是 A)Tag B)Index C)ListIndex D)Name67，在窗體上畫一個(gè)命令按鈕，名稱為Command1，然后編寫如下事件過程： Option Base 0 Priva

36、te Sub Command1_Click() Dim City A8 Variant city=Array(“北京”,”上海”,”天津”,”重慶”) Print city(1) End Sub 程序運(yùn)行后，如果單擊命令按鈕，則在窗體上顯示的內(nèi)容是_。 A)空白 B)錯(cuò)誤提示 C)北京 D)上海68在窗體上畫一個(gè)名稱為Command1的命令按鈕和3個(gè)名稱分別為Label1，Label2，Izbel3的標(biāo)簽，然后編寫如下代碼 Private x As Integer Private Sub Command1_Click() Static y As Integer Dim z As Integer

37、 n=10 Z=n+Z y=y+z X=x+Z Label1.Caption=x Label2.Caption=y Label3.Caption=z End Sub 運(yùn)行程序，連續(xù)3次單擊命令按鈕后，則3個(gè)標(biāo)簽中顯示的內(nèi)容分別是_。A)10 10 10 B)30 30 30 C)30 30 10 D)10 30 3069設(shè)在窗體上有一個(gè)名稱為Command1的命令按鈕，并有以下事件過程： Private Sub Commandl_Click() Static b As Variant b=Array(1,3,5,7,9) . End Sub此過程的功能是把數(shù)組b中的5個(gè)數(shù)逆序存放(即排列為9，

38、7，5，3，1)。為實(shí)現(xiàn)此功能，省略號處的程序段應(yīng)該是_A)For i=0 To 5-1/2 B)For i=0 To 5 tmp=b(i) tmp=b(i) b(i)=b(5-i-1) b(i)=b(5-i-1) b(5-i-1)=tmp b(5-i-1)=tmp Next NextC)For i=0 To 5/2 D)For i=1 To 5/2 tmp=b(i) tmp=b(i) b(i)=b(5-i-1) b(i)=b(5-i-1) b(5-i-1)=tmp b(5-i-1)=tmp Next Next70下列程序的功能是：依次將列表框List2中的項(xiàng)目移人列表框List1中，并將列表

39、框List2中移走的項(xiàng)目刪除，給程序的空白行選擇適當(dāng)?shù)恼Z句。 _ List1.AddItem List2.List(0) List2.ReMoveItem 0 LoopA)Do Until List2.ListCount B)Do While List2.ListCountC)Do Until List1.ListCount D)Do While List1.ListCount二、填空題1在窗體上畫一命令按鈕(其Name屬性為Command1)，然后編寫如下代碼： Private Sub Command1_Click() Dim a(5) For i=0 T0 4 A(i)=i+1 t=i+1

40、 If t=3 Then Print a(i) A(t-1)=a(i-2) Else A(t)=a(i) End if if i=3 Then a(i+1)=a(t-4) A(4)=1 Print a(i) Next i End Sub 程序運(yùn)行后，單擊命令按鈕，輸出結(jié)果是_。2在窗體上畫一個(gè)命令按鈕，然后編寫如下程序： Function fun(ByVal num As long) As Long Dim k As Long k=1 num=Abs(num) DO While num k=k*(num Mod 10) num=num10 Loop Fun=kEnd FunctionPriva

41、te Sub Command1_Click() Dim n As Long Dim r As Long n=InputBox(“請輸入一個(gè)數(shù)”) n=CLng(n) r=fun(n) Print r End Sub 程序運(yùn)行后，單擊按鈕，在輸入對話框中輸入"234"，輸出結(jié)果為_。3在窗體上畫一個(gè)命令按鈕，然后編寫如下程序： Function M(x As Integer, y As Integer)As Integer M=Iif(x>y, x, y) End Function Private Sub Command1_Click() Dim a As intege

42、r, b As integer a=1 b=2 Print M(a, b) End Sub 程序運(yùn)行后，單擊命令按鈕，輸出結(jié)果為_。4執(zhí)行下面的程序段后，s的值為_。 s=5 For i=2.6 To 4.9 Step 0.6 s=S+1 Next i5下面的程序是用冒泡法將數(shù)組a中的10個(gè)整數(shù)按升序排列，并將程序補(bǔ)充完整。 Private Sub Command1_Click() Dim a Dim Tmp As Integer a=Array(678,45,324,528,439,387,87,875,273,823) For i=_ For j=_ if a(i)_a(j) Then Tmp=a(i) a(i)=a(j) a(j)=Tmp End If Next j Next i For i=0 To 9 Pnnt a(i) Next i End Sub6執(zhí)行下列程序，輸人數(shù)字3，則輸出結(jié)果為_ Private Sub Command1_Click() a=InputBox(”InputaNumber") If a>5 then CoTo L5 Elseif a>2 then CoTo L2 Else CoTo L3 End if Exit Sub L5: Print a Mod 5 Exit