歷年真題解析一

1、歷歷年年真題真題解析（一）解析（一）2下面關(guān)于過(guò)程參數(shù)的說(shuō)法，錯(cuò)誤的是 _ 。 （05春28）過(guò)程的形參不可以是定長(zhǎng)字符串類(lèi)型形參是定長(zhǎng)字符串的數(shù)組，則對(duì)應(yīng)的實(shí)參必須是定長(zhǎng)字符串型數(shù)組，且長(zhǎng)度相同若形參是按地址傳遞的參數(shù)，形參和實(shí)參也能以按值傳遞方式進(jìn)行形實(shí)結(jié)合按值傳遞參數(shù)，形參和實(shí)參的類(lèi)型可以不同，只要相容即可 長(zhǎng)長(zhǎng)度可以不同度可以不同3執(zhí)行下面的程序，單擊按鈕執(zhí)行下面的程序，單擊按鈕 command1 ，在，在窗體上顯示的第一行是窗體上顯示的第一行是 _ ，第二行是，第二行是 _ ，第三行是第三行是 _ 。 （05春填空春填空2）option explicitprivate sub com

2、mand1_click() dim x as single, i as integer x = 1.2 for i = 1 to 3 x = x * i print fun1(x) next iend subprivate function fun1(x as single) as single static y as single y = y + x fun1 = y / 2end function0.6 1.8 5.4410 27 9 54.執(zhí)行下面的程序，單擊按鈕執(zhí)行下面的程序，單擊按鈕 command1 ，窗體上顯示的結(jié)，窗體上顯示的結(jié)果中果中 i 的值是的值是 _ ， j 的值是的值

3、是 _， k 的值是的值是 _。（05春填空春填空4）option explicitprivate sub command1_click() dim i as integer, j as integer dim k as integer i = 1: j = 2 k = fun(i, fun(i, j) + i + j print i=; i; j=; j; k=; kend subfunction fun(a as integer, byval b as integer) as integer a = a + b b = a + b fun = a + bend function11 243

4、629程序中有兩個(gè)過(guò)程private sub fun1(s as string)和private sub fun2(a() as string*6)，在調(diào)用過(guò)程中用dim st(6) as string*6定義了一個(gè)字符串?dāng)?shù)組。下面調(diào)用語(yǔ)句中正確的是。（05年秋29） call fun1(st(3) call fun2(st) call fun1(st) call fun2(st(6) ) a b c d類(lèi)類(lèi)型要匹配型要匹配73運(yùn)行下面的程序，當(dāng)運(yùn)行下面的程序，當(dāng)單擊單擊command1時(shí)時(shí)，窗體上，窗體上顯顯示的第示的第一行內(nèi)容是一行內(nèi)容是_，第三行內(nèi)容是，第三行內(nèi)容是_，第四行內(nèi)容是，第四

5、行內(nèi)容是_。 。（ （05年秋填空年秋填空題題3） ） private sub command1_click() print test(3)end subprivate function test(t as integer) as integer dim i as integer if t = 1 then call test(t - 1) for i = 3 to t step -1 print chr(asc(a) + i); next i print end if test = tend functiondcb d 3 84運(yùn)行下面的程序，當(dāng)運(yùn)行下面的程序，當(dāng)單擊單擊窗體窗體時(shí)時(shí)，窗體上

6、，窗體上顯顯示的第一行內(nèi)容是示的第一行內(nèi)容是_，第，第三行內(nèi)容是三行內(nèi)容是_，第四行內(nèi)容是，第四行內(nèi)容是_。（。（05年秋填空年秋填空題題4） ）dim x as integer, y as integerprivate sub form_click() dim a as integer, b as integer a = 5: b = 3 call sub1(a, b) print a, b print x, yend subprivate sub sub1(byval m as integer, n as integer) dim y as integer x = m + n: y = m

7、 - n m = fun1(x, y) n = fun1(y, x)end subprivate function fun1(a as integer, b as integer) as integer x = a + b: y = a - b print x, y fun1 = x + yend function10 8 5 2 12 -10 923.下面sub子過(guò)程的各個(gè)語(yǔ)句中，正確的是_（06年春23）a.private sub sub1(a() as string)b.private sub sub1(a(1 to 10) as string*8)c.private sub sub1(

8、s as string)d.private sub sub1(s as string*8)a abcd b abc c acd d ac除非是形參數(shù)除非是形參數(shù)組組，否，否則則形參不可以是定形參不可以是定長(zhǎng)長(zhǎng)字符串字符串類(lèi)類(lèi)型型1029.以下有關(guān)過(guò)程的說(shuō)法中，錯(cuò)誤的是以下有關(guān)過(guò)程的說(shuō)法中，錯(cuò)誤的是_（06年秋年秋29）a.在在sub或或function過(guò)程中不能再定義其他過(guò)程中不能再定義其他sub或或function過(guò)程過(guò)程b.調(diào)用過(guò)程時(shí)，形參為數(shù)組的參數(shù)對(duì)應(yīng)的實(shí)參調(diào)用過(guò)程時(shí)，形參為數(shù)組的參數(shù)對(duì)應(yīng)的實(shí)參既可以是固定大小數(shù)組也可以是動(dòng)態(tài)數(shù)組既可以是固定大小數(shù)組也可以是動(dòng)態(tài)數(shù)組c.過(guò)程的形式參數(shù)不

9、能再在過(guò)程中用過(guò)程的形式參數(shù)不能再在過(guò)程中用dim語(yǔ)句語(yǔ)句進(jìn)行說(shuō)明進(jìn)行說(shuō)明d.使用使用byref說(shuō)明的形式參數(shù)值形實(shí)結(jié)合時(shí)，說(shuō)明的形式參數(shù)值形實(shí)結(jié)合時(shí)，總是按地址傳遞方式進(jìn)行結(jié)合的總是按地址傳遞方式進(jìn)行結(jié)合的1123.下列定義sub過(guò)程的語(yǔ)句中,正確的是 . (07年春23)a. private sub sub1(a()b. private sub sub1(a as string *5)c. private sub sub1(byval a() as integer)d. private sub sub1(a(10) as integer)1227.下面關(guān)于對(duì)象作用域的說(shuō)法中，正確的是 _

10、(07年春27)a.在窗體模塊中定義的全局過(guò)程，在整個(gè)程序中都可以調(diào)用它b.分配給已打開(kāi)文件的文件號(hào)，僅在打開(kāi)該文件的過(guò)程范圍內(nèi)有效c. 過(guò)程運(yùn)行結(jié)束后，過(guò)程的靜態(tài)變量的值仍然保留，所以靜態(tài)變量作用域是整個(gè)模塊d.在標(biāo)準(zhǔn)模塊中定義的全局變量的作用域比在窗體模塊中定義的全局變量的作用域大1327、以下對(duì)數(shù)組參數(shù)的說(shuō)明中，錯(cuò)誤的是 。(07年秋27)a在過(guò)程中可以用dim語(yǔ)句對(duì)形參數(shù)組進(jìn)行聲明b形參數(shù)組只能按地址傳遞c實(shí)參為動(dòng)態(tài)數(shù)組時(shí)，可用redim語(yǔ)句改變對(duì)應(yīng)形參數(shù)組的維界d只需把要傳遞的數(shù)組名作為實(shí)參，即可調(diào)用過(guò)程過(guò)程的形式參數(shù)不能再在過(guò)程中用過(guò)程的形式參數(shù)不能再在過(guò)程中用dim語(yǔ)句進(jìn)行說(shuō)明語(yǔ)

11、句進(jìn)行說(shuō)明143.執(zhí)執(zhí)行下面程序，行下面程序，單擊單擊命令按命令按鈕鈕command1后，后，顯顯示在窗體上第一行的內(nèi)容是示在窗體上第一行的內(nèi)容是_ ，第二行，第二行的內(nèi)容是的內(nèi)容是_，最后一行的內(nèi)容是，最后一行的內(nèi)容是 _ （ （06年春填空年春填空3） ）option explicitdim n as integerprivate sub command1_click() dim i as integer, j as integer for i = 3 to 1 step -2 n = fun(i, n) print n next iend subprivate function fun(

12、a as integer, b as integer) as integer static x as integer dim sum as integer, i as integer x = x + n for i = 1 to a b = b + x + i n = n - i 2 sum = sum + b next i a = a + 1 fun = sum + aend function11 61 136 154.執(zhí)執(zhí)行下面程序，行下面程序，單擊單擊命令按命令按鈕鈕command1后，后，顯顯示在窗體上第一行的內(nèi)容是示在窗體上第一行的內(nèi)容是 _ ， ，a(2,1)的的值值是是_ ， ，

13、a(3,3)的的值值是是_（ （06年春填空年春填空4） ）option base 1private sub command1_click() dim a(3, 3) as integer, k as integer dim i as integer, j as integer call sub1(a) for i = 1 to 3 for j = 1 to 3 print right(0 & a(i, j) & , 3); next j print next iend subprivate sub sub1(a() as integer) dim n as integer,

14、k as integer, j as integer n = ubound(a, 1) for i = 1 to n - 2 for j = i to n - i a(i, j) = k + 1 a(j, n + 1 - i) = k + 2 a(n + 1 - i, n + 1 - j) = k + 3 a(n + 1 - j, i) = k + 4 k = k + 4 next j next i if n mod 2 0 then a(n + 1) / 2, (n + 1) / 2) = k + 1 end ifend sub01 05 02 8 3 165.執(zhí)執(zhí)行下面程序，行下面程序，單

15、擊單擊命令按命令按鈕鈕command1后，后，顯顯示在窗體上第一行的內(nèi)示在窗體上第一行的內(nèi)容是容是_ ， ， 第二行的內(nèi)容是第二行的內(nèi)容是_ ，第三行的內(nèi)容是，第三行的內(nèi)容是_. （ （06年春填空年春填空5） ）option explicitprivate sub command1_click() dim n as integer, m as integer n=2 do while m3 n=n+2 if fun(n) then print n m=m+1 end if loopend subprivate function fun(byval n as integer) as boole

16、an if n/2=int(n/2)then fun=fun(n/2) else if n=1 then fun=true end ifend function4 8 16171. 執(zhí)執(zhí)行下面程序，行下面程序，單擊單擊command1按按鈕鈕，多行文本框，多行文本框text1中中顯顯示的第一示的第一行是行是_、第三行是、第三行是_（ （06年秋填空年秋填空1） ）option explicitprivate sub command1_click()dim st as string, n as integer, ast as stringst=”basic”n=len(st)do ast = c

17、hange (st, n) text1=text1 & ast & vbcrlf n=n-1loop until n=1end subprivate function change(st as string ,n as integer) as string static p as integer p=p+1 change=right(st,n-1) & left(st,p)end functionasicbicbas 183.執(zhí)執(zhí)行下面的程序，行下面的程序，單擊單擊command1按按鈕鈕，窗體上，窗體上顯顯示的第一示的第一行是行是_、第二行是、第二行是_、第三行是、第

18、三行是_（ （06年秋填空年秋填空3） ）option explicitprivate sub command1_click() dim i as integer, n as integer for i = 5 to 15 step 2 n = fun1(i, i) print n next i print iend subprivate function fun1(byval a as integer, b as integer) b = a + b fun1 = a + bend function153626 194.執(zhí)執(zhí)行下面的程序，在文本框行下面的程序，在文本框text1中中輸輸入數(shù)據(jù)

19、入數(shù)據(jù)15768后后單擊單擊command1按按鈕鈕，窗體上，窗體上顯顯示的第一行是示的第一行是_、第二行、第二行是是_、第三行是、第三行是_。（。（06年秋填空年秋填空4） ）option explicitprivate function pf(x as integer) as integer if x 100 then pf = x mod 10 else pf = pf(x 100) * 10 + x mod 10 print pf end ifend functionprivate sub command1_click() dim x as integer x = text1 prin

20、t pf(x)end sub17 178178202、 、執(zhí)執(zhí)行下面的程序，當(dāng)行下面的程序，當(dāng)單擊單擊command1時(shí)時(shí)，窗體上，窗體上顯顯示的示的內(nèi)容的第二行是內(nèi)容的第二行是 、第三行是、第三行是 ，第四行是，第四行是 。 。(07年春填空年春填空2)option explicitprivate sub command1_click() dim a as integer, b as integer, z as integer a = 1: b = 1: z = 1 call p1(a, b) print a, b, z call p1(b, a) print a, b, zend subs

21、ub p1(x as integer, byval y as integer) static z as integer x = x + z y = x - z z = x + y print x, y, zend sub1 1 1 3 1 4 1 3 1 214、 、執(zhí)執(zhí)行下面程序，行下面程序，單擊單擊command1按按鈕鈕后，后，變變量量fir值值是是 ,變變量量sec值值是是 ， ，變變量量thir值值是是 . (07年春填空年春填空4)private sub command1_click() dim fir as integer, sec as integer, thir as int

22、eger fir = 96 sec = 421 thir = 3857 call look_for(fir, sec, thir) print fir; sec; thirend subsub look_for(f as integer, s as integer, t as integer) dim tem as string if 1# * f * s t then tem = left(cstr(f), 1) f = right(cstr(f), 1) & left(cstr(s), 1) s = right(cstr(s), 2) & left(cstr(t), 1)

23、t = right(cstr(t), 3) & tem call look_for(f, s, t) end ifend sub42 138 5796 22option explicitdim a as integerprivate sub command1_click() dim b as integer a = 1 b = 2 print fun1(fun1(a, b), b) print a print bend subfunction fun1(x as integer, y as integer) as integer dim i as integer for i = 1 t

24、o y y = y + 1 x = x + 1 a = x + y next i fun1 = a + yend function5、 、執(zhí)執(zhí)行下面程序，行下面程序，單擊單擊command1按按鈕鈕后，后，顯顯示在窗體上的第一行內(nèi)容示在窗體上的第一行內(nèi)容是是 、第二行內(nèi)容是、第二行內(nèi)容是 、第三行內(nèi)容是、第三行內(nèi)容是 。 。(07年春填空年春填空5)34 26 8 23option explicitdim x as integerprivate sub command1_click() dim y as integer x = 10: y = 2 call process(y) print x

25、, y call process(y) print x, yend sub3. 執(zhí)執(zhí)行下面的程序，行下面的程序，單擊單擊命令按命令按鈕鈕command1， ，則則窗體上第一行窗體上第一行顯顯示的是示的是_，第二行，第二行顯顯示的是示的是_。 。(07年秋填年秋填空空3)private sub process(n as integer) dim y as integer if n 0 then x = x - n y = x else x = x + n y = x + 2 end if n = -nend sub8 -26 -2245.執(zhí)執(zhí)行下面的程序，行下面的程序，單擊單擊command1，在窗體界面上，在窗體界面上