VB期末考試題庫1.doc

試卷方案：201105 Visual Basic期末考試方案一、單項選擇_共50題（選：20題*1=20分）第1題以下有關(guān)對象屬性的說法中，錯誤的是_D_.A. 工具箱中的控件并不是VB中所有的控件B. 若將Frame的Enabled屬性設(shè)置為False，則不能使用放置在Frame里面的控件C. 對象的Name屬性在運(yùn)行時不能改變D. 對象的所有屬性都可以在屬性窗口中設(shè)置第2題數(shù)學(xué)表達(dá)式 的VB算術(shù)表達(dá)式為_B_ . A. Sin(27)+Sqr(x+Exp3)/(x+y)B. Sin(27*3.14159/180)+Sqr(x+Exp(3)/Abs(x+y)C. Sin(27*3.14159/180)+Sqr(x+e3)/Abs(x+y)D. Sin(27*pi/180)+Sqr(x+Exp(3)/Abs(x+y)第3題下列有關(guān)對象的敘述中,正確的是_A_A. 對象由屬性，事件和方法構(gòu)成B. 對象的所有屬性既可以在屬性窗口設(shè)置，又可以在程序運(yùn)行時用賦值語句設(shè)置C. 對象的事件一定就是由VB預(yù)先設(shè)置好的人工干預(yù)的動作D. 對象的方法是對象響應(yīng)某個事件后執(zhí)行的一段程序代碼第4題 表達(dá)式CInt(4.5)+Cint(-4.51)+Int(4.9)+Int(-4.1)+Fix(-1.9)+0 Mod 2的運(yùn)算結(jié)果是_D_.A. 1B. -1C. 2D. 3第5題下列關(guān)于菜單的說法中,錯誤的是_C_.A. 每一個菜單項就是一個對象，并且可設(shè)置自己的屬性和事件B. 菜單項不可以響應(yīng)DblClick事件C. VB6.0允許創(chuàng)建超過四級的子菜單D. 程序執(zhí)行時，如果要求菜單項是灰色，不能被用戶選擇，則應(yīng)設(shè)置菜單項的Enabled屬性為False第6題 以下關(guān)于數(shù)組的說法中,錯誤的是_C_.A. 使用了Preserve 子句的Redim語句，只允許改變數(shù)組最后一維的上界B. 對于動態(tài)數(shù)組, Redim 語句可以改變其維界但不可以改變其數(shù)據(jù)類型C. Erase語句的功能只是對固定大小的數(shù)組進(jìn)行初始化D. Lbound函數(shù)返回值是指定數(shù)組某一維的下界第7題 設(shè)a=3,b=2,c=1,運(yùn)行print abc的結(jié)果是_B_.A. TrueB. FalseC. 1D. 出錯第8題以下說法不正確的是_C_.A. 使用不帶關(guān)鍵字Preserve的ReDim語句可以重新定義數(shù)組的維數(shù)B. 使用不帶關(guān)鍵字Preserve的ReDim語句可以改變數(shù)組各維的上、下界C. 使用不帶關(guān)鍵字Preserve的ReDim語句可以改變數(shù)組的數(shù)據(jù)類型D. 使用不帶關(guān)鍵字Preserve的ReDim語句可以對數(shù)組中的所有元素進(jìn)行初始化第9題在列表框List1中有若干列表項,可以刪除選定列表項的語句是_D_.A. List1.text=B. List1.List(List1.ListIndex)=C. List1.ClearD. List1.RemoveItem List1.ListIndex第10題數(shù)學(xué)表達(dá)式 對應(yīng)的VB表達(dá)式是_B_.A. (e(2*x-5)*Log(x)+(Sin(2x)3)/Sqr(Sin(x)-Cos(x2)B. (Exp(2*3.14159*x-5)*Log(x)+(Sin(2*x)3)/Sqr(Sin(x)-Cos(x2)C. (Exp(2*x-5)*Ln(x)+(Sin(2*x)3)/Sqr(Sin(x)-Cos(x2)D. e(2*3.14159*x-5)*Ln(x)+(Sin(2*x)3)/Sqr(Sin(x)-Cos(x2)第11題以下有關(guān)數(shù)組參數(shù)的說明中，正確的是_B_A. 在過程中也可用Dim語句對形參數(shù)組進(jìn)行說明B. 動態(tài)數(shù)組作為實(shí)參時，可用ReDim語句在過程中改變對應(yīng)形參數(shù)組的維界C. 調(diào)用過程時，數(shù)組名不能作為實(shí)參D. 數(shù)組可以按地址傳遞也可以按植傳遞第12題下列有關(guān)過程的說法中,錯誤的是_B_.A. 在Sub或 Function過程內(nèi)部不能再定義其它Sub或 Function 過程B. 對于使用ByRef說明的形參,在過程調(diào)用時形參和實(shí)參只能按傳址方式結(jié)合C. 遞歸過程既可以是遞歸Function過程,也可以是遞歸Sub過程D. 可以像調(diào)用Sub過程一樣使用Call語句調(diào)用Function過程第13題 要將焦點(diǎn)設(shè)置在某個控件上,以下四個選項中正確的是_D_.A. 只能使用鼠標(biāo)直接點(diǎn)擊控件B. 只能使用Tab鍵將焦點(diǎn)移到該控件C. 只能在程序中調(diào)用該控件的SetFocus方法D. A、B、C三選項中涉及的方法均可使用第14題以下Case語句中,能正確描述Y的絕對值大于6的是_D_.A. Case Abs(Y)6B. Case -6 To 6C. Case Not(-6 To 6)D. Case Is6第15題以下關(guān)于變量作用域的敘述中,正確的是_C_.A. 窗體中凡用Private聲明的變量只能在某個指定的過程中使用B. 模塊級變量只能用Dim語句聲明C. 凡是在窗體模塊或標(biāo)準(zhǔn)模塊的通用聲明段用Public語句聲明的變量都是全局變量D. 當(dāng)不同作用域的同名變量發(fā)生沖突時，優(yōu)先訪問局限性小的變量第16題以下關(guān)于數(shù)值常量的說法中,錯誤的是_C_A. 八進(jìn)制數(shù)的表示方法是在數(shù)字前面加&OB. 十六進(jìn)制數(shù)的表示方法是在數(shù)字前面加&HC. 在浮點(diǎn)運(yùn)算中使用D來分隔尾數(shù)和指數(shù)時，系統(tǒng)將把該數(shù)值作為單精度型數(shù)處理D. 32768是合法的數(shù)值常量第17題 數(shù)學(xué)表達(dá)式 對應(yīng)的VB表達(dá)式是_D_.A. Abs(ex+Sin(30)3)Sqr(x+y)B. Abs(Exp(x)+Sin(30)3)(Sqr(x+y)C. Abs(ex+Sin(30*3.14159180)3)(Sqr(x+y)D. Abs(Exp(x)+Sin(30*3.14159180)3)Sqr(x+y)第18題下面的4個表達(dá)式中,有關(guān)_C_個能夠?qū)ingle類型變量x(正數(shù))的第3位小數(shù)正確地進(jìn)行四舍五入計算.Format(x,#.00) Int(100*(x+0.005)/100 CInt(100*(x+0.005)/100 Fix(100*(x+0.005)/100A. 1個B. 2個C. 3個D. 4個第19題執(zhí)行以下語句時,會出現(xiàn)錯誤提示的是_A_.A. Print2b3 +12.5B. Print12.5+ 12C.Print12.5 & 12.5D.Print2e3+12第20題以下Case語句含有錯誤的是_C_.A. Case 0 To 10B. Case Is10C. Case Is10 And Is10第21題下列語句中,正確的是_A_A. Textl.SetFocusB. Forml.ClearC. Labell.SetFocusD. Listl.Cls第22題 下列選項中,所包含的所有表達(dá)式能夠?qū)晌徽麛?shù)x的個位數(shù)與十位數(shù)對調(diào)(如將78轉(zhuǎn)換為87)的是_D_. Val(Right(X,1)&Left(X,1) Val(Right(Str(X),1)&Left(Str(X),1) Val(Right(CStr(X),1)&Left(CStr(X),1) Val(Mid(X,2,1)+Mid(X,1,1)A. B. C. D. 第23題 以下關(guān)于子過程或函數(shù)的定義中,正確的是_D_A. Sub f1(n As String*1 )B. Sub f1(n As Integer)As IntegerC. Function f1(f1 As Integer)As IntegerD. Function f1(ByVal n As Integer)第24題 下列有關(guān)控件數(shù)組的說法中,錯誤的是_B_.A. 控件數(shù)組由一組具有相同名稱和相同類型的控件組成，不同類型的控件無法組成控件數(shù)組B. 控件數(shù)組中的所有控件不得具有各自不同的屬性設(shè)置值C. 控件數(shù)組中的所有控件共享同一個事件過程D. 控件數(shù)組中每個元素的下標(biāo)由控件的Index屬性指定第25題 以下對數(shù)組參數(shù)的說明中,錯誤的是_A_ .A. 在過程中可以用Dim語句對形參數(shù)組進(jìn)行聲明B. 形參數(shù)組只能按地址傳遞C. 實(shí)參為動態(tài)數(shù)組時，可用ReDim語句改變對應(yīng)形參數(shù)組的維界D. 只需把要傳遞的數(shù)組名作為實(shí)參，即可調(diào)用過程第26題 要向文件datal.txt添加數(shù)據(jù),正確的文件打開命令是_C_.A. Opendatal.txtFor Output As #1B. Opendatal.txtFor Input As #1C. Opendatal.txtFor Append As #5D. Opendatal.txt For Write As #5第27題下面有關(guān)數(shù)組處理的敘述中，正確的是_D_.A. 在過程中使用ReDim語句可以改變動態(tài)數(shù)組數(shù)據(jù)的類型B. 在過程中，可以使用Dim 、Private和 Static語句來定義數(shù)組C. 用ReDim語句重新定義動態(tài)數(shù)組時，可以改變數(shù)組的大小，但不能改變數(shù)組的維數(shù)D. 不可以用Public語句在窗體模塊的通用處說明一個全局?jǐn)?shù)組第28題 下面的表達(dá)式中,運(yùn)算結(jié)果為True的是_B_.A. abcrd =ABCRDB. Int(134.69) 21D. Mid(Visual,1,4)=Right(lausiV,4)第29題設(shè)計界面時,要使一個文本框具有水平和垂直滾動條,應(yīng)先將其_A_屬性置為True,再將ScrollBar屬性設(shè)置為3.A. MultiLineB. AutoSizeC. AlignmentD. RightToLeft第30題 下面有關(guān)數(shù)組的說法中,正確的是_C_A. 數(shù)組的維下界不可以是負(fù)數(shù)B. 模塊通用聲明處有Option Base 1，則模塊中數(shù)組定義語句Dim A(0 To 5)會與之沖突C. 模塊通用聲明處有Option Base 1，模塊中有Dim A(0 To 5),則A數(shù)組第一維維下界為0D. 模塊通用聲明處有Option Base 1，模塊中有DimA(0 To 5),則A數(shù)組第一維維下界為1第31題 下面有關(guān)數(shù)組的敘述中,不正確的是_A_. 在過程中用ReDim語句定義的動態(tài)數(shù)組,其下標(biāo)的上下界可以是變量 數(shù)組作為形式參數(shù)時,傳遞的是每個數(shù)組元素的值 在窗體模塊的通用聲明處可以用Public 說明一個全局?jǐn)?shù)組 數(shù)組定義語句中可以用負(fù)數(shù)或小數(shù)來指定某一維的維下界或維上界的值A(chǔ). B. C. D. 第32題下列關(guān)于對象SetFocus與GotFocus的描述中,正確的是_D_A. SetFocus是事件,GotFocus是方法B. Setfocus和Gotfocus都是事件C. Setfocus和GotFocus都是方法D. SetFocus是方法,GotFocus是事件第33題 創(chuàng)建一個名為文件的菜單項,欲使其可用Alt+F方式訪問,則在菜單編輯器的標(biāo)題文本框中應(yīng)輸入_B_.A. 文件($F)B. 文件(&F)C. 文件(#F)D. 文件(%F)第34題 在下列屬性中,屬于CommandButton控件、ListBox控件共有的是_A_.A. Caption、TextB. Visible、FontC. Caption、VisibleD. List、Visible第35題 下列能夠正確表示條件XYZ的VB邏輯表達(dá)式是_B_A. XYZB. X=Y And YZC. XY OR YZD. X=YZ第36題 以下關(guān)于Function過程的說法中,錯誤的是_A_.A. Function過程名可以有一個或多個返回值B. 在Function過程內(nèi)部不得再定義Function過程C. Function過程中可以包含多個Exit Function語句D. 可以像調(diào)用Sub過程一樣調(diào)用Function過程第37題 下面的關(guān)系表達(dá)式中,運(yùn)算結(jié)果為True的是_B_.A. CInt(1.5)=Int(1.5)B. Fix(1.5)=Int(1.5)C. Fix(-1.5)=CInt(-1.5)D. Fix(-1.5)=Int(-1.5)第38題已知XB,則下列表達(dá)式中,結(jié)果為True的是_C_A. Sgn(X-Y)+Sgn(A-B)=-1B. Sgn(X-Y)+Sgn(A-B)=-2C. Sgn(Y-X)+Sgn(A-B)=2D. Sgn(Y-X)+Sgn(A-B)=0第39題 執(zhí)行_B_語句時,會出現(xiàn)出錯提示信息.A. Print 5+7=14B. Print 16384*2C. Print 32768*2D. Print 14+32第40題 數(shù)學(xué)表達(dá)式 對應(yīng)的Visual Basic表達(dá)式是_D_.A. Sin(30*3.14159/180)+Sqr(Log(x)+y)/2*3.14159+Exp(x+y)B. (Sin(30*/180)+Sqr(Ln(x)+y)/(2*+Exp(x+y)C. Sin(30*180/3.14159)+Sqr(Log(x)+y)/(2*3.14159+e(x+y)D. (Sin(30*3.14159/180)+Sqr(Log(x)+y)/(2*3.14159+Exp(x+y)第41題 在一個多窗體程序中,可以僅將窗體Form2從內(nèi)存中卸載的語句是_B_.A. Form2.UnloadB. Unload Form2C. Form2.EndD. Form2.Hide第42題Print方法可在_A_上輸出數(shù)據(jù).窗體 文本框 圖片框 標(biāo)簽 列表框 立即窗口A. B. C. D. 第43題 若要使邏輯表達(dá)式xy Xor y 0 If x Mod 4=0 Then y=y+x Else y=y-x End If x=x-3 Print x,y LoopEnd Sub第3題 執(zhí)行下面的程序，單擊Command1,窗體上顯示的第一行是_【1】_，第二行是_【2】_,第四行是_【3】_。 Option Explicit Private Sub Command1_Click() Dim a As Integer, b As Integer a=1 : b=1 Call sub1(a, b) Print a, b End SubPrivate Sub sub1(a As Integer, b As Integer) a=a+b : b=b+a Print a, b If a10 Then a=a+b b=b+a Else Call sub1(a, b) End If End Sub第4題 運(yùn)行下面的程序，單擊Command1,在窗體上顯示的變量a的值為_【1】_，變量b的值為_【2】_,變量c的值為_【3】_。 Option Explicit Private Sub Command1_Click() Dim a As Integer, b As Integer, c As Integer a=5: b=10: c=15 Print fun(a,b,c)+fun(a,b,c) Print a,b,c End SubPrivate Function fun(x As Integer, y As Integer, z As Integer) As Integer z=x x=x+y y=y+z fun=x+yEnd Function第5題 執(zhí)行下面的程序，連續(xù)三次單擊命令按鈕Command1之后，A數(shù)組共有 【1】 個元素；數(shù)組元素A(2)的值 【2】 ，A(4)的值是 【3】 。 Option Explicit Option Base 1 Private Sub Command1_Click() Static A( ) As Integer,n As Integer Dim i As Integer,k As Integer k=n n=n + 2 ReDim Preserve A(n) For i=k+1 To n A(i)=i*n+1 Next i For i=1 To n Print A(i); Next i Print End Sub第6題 運(yùn)行下面程序，單擊Command1，在窗體上顯示的變量A的值為_【1】_,變量B的值為_【2】_。Option ExplicitDim a As IntegerPrivate Sub Command1_Click() Dim b As Integer b = 3 a = 4 b = fun(fun(a, b + 2), a) + b Print a, bEnd SubPrivate Function fun(n As Integer, k As Integer) n = n + a k = n - k fun = n + k + aEnd Function第7題 執(zhí)行下面的程序，單擊Commandl，則窗體上第一行顯示的是 【1】 ，第二行顯示的是 【2】 。 Option Explicit Dim x As Integer Private Sub Command1_Click() Dim y as Integer X=10:Y=2 Call process(y) Print X,Y Call process(y) Print X,Y End Sub Private Sub process(n As Integer) Dim y As Integer If n0 Then x=x-n y=x Else x=x+n y=x+2 End If n=-n End Sub第8題 執(zhí)行下面程序，單擊Command1，窗體上顯示的第一行是_【1】_，第二行是_【2】_，第四行是_【3】_，最后一行是_【4】_.Option ExplicitPrivate Sub Command1_Click() Dim n As Integer n = 5 Call test(n) Print nEnd SubPrivate Sub test(ByVal n As Integer) Dim i As Integer, s As Integer If n 0 Then For i = 1 To n s = s & CStr(i) Next i Print s Call test(n - 2) Else Print OVER End IfEnd Sub第9題 運(yùn)行下列程序，單擊Command1，在窗體上顯示的第一行內(nèi)容是 【1】 ,第二行的內(nèi)容是 【2】 ,第三行的內(nèi)容是 【3】 。（A的ASCII碼是65，Z是90）Option ExplicitPrivate Sub Command1_Click() Dim i As Integer, st As String, n As Integer, p As String * 1 p = B For i = 3 To 1 Step -1 n = Asc(p) - i If n 65 Then n = n + 26 st = Chr(n) st = st & F(i) Print st Next iEnd SubPrivate Function F(n As Integer) Dim i As Integer Static s As Integer For i = 1 To n s = s + i Next i F = sEnd Function第10題 執(zhí)行下面的程序，單擊Command1，輸出的變量i的值是 【1】 ，變量j的值是 【2】 ，變量k的值是 【3】 。 Option Explicit Private Sub Command1_Click() Dim i As Integer,j As Integer Dim k As Integer i=10 j=4 k=Funk(i,j) Print i,j,k End Sub Priate Function Funk(ByVal A As Integer,B As Integer) As Integer A=A+B B=B-2 If B=0 Or B=1 Then Funk=1 Else Funk=A+Funk(A,B) End If End Function第11題 運(yùn)行下面程序，如果連續(xù)三次單擊命令按鈕之后，數(shù)組共有_【1】_個元素；數(shù)組元素A(2)的值是_【2】_,A(5)的值是_【3】_.Option ExplicitOption Base 1Private Sub Command1_Click() Static a() As Integer, n As Integer Dim i As Integer, k As Integer k = n n = n + 2 ReDim Preserve a(n) For i = k + 1 To n a(i) = i * n + 1 Next i For i = 1 To n Print a(i); Next i PrintEnd Sub第12題 執(zhí)行下面的程序，單擊Command1,在窗體界面上顯示的第一行是 【1】 ，第二行是 【2】 ，第三行是 【3】 ，第四行是 【4】 。 Option Explicit Private Sub Command1_Click() Dim a As Integer,b As Integer,i As Integer i=1218 a=i100 b=i Mod 100 If b0 Then Print a Print b Print Lcd(a),(b);a;b Print Lcd(a,b);a;b End If End Sub Private Function Lcd(x As Integer,Y As Integer) As Integer Dim d As Integer If x9 k=k+1 If i+13 And j+1=3 Then i=1:j=j+1 ElseIf i+13 Then i=i+1:j=1 Elself i+13 And j+13 Then i=i-1 ElseIf i+1=3 And j+1=3 And A(i+1,j+1)0 Then i=i-1 Else i=i+1:j=j+1 End If A(i,j)=k Loop For i=1 To 3 For j=1 To 3 Picture1.Print A(i,j); Next j Picture1.Print Next iEnd Sub第14題 執(zhí)行下列程序，單擊Command1，在窗體上顯示的第一行內(nèi)容是【1】，第二行的內(nèi)容是【2】，第三行的內(nèi)容是【3】。Option ExplicitPrivate Sub Command1_Click Dim n As Integer ,i As Integer n=2 For i=7 To 1 Step -1 Call sub2(i,n) Print i,n Next i End SubPrivate Sub sub2(x As Integer,y As Integer) Static n As Integer Dim i As Integer For i =2 To 1 Step -1 n =n+x x =x-1 Next i y=y+nEnd Sub第15題 執(zhí)行下列的程序，單擊Command1，在窗體上顯示的變量b的值為【1】，變量c的值為【2】，變量z的值為【3】。 Private Sub Command1_Click() Dim b As Integer,c As Integer,z As Integer b=2 c=1 z=fun(b,fun(b+1,c)+b-c+1 Print b,c,z End Sub Private Function fun(x As Integer,ByVal y As Integer) As Integer x=x-y y=x+y+2 fun=y-x End Function第16題 執(zhí)行下面程序，單擊Command1,窗體上顯示的第一行是_【1】_,第二行是_【2】_,第四行是_【3】_. Option Explicit Private Sub Command1_Click() Dim a As Integer, b As Integer, i As Integer a=2:b=5 For i=a To a*b Step a Call sub1(i,a,b) Print a,b Next i Print a,b,i End Sub Private Sub sub1(i As Integer, a As Integer, b As Integer) i=i+1 a=a+1 b=b+1 End Sub第17題 執(zhí)行下面程序，單擊Command1，窗體上顯示的第一行是【1】，第二行是【2】，第三行是【3】。Option ExplicitOption Base 1Private Sub Command1_Click() Dim sa (3,3) As String*1,i As Integer,j As Integer,k as Integer k=1 For i=1 To 3 For j=1 To 3 sa(i,j)=Chr(Asc(A)+(k+i+j) Mod 26) Print sa(i,j); ; k=k+3 Next j Print Next iEnd Sub第18題 執(zhí)行下面程序，單擊Command1,則數(shù)組元素a(1,2)的數(shù)值是_【1】_,a(3,3)的數(shù)值是_【2】_,圖片框中最后一行顯示的是_【3】_. Option Explicit Private Sub Command1_Click() Dim a(4,4) as Integer, i as Integer, j as Integer Dim k As Integer, num as Integer num=0 For k=1 To 4 For i=1 To k-1 num=num+1 a(i,k)=num next i For j=k To 1 Step -1 num=num+1 a(k,j)=num next j next k For i=1 To 4 For j=1 To 4 Picture1.Print Right( & a(i,j),3); Next j Picture1.Print Next i End Sub第19題 執(zhí)行下面程序，單擊Command1，則圖片框中顯示的第一行是_【1】_，顯示的第二行是_【2】_，最后一行顯示的是_【3】_.Private Sub Command1_Click() Dim a(3, 3) As Integer Dim i As Integer, j As Integer For i = 1 To 3 For j = 3 To 1 Step -1 If i = j Then a(i, j) = i - j Else a(i, j) = j - i End If Next j Next i For i = 1 To 3 For j = 3 To 1 Step -1 Picture1.Print a(i, j); Next j Picture1.Print Next iEnd Sub第20題 執(zhí)行下面程序，單擊Command1，則窗體上顯示的第一行是 【1】 ，第二行是 【2】 ，第三行是 【3】 。 Option Explicit Private Sub Command1_Click() Dim a As String,i As Integer Dim x As String,z As String a=iamstudent i=InStr(5,a,d) Do x=Mid(a,i,3) z=Right(x,1) z=UCase(x & Z) i=i-2 Print z Loop Until i=1 End Sub三、程序填空_共16題（選：10空*2=20分）完形填空：把題目中空的程序代碼行補(bǔ)齊第1題 本程序的功能是把由個.分隔的十進(jìn)制數(shù)表示的IP地址轉(zhuǎn)換為由32位二進(jìn)制數(shù)組成的IP地址。 例如十進(jìn)制表示的IP地址為202.119.191.1,其中每個十進(jìn)制數(shù)對應(yīng)一個8位的二進(jìn)制數(shù)，合起來構(gòu)成一個32位二進(jìn)制的IP地址11001010011101111011111100000001。過程Tiqu用于提取十進(jìn)制IP地址中每個用.分隔的十進(jìn)制數(shù)；過程Convert用于將十進(jìn)制數(shù)轉(zhuǎn)換為相應(yīng)的8位二進(jìn)制數(shù)。程序界面參見下圖。Option ExplicitPrivate Sub Command1_Click() Dim str1 As String, str2 As String Dim a(4) As Integer, i As Integer str1 = Text1.Text Call Tiqu(str1, a) For i = 1 To 4 If a(i) 255 Then MsgBox(IP地址錯誤！) Exit Sub Else*SPACE* 【?】 End If Next i Text2.Text = str2End SubPrivate Sub Tiqu(st As String, a() As Integer) Dim n As Integer, k As Integer, s As String, d As String * 1, i As Integer n = Len(st): k = 0: s = For i = 1 To n*SPA