第六章习题1.符号常量在某一过程中说明则该只能有效

6一填空题 在VB中，过程定义中有两种传递形式的参数：一种是 每一个用标识符定义的变量、常量、过程都有一个可范围，这个范围称为标识符 设已定义子过程p，有3个数值型传值参数；设a为实型变量，调用该子过程的正确语 （A） （B）callp0.5,a,（C）callp(0.5,cos(0.1),a+10)（D）p(0.5,1.2,100 VisualBasicPrivateSubCommand1_Click()Callswap(a，b):Printa，bEndSubPrivateSubswap(ByValaAsInteger，ByValbAsInteger)End 请用swap过程的语句错误，应改为：Callswapswap3条赋值语句的顺序是错误的，应改为 PrivateFunctionpower(aAsInteger，nAsInteger)AsLongDimpAsLongFork＝1ToNextkEndFunction 把Fork＝1Ton改为Fork＝2To把Fork＝1Ton改为Fork＝1To FunctionFun(SAsString)AsStringDims1AsStringFori＝1ToLen(S)NextEndPrivateSubDimStr1AsString,Str2AsStringPrintStr2EndSub程序运行后，单击命令按钮，如果在输入框中输入字符串"abcdefg"，则单击"确 （D）PrivateFunctionFun(a()AsInteger,bAsString)AsEndDimx(5)AsInteger,nAsInteger,chAs （C）CallFun 窗体的Click过程的过程名是 PrivateFunctionfun(nAsInteger)AsLongDimpAsLongFork＝n－1To2Step－1NextkEnd 把Fork＝n－1To2Step－1改为Fork＝1To把Fork＝n－1To2Step－1改为Fork＝1ToFork＝n－1To2Step－1Fork＝2To （B） PrivateSubCommand1_click()Dima%,b%a=8:b=3Calltest(a,b+1)Printa;bEndPrivateSubtest(y%,z%)y=4:z=9End（A）4 （B）8 （C）8 （D）8SubStaticnumaAsIntegerDimnumbAsIntegernuma＝numa＋2:numb＝numb＋1printnuma;mumbEnd （A）2 （B）2 （C）6 （D）6 Exit （B）Exit（C）Exit （D）ExitPrivateSubDimaAsInteger,bAsIntegera=8:b=12PrintFun(a,b);a;bEndSubPrivateFunctionFun(ByValaAsInteger,bAsInteger)AsIntegera=aMod5:b=b\5EndFunction （A）33 （B）38 （C）88 （D）38 （A）Dim、 （B）Dim、（C）Dim、 FunctionMaxValue(a()AsInteger)AsIntegerDimmax%：max＝1Fork＝2ToIfa(k)>a(max)Thenmax＝kNextkEndFunction 语句max＝1语句Fork＝2To10应改为Fork＝1ToIfa(k)>a(max)应改为 （B） PrivateSubCommand1_Click()Printfun("ABCDEFG")EndFunctionfun(stAsString)AsstringFork＝1Tostlen/2NextkEndFunction VisualBasicPrivateSubproc1(aAsInteger，bAsString，OptionalxAsEnd （A）Call （B）Callproc1 （D）proc1PublicxAsInteger，yAsIntegerSubvar_pub()x＝10:y＝20EndSubPrivateSubCommand1_Click()DimxAsIntegerCallvar_pubx＝x＋100:y＝y＋100Printx；yEnd （A）100 （B）100 （C）110 （D）110 （B）f(a+b,b+c（C）f(a+b,b+c,c+a （D）fa+b,b+c, PrivateSubCommand1_Click()Dima(1To4)AsIntegerFori=1To4a(i)=NextCall