2011VB一模试题及答案

2011VB一模1、填空题(本题共计36分)1、已知K=2，J=3，A=True，则VB表达式(K-J=K)AND(NOTA)OR(K+J=J)的值为_____。2、表示A和B之一为零但不同时为零的VB表达式为______。3、能正确产生[1,30]之间的随机整数的表达式是________。4、表达式Fix(-48.65)+Int(-52.15)的值是________。5、A的绝对值大于等于B同时不等于C的表达式是____(1)____.6、下面程序运行后，输出的结果为____(1)____。PrivateSubCommand1_Click()dimx$,y$,z$x=NANJINGy=BASICz=INPUTz=InStr(Left(x,2)+Right(y,2),z)PrintzEndSub7、A=7，B=3，C=4，则表达式AMOD3+B^3/C\5的值为______。8、语句Print125+32=;125+32执行后，窗体上打印结果是_______.9、下列程序执行时，要求输入一个密码，如果密码不正确则显示出非法用户的对话框。请填空：ConstPassWord=12345678DiminpassAsStringInpass=_______(请输入你的密码,输入密码)Ifinpass=PassWordThenEndElse_______对不起！你是非法用户，vbOKOnly+vbCritical,拒绝EndIf10、InputBox函数返回值的类型为_________。11、下面程序的功能是统计随机产生的10个三位正整数中偶数与奇数的个数，并求出该10个数的总和。请将程序补充完整。OptionExplicitPrivateSubForm_Click()Dimx%,s1%,n1%,n2%,i%RandomizeFori=1To10x=__(1)____Printx;IfxMod2=0Then___(2)___elsen2=n2+1EndIfs=s+xNextiPrintPrint奇数个数：;n1;偶数个数为：;n2;和为;sEndSub12、宰相达依尔(国际象棋的发明者)想赢得象棋格子的麦子的故事大家都很熟悉，其麦子颗粒数的计算公式为：sum=1+2+2^2+2^3+2^4+2^5+...+2^63，相应的计算程序如下，请将程序补充完整。PrivateSubCommand1_Click()DimxAsSingle,nAsInteger,sumAsSingleSum=0Forn=0To63x=___(1)________(2)______NextnPrint麦子的总颗粒数为：；SumEndSub13、下列程序执行后，打印结果是______。OptionExplicitPrivateSubCommand1_Click()DimiAsInteger，sumAsIntegersum=0Fori=3To100IfiMod3=0AndiMod11=0Thensum=sum+iNextiPrintsumEndSub14、运行下面程序，单击窗体后在窗体上显示的第一行结果是____；第二行结果是____；第三行结果是__(3)__。PrivateSubForm_Click()DimiAsInteger,sAsIntegerFori=1To10s=s+iIfs10ThenPrintss=0EndIfNextiEndSub15、下列程序运行的结果为___(1)___。执行完该程序后，共循环了____(2)___次。PrivateSubCommand1_Click()DimintsumAsIntegerDimiAsIntegerFori=1To17Step2intsum=intsum+iNextiPrintintsumEndSub16、输入一个三位的正整数，将之反向输出。如输入123，则输出321，完善下列程序。PrivateSubCommand1_Click()DimaAsInteger,bAsInteger,cAsInteger,mAsIntegerm=InputBox(输入一个正整数)a=m\100b=(m-a*100)\10c=___(1)___MsgBox结果=+Str(c*100+b*10+a)EndSub17、窗体上有3个文本框Text1,Text2和Text3,一个Command1。为完成已知圆直径求圆周长和圆面积的功能，完善下列程序。PrivateSubCommand1_Click()DimdAsSingled=Val(Text1.Text)Ifd0ThenText2=3.14159*dText3=___(1)____EndIfEndSub18、执行下面的程序段后，s的值为_________。PrivateSubCommand1_Click()s=5Fori=2.6To4.9Step0.6s=s+1NextiPrintsEndSub19、执行下面的程序，单击窗体后在窗体上显示的第一行结果是__(1)___；第三行结果是__(2)___。PrivateSubForm_Click()DimMystrAsString,Mystr1AsString,Mystr2AsStringMystr1=Bfori=1To3Mystr2=Lcase(Mystr1)Mystr1=Mystr1+Mystr2Mystr=Mystr+Mystr1PrintMystrMystr1=Chr(Asc(Mystr1)+I)NextiEndSub20、运行下面的程序，就会出现___(1)___，按____(2)____键可以终止程序运行。PrivateSubForm_Click()DimiAsIntegerDoWhilei10i=i*20LoopEndSub21、运行下面的程序，单击窗体后在窗体上显示的内容是___________。PrivateSubForm_Click()Fori=1To10Step2Printi;NextiEndSub22、以下循环迭代了______次。Int1=10DoWhileint1=1Int1=Int1-1Loop23、以下程序段产生100个1-4之间的随机整数，并统计。数组元素s(i)的值表示等于i的随机数的个数，要求输出如下格式：s(1)=……s(2)=……s(3)=……s(4)=……将程序补充完整。PrivateSubForm_Click()Dims(4)AsIntegerRandomize___(1)___x=Int(Rnd*__(2)___+1)s(x)=s(x)+1Nexti___(3)____Print____(4)_____NextiEndSub24、以下程序代码将整型动态数组X声明为具有20个元素的数组，并给数组的所有元素赋值.PrivateSubCommand1_click()___(1)___asintegerredim___(2)__fori=1to20x(i)=1printx(i)nextiEndSub2、单项选择题(本题共计88分)1、能被对象所识别的动作与可执行的活动分别称为对象的________。()A、方法、事件B、事件、方法C、事件、属性D、过程、方法2、一个应用程序_________窗体。()A、只许有一个B、可以没有C、应该有两个D、可包括多个3、VisualBasic中的工程文件的扩展名是____________。()A、.regB、.frmC、.basD、.vbp4、VisualBasic中的标准模块文件的扩展名是____________。()A、.regB、.frmC、.basD、.vbp5、VisualBasic中的窗体文件的扩展名是____________。()A、.regB、.frmC、.basD、.vbp6、VisualBasic标题栏上显示了应用程序的____________。()A、大小B、位置C、名称D、状态7、将调试通过的工程经“文件”菜单的“生成.exe文件”编译成.exe后，将该可执行文件到其他机器上不能运行的主要原因是____________。()A、运行的机器上无VB系统B、缺少.frm窗体文件C、该可执行文件有病毒D、以上原因都不对8、一只白色的足球踢进球门，则白色、足球、踢、进球门是________。A、属性、对象、方法、事件B、属性、对象、事件、方法C、对象、属性、方法、事件D、对象、属性、事件、方法9、VisualBasic是一种面向________的程序设计语言。A、过程B、用户C、方法D、对象10、设整型变量a、b的当前取值分别为200与20，以下赋值语句中不能正确执行的是________。A、Text1=a/b*aB、Text1=a*a/bC、Text1=“200”*a/bD、Text1=a&b&a11、函数Cint(–3.5)，Int(–3.5)，Fix(–3.5)的值分别是________。A、-3，–4，–3B、-4，–4，–3C、-3，–4，–4D、-4，–3，–312、下面的表达试的值为真的是________。A、Mid(“VisualBasic”,1,12)=Right(“ProgramingLanguageVisualBasic”,12)B、“ABCRG””abcde”C、Int(134.69)Cint(134.69)D、78.9/32.77=97.5/43.97AND–45.44.9813、假定变量Logic类型是Boolean，下面赋值语句________是正确的。A、Logic=‘True’B、Logic=.True.C、Logic=#True#D、Logic=3414、执行语句Printformat(5459.478,##,##0.00)，正确的输出结果是________。A、5459.48B、5,459.48C、5,459.478D、5,459.4715、下列语句中不能正常执行的是________。A、print+32758+10B、print5+9=15C、print65+12D、print65&1216、下列表达式中，值为True的是________。A、UCase(ABCD)=abcdB、14/2\310MOD4C、Mid(“ABCD”,2,2)Left(“ABCD”,2)D、not(Sqr(4)-3=-2)17、执行语句PrintFormat(1234.567,##,##0.00),正确的输出结果是__________。A、1234.57B、1,234.57C、1,234.56D、01,234.5718、日期类型（Date）在程序中运用时，日期类型必须用______符号括起来。A、#B、@C、＄D、%19、如果一个变量未指明数据类型，那么，VB默认这个变量为______变量。A、变体型B、整型C、公共D、字符串型20、下列____________是合法的VB变量名。A、_5aB、我_ABC、5nameD、Use&DASF21、MsgBox函数返回值的类型为____________。A、整体数值B、字符串C、变体D、数值或字符串22、以下说法不正确的是____________。A、Chr＄()函数的作用是把自变量表达式的值转换为相应的ASCII码B、Val()函数用来把自变量字符串转换为数值C、Log()函数产生一个0-1之间的单精度浮点数D、Rnd()函数产生一个0-1之间的单精度浮点数23、不能正确表示条件“两个整型变量X和Y之一为0，但不能同时为0”的布尔表达式是____。A、X*Y=0And(X0OrY0)B、(X=0OrY=0)And(X0OrY0)C、Not((X=0OrY=0)And(X0OrY0))D、X*Y=0AndX+Y024、函数Int(Rnd*11)+10的值的范围是____________。A、[10，20]B、[0，20]C、[10，10]D、[10，11]25、VisualBasic的一行可以写多条语句，语句之间用___