江苏省二级vb试卷2004(秋)(笔试)

《江苏省二级vb试卷2004(秋)(笔试)》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、第二部分　VisualBasic　程序设计一、选择题21．设S是字符型变量，以下语句正确的是＿＿＿。A．s=List1.CaptionB．s=Timer1.CaptionC．s=Text1.CaptionD．s=Label1.Caption22．扩展名为VBP的工程文件中包含有＿＿＿＿。A．工程中所有模块的有关信息B．每个窗体模块中的所有控件的有关信息C．每个模块中所有变量的有关信息D．每个模块中所有过程的有关信息23．在窗体的通用说明部分有以下说明语句，其中正确的是＿＿＿。A．PrivateConstAAsInteger=235/2B．ConstBAsInteg

2、er=cint(2.53)C．dimconstCasinteger=3579D．publicconstsasBoolean=true24．以下控件对象中具有Picture属性的是＿＿＿＿。①　PictureBox②Frame　　③OptionButton　④CommandButton⑤ListBox⑥CheckBox　　⑦LabelA．①③④⑥　　　　B．①②⑤⑥⑦　　　　C．①③④⑤⑥　　　D．①②③④⑤⑥25．在过程中已说明a、b、c均为Integer型变量，且均已被赋值，其中a=30、b=40、c=50，如再执行下面的语句，可正常执行的是＿＿＿。A．Prin

3、ta*b*cB．Printa*b*c*1&C．Print1&*a*b*cD．Printa*b*c*1!26．表达式XModYZ>5andA+B+C>=36中最先被执行的运算是＿＿＿＿。A．＋　　　　　B．AND　　　　　C．MOD　　　　　D．27．下列有关事件过程的说法错误的是＿＿＿＿。A．标准模块中不能包含事件过程B．事件过程都是无参（没有形式参数）的过程C．事件过程也可以通过Call语句调用执行D．在事件过程中不能声明全局变量28．以下有关Redim语句用法的说明错误的是＿＿＿＿。A．Redim可用于定义一个新数组B．Redim　语句既可以在过程中使用，

4、也可以在模块的通用声明处使用C．无Perserve关键字的Redim语句，可重新定义动态数组的维数D．在Redim语句中，可使用变量说明动态数组的大小29．下列有关文件的说法正确的是＿＿＿＿。A．打开随机文件时，参数Len的值可任意设置B．若以Output、Append、Random或Binary方式打开一个不存在的文件，系统会出错C．在Input方式下，不能使用不同文件号同时打开同一个文件D．在一个过程中，一个文件号有可能被用于打开不同的文件30．下面语句中，可以在窗体上绘制正方形的语句是＿＿＿。①Shape1.Shape=1②Line(500,1500)-(1

5、200,2000)③Shape1.Shape=0④Line(500,1500)-(1000,2000)A．②③　　　　　B．①④　　　　　　C．①②　　　　　　D．③④二、填空题1．执行下面程序，单击按钮Command1，窗体上第一行显示的内容是＿＿＿，第二行显示的内容是＿＿＿＿。　　PrivateSubCommand1_Click()DimxAsInteger,yAsInteger,zAsIntegerx=6:y=12:z=20Printfun1(x,y)Printfun1(fun1(x,y),z)EndSubPrivateFunctionfun1(aAsInt

6、eger,bAsInteger)AsLongDimyAsIntegery=aDoIfyModb=0Thenfun1=yExitFunctionElsey=y+aEndIfLoopEndFunction2．执行下面程序，单击按钮Command1，窗体上第一行显示的内容是＿＿＿，第二行显示的内容是＿＿＿。OptionExplicitDimaAsSinglePrivateSubCommand1_Click()DimaAsSingle,bAsIntegera=1.2:b=3Printfun1(a,b)PrintaEndSubPrivateFunctionfun1(xAsS

7、ingle,yAsInteger)AsIntegerDimiAsIntegerFori=1Toyx=x*2a=a+1Nextifun1=aEndFunction3．执行下面程序，单击按钮Command1，在图片框Pic2中第一行显示的内容是＿＿＿＿，第二行显示的内容是＿＿＿＿，第三行显示的内容是＿＿＿。OptionexplicitOptionbase1PrivateSubCommand1_Click()Dimsa(3,3)AsString*1,iAsInteger,jAsIntegerDimsAsString,kAsIntegers="JPLETAXBD"k=1F

8、ori=1