循环结构程序

循环结构程序 学校:___________姓名：___________班级：___________考号：___________ 一、选择题 1．在程序设计当中，面对大量重复的问题，宜使用（   ）来提高效率 A．顺序结构 B．选择结构 C．循环结构 D．重复结构 2．有如下VB程序段： Dim a(1 To 6) As Integer For i = 1 To 6    a(i) = i Next i s = 0: j = 1 For i = 1 To 6    s = s + a(i) * j    If i Mod 2 = 0 Then j = -j Next i Text1.Text = Str(s) 该程序段运行后，文本框Text1中显示的内容是（ ） A．-3 B．-1 C．5 D．7 3．有如下VB程序段： s = "1867234590" : n = Len(s) m = 1 For i = 1 To n       ch = Val(Mid(s, i, 1))       If ch Mod 2 <> 0 Then          m = m + ch       End If Next i Text1.Text = Str(m) 该程序段运行后，文本框Text1中显示的内容是（ ） A．25 B．5 C．26 D．15 4．下列VB程序段功能为：在文本框Text1中输入由一串字母和数字构成的字符，在文本框Text2显示字符串去重以后的结果，其中字母不区分大小写，即“a”和“A”判定为相同。例如：字符串“2021xuankao”，去重为“201xuanko”。 Dim c（0 To 35）As  Integer s=Text1.Text：res="" For i=1 To Len（s）    ch=Mid（s，i，1）    If ch>="0" And ch<="9" Then       k=Val（ch）+26    Else      ①___________      ②___________    End If   ③___________    If c（k）=1 Then res=res+ch Next i Text2.Text=res 上述程序段中方框处可选语句为： ①k=Asc（ch）-Asc（"a"）②k=Asc（ch）-Asc（"A"）③c（k）=c（k）+1④c（k）=1⑤If k<=0 Then k=k+32⑥If k>=32 Then k=k-32 则①②③处语句依次可为（　　） A．②⑥③ B．②⑥④ C．①⑤③ D．①⑤④ 5．有如下VB程序段：    则经过这段程序加工后，变量k的值是（　　） A．1 B．6 C．12 D．21 6．在VB中，下列程序段执行后，变量N的值是(    ) N=0 For I=1 To 10   If I Mod 2=0 Then N=N+1 Next I A．1 B．5 C．10 D．55 7．某VB程序的的代码如下： Private Sub Command1_Click() Dim s As Integer, i As Integer s = 0 For i = 1 To 100   s = s + i ^ 2 Next i Text1.Caption = s End Sub 运行程序，单击命令按钮Command1后弹出如图所示的出错信息提示，引起该错误的语句或原因是（  ） A．s值太大，因此不能在文本框Text1中输出 B．s=s+i^2 C．变量i的数据类型说明不当 D．Text1.Caption = s 8．某算法的部分程序代码与其对应的流程图如图所示，则代码中①和②处应填入的是（  ）    Private Sub Command1_Click() Dim i As Integer,s As long S=1 For ①      ② Next i Print S End Sub A．①i=1 to 11 ②s=s*i B．①i=1 to 11  ②s=s+i C．①i=1 to 11 step 3 ②s=s+i D．①i=1 to 11 step 3   ②s=s*i 9．下列 VB 程序段功能为：将数组a(1)到a(6)中所有的偶数升序排序，且奇数所在的位置保持不变的功能。例如，a(1)到a(6)的初始值为“5,8,2,7,4,1”，则排序后的值为“5,2,4,7,8,1”。 flag = True Do While flag     flag = False     j = -1     For i = 1 To n         If a(i) Mod 2 = 0 Then             If ①