资源描述：
《2008秋VB笔试卷(含答案)》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、第二部分VisualBasic程序设计一、选择题（用答题卡答题，答案依次填在21～30答题号内）21．窗体上有若干命令按钮和一个文本框，程序运行时焦点置于文本框中，为了在按下回车键时执行某个命令按钮的Click事件过程，需要设置该按钮的21属性为True。A．EnabledB．DefaultC．CancelD．Visible22．执行以下语句时，会出现错误提示的是22。A.Print“2b3”+12.5B.Print“12.5”+12C.Print“12.5”&12.5D.Print“2e3”+1223．数学表达式对应的V
2、B表达式是23。A.Abs(e^x+Sin(30)^3)/Sqr(x+y))B.Abs(Exp(x)+Sin(30)^3)/(Sqr(x+y))C.Abs(e^x+Sin(30*3.14159/180)^3)/(Sqr(x+y))D.Abs((Exp(x)+Sin(30*3.14159/180)^3)/Sqr(x+y))24．如果x是一个Single类型的变量，要对x的第3位小数四舍五入并在Print语句中输出，下列函数(表达式)有24可以选择。Format(x,"#.00")Int(100*(x+0.005))/100C
3、Int(100*(x+0.005))/100Fix(100*(x+0.005))/100A．1个B．2个C．3个D．4个25．下面有关数组处理的叙述中，正确的是25。A．在过程中使用ReDim语句可以改变动态数组数据的类型B．在过程中，可以使用Dim、Private和Static来定义数组C．用ReDim语句重新定义动态数组时，可以改变数组的大小，但不能改变数组的维数D．不可以用Public语句在窗体模块的通用处说明一个全局数组。26．下列关于菜单的说法中，错误的是___26_____。A.每一个菜单项就是一个对象，并且可
4、设置自己的属性和事件B.菜单项不可以响应DblClick事件C.VB6.0允许创建超过四级的子菜单D.程序执行时，如果要求菜单项是灰色，不能被用户选择，则应设置菜单项的Enabled属性为FalseVB2008秋第11页27.以下关于Function过程的说法中，错误的是___27____。A.Function过程名可以有一个或多个返回值B.Function过程在其内部不得再定义Function过程C.Function过程中可以包含多个ExitFunction语句D.可以像调用Sub过程一样调用Function过程28．以
5、下Case语句中，错误的是___28_____。A.Case0To10B.CaseIs>10C.CaseIs>10AndIs<50D.Case3,5,Is>1029．下面的表达式中，运算结果为True的是29。A."abcrd"<="ABCRD"B.Int(134.69)<=CInt(134.69)C.3>2>1D.Mid("Visual",1,4)=Right("Lausiv",4)30．设计界面时，要使一个文本框具有水平和垂直滚动条，应先将其30属性置为True，再将ScrollBar属性设置为3。A．MultiLin
6、eB．AutoSizeC．AlignmentD．RightToLeft一、填空题（请将答案填写在答题纸的相应答题号内，每个答案只占一行）1.执行下面程序，单击Command1，则数组元素a(1,2)的数值是（1），a(3,3)的数值是（2），图片框中最后一行显示的是（3）。OptionExplicitPrivateSubCommand1_Click()Dima(4,4)AsInteger,iAsInteger,jAsIntegerDimkAsInteger,numAsIntegernum=0Fork=1To4Fori=1T
7、ok-1num=num+1a(i,k)=numNextiForj=kTo1Step-1num=num+1a(k,j)=numNextjNextkFori=1To4Forj=1To4Picture1.PrintRight(""&a(i,j),3);NextjPicture1.PrintVB2008秋第11页NextiEndSub2．执行下面程序，单击Command1，窗体上显示的第一行是（4），第二行是（5），第四行是（6）。OptionExplicitPrivateSubCommand1_Click()DimaAsInte
8、ger,bAsInteger,iAsIntegera=2:b=5Fori=aToa*bStepaCallsub1(i,a,b)Printa,bNextiPrinta,b,iEndSubPrivateSubsub1(iAsInteger,aAsInteger,bAsInteger)i=i+1a=a+1b=
