2010年vb期中考试试卷及答案

年分姓名：________1、单项选择题本题共计40分)1Cint(3.5)Int(–3.5)3.5)的值分别是________。()，–43B43、44，–332中，下列关于控件的属性或方法中，搭配错误的有________List1.ClsPicture1.Print0()B1233CommandButton行该程序显示窗体时，________()B、4、下面的表达试的值为真的是________。()Mid(,1,12)=Right(”B”>abcde”><=>5"Printformat(5459.478,"##,##0.00")"________。()B6Private)s=Sin(3./2)s程序运行后，消息对话框显示_________。()0B127c$____________。Private)==&()Bbasic8、下列语句中不能正常执行的是________。print()Bprintprintprint9"PrintFormat(1234.567,"##,##0.00")",__________。()B10奇数的和的程序，请补充完整，填空应为_______。PrivatesxIntegers=0x=-2s=s+xxs1B111、下列程序段的执行结果为____________。x=Int((69-*+xIs”””不合格”B12____________。IfBIfIf：If()13、要使文本框能显示多行文字，则需设定它的____________。()BSeleted14________。()IfIfBIfIfIfIfElseIfIfIf(a=1,2,3)15、下面程序的运行结果是________。Private()3ix;y66()B5816、下面程序的内层循环次数是________。3i3...kji3()B917、对于一个含有计时器控件的窗体，每经过一段由________()B、Interval18、窗体从加载到显示出来，下列最先发生的事件是____________。()B、19ax3位小数四舍五入的表达式是____________。()B20的一行可以写多条语句，语句之间用____________()B21、判断在文本框内是否按下了回车键，应通过____________()B22、下列循环能正常结束循环的是____________。()Bi=i-223Ify=1，下列说法正确的是____________。()和B和、为关系表达式，为赋值语句，24ABC")____________。()B25，在该循环体内有下列四条语句，其中()B26、执行下面的程序，单击窗体后在窗体上显示的结果是PrivateStr1String,Str2StringStr3String,IIntegerStr1=I=12Str2=Str1=Str2&Str1Str3=Str3&Str1Str1=+I)IStr3()B27________。()i=1,x=2,y=2,则(x-y)/i<>0B(7=5)则&和+b$28____________。()HelloBHello为5、文本框中只有“Hello”29Value2____________。()B30frm事件过程名是_____。()B、313200中150，则执行下列程序段后，______。mInteger,nIntegerIfIfIfnB32yIntegerm=1m3m=m+12B23234234533、以下程序的输出结果是____________。iInteger,aIntegerIfii=i-1IfaB34、下列符号常量的声明中，______________asingle=1.1()Ba、aa=OK”35()B36Print、________。()B37、只能由系统触发的是___________()B38、用于除去字符串左侧的空格的函数是__________。())B)、))39____________()B404个方法中，可以返回字符串的高度值的是____________。()B2、填空题本题共计40分)1、执行下面的程序段后，s。i=2.64.90.6iprints2ABC的表达式是3和234_____。aInteger,bIntegera=InputBox("请输入第一个整数","")b=InputBox("","")46123，661Private)aInteger,bInteger,cInteger,iIntegera=2b=2a-1Ifab=0c=IfbaIfa51625Private)iInteger,yx=1y=x*xIfxIfx6ExplicitPrivate)sString,kIntegerrString,iInteger,tStringIf&tIfir7Private)aInteger,bInteger,cInteger,nInteger,jInteger99If(nIfcba8Command1Private)tInteger,bString,kIntegert=InputBox("2&bt=t\2If&bIft程序运行后，如果单击命令按钮，如在输入框输入数值"8",。9x5y3z只1元3_______。Private)x=0y=0Ifzyx108Private)String,String,faString==""i=fa=0fa=1fa=i、运行下面的程序，就会出现___(1)_______(2)____Private()iIntegeri*12中的控件分为两类，一类是，另一类是。1314StringInpass=_______("","")If_______""vbOKOnly+vbCritical,""If3、问答题本题共计20分)14、问答题本题共计10分)1整数之和等于它们各自的对调数之和。如：1.b,2.c,3.b,4.a,5.b,6.b,7.d,8.a,9.b,10.c,11.c,12.a,13.c,14.b,15.c,16.b,17.d,18.a,19.c,20.d,21.b,22.c,23.c,24.a,25.c,26.a,27.d,28.a,29.c,30.b,31.d,32.c,33.b,34.c,35.d,36.c,37.c,38.b,39.a,40.a1.19,2.abs(a)>=bandabs(a)<>c,3.357,4.c=1,c=a,5.x=(ymod10)or(x=(ymod100))or(x=(ymod1000)),6.mid(s,i,1),7.1to9,a*100+b*10+c,8.1000,9.5*x+3*y+z/3=100,10.1to无限循环,Ctrl+Break,12.标准控件,ActiveX控件,13.AddItem,14.InputBox,MsgBox1.DimiAsInteger,jAsIntegerPrint2;Fori=3To100Forj=2Toi-1IfiModj=0ThenExitForNextjIfj=iThenPrinti;Nexti对调数DimkAsInteger,hAsInteger,tAsInteger,sAsIntegerDimiAsIntegerk=Val(InputBox("请输入一个两位数