江苏省2010年春二级计算机考试vb笔试试卷

江苏省2010年春二级计算机考试vb笔试试卷

ID:29494158

大小:147.54 KB

页数:8页

时间:2018-12-20

江苏省2010年春二级计算机考试vb笔试试卷_第1页
江苏省2010年春二级计算机考试vb笔试试卷_第2页
江苏省2010年春二级计算机考试vb笔试试卷_第3页
江苏省2010年春二级计算机考试vb笔试试卷_第4页
江苏省2010年春二级计算机考试vb笔试试卷_第5页
资源描述:

《江苏省2010年春二级计算机考试vb笔试试卷》由会员上传分享,免费在线阅读,更多相关内容在应用文档-天天文库

1、2010春计算机等级考试(二级)VisualBasic程序设计第二部分一、选择题21.关于窗体,以下叙述中正确的是___________。A仅当窗体上没有可以获得焦点的控件时,窗体才可以获得焦点B一个VB工程只能从某个指定的窗体开始启动C只有窗体可以作为控件的容器DUnloadMe和End语句的效果总是等同的22若a为长整型变量,则执行a=12;PrintLen(a);Len(Str(a));Len(CStr(a))后,在窗体上看到的是__________。A423B232C432D22323数学表达式+对应的VisualBasic表达式是___________ACos(

2、30*3.14159/180)/(4*y+Ln(x))+Exp(2)BCos(30*3.14159/180)/(4*y+Log(x))+Exp(2)CCos(30*3.14159/180)/(4*y+Ln(x))+e^2DCos(30)/(4*y+Log(x))+e^224表达式Fix(-2.5)+Int(-3.5)+CInt(-2.5)的值是_________________。A-8B-7C-6D-525.以下说法中,错误的是_________________。A.使用缺省Preserve关键字的ReDim语句可以改变数组的维数和大小B.ReDim语句只能出现在过程中C

3、.使用ReDim语句重新定义的动态数组,只能比原数组大D.使用ReDim语句可以对动态数组的所有元素进行初始化26下列关于菜单的说法中,错误的是_____________。A可以为菜单项选定快捷键B若在“标题”文本框中键入连字符(-),则可在菜单的两个菜单命令项之间加一条分隔线C除了Click事件之外,菜单项还可以影响其他事件D菜单编辑器的“名称”文本框用于输入菜单项的名称27以下有关过程中形式参数的描述中,错误的是_____________。A函数过程可以没有形式参数B事件过程一定没有形式参数C形参数组只能按地址与实参数组结合8D窗体与控件也可以作为过程的参数28以下表

4、达式中,可以表示“A和B之一大于0”的是_______________。①A*B<=0②A>0XorB>0③A>0OrB>0④A>0AndB<=0OrB>0AndA<=0A①③B③④C②④D①②④29设变量A为长整型,则下面不能正常执行的语句是__________。AA=32768*2BA=2*1.5*16384CA=16384*2DA=190^230以下有关滚动条控件(ScrollBar)的说法中错误的是______________。A只能在设计时设置Max与Min属性值BValue属性返回滚动条内滑块当前所处位置的值C拖动滚动条内滑块时,将触发滚动条的Scroll事件

5、D单击滚动箭头时,将触发滚动条的Change事件二、填空题1执行下面程序,单击Command1后,A(1,4)的值是__(1)____,A(2,3)的值是___(2)___,A(2,3)的值是____(3)_______。OptionExplicitOptionBase1PrivateSubCommand1_Click()DimA(4,4)AsInteger,UBAsIntegerDimiAsInteger,jAsInteger,nAsIntegerUB=UBound(A,1)n=0Fori=UBTo1Step-1Forj=1ToUB+1-in=n+1A(j,j+i-1)

6、=nNextjNextiFori=UBTo2Step-1Forj=UBToiStep-1A(j,j-i+1)=A(5-j,4-j+i)NextjNextiFori=1ToUBForj=1ToUBPicture1.PrintA(i,j);NextjPicture1.PrintNextiEndSub82执行下面的程序,单击Command1后,在InputBox函数对话框中输入4(或直接单击“确定”按钮),窗体第一行显示的内容是___(4)______,第二行显示的内容是____(5)_____,第四行显示的内容是_____(6)_________。OptionExplicit

7、PrivateSubCommand1_Click()DimDaysAsIntegerDays=InputBox("输入正整数",,4)Printfun(Days)EndSubPrivateFunctionfun(DAsInteger)AsIntegerIfD=1Thenfun=1Elsefun=2*fun(D-1)+1PrintD;funEndIfEndFunction3.执行下面程序,单击Command1后,窗体第一行显示的内容是___(7)______,第三行显示的内容是___(8)______,最后一行显示的内容是___

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。