计算机二级VB试题.doc

VB控制结构一、 单选题1. 下面的程序运行后，显示的结果是_。Dim x%If x Then Print x+1 Else Print xA） 1B） 0C） 显示错误信息D） 22. 语句If x = 1 Then y = 1， 下面说法正确的是_。A） x = 1 和 y = 1均为赋值语句B） x = 1 和 y = 1均为关系表达式C） x = 1 为赋值语句，y = 1 为关系表达式D） x = 1 为关系表达式，y = 1 为赋值语句3. 下面分段函数 ， 下面不正确的程序段是_。A） If x = 1 then f=sqr（x+1）f=x*x+3B） If x = 1 then f=sqr（x+1）If x 1 then f=x*x +3C） If x = 1 then f=sqr（x+1） _Else f = x*x +3D） If x 1 then f=x*x +3 _Else f=sqr（x+1）4. 计算函数的值。 ， 下面程序段中正确的是_。A）If x 0 then y = 0If x 1 then y = 1If x 2 then y = 2If x =2 then y = 3B）If x = 2 then y = 3If x = 1 then y = 2If x 0 then y = 1If x 0 then y = 0C）If x 0 theny = 0ElseIf x 0 theny = 1ElseIf x 1 theny = 2Elsey = 3End IfD）If x = 2 theny = 3ElseIf x = 1 theny = 2ElseIf x = 0 theny = 1Elsey = 0End If5. 下面的程序段，显示的结果是 _。Dim xx= Int（RnD） + 5Select Case xCase 5Print “优秀”Case 4Print “良好”Case 3Print “及格”Case ElsePrint “不及格”End SelectA） 不及格B） 良好C） 及格D） 优秀6. 下面程序段求两个数中较大数，_不正确。A） Max = IIF（x y， x， y）B） If x y Then Max = x Else Max = yC） Max = xIf y = x Max = yD） If y = x Max = yMax = x7. 下列循环语句能正常结束的是_。A） i = 5Doi = i + 1Loop Until i 0B） i = 1Doi = i + 2Loop Until i = 10C） i = 10Doi = i - 1Loop Until i 0D） i = 6Doi = i - 2Loop Until i = 18. 下面的程序段的运行结果是 _。For i = 3 To 1 Step -1Print Spc（5-i）For j = 1 To 2 * i-1Print “$”;Next jPrintNext iA） $B）$C）$D）$9. 下列程序当在文本框输入“ABCD”时，窗体上显示的是_ 。Private Sub Text1_Change（）Print Text1.Text；End SubA） ABCDB） ABCDC） AABABCABCDD） AABABCABCD10. 下列哪个程序段不能正确显示1！、2！、3！、4！的值_ 。A）for i = 1 to 4n = 1for j = 1 to in = n*jnext jprint nnext iB）for i = 1 to 4for j = 1 to in = 1n = n*jnext jprint nnext iC）n = 1for j = 1 to 4n = n*jprint nnext jD）n = 1j = 1do while j = 4n = n*jprint nj = j+1loop11. 下列程序段的执行结果为_。A=0:B=1A=A+B:B=B+A:Print A;BA=A+B:B=B+A:Print A;BA）1 23 5B）1 13 5C）1 33 4D）1 23 412. 变量未赋值时，数值型变量的值为_。A）0B）空串“”C）NullD）没任何值13. 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click（）For n=1 To 20If n Mod 30 then m=m+n3Next nprint nEnd sub程序运行后，如果单击命令按钮，则窗体上显示的内容是_。A）15B）18C）21D）2414. 窗体中存在命令按钮Command1，其Click事件代码如下：Private Sub Command1_Click（）X = 2Y = 1If X * Y 1 Then Y = Y - 1 Else Y = -1Print Y - X 0End Sub程序运行后，单击命令按钮，输出结果为_。A）TrueB）FalseC）-1D）115. 设a=5，b=6，c=7，d=8，执行下列语句后，x的值为_。x=IIf（aB） And （cD） ， 10， 20）A）10B）20C）TrueD）False16. 执行以下程序段a$= “abbacddcba”For i = 6 To 2 Step -2X= Mid（a，i，i）Y= Left（a，i）Z= Right（a，i）Z= UCase（X & Y & Z）Next iPrint z输出结果为_。A）ABAB）BBABBAC）ABBABAD）AABAAB17. 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click（）c=1234c1=Trim（Str（C）For i=1 To 4Print _NextEnd Sub程序运行后，单击命令按钮，要求在窗体上显示如下内容：1121231234则在下划线处应填入的内容为_。A）Right（c1，i）B）Left（c1，i）C）Mid（c1，i，1）D）Mid（c1，i，i）18. InputBox函数返回值的类型为_。A）数值B）字符串C）变体D）数值或字符串（视输入的数据而定）19MsgBox函数返回值的类型为_。A）整型数值B）字符串C）变体D）数值或字符串（视输入的数据而定）20. 窗体上画一个命令按钮和一个文本框，其名称分别为command1 和text1，把文本框的text属性设置为空白，然后编写如下事件过程：Private Sub Command1_Click（）a=InputBox（“Enter an Integer”）b=InputBox（“Enter an Integer”）Text1.Text=b+aEnd Sub程序运行后，单击命令按钮，如果在输入对话框中分别输入8和10，则文本框中显示的内容是_。A）108B）18C）810D）出错21. 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click（）Dim a As Integer，s As Integera=8s=1Dos=s+aa=a-1Loop While a=0Print s;aEnd Sub程序运行后，单击命令按钮，则窗体上显示的内容是_。A）7 9B）34 0C）9 7D）死循环22. 下面程序段的执行结果为_。I=4A=5DoI=I+1A=A+3Loop Until I=9Print“I=”;IPrint“A=”;AA）I=9 B）I=10 C）I=10 D）I=9A=20 A=20 A=23 A=2323. 以下能够正确计算n！的程序是_。A）Private Sub Command1_Click（）N = 5 ： X = 1Dox = x * ii = i + 1Loop While i nPrint xEnd SubB）Private Sub Command1_Click（）N = 5 ： x = 1 ： i = 1Dox = x * ii = i + 1Loop While i nPrint xEnd SubC）Private Sub Command1_Click（）N = 5 ： x = 1 ： i = 1Dox = x * ii = i + 1Loop While i = nPrint xEnd SubD）Private Sub Command1_Click（）N = 5 ： x = 1 ： i = 1Dox = x * ii = i + 1Loop While i nPrint xEnd Sub24. 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click（）Dim num As Integernum=1Do Until num6Print num;num=num+2.4LoopEnd Sub程序运行后，单击命令按钮，则窗体上显示的内容是_。A）1 3.4 5.8B）1 3 5C）1 4 7D）无数据输出25. 设有如下程序段x=2For i=1 to 10 step 2x=x+iNext运行以上程序后，X的值是_。A）36B）27C）38D）5726. 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click（）Dim i As Integer，n As IntegerFor i=0 To 50i=i+3n=n+1If i10 Then Exit ForNextText1.Text=Str（n）End Sub程序运行后，单击命令按钮，在文本框中显示的值是_。A）2B）3C）4D）527. 下列程序段的执行结果为_。X=6For K=1 To 10 Step -2X=X+KNext KPrint K;XA）-1 6B）-1 16C）1 6D）11 3128. 执行以下程序段Dim x As Integer， i As Integerx = 0For i = 20 To 1 Step -2x = x + i 5Next i后，x的值为_。A）16B）17C）18D）1929. 在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下事件过程：Private Sub Command1_Click（）n=Val（Text1.Text）For i=2 To nFor j=2 To Sqr（i）If i Mod j=0 Then Exit ForNext jIf jSqr（i） Then Print iNext iEnd Sub该事件过程的功能是_。A）输出n以内的奇数B）输出n以内的偶数C）输出n以内的素数D）输出n以内能被j整除的数30. 新建立窗体中画一个命令按钮，其中事件代码如下：For x=4 To 1 Step -1For y=1 To 5-xPrint Tab（y+5）;“*”;Next yPrintNext x窗体运行后，单击命令按钮，输出结果是_。A）*B）*C）*D）*31. 在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Commandl_Click（）For i=1 To 4x=4For j=1 To 3x=3For k=1 To 2x=x+6Next kNext jNext iPrint xEnd Sub程序运行后，单击命令按钮，输出结果是_。A）7B）15C）157D）53832. 在窗体上有一个命令按钮，并有如下代码，程序执行后，单击命令按钮输出结果为_。Private Sub Command1_Click（）K=0For J=1 To 2For I=1 To 3K=I+1Next IFor I=1 To 7K=K+1Next INext JPrint KEnd SubA）10B）6C）11D）1633. 在窗体上画一个命令按钮和两个标签，其名称分别为Command1）Label1和Label2，然后编写如下事件过程：Private Sub Command1_Click（）a=0For i=1 To 10a=a+1b=0For j=1 To 10a=a+1b=b+2Next jNext iLabel1.Caption=Str（A）Label2.Caption=Str（B）End Sub程序运行后，单击命令按钮，在标签Label1和Label2中显示的内容分别是_。A）10和20B）20和110C）200和110D）110和2034. 有一个分段函数，当X0时，Y=-1；当X=0时，Y=0；当X0时，Y=1。该分段函数在程序段中可表达为_。A）If X0 Then Y=-1If X=0 Then Y=0Else Y=1B）If X0 Then Y=1If X=0 Then Y=0Else Y=-1C）If X0 Then Y=-1ElseIf X=0 Then Y=0Else Y=1End IfD）If X0 ThenY=-1ElseIf X=0 ThenY=0ElseY=1End if35. 下列语句正确的是_。A）If X3*Y ， XY Then Y=X3B）If X3*Y And XY Then Y=X3C）If X3*Y ： XY Then Y=X3D）If X3*Y And XY Then Y=X* *336. 下列程序的执行结果为_。A=75If A60 ThenI=1ElseIf A70 ThenI=2ElseIf A80 ThenI=3ElseIf A90 ThenI=4EndIfPrint“I=”;IA）I=1B）I=2C）I=3D）I=437. 设a=“a”，b=“b”，c=“c”，d=“d”，执行语句x = IIf（a B） Or （c D）， “A”， “B”）后，x的值为_。A）“a”B）“b”C）“B”D）“A”38. 在窗体上画一个命令按钮，名称为Command1。然后编写如下程序：Private Sub Command1_Click（）for I=1 To 4For J=0 To IPrint Chr$（65+I）;Next JPrintNext IEnd Sub程序运行后，如果单击命令按钮，则在窗体上显示的内容为是_。A）BBCCCDDDDEEEEEB）ABBCCCDDDDC）BCCDDDEEEED）AABBBCCCCDDDDD39. 有如下程序：Private Sub Form_Click（）xcase=1t=InputBox（“请输入一个数：”）Select Case tCase Is0Y=xcase+1Case Is=0Y=xcase+2Case ElseY=xcase+3End SelectPrint xcase;YEnd Sub若输入-1，输出结果为：A）1 4B）1 3C）1 2D）1 140. 下列程序段中，若要使输出结果为输入的两个数中较大者的平方，空白处应填写_语句。x=Val（InputBox（“请输入 x的值：”）y=Val（InputBox（“请输入 y的值：”）s=x ： _s=s*sPrint sA）If （xB）If xy Then s=yC）If （xD）If xy s=y41. 设X初值为0，则下列循环语句执行后，X的值等于_。For i=1 To 10 Step 2X=X+INext iA）25B）36C）24D）2742. 执行以下程序段时，_。x=1Do While x0x=x*xprint x;LoopA）循环体将执行1次B）循环体将执行0次C）循环体将执行无限次D）系统将提示语法错误43. 设窗体中包含1个命令按钮Command1，1个标签Label1;并有以下的事件过程。程序运行后，单击Command1按钮，标签中显示的内容是_。Private Sub Command1_Click（）Dim I As Integer，n As IntegerI=1： n=0Do While I10n=n+II=I*（I+1）LoopLabel1=I & ”-” & nEnd SubA）6-3B）24-9C）42-9D）6-944. 有如下程序：Do循环体Loop While 条件则以下叙述中错误的是_。A）若“条件”是一个为0 的常数，则一次也不执行循环体B）“条件”可以是关系表达式、逻辑表达式或常数C）循环体中可以使用Exit Do语句D）如果“条件”总是为True，则不停地执行循环体45. 有如下程序：For i=1 to 3For j=5 to 1 Step 1Print i*jNext jNext i则语句Print i*j的执行次数是_。A）15B）16C）17D）1846. 在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程：Private Sub Command1_Click（）Dim i As Integer， x As IntegerFor i = 1 To 6If i = 1 Then x = iIf i = 4 Thenx = x + 1Elsex = x + 2End IfNext iPrint xEnd Sub程序运行后，单击命令按钮，其输出结果为_。A）9B）6C）12D）1547. 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click（）c = “ABCD”For n = 1 To 4Print _NextEnd Sub程序运行后，单击命令按钮，要求在窗体上显示如下内容：DCDBCDABCD则在_处应填入的内容为_。A）Left（c，n）B）Right（c，n）C）Mid（c，n，1）D）Mid（c，n，n）48. 如果A为整数，且|A|=100，则打印“OK”，否则打印“Error”，表示这个条件语句的单行语句是_。A） If Int（A）=A And Sqr（A）=100 Then Print “Ok” Else Print “Error”B） If Int（A）=A And （A=100，A=-100） Then Print “Ok” Else Print “Error”C） If Fix（A）=A And Abs（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”49. 在窗体上画一个命令按钮和一个文本框，名称分别为Command1和Text1，然后编写如下程序：Private Sub Command1_Click（）a = InputBox（“请输入日期（131）”）t = “旅游景点：” _& IIf（a 0 And a = 10， “长城”， “”） _& IIf（a 10 And a = 20， “故宫”， “”） _& IIf（a 20 And a = 30， “颐和园”， “”）Text1.Text = tEnd Sub程序运行后，如果从键盘输入16，则在文本框中显示的内容是_。A）旅游景点：长城故宫B）旅游景点：长城颐和园C）旅游景点：颐和园D）旅游景点：故宫50. 下列程序段显示_个“*”。For i=1 to 5For j=2 to 5Print ”*”Next jNext iA）25B）10C）20D）15在51. 要使下面程序段能正确显示1！、2！、3！、4！的值，第一行横线处应填写_。_For j=1 to 4n=n*jPrint nNext jA）n=0B）n=1C）j =1D）j=052在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click（）a = “ABBACKDIEKEI”For I = 9 To 2 Step -3x = Mid（a， I， I）y = Left（a， I）z = Right（a， I）z = x & y & zNext IPrint zEnd Sub程序运行后，如果单击命令按钮，则输出结果是_。A）BACABBKEIB）EKEIABBACKDIEAACKEIEKEIC）DEIEKEIABBACKDIEKEID）ACKABBKEI53在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click（）M1=1M2=2Do While M25M1=M1*M2M2=M2+1LoopPrint “M1=”;M1，“M2=”;M2End Sub程序运行后，如果单击命令按钮，输出结果是_。A）M1= 24 M2= 5B）M1= 1 M2= 2C）M1= 24M2= 5D）M1= 1M2= 254阅读下面的程序段：For i=1 To 3For j=1 To iFor k=j To 3a=a+1Next kNext jNext i执行上面的三重循环后，a 的值为_ 。A） 3B） 9C） 14D） 2155. 在窗体上画两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（其Name属性为Commandl），然后编写如下事件过程：Private Sub Commandl_Click（）x=0Do While x50x=（x+2）*（x+3）n=n+1LoopText1.Text=Str（n）Text2.Text=Str（x）End Sub程序运行后，单击命令按钮，在两个文本框中显示的值分别为_。A）1和0B）2和72C）3和50D）416856. 在窗体上画两个名称分别为Text1、Text2的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click（）Dim x As Integer，n As Integerx=1n=0Do While x20x=x*3n=n+1LoopText1.Text=Str（x）&a， mp;n， bsp; Text2.Text=Str（n）End Sub程序运行后，单击命令按钮，在两个文本框中显示的值分别是_。A）15和1B）27和3C）195和3D）600和457. 下列语句组中，不能循环100次的有 _。A）N=0DON=N+1LOOP UNTIL N=100B）N=0DON=N+1LOOP WHILE N100C）N=0DON=N+1LOOP UNTIL N100D）N=0DO WHILE N100N=N+1LOOP58. 假定有如下事件过程：Private Sub Form_Click（）Dim x As Integerx=1n=0Do While x28x=x*3n=n+1LoopPrint x， nEnd Sub程序运行后，单击窗体，输出结果是_。A）81 4B）56 3C）28 1D）243 559. 新建窗体上新建立一个命令按钮，其中有如下事件代码：Private Sub Command1_Click（）I = 0For G = 10 To 19 Step 3I = I + 1Next GPrint IEnd Sub窗体运行后，单击命令按钮，输出结果为_。A）3B）4C）5D）660. 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click（）x = InputBox（“input”）Select Case xCase 1， 3Print “分支 1”Case Is 4Print “分支 2”Case ElsePrint “Else 分支”End SelectEnd Sub程序运行后，如果在输入对话框中输入2，则窗体上显示的是_。A）分支 1B）分支 2C）Else 分支D）程序出错61. 以下Case语句中错误的是_。A）Case 0 To 10B）Case Is10C）Case Is10 And Is50D）Case 3，5，Is1062. 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click（）x = 0n = InputBox（“”）For i = 1 To nFor j = 1 To ix = x + 1Next jNext iPrint xEnd Sub程序运行后，单击命令按钮，如果输入3，则在窗体上显示的内容是_。A） 3B） 4C） 5D） 663. 下列程序代码，执行后单击鼠标结果为_。Private Sub Form_Click（）A = 0： B = 0For I = -1 To -2 Step -1For J = 1 To 2B = B + 1Next JA = A + 1Next IPrint A; BEnd SubA）2 4B）-2 2C）4 2D）2 364. Private Sub Form_Click（）Dim Check，CounterCheck=0DoDo While Counter20Counter=Counter+1If Counter=10 ThenCheck=FalseExit DoEnd IfLoopLoop Until Check=FalsePrint Counter， CheckEnd Sub程序运行后，单击窗体，输出结果为_。A）15 0B）20 -1C）10 TrueD）10 False65. 设有如下程序：Private Sub Command1_Click（）Dim sum As Double，X As Doublesum=0n=0For i=1 To 5x=n/in=n+1sum=sum+xNextEnd Sub该程序通过For循环计算一个表达式的值，这个表达式是_。A）1+1/2+2/3+3/4+4/5B）1+1/2+2/3+3/4C）1/2+2/3+3/4+4/5D）1+1/2+1/3+1/4+1/566. 有如下程序：Private Sub Form_Click（）Dim i As Integer， Sum As IntegerSum=0For i=2 to 10If i Mod 20 And i Mod 3=0 ThenSum=Sum+iEnd IfNext iPrint SumEnd Sub程序运行后，单击窗体，输出结果为_。A）12B）30C）24D）1867. 设有如下程序Private Sub Command1_Click（）Dim c As Integer，d As Integerc=4d=InputBox（“请输入一个整数”）Do While d0If dc Thenc=c+1End Ifd=InputBox（“请输入一个整数”）LoopPrint c+dEnd Sub程序运行后，单击命令按钮，如果在输入对话框中依次输入1、2、3、4、5、6、7、8、9、0，则输出结果是_。A）12B）11C）10D）968. 下列程序段的执行结果为_。N=10For K=N To 1 Step-1X=Sqr（K）X=X-2Next KPrint X-2A）-3B）-1C）1D）1.1622776569. 在窗体上画一个名称为Command1的命令按钮，一个名称为Label1的标签，然后编写如下事件过程：Private Sub Command1_Click（）s = 0For i = 1 To 15x = 2 * i -1If x Mod 3 = 0 Then s =s + 1Next iLabel1.Caption = sEnd Sub程序运行后，单击命令按钮，则标签中显示的内容是_。A）1B）5C）27D）4570. 在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click（）x=0Do Until x=-1a=InputBox（“请输入a的值”）a=Val（A）b=InputBox（“请输入b的值”）b=Val（B）x=InputBox（“请输入x的值”）x=Val（x）a=a+b+xLOOPPrint aEnd Sub程序运行后，单击命令按钮，依次在输入对话框中输入5、4、3、2、1、-1，输出结果为_。A）2B）3C）14D）1571语句：If 表达式 Then中的表达式不可以是_表达式。A）算术B）逻辑C）关系D）字符72下列语句执行后，变量w的值是_。W=Choose（weekday（”2009，4，1”）， ”Red”， ”Green”， ”Blue”， ”Yellow”）A）NullB）RedC）BlueD）Yellow73下面if语句统计满足性别为男、职务为副教授以上、年龄小于40岁条件的人数，不正确的语句是_。A）if sex=”男” And age40 And InStr（duty， ”教授”）0 Then n=n+1B）if sex=”男” And age40 And （duty=”教授” Or duty=”副教授”） Then n=n+1C）if sex=”男” And age40 And Right（duty， 2）=”教授” Then n=n+1D）if sex=”男” And age40 And duty=”教授” And duty=”副教授” Then n=n+174. 关于DoLoop循环结构执行循环体次数的描述正确的是_。A）Do WhileLoop循环和DoLoop Until循环至少都执行一次B）Do WhileLoop循环和DoLoop Until循环可能都不执行C）Do WhileLoop循环至少执行一次，DoLoop Until循环可能不执行D）Do WhileLoop循环可能不执行，DoLoop Until循环至少执行一次75.下面的程序段的运行结果是_。Private Sub Command1_ClickFor i=1 To 5n=0For j=i To 5n=n+1Next jNext iPrint nEnd SubA）1B）5C）10D）15二、 填空题1. 下面程序的输出结果是_【1】_ 。x = Int（RnD） +3If x2 8 Then y = x2 + 1If x2 = 9 Then y = x2 - 2If x2 8 Then y = x32. 下面程序的功能是_【2】_。Dim n%，m%Private Sub Text1_KeyPress（KeyAscii As Integer）If KeyAscii = 13 ThenIf IsNumeric（Text1.Text） ThenSelect Case Text1.Text Mod 2Case 0n = n + Text1.TextCase 1m = m + Text1.TextEnd SelectEnd IfText1.Text = “”Text1.SetFocusEnd IfEnd Sub3下面的程序是检查输入的算术表达式中圆括号是否配对。并显示相应的结果。本程序在文本框输入表达式，边输入边统计，以输入回车作为表达式输入结束。Dim Count1%Private Sub Text1_KeyPress（KeyAscii As Integer）If Chr（KeyAscii） = “（” Then【3】ElseIf Chr（KeyAscii） = “）” ThenCount1 = Count1 - 1End IfIf KeyAscii = 13 ThenIf Count1 = 0 ThenPrint “左右括号配对”ElseIf 【4】 ThenPrint “左括号多于右括号”; Count1; “个”ElsePrint “右括号多于左括号”; -Count1; “个”End IfEnd IfEnd Sub4. 要使下列语句执行20次，循环变量的初值应当是_【5】_。For k = _ To -5 Step -25. 下面程序段显示 _【6】_ 个“*”For i = 1 to 5For j=2 to iPrint “*”Next jNext I6. 下面程序第40句共执行了 _【7】_ 次。第41句共执行了 _【8】_ 次。30 For j = 1 to 12 step 340 For k = 6 to 2 step -241 Print j，k42 Next k42 Next j7. 下面程序的运行后输出结果是_【9】_。Private Sub Command_Click（）For i = 0 to 3Print Tab（5*i+1）；“2”+ i ；“2”& i；Next iEnd Sub8. 输入任意长度的字符串，要求将字符顺序倒置，例如“ABCDEFG”变换为“GFEDCBA”。Private Sub Command1_Click（）Dim a$， i%， c$a = InputBox（“输入字符串”）n = Len（A）For i = 1 To Int（n / 2）c = Mid（a， i， 1）_【10】_【11】_Next iPrint aEnd Sub9. 下面程序运行后输出的结果是_【12】_。Private Sub Command_Click（）a$ = ”*” ：b$ = ”$”For i = 1 to 4If i Mod 2 = 0 Thenx$ = String（Len（a$） + i ， b$）Elsex$ = String（Len（a$） + i ， a$）End ifPrint x$;End Sub10.执行下面的程序，输出的结果是_【13】_。Option ExplicitPrivate Sub Form_Click（）Dim I as integer， j as Integerj = 10For i = 1 to j step 2i = i + 1j = j - iNext iPrint i ； jEnd Sub11以下程序循环的执行次数是_【14】_。a=0Do While a=10a=a+2Loop12窗体上有一个命令按钮和一个文本框，命令按钮事件代码如下：Private Sub Command1_Click（）X = 1y = 1Text1.Text = “”For I = 1 To 3F = X + yX = yy = FText1.Text = Text1.Text + Str（y）Next IEnd Sub该程序运行后，文本框的内容是_【15】_。13执行下面的程序段后，变量S的值为_【16】_。S = 5For i = 2.6 To 4.9 Step 0.6S = S + 1Next i14下面程序段的输出结果为。*试将程序段填写完整。Private Sub Command1_Click（）_【17】_【18】_Print _【