资源描述：
《2010江苏省vb二级考试真题》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、2010江苏省vb二级考试真题第二部分VisualBasic程序设计一、选择题（用答题卡答题，答案依次填在21～30答题号内）21．关于窗体，以下叙述中正确的是21。A．仅当窗体上没有可以获得焦点的控件时，窗体才可以获得焦点B．一个VB工程只能从某个指定的窗体开始启动C．只有窗体可以作为控件的容器D．UnloadMe和End语句的效果总是等同的22．若a为长整型变量，则执行a=12:PrintLen(a);Len(Str(a));Len(CStr(a))后，在窗体上看到的是22。A．423B．232C．432D．22323．数学表达式对应的VisualB
2、asic表达式是23。A.Cos(30*3.14159/180)/(4*y+ln(x))+Exp(2)B.Cos(30*3.14159/180)/(4*y+log(x))+Exp(2)C.Cos(30*3.14159/180)/(4*y+lnx)+e^2D.Cos(30)/(4*y+log(x))+e^224．表达式Fix(-2.5)+Int(-3.5)+CInt(-2.5)的值为24。A.-8B.-7C.-6D.-525．以下说法中，错误的是___25____。A.使用缺省Preserve关键字的ReDim语句可以改变数组的维数和大小B.ReDim语句
3、只能出现在过程中C.使用ReDim语句重新定义的动态数组，只能比原数组大D.使用ReDim语句可以对动态数组的所有元素进行初始化26．下列关于菜单的说法中，错误的是___26_____。A.可以为菜单项选定快捷键B.若在“标题”文本框中键入连字符(-)，则可在菜单的两个菜单命令项之间加一条分隔线C.除了Click事件之外，菜单项还可以响应其他事件D.菜单编辑器的“名称”文本框是用于输入菜单项的名称27.以下有关过程形式参数的描述中，错误的是27。A.函数过程可以没有形式参数B.事件过程一定没有形式参数C.形参数组只能按地址与实参数组结合D.窗体与控件也可
4、以作为过程的参数28．以下表达式中，可以表示“A和B之一大于0”的是28。①A*B<=0②A>0XorB>0③A>0OrB>0④A>0AndB<=0OrB>0AndA<=0A.①③B.③④C.②④D.①②④29．设变量A为长整型，则下面不能正常执行的语句是29。A.A=32768*2B.A=2*1.5*16384C.A=16384*2D.A=190^230．以下有关滚动条控件（ScrollBar）的说法中错误的是30。A．只能在设计时设置Max与Min属性值B．Value属性返回滚动条内滑块当前所处位置的值C．拖动滚动条内滑块时，将触发滚动条的Scrol
5、l事件D．单击滚动箭头时，将触发滚动条的Change事件二、填空题（请将答案填写在答题纸的相应答题号内，每个答案只占一行）1.执行下面程序，单击Command1后，A(1,4)的值是(1)，A(2,3)的值是(2)，A(3,2)的值是(3)。（155）OptionExplicitOptionBase1PrivateSubCommand1_Click()DimA(4,4)AsInteger,UBAsIntegerDimiAsInteger,jAsInteger,nAsIntegerUB=UBound(A,1)n=0Fori=UBTo1Step-1Forj=
6、1ToUB+1-in=n+1A(j,j+i-1)=nNextjNextiFori=UBTo2Step-1Forj=UBToiStep-1A(j,j-i+1)=A(5-j,4-j+i)NextjNextiFori=1ToUBForj=1ToUBPicture1.PrintA(i,j);NextjPicture1.PrintNextiEndSub2．执行下面程序，单击Command1后，在InputBox函数对话框输入4（或直接单击“确定”按钮），窗体第一行显示的内容是(4)，第二行显示的内容是(5)，第四行显示的内容是(6)。OptionExplicit（
7、23，37,15）PrivateSubCommand1_Click()DimDaysAsIntegerDays=InputBox("输入正整数",,4)Printfun(Days)EndSubPrivateFunctionfun(DAsInteger)AsIntegerIfD=1Thenfun=1Elsefun=2*fun(D-1)+1PrintD;funEndIfEndFunction3.执行下面程序，单击Command1后，窗体第一行显示的内容是(7)，第三行显示的内容是(8)，最后一行显示的内容是(9)。7307PrivateSubCommand1
8、_Click()DimIAsInteger,KAsIntegerForI=1To
