Visual Basic 程序设计试卷6.doc

QQ:401999419全 国 计 算 机 等 级 考 试 二 级 笔 试 试 卷Visual Basic 语 言 程 序 设 计 ()一、单项选择题（每小题2分，共70分）1. 以下程序执行后结果是s = 0For i = 1 To 3 For j = 1 To 2 s = s + i * j Next jNext iPrint sA、18B、15C、10D、62. 以下程序执行后结果是For i = 1 To 100 For j = 1 To 2 s = s + j Next jNext iPrint sA、300B、200C、100D、33. 以下程序执行后结果是For i = 1 To 100 s = 0 For j = 1 To 2 s = s + j Next jNext iPrint sA、300B、200C、100D、34. 以下程序执行后结果是For i = 1 To 5 For j = 1 To 4 m = m + 1 Next jNext iPrint mA、4B、5C、9D、205. 以下程序执行后结果是For i = 1 To 10 For j = 1 To 3 m = m + j Next j If m = 10 Then Exit ForNext iPrint mA、12B、10C、30D、366. 以下程序执行后结果是For i = 1 To 3 For j = 1 To 10 m = m + j If m = 5 Then Exit For Next jNext iPrint mA、12B、10C、30D、87. 以下程序执行后结果是For i = 1 To 2 m = m + 2 For j = 1 To 3 m = m - 1 Next jNext iPrint mA、2B、-2C、5D、68. 以下程序段在窗体上打印如下形式的星号，横线的语句为For i = 1 To 5 For j = 1 To Print *; Next j PrintNext iA、2*iB、iC、2*i-1D、6-i9. 以下程序段的功能是打印如下形状的数字金字塔（共九行），横线的语句为For i = 1 To 9 Print Tab(29 - 3 * i); For j = 1 To 2 * i - 1 Print ; Next j PrintNext iA、i - Abs(i - j)B、Abs(i - j)C、i - jD、i + j10. 以下程序执行后结果是For i = 1 To 2 For j = 1 To 4 If j Mod 2 0 Then a = a + 1 a = a + 1 Next jNext iPrint aA、10B、12C、20D、2411. 以下程序的功能是 （2004年4月试题）For i = 2 To 100 For j = 2 To i - 1 If i Mod j = 0 Then Exit For Next j If j = i Then Print i;Next iA、求100以内的奇数B、求100以内的偶数C、求100内的素数D、求100以内能被j整除的数12. 以下程序执行后结果是For i = 1 To 4 x = 4 For j = 1 To 3 x = 3 For k = 1 To 2 x = x + 2 Next k Next jNext iPrint xA、7B、8C、9D、1513. 以下程序执行后结果是For i = 1 To 3 For j = 1 To i For k = j To 3 a = a + 1 Next k Next jNext iPrint aA、3B、9C、14D、2114. 以下程序段执行后，依次在输入对话框中输入1、2、3、4、5、-1，则输出的结果为Do Until x% = -1 a% = InputBox(a=) b% = InputBox(b=) x% = InputBox(x=) a = a + b + xLoopPrint aA、15B、8C、5D、-115. 以下程序执行后结果是x = 1Do While x 10 x = x * (x + 2) n = n + 1LoopPrint n; xA、2 15B、3 18C、1 5D、4 2016. 以下程序执行后结果是a = 3: b = 4: i = 1Do If i Mod 3 = 0 And i Mod b = 0 Then Exit Do i = i + 1LoopPrint iA、7B、8C、12D、1617. 以下程序执行后结果是m = 36: n = 24Do While n 0 r = m Mod n m = n n = rLoopPrint mA、24B、36C、60D、1218. 以下程序执行后结果是i = -1Do While i 0 i = i + 1LoopPrint ij = -1Do j = j + 1Loop While j 0Print jA、0 -1B、1 -1C、-1 0D、0 119. 以下程序执行后结果是Do i = i + 1 s = s * iLoopPrint i; sA、0 1B、1 0C、1 1D、死循环20. 以下程序执行后结果是i = 1: t = 1Do While i = 10 Then Exit DoLoopPrint xA、10B、14C、15D、1823. 以下While循环体执行的总次数为Do While i = 10 Then i = i - 2 Else i = i + 1 i = i * iLoopA、2次B、3次C、4次D、5次24. 以下程序执行后结果是j = 1Do Until n 2 n = n + 1 j = j + n * (n + 1)LoopPrint n; jA、0 1B、3 7C、3 21D、3 1325. 以下程序执行后结果是A = 0: B = 1Do A = A + B B = B + 1Loop While A 10Print A; BA、10 5B、5 10C、5 15D、10 3026. 以下程序执行后结果是f1 = 1: f2 = 1Do While f2 = 20 f1 = f1 + f2 f2 = f2 + f1LoopPrint f2A、21B、13C、8D、2027. 以下程序执行后结果是For i = 1 To 3 For j = 1 To i x = x + 1 Next jNext iPrint xA、3B、4C、5D、628. 以下程序执行后结果是 （2003年9月试题）a = 8: s = 1Do s = s + a a = a - 1Loop While a = 10 Then Exit DoLoop While i = 10Print t + iA、10B、15C、18D、2031. 以下程序执行后结果是For i = 1 To 3 For j = 1 To 4 s = s + 1 Next jNext iPrint i + jA、7B、9C、12D、1532. 以下程序执行后结果是For i = 1 To 3 For j = 1 To i Print Chr(64 + i); Next jNext iA、ABBCCCB、ABCC、AAABBCD、CBA33. 以下程序执行后结果是For i = 1 To 17 Step 2 For j = 2 To 6 Step 2 If i Mod j 0 Then s = s + j Next jNext iPrint sA、100B、108C、300D、40034. 以下程序执行后结果是For i = 1 To 4 If x 12 Then Exit For For j = 1 To 3 For k = 1 To 2 x = x + 3 Next k Next jNext iPrint xA、6B、12C、18D、2135. 以下程序执行后结果是For i = 1 To 10 A = A + 1: B = 0 For j = 1 To 10 A = A + 1: B = B + 2 Next jNext iPrint A; BA、10 20B、20 110C、110 20D、200 110二、填空题（每空2分，共30分）1. 以下程序段的功能是打印如下形状的字母For i = 1 To 5 Print Tab( 【 1 】 ); For j = 1 To 2 * i - 1 Print Chr( 【 2 】 ); Next j PrintNext i2. 以下程序的功能是打印九九乘法表For i = 1 To 9 For j = 1 To i Print i; x; j; =; i * j; Next j 【 3 】Next i3. 以下程序的功能是求1000以内的完数。完数是指一个数的因子之和等于它自身。例如6=1+2+3 28=1+2+4+7+14 则6和28都是完数For i = 1 To 1000 【 4 】 For j = 1 To i - 1 If i Mod j = 0 Then s = s + j Next j If 【 5 】 Then Print iNext i4. 以下程序的功能是：从键盘上输入若干个数，求其中的最大数和最小数，当输入负数时结束输入。x% = InputBox(Enter a integer)Max = x: Min = xDo While 【 6 】 If x Max Then Max = x If 【 7 】 Then Min = x x% = InputBox(Enter a integer)LoopPrint Max=; Max; Min=; Min5. 以下程序执行后结果是【 8 】For i = 1 To 2 For j = i To 3 Print Chr(64 + j); Next jNext i6. 以下程序执行后结果是【 9 】For i = 1 To 3 For j = i To 3 a = a + i Next jNext iPrint a7. 以下程序执行后结果是【 10 】For i = 1 To 5 m = m + 1 For j = 1 To 5 m = m + 1 Next jNext iPrint m8. 以下程序执行后结果是【 11 】While k 10 If i Mod 3 = 0 Then s = s + i i = i - 2 End If i = i + 4LoopPrint s11.