计算机二级VB历真题解析过程PPT课件

历年真题解析 一 2 下面关于过程参数的说法 错误的是 05春28 过程的形参不可以是定长字符串类型 形参是定长字符串的数组 则对应的实参必须是定长字符串型数组 且长度相同 若形参是按地址传递的参数 形参和实参也能以按值传递方式进行形实结合 按值传递参数 形参和实参的类型可以不同 只要相容即可 长度可以不同 3 执行下面的程序 单击按钮Command1 在窗体上显示的第一行是 第二行是 第三行是 05春填空2 OptionExplicitPrivateSubCommand1 Click DimxAsSingle iAsIntegerx 1 2Fori 1To3x x iPrintfun1 x NextiEndSubPrivateFunctionfun1 xAsSingle AsSingleStaticyAsSingley y xfun1 y 2EndFunction 0 6 1 8 5 4 4 3 执行下面的程序后 单击按钮Command1 则N的值是 A的值是 B的值是 05春填空3 OptionExplicitDimnAsIntegerPrivateSubCommand1 Click DimaAsInteger bAsIntegera 2 b 3Forn 1To6IfnMod2 0Thenb fun n a aElsea fun b n bEndIfNextnPrintn a bEndSubPrivateFunctionfun xAsInteger yAsInteger AsIntegerx y 1 ny x y nfun x yEndFunction 10 27 9 5 4 执行下面的程序 单击按钮Command1 窗体上显示的结果中I的值是 J的值是 K的值是 05春填空4 OptionExplicitPrivateSubCommand1 Click DimiAsInteger jAsIntegerDimkAsIntegeri 1 j 2k fun i fun i j i jPrint i i j j k kEndSubFunctionfun aAsInteger ByValbAsInteger AsIntegera a bb a bfun a bEndFunction 11 2 43 6 29 程序中有两个过程PrivateSubFun1 SAsString 和PrivateSubFun2 a AsString 6 在调用过程中用DimSt 6 AsString 6定义了一个字符串数组 下面调用语句中正确的是 05年秋29 CallFun1 St 3 CallFun2 St CallFun1 St CallFun2 St 6 A B C D 类型要匹配 7 3 运行下面的程序 当单击Command1时 窗体上显示的第一行内容是 第三行内容是 第四行内容是 05年秋填空题3 PrivateSubCommand1 Click PrintTest 3 EndSubPrivateFunctionTest tAsInteger AsIntegerDimiAsIntegerIft 1ThenCallTest t 1 Fori 3TotStep 1PrintChr Asc A i NextiPrintEndIfTest tEndFunction DCB D 3 8 4 运行下面的程序 当单击窗体时 窗体上显示的第一行内容是 第三行内容是 第四行内容是 05年秋填空题4 DimxAsInteger yAsIntegerPrivateSubForm Click DimaAsInteger bAsIntegera 5 b 3Callsub1 a b Printa bPrintx yEndSubPrivateSubsub1 ByValmAsInteger nAsInteger DimyAsIntegerx m n y m nm fun1 x y n fun1 y x EndSubPrivateFunctionfun1 aAsInteger bAsInteger AsIntegerx a b y a bPrintx yfun1 x yEndFunction 108 52 12 10 9 23 下面Sub子过程的各个语句中 正确的是 06年春23 PrivateSubSub1 A Asstring PrivateSubSub1 A 1to10 Asstring 8 PrivateSubSub1 SAsstring PrivateSubSub1 sAsstring 8 AabcdBabcCacdDac 除非是形参数组 否则形参不可以是定长字符串类型 10 29 以下有关过程的说法中 错误的是 06年秋29 A 在Sub或Function过程中不能再定义其他Sub或Function过程B 调用过程时 形参为数组的参数对应的实参既可以是固定大小数组也可以是动态数组C 过程的形式参数不能再在过程中用Dim语句进行说明D 使用ByRef说明的形式参数值形实结合时 总是按地址传递方式进行结合的 11 23 下列定义Sub过程的语句中 正确的是 07年春23 A PrivateSubSub1 A B PrivateSubSub1 Aasstring 5 C Privatesubsub1 ByVala asinteger D Privatesubsub1 a 10 asinteger 12 27 下面关于对象作用域的说法中 正确的是 07年春27 A 在窗体模块中定义的全局过程 在整个程序中都可以调用它B 分配给已打开文件的文件号 仅在打开该文件的过程范围内有效C 过程运行结束后 过程的静态变量的值仍然保留 所以静态变量作用域是整个模块D 在标准模块中定义的全局变量的作用域比在窗体模块中定义的全局变量的作用域大 13 27 以下对数组参数的说明中 错误的是 07年秋27 A 在过程中可以用Dim语句对形参数组进行声明B 形参数组只能按地址传递C 实参为动态数组时 可用ReDim语句改变对应形参数组的维界D 只需把要传递的数组名作为实参 即可调用过程 过程的形式参数不能再在过程中用Dim语句进行说明 14 3 执行下面程序 单击命令按钮Command1后 显示在窗体上第一行的内容是 第二行的内容是 最后一行的内容是 06年春填空3 OptionExplicitDimNAsIntegerPrivateSubCommand1 Click DimIAsInteger JAsIntegerForI 3To1Step 2N Fun I N PrintNNextIEndSubPrivateFunctionFun AAsInteger BAsInteger AsIntegerStaticXAsIntegerDimSumAsInteger IAsIntegerX X NForI 1ToAB B X IN N I 2Sum Sum BNextIA A 1Fun Sum AEndFunction 11 61 136 15 4 执行下面程序 单击命令按钮Command1后 显示在窗体上第一行的内容是 A 2 1 的值是 A 3 3 的值是 06年春填空4 OptionBase1PrivateSubCommand1 Click DimA 3 3 AsInteger KAsIntegerDimIAsInteger JAsIntegerCallSUB1 A ForI 1To3ForJ 1To3PrintRight 0 NextJPrintNextIEndSub PrivateSubSUB1 A AsInteger DimNAsInteger KAsInteger JAsIntegerN UBound A 1 ForI 1ToN 2ForJ IToN IA I J K 1A J N 1 I K 2A N 1 I N 1 J K 3A N 1 J I K 4K K 4NextJNextIIfNMod20ThenA N 1 2 N 1 2 K 1EndIfEndSub 010502 8 3 16 5 执行下面程序 单击命令按钮Command1后 显示在窗体上第一行的内容是 第二行的内容是 第三行的内容是 06年春填空5 OptionExplicitPrivateSubCommand1 Click DimNAsInteger MAsIntegerN 2DOWhilem 3N N 2IfFun N ThenPrintNM M 1EndIfLoopEndSubPrivateFunctionFun ByValNAsInteger AsBooleanIfN 2 Int N 2 ThenFun Fun N 2 ElseIfN 1ThenFun TrueEndIfEndFunction 4 8 16 17 执行下面程序 单击Command1按钮 多行文本框Text1中显示的第一行是 第三行是 06年秋填空1 OptionExplicitPrivateSubCommand1 Click DimstAsString nAsInteger astAsStringSt Basic n Len st Doast change st n Text1 Text1 ast vbCrlfn n 1LoopUntiln 1EndSubPrivateFunctionchange stAsString nAsInteger AsStringStaticpAsIntegerp p 1change Right st n 1 Left st p EndFunction asicB icBas 18 3 执行下面的程序 单击Command1按钮 窗体上显示的第一行是 第二行是 第三行是 06年秋填空3 OptionExplicitPrivateSubCommand1 Click DimIAsInteger nAsIntegerForI 5To15Step2n fun1 I I PrintnNextIPrintIEndSubPrivateFunctionfun1 ByValaAsInteger bAsInteger b a bfun1 a bEndFunction 15 36 26 19 4 执行下面的程序 在文本框Text1中输入数据15768后单击Command1按钮 窗体上显示的第一行是 第二行是 第三行是 06年秋填空4 OptionExplicitPrivateFunctionpf xAsInteger AsIntegerIfx 100Thenpf xMod10Elsepf pf x 100 10 xMod10PrintpfEndIfEndFunctionPrivateSubCommand1 click DimxAsIntegerx Text1Printpf x EndSub 17 178 178 20 2 执行下面的程序 当单击Command1时 窗体上显示的内容的第二行是 第三行是 第四行是 07年春填空2 OptionExplicitPrivateSubCommand1 Click DimaAsInteger bAsInteger zAsIntegera 1 b 1 z 1Callp1 a b Printa b zCallp1 b a Printa b zEndSubSubp1 xAsInteger ByValyAsInteger StaticzAsIntegerx x zy x zz x yPrintx y zEndSub 111 314 131 21 4 执行下面程序 单击Command1按钮后 变量fir值是 变量sec值是 变量thir值是 07年春填空4 PrivateSubCommand1 Click DimfirAsInteger secAsInteger thirAsIntegerfir 96sec 421thir 3857Calllook for fir sec thir Printfir sec thirEndSubSublook for fAsInteger sAsInteger tAsInteger DimtemAsStringIf1 f stThentem Left CStr f 1 f Right CStr f 1 Left CStr s 1 s Right CStr s 2 Left CStr t 1 t Right CStr t 3 temCalllook for f s t EndIfEndSub 42 138 5796 22 OptionExplicitDimaAsIntegerPrivateSubCommand1 Click DimbAsIntegera 1b 2Printfun1 fun1 a b b PrintaPrintbEndSubFunctionfun1 xAsInteger yAsInteger AsIntegerDimiAsIntegerFori 1Toyy y 1x x 1a x yNextifun1 a yEndFunction 5 执行下面程序 单击command1按钮后 显示在窗体上的第一行内容是 第二行内容是 第三行内容是 07年春填空5 34 26 8 23 OptionExplicitDimxAsIntegerPrivateSubCommand1 Click DimyAsIntegerx 10 y 2Callprocess y Printx yCallprocess y Printx yEndSub 3 执行下面的程序 单击命令按钮Command1 则窗体上第一行显示的是 第二行显示的是 07年秋填空3 PrivateSubprocess nAsInteger DimyAsIntegerIfn 0Thenx x ny xElsex x ny x 2EndIfn nEndSub 江苏省计算机等级考试二级VB 8 2 6 2 24 5 执行下面的程序 单击Command1 在窗体界面上显示的第一行是 第二行是 第三行是 第四行是 07年秋填空5 OptionExplicitPrivateSubCommand1 Click DimaAsInteger bAsInteger iAsIntegeri 1218a i 100b iMod100Ifb0ThenPrintaPrintbPrintlcd a b a bPrintlcd a b a bEndIfEndSub PrivateFunctionlcd xAsInteger yAsInteger AsIntegerDimdAsIntegerIfx yThend x x y y dEndIfd xDoIfxMody 0Thenlcd xExitDoElsex x dEndIfLoopEndFunction 江苏省计算机等级考试二级VB 12 18 361218 363612 25 3 运行下面的程序 单击Command1 在窗体上显示的变量b的值为 7 变量c的值为 8 变量z的值为 9 08春 OptionExplicitPrivateSubCommand1 Click DimbAsInteger cAsInteger zAsIntegerb 2c 1z fun b fun b 1 c b c 1Printb c zEndSubPrivateFunctionfun xAsInteger ByValyAsInteger AsIntegerx x yy x y 2fun y xEndFunction 26 4 执行下面的程序 单击Command1 输出的变量i的值是 10 变量j的值是 11 变量k的值是 12 08春 OptionExplicitPrivateSubCommand1 Click DimiAsInteger jAsIntegerDimkAsIntegeri 10j 4k Funk i j Printi j kEndSubPrivateFunctionFunk ByValAAsInteger BAsInteger AsIntegerA A BB B 2IfB 0OrB 1ThenFunk 1ElseFunk A Funk A B EndIfEndFunction 27 5 运行下列程序 单击Command1 在窗体上显示的第一行内容是 13 第二行的内容是 14 第三行的内容是 15 08春 OptionExplicitPrivateSubCommand1 Click DimnAsInteger iAsIntegern 2Fori 7To1Step 1Callsub2 i n Printi nNextiEndSubPrivateSubsub2 xAsInteger yAsInteger StaticnAsIntegerDimiAsIntegerFori 2To1Step 1n n xx x 1Nextiy y nEndSub 28 2 执行下面程序 单击Command1 窗体上显示的第一行是 4 第二行是 5 第四行是 6 08秋 OptionExplicitPrivateSubCommand1 Click DimaAsInteger bAsInteger iAsIntegera 2 b 5Fori aToa bStepaCallsub1 i a b Printa bNextiPrinta b iEndSubPrivateSubsub1 iAsInteger aAsInteger bAsInteger i i 1a a 1b b 1EndSub 29 3 运行下面的程序 单击Command1 在窗体上显示的变