资源描述：
《2004年(春)笔试试卷》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、2004年（春）二级考试笔试卷（VB）第二部分VisualBasic程序设计一、选择题21．在VB中，下列关于控件的属性或方法中，搭配错误的有________个。 1）Timer1.Interval 2)List1.Cls 3)Text1.Print 4)List1.RemoveTtem 5)Vscroll1.Value 6)Picture1.Print A.0 B.1 C.2 D.322.下面所列的控件中，其值既能在程序设计时设定，又能在程序运行时通过赋值改变的是
2、________。 A.List1.ListCount B.Text1.Index C.Dir1.Path D.Label1.Visible23.下面________语句，可以将列表框List1中的当前选定的列表项的值替换成”ABC”。 A.List1.AddItem”ABC’,List1.ListIndex B.List.Text=”ABC” C.List1.List(List.ListIndex)=”ABC” D.前三项均可24．函数CInt(-3.5),Int(-3,5),
3、Fix(-3,5)的值分别是________。 A.-3,-4,-3 B.-4,-4,-4 C.-3,-4,-4 D.-4,-3,-325.设整形变量a、b的当前取值分别为200与20，以下赋值与句中不能正确执行的是______。 A.Text1=a/b*a B.Text1=a*a/b C.Text1=“200”*a/b D.Text1=A&b&a26.对正实数X的第四位小数四舍五入的VB表达式是________。 A．0.001*Int(x+0.005) B.0
4、.001*(1000*x+0.5) C.0.001*Int(1000*x+5) D.0.001*Int(1000*(x+0.0005))27.下列有关数组的说法中,不正确的是________。 A.在窗体模块中不可以定义全局数组 B.可以使用Erase语句释放所有数组所占据的存储空间 C.语句DimX(3.6+2)AsInteger定义了一个维上界是6的一维整型数组 D.形参数组的类型可以是定长字符串类型28．根据控件有下列________属性，就能判断该控件是否可以和数据控件绑定。 1)Record
5、Source 2)DataSource 3)DataField 4)DatabaseName A.1)3) B.2)3) C.3)4) D.1)4)29.窗体上放置有名为Drive1与Dir1的驱动器列表框与文件夹列表框，需要在选定驱动器列表框中的列表项时，文件夹列表框中的内容随之改变，正确的语句及语句的位置是________。 A.Dir1.Path=Drive1.Path‘位于Drive1_Change()过程 B.Dir1.Path=Drive1.Path‘位于Dir1_Chang
6、e()过程 C.Dir1.Path=Drive1.Drive‘位于Drive1_Change()过程 D.Dir1.Path=Drive1.Drive‘位于Dir1_Change()过程30.执行下面的程序段，结果是________。 X=Width/2:Y=Height/2 Picture1.Line(X,Y)-(X,Y-2000) Picture1.Line(X,Y+2000)-(X,Y) Picture1.Line–(X–2000,Y) A.在图片框中画形如┫的交叉直线 B.第6页共6页在图
7、片框中画形如┣的交叉直线 C.在图片框中画形如┳的交叉直线 D.在图片框中画形如┻的交叉直线二、填空题1．执行Command1_Click实践过程后，显示在窗体上的第一行内容是 ，第二行内容是 ，第三行内容是 。 PrivateSubCommand1_Click() S=“TUPMOC”:K=Len(s) ForI=1ToK/2 Mid(S,I,K-2*(I–1))=Mid(S,I+1,K–2*I)&Mid(S,I,1) PrintS NextI EndSub2．运行
8、下面的程序，当单击窗体时，窗体上第一行内容是 ，第三行内容是 ，第四行内容是 。 OptionExplicit DimxAsInteger,yAsInteger PrivateSubForm_Click() DimaAsInteger,bAsInteger a=5:b=3 Callsub1(a,b) Printa,b Printx,y EndSub
