秋秋江苏试题汇总

秋秋江苏试题汇总

ID:33544999

大小:1.46 MB

页数:170页

时间:2019-02-27

秋秋江苏试题汇总_第1页
秋秋江苏试题汇总_第2页
秋秋江苏试题汇总_第3页
秋秋江苏试题汇总_第4页
秋秋江苏试题汇总_第5页
资源描述:

《秋秋江苏试题汇总》由会员上传分享,免费在线阅读,更多相关内容在应用文档-天天文库

1、1998年模拟考试试卷(本试卷考试时间为120分钟)第二部分 VisualBasic程序设计一、选择题(21)一个对象可以执行的动作与可被对象识别的动作分别称为 21 。(A)事件、方法  (B)方法、事件  (C)属性、方法  (D)过程、事件答案:B分析:(24)在调用过程时,下述说明中正确的是 24 。(A)只能使用Call语句调用Sub过程(B)调用Sub过程时,实在参数必须用括号括起来(C)在表达式中调用Function过程时,可以不用括号把实在参数括起来(D)Function过程也可使用C

2、all语句调用答案:D分析:(25)在使用VisualBasic进行图形操作时,有关坐标系的说明中错误的是 25 。(A)VisualBasic只有一个统一的、以屏幕左上角为坐标原点的坐标系(B)在调整窗体上的控件的大小和位置时,使用以窗体左上角为原点的坐标系(C)所有图形及Print方法使用的坐标系均与容器有关(D)VisualBasic坐标系的Y轴,上端为0,越往下越大答案:A分析:(27)设Mys1,Mys2均为字符串型变量,Mys1="VisualBasic",Mys2="b",则下面关系表达

3、式中结果为True的是 27 。(A)Mid(Mys1,8,1)>Mys2(B)Len(Mys1)<>2*Instr(Mys1,"l")(C)Chr(66)&Right(Mys1,4)="Basic"(D)InStr(Left(Mys1,6),"l")+60>Asc(UCase(Mys2))答案:C分析:(28)在窗体单击事件中执行下面语句的正确结果是 [28] 。PrintFormat(1732.46,"+##,##0.0")(A)+1,732.5  (B)1,732.5  (C)+1,732.5 

4、 (D)+1,732.4答案:C分析:(30)以下有关把数组作为形参的说明中错误的是 30 。(A)形参数组只能按地址传递(B)调用过程时,只需把要传递的数组名填ru实参表(C)使用动态数组时,可用ReDim语句改变形参数组的维界(D)在过程中也可用Dim语句对形参数组进行说明答案:D分析:二、填空题(1)运行下面的程序,单击窗体后在窗体上显示的内容是 [1] ;若将程序中的A语句与B语句的位置互换,再次执行程序,单击窗体后在窗体上显示的内容是 [2] 。PrivateSubCommand1_Clic

5、k()  Dimx,yAsInteger  x=1:y=0  DoWhilex<3    x=x+1 'B语句    y=y+x 'A语句  Loop  Printx,yEndSub答案:(1)3 3   (2)3 5分析:(2)执行下面的程序,单击窗体后在窗体上显示的第一行结果是 [1] ,第三行结果是__[2]__。PrivateSubCommand1_Click()  DimMystr,MyStr1,Mystr2AsString  MyStr1="B"  Fori=1To3    Mystr2=

6、LCase(MyStr1)    MyStr1=MyStr1&Mystr2    Mystr=Mystr&MyStr1    PrintMystr    MyStr1=Chr(Asc(MyStr1)+i)  NextiEndSubiMyStr1MyStr2MyStr打印1BbBbBbBbC2cCcBbCcBbCcE3EecBbCcEeBbCcEe答案:(1)Bb   (2)BbCcEe分析:(3)运行下面的程序,当单击窗体时,窗体上显示的内容的第一行是 [1] ,第二行是 [2] 。PrivateSu

7、bTest(xAsInteger)  x=x*2+1  Ifx<6Then    CallTest(x)  EndIf  x=x*2+1  Form1.PrintxEndSubPrivateSubForm_Click()  Test2EndSubx打印备注2一5二11二2323二23一4747一答案:(1)23  (2)47分析:(5)当Sub过程Value形参表中存在ByVal关键字时,执行本程序,单击窗体,在窗体上显示的第一行内容是 [1] ,第二行内容是 (2) ;若将形参表中的Byval关键字

8、删除,再执行本程序,单击窗体后在窗体上显示的第一行内容是 [3] ,第二行内容是 (4) 。PrivateSubValue(ByValmAsInteger,ByValnAsInteger)  m=m*2  n=n-5  Print"m=";m,"n=";nEndSubPrivateSubForm_Click()  DimxAsInteger,yAsInteger  x=10:y=15  CallValue(x,y)  Print"x=";x,"y=";y

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

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

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