1、1第四单元试卷(循环结构)班级 座号 姓名 得分 一、 选择题（共 27 小题，每题 2 分，共 54 分）1 有如下程序N=val ( INPUTBOX(“n=”)m=1：p=0 ：I = 1WHILE p20 (B) until n20 (C) while n=20 (D) until n=206若 s,n,i 均为整型变量,执行下列程序段后 s 的值为 1） , n 的值为 2） ,i 的值为 3）s=0 n=0For i=1 To 10 Step 3s= s+ in=n+1Next i1）(A) s=10 (B) s=22 (C) s=30 (D) s=552）(A) n=0 (B)
2、n=3 (C) n=4 (D) s=103）(A) i=0 (B) i=10 (C) i=11 (D) i=137若 i,n 均为整型变量,下列程序段的输出结果为（ ）n=0For i=1 To 10If i mod 2=1 Then n=n+13Next iPrint “n = “ ; n(A) n=l (B) n=5 (C) n=10 (D) n=508若 s,i 均为整型变量,执行下列程序段后 s 的值为( )s=0 i=1dos= s+ ii=i+1loop until i10(A) s=40 (B) s=45 (C) s=50 (D) s=559 有下列程序段:a=1for i=1
3、to 3select case icase 1,3a=a+1case 2,4a=a+2end selectnext i若变量均已说明,则运行后的 a 的值是（ ）(A) 6 (B) 5 (C) 4 (D) 310下列关于 do loop 循环执行循环体次数的描述正确的是（ ）(A) do while loop 循环和 do loop until 循环至少都执行一次(B) do while loop 循环和 do loop until 循环可能都不执行(C) do while loop 循环至少执行一次,do loop until 循环可能不执行(D) do while loop 循环可能不执行
4、,do loop until 循环至少执行一次11如果整型变量 a,b 的值分别为 3 和 1,则下列语句for i=a to bprint inext i中循环体的执行次数是 1） 下列语句for i=a to b step -2print inext i中循环体的执行次数是 2） 41） (A) 0 (B) l (C) 2 (D) 32） (A) 0 (B) l (C) 2 (D) 无数次12For Next 语句中循环变量的数据类型不能是（ ）(A) 整型 (B) 长整型 (C) 单精度型 (D) 字符串型13 列程序是用辗转相除法求正整数 a,b 的最大公约数,算法框图如下:请选出正确
5、的内容将程序补充完整Dim a As Integer, b As IntegerDim r As _1）_a = txtA.Textb = txtB.Textr = a Mod bDo While _2）_a = bb = rr = a _3）_ bLooplblResult.Caption = ”它们的最大公约数是：” If I * J 10 Then Form1.Print “ “;Next JForm1.Print 换行（7） End SubPrivate Sub Form_Load()Form1.WindowState = vbMaximizedEnd Sub5下列程序是计算并输出 1
6、 到 100 中所有偶数之和。请输入正确的内容将程序补充完整。程序如下：Private Sub Command1_Click()Dim a As Integer， i As Integeri = 0Do（8） a = a + iLoop While （9） Print aEnd Sub6下列程序是从文本框（Text1）中输入一个正数，计算并在窗体上输出它的因子。请输入正确的内容将程序补充完整。程序如下：Private Sub Command1_Click()读入某正数，计算并输出它的因子。a = （10） For i = 2 To aIf a Mod i = 0 Then （ 11） Next
7、 iEnd Sub97以下程序要使 DO 循环的循环体执行 4 次，请填空X = 1I = 0Do X = x + 2Loop until (12) 8以下程序运行后输出结果为 abcd ，请填空Dim s as string S = “”For I = 65 to 68S = s & (13) Next iPrint lcase(s)*函数 lcase(x) 是用于将大写字母转换成小写字母。三、编程（共 20 分）1求 1/2！+1/3！+ 的值，要求最后一项的值不能小于 10-4要求用 doloop while 来实现（8 分）2从键盘输入一个数，判断它是否为素数（6 分）要求用 do w
8、hileloop 来实现，输出结果为：“xx 是素数”或“xx 不是素数”3从键盘输入两个数 A 和 B ，求两个数的最大公约数。 （6 分）要求用 for 来实现。 10第四单元答题卡班级 座号 姓名 得分 一、选择题（共 27 小题，每题 2 分，共 54 分）1 2 3 4 51） 52） 53） 61） 62） 63） 7 8 9 10 111） 112） 12 131） 132） 133） 14 15 16 17 18 19 20 二、填空（共 13 小题，每空 2 分，共 26 分）（1） （2） （3） （4） （5） （6） （7） （8） （9） （10） （11） （12） （13） 三、编程（共 20 分） （请将第 3 题写在背面）1 （8 分） 2 （6 分）
