计算机二级控制结构真题集.doc

十堰市计算机学校培训中心（计算机等级考试培训基地） 2005-2008历届真题章节分类控制结构大纲要求：1. 选择结构：单行结构条件语句，块结构条件语句，IIf函数。2. 多分支结构。3. For循环控制结构。4. 当循环控制结构。5. Do循环控制结构。6. 多重循环。选择结构1.（2005年4月、27）在窗体上画一个命令按钮和一个文本框，名称分别为Command1 和Text1，然后编写下列事件过程：Private Sub Command1_Click( )a=InputBox(请输入日期 (131) )t=旅游景点：_&IIf(a0 And a10 And a20 And a0,x Mod 3,0)，设x=10，则y 的值是（ ）。A）0 B）1 C）3 D）语句有错3.（2005年4月）（15）设a=a，b=b，c=c，d=d，执行语句x=IIf(ad),A,B)后，x 的值为（ ）。A）a B）b C）B D）A4.（2006年4月、20）在窗体上画1个命令按钮（名称为Command1）和1个文本框（名称为Text1），然后编写如下事件过程：Private Sub Command1_Click() x=Val(Text1.Text) Select Case xCase 1,3y=x*xCase Is=10,Is=-10y=xCase -10 To 10y=-x End Select End Sub程序运行后，在文本框中输入3，然后单击命令按钮，则以下叙述中正确的是( )。A）执行y=x*xB）执行y=-xC）先执行y=x*x，再执行y=-x D）程序出错For循环结构5.（2005年4月、23）执行下列程序段后，x 的值为（ ）。Dim x As Integer, i As Integerx=0For i= 20 To 1 Step-2x=x+i5 0+4+3+3+2+2+2+1+1+0+0Next I （i=i-2）A）16 B）17 C）18 D）197.（2005年9月、22）有下列事件过程：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+I 0+3+9End IfNext iPrint sumEnd Sub程序运行后，单击窗体，输出结果为（ ）。A）12 B）30 C）24 D）188.（2005年4月、21）在窗体上画一个命令按钮，其名称为Command1，然后编写下列事件过程：Private Sub Command1_Click()Dim i As Integer, x As IntegerFor i= 1 To 6If i=1 Then x=iIf i10 Then Exit For Next I Text1.Text=Str(n)End Sub程序运行后，单击命令按钮，在文本框中显示的值是( )。A）5B）4C）3D）211.（2007年4月、30）窗体上有一个名为List1的列表框，其中已经输入了若干个项目（如图所示）；还有两个文本框，名称分别为Text1、Text2，一个名称为Command1的命令按钮，并有以下程序： Private Sub Command1_Click() Dim str As String,s As String,k As Integer s=Text1 str= For k=List1.ListCount-1 To 0 Step-1 If InStr(List1.List(k),s)0 Then str=str & List1.List(k) & End If Next k If str= Then Text2= 没有匹配项目 Else Text2=str End IfEnd Sub程序运行时，在Text1中输入“京”，单击命令按钮，则在Text2中显示的内容是( )。A）京B）北京 南京C）南京 北京D）没有匹配的项目12.（2007年9月、20）某人设计了如下程序用于计算并输出7!（7的阶乘）Private Sub Command1_Click() t=1 For k= 7 To 2 Step -1 t = t * k 1*7*6*5*4*3*2 Next Print tEnd Sub执行程序时，发现结果是错误的。下面的修改方案中能够得到正确结果的是( )。A）把t=0改为t=1B）把For k=7 To 2 Step-1改为For k=7 To 1 Step -1C）把For k=7 To 2 Step-1改为For k=1 To 7D）把Next改为Next k13.（2007年9月、35）在窗体上有一个名称为Check1的复选框数组（含4个复选框），还有一个名称为Text1的文本框，初始内容为空。程序运行时，单击任何复选框，则把所有选中的复选框后面的文字罗列在文本框中（见图）。下面能实现此功能的事件过程是( )。 Dim a as string ,b as string ,c as string ,d as string If check1.value=1 then a=”数学” If check2.value=1 then b=”语文” If check3.value=1 then c=”英语” If check4.value=1 then d=”历史” Text1.text=a & b & c & d14.（2008年4月）（33）设窗体上有一个文本框Text1 和一个命令按钮Command1，并有以下事件过程：Private Sub Command1_Click()Dim s As String, ch As Strings = For k = 1 To Len(Text1)ch = Mid(Text1, k, 1) s = ch + s S= “a”+ “ B”Next kText1.Text = sEnd Sub程序执行时，在文本框中输入“Basic”，然后单击命令按钮，则Text1 中显示的是（ ）。A) Basic B）cisaB C）BASIC D）CISAB15（2006年9月、8）在窗体上画一个名称为Command1的命令按钮。然后编写如下事件过程Private Sub Command1_Click() Dim a As String a=123456789 For i=1 To 5 Print Space(6-i);Mid$(a, 6-i ,2*i-1) Next iEnd Sub程序运行后，单击命令按钮，窗体上的输出结果是 5 456 34567 2345678 123456789 请填空。Do循环、当循环17.（2008年9月、28）假定有以下循环结构Do Until 条件表达式循环体Loop则以下正确的描述是（ ）。A）如果“条件表达式”的值是0，则一次循环体也不执行B）如果“条件表达式”的值不为0，则至少执行一次循环体C）不论“条件表达式”的值是否为“真”，至少要执行一次循环体D）如果“条件表达式”的值恒为0，则无限次执行循环体18.（2005年9月、20）有下列事件过程：Private Sub Form_Click( )Dim x As Integer, n As Integerx=1n=0Do While X0If dc Thenc=c+1End Ifd=InputBox(请输入一个整数)LoopPrint c+dEnd Sub程序运行后，单击命令按钮，如果在输入对话框中依次输入1、2、3、4、5、6、7、8、9、0，则输出结果是（ ）。A）12 B）11 C）10 D）920.（2007年4月、20）下面循环语句中在任何情况下都至少执行一次循环体的是( )。A）Do While B）While 循环体 循环体 Loop WendC）Do D）Do Until 循环体 循环体Loop Until Loop21.（2007年4月、27）为了计算1+3+5+99的值，某人编程如下：k=1s=0While k=99k=k+2 : s=s+kWendPrint s 在调试时发现运行结果有错误，需要修改。下列错误原因和修改方案中正确的是( )。A）While Wend循环语句错误，应修改为For k=1 To 99 Next kB）循环条件错误，应改为 While k 9 Print tEnd Sub 此程序计算并输出一个表达式的值，该表达式是( )。A）9! B）10! C）1!+2!+9! D）1!+2!+10!24.（2007年4月、6）下面程序的功能是从键盘输入一个大于100的整数m，计算并输出满足不等式 1+22+32+42+n2m 的最大的n。请填空。 Private Sub Command1_Click() Dim s, m,n As Integer m = Val(InputBox(请输入一个大于100的整数) n= s= 0 Do While s0Print sEnd Sub以上程序的功能是 。程序运行后，单击窗体，输出结果为 。26.（2005年9月、7）在窗体上画一个命令按钮和一个文本框，然后编写命令按钮的Click 事件过程。程序运行后，在文本框中输入一串英文字母（不区分大小写），单击命令按钮，程序可找出未在文本框中输入的其他所有英文字母，并以大写方式降序显示到Text1 中。例如，若在Text1 中输入的是abDfdb，则单击Command1按钮后Text1中显示的字符串是ZYXWVUTSRQPONMLKJIHGEC。请填空。Private Sub Command1_Click( )Dim str As String,s As String,c As Stringstr=UCase (Text1)s=“ “c=ZWhile c=AIf Instr(str,c)=0 Thes= End Ifc=Chr$(Asc(c) )WendIf s“ “ ThenText1=sEnd IfEnd Sub27.（2005年9月、10）如图所示，在列表框list1 中已经有若干人的简单信息，运行时在Text1 文本框（即“查找对象”右边的文本框）输入一个姓或姓名，单击“查找”按钮，则在列表框中进行查找，若找到，则把该人的信息显示在Text2 文本框中。若有多个匹配的列选项，则只显示第1 个匹配项；若未找到，则在Text2 中显示“查无此人”。请填空。Private Sub Command1_Click( )Dim k As Integer,n As Integer,found As Booleanfound=Falsen=Len( )k=0While kList1.ListCount And not foundIf Text1=Left$(List1.List(k),n) ThenText2= found=TrueEnd Ifk=k+1WendIf Not found ThenText2=查无此人End IfEnd Sub多重循环28.（2005年9月、21）有下列事件过程：Private Sub Form_Click( )Dim Check, CounterCheck=TrueCounter=( )DoDo while Counter20Counter=counter+1If Counter=10 ThenCheck=FalseExit DoEnd IfLoopLoop Until Check=FalsePrint Counter, CheckEnd Sub程序运行后，单击窗体，输出结果为（ ）。A）15 0 B）20 -1 C）10 True D）10 False29.（2006年4月、23）在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() a=0 For i=1 To 2For j=1 To 4If j Mod 20 Thena=a-1End Ifa=a+1Next j Next i Print a End Sub程序运行后，单击命令按钮，输出结果是( )。A）0 B）2C）3 D）430.（2006年9月、18）在窗体上画一个命令按钮和一个标签，其名称分别为Command1和Label1，然后编写如下事件过程：Private Sub Command1_Click() Counter=0 For i=1 To 4 For j=6 To 1 Step -2 Counter=Counter+1 Next j Next i Label1.Caption=Str(Counter)End Sub程序运行后，单击命令按钮，标签中显示的内容是( )。A）11B）12C）16D）2031.（2006年9月、20）在窗体上画一个命令按钮和两个标签，其名称分别为Command1、Label1和Label2，然后编写如下事件过程：Private Sub Command1_Click() a=0 For i=1 To 10 a=a + 1 b=0 For j=1 To 10 a=a+1 b=b+2 Next j Next i Label1.Caption=Str(a) Label2.Caption=Str(b)End Sub程序运行后，单击命令按钮，在标签Label1和Label2中显示的内容分别是( )。A）10和20B）20和110C）200和110D）110和2032.（2008年9月、22）在窗体上画一个命令按钮和一个标签，其名称分别为Command1 和Labcl1，然后编写如下事件过程：Private Sub Command1_Click( )Counter=0For i=1 To 4For j=6 To 1 Step -2Counter=Counter+1Next jNext iLabel1.Caption=Str(Counter)End Sub程序运行后，单击命令按钮，标签中显示的内容是（ ）。A）11 B）12 C）16 D）2033.（2008年9月、29）在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click( )Dim I, NumRandomizeDoFor I=1 To 1000Num=Int(Rnd*100)Print Num;Select Case NumCase 12Exit ForCase 58Exit DoCase 65, 68, 92EndEnd SelectNext ILoopEnd Sub上述事件过程执行后，下列描述中正确的是（ ）。A）Do 循环执行的次数为1000 次B）在For 循环中产生的随机数小于或等于100C）当所产生的随机数为12 时结束所有循环D）当所产生的随机数为65、68 或92 时窗体关闭、程序结束34.（2005年4月、8）阅读下列程序：Private Sub Form_Click( )Dim Check As Boolean, Counter As IntegerCheck=TrueCou