第五章章节测试

1、假定有如下的Sub过程：Subfun（xAsSingle，yAsSingle）t=xx=t/yy=tModyEndSub在窗体上画一个命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click（）DimaAsSingleDimbAsSinglea=6b=4funa，bPrinta，bEndSub程序运行后，单击命令按钮，输出结果为（）。

A、54

B、11

C、1.254

D、1.52

正确答案：1.52

2、假定有以下函数过程：FunctionFun（sAsString）AsStringDims1AsStringFori=1ToLen（s）s1=UCase（Mid（s，i，1））+s1NextiFun=s1EndFunction在窗体上添加一个命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click（）DimStr1AsStringDimStr2AsStringStr1=InputBox（“请输入一个字符串”）Str2=Fun（Str1）PrintStr2EndSub程序运行后，单击命令按钮，如果在输入对话框中输入字符串“abcdefg”，则单击“确定”按钮后再窗体上输出的结果为（）。

A、Abcdefg

B、ABCDEFG

C、gfedcba

D、GFEDCBA

正确答案：第一空：18

3、有如下函数过程：Functionsecproc（xAsInteger，yAsInteger，zAsInteger）secproc=3y+z+2xEndFunctionPrivateSubCommand1_Click（）DimaAsInteger，bAsInteger，cAsIntegera=2：b=3：c=4Printsecproc（c，b，a）EndSub该程序的运行结果是（）。

A、17

B、18

C、19

D、20

正确答案：19

4、有如下函数过程：FunctionCys（ByValxAsInteger，ByValyAsInteger）AsIntegerDimquotientsDoWhiley<>0quotients=x/yx=yy=quotientsLoopCys=xEndFunction以下是调用该函数的事件过程，该程序的运行结果是（）。PrivateSubCommand1_Click（）DimaAsIntegerDimbAsIntegera=10b=2x=Cys（a，b）PrintxEndSub

A、0

B、25

C、5

D、100

正确答案：5

5、以下是一个能返回数组a中最大数的函数过程代码：Functionmaxval（a（）AsInteger）AsIntegerDimmax%max=1Fori=2To10Ifa（i）>a（max）Thenmax=iNextimaxval=maxEndFunctionPrivateSubCommand1_Click（）Dimx（1To10）AsIntegerFori=1To10x（i）=Int（Rnd（）100）Printx（i）;NextiPrintPrintmaxval（x（））EndSub程序运行时，发现函数过程的返回值是错的需要修改，下面的修改方案中正确的是（）。

A、语句“max=1”应改为“max=a（1）”

B、语句“Fori=2To10”应改为“Fori=1To10”

C、If语句“max=i”应改为“max=a（i）”

D、语句“maxval=max”应改为“maxval=a（max）”

正确答案：D

6、在窗体上画一个命令按钮（名称为Command1），并编写如下代码：FunctionFun1（ByValaAsInteger，bAsInteger）AsIntegerDimtAsIntegert=a–bb=t+aFun1=t+bEndFunctionPrivateSubCommand1_Click（）DimxAsIntegerx=10PrintFun1（Fun1（x，（Fun1（x，x–1））），x–1）EndSub程序运行后，单击命令按钮，输出结果是（）。

A、10

B、0

C、11

D、21

正确答案：B

7、下面程序的运行结果为（）。Dima%，b%，c%Subp1（x%，y%）DimcAsIntegerx=2x：y=y+2：c=x+yEndSubSubp2（x%，ByValy%）DimcAsIntegerx=2*x：y=y+2：c=x+yEndSubPrivateSubCommand1_Click（）a=2：b=4：c=6Callp1（a，b）Callp2（a，b）Printa;b;cEndSub

A、466

B、866

C、4610

D、886

正确答案：866

8、下面程序：Functiona（x）StaticbAsIntegerb=b+x^2PrintbEndFunctionPrivateSubCommand1_Click（）Dimc%c=a（2）EndSub单击两次命令按钮，第二次显示的结果是（）。

A、2

B、4

C、6

D、8

正确答案：8

9、下列叙述中正确的是（）。

A、在窗体的Form_Load事件中定义的变量是全局变量

B、局部变量的作用域可以超出所定义的过程

C、在某个Sub过程中定义的局部变量可以与其他事件过程中定义的局部变量同名，但其作用域只限于该过程

D、在调用过程时，所有局部变量被系统初始化为0或空字符串

正确答案：二进制正数的反码、补码和原码一致

10、若已编写了一个Sort子过程，在该工程中有多个窗体，为了方便地调用Sort子过程，应将该过程放在（）中。

A、窗体模块

B、标准模块

C、类模块

D、工程

正确答案：标准模块