2002年(秋)笔试试卷

《2002年(秋)笔试试卷》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、第二部分VisualBasic程序设计一、选择题(每题1分，共10分。)21．在程序中将变量Inta、Bl、St和D分别定义为Integer型、Boolean型、String型和Date型，下列赋值语句中，正确的是_________。A．Inta="333"+"22"B．D=#10／05／01#C．St=5+"abc"D．B1=#True#22．以下使用方法的语句中，正确的是_________。A．List1.ClearB．Form1.C1earC．Combo1.ClsD．Picture1.C1ea

2、r23．以下所列的7个控件中，具有Caption属性的有_________个。PictureBox(图片框)、Frame(框架)、OptionButton(单选按钮)、“listBox(列表框)、TextBox(文本框)、Form(窗体)、DriveListBox(驱动器列表框)A．3B．4C．2D．524．以下有关对象属性的说法中错误的是________。A．所有的对象都具有Name(名称)属性B．只能在执行时设置或改变的属性为执行时属性C．对象的某些属性只能在设计时设定，不能使用代码改变D．En

3、abled属性值设为False的控件对象在窗体上将不可见25．在窗体的通用声明处有语句“DimA()AsSingle”，以下在某事件过程中重定义此数组的一组正确语句是_________。A．ReDimA(3，3)B．ReDimA(3，3)ReDimA(4，4)AsIntegerReDimPreserveA(4,4)C．ReDimA(3)D．ReDimA(3，3)ReDimA(3，3)AsIntegerReDimPreserveA(3，4)26．在窗体Form1中用“PublicSubFun(xAsI

4、nteger，YAsSingle)”定义过程Fun，在窗体Form2中定义了变量i为Integer，J为Single，若要在Form2的某事件过程中调用Form1中的Fun过程，则下列语句中正确的语句有_________个。①CallFun(i,j)②CallForm1.Fun(I,i)③Form1Fun(i),j④Form1.Funi+l,(j)A．1B．2C．3D．427．在文本框Text1中输入数字12，在文本框Text2中输入数字34，执行以下语句，只有_______可使文本框Text3中显

5、示46。A．Text3.Text=Text1.Text＆Text2.TextB．Text3.Text=Val(Text1.Text)+Val(Text2.Text)C．Text3.Text=Text1.Text+Text2.TextD．Text3.Text=Val(Text1.Text)&Val(Text2.Text)28．在窗体模块的通用声明处有如下语句，会产生错误的语句是__________。①ConstAAsInteger=25②PublicStAsString*8③ReDimB(3)AsIn

6、teger④DimConstXAsInteger=10A．①②B．①③C．①②③D．②③④29．下列定义Sub过程的语句中，正确的语句是_________。①PrivateSubTest(StAsString*8)②PrivateSubTest(Sarray()AsString*5)③PrivateSubTest(Sarray()AsString)④PrivateSubTest(StAsString)A．①②B．①④C．②③④D．①②③④30．VB中利用Circle方法不可以画__________。

7、A．圆B．直线C．弧D．椭圆二、填空题(每空1分，共30分。)1．将任意一个两位正整数N的个位数与十位数对换得到新数的VB表达式是________。2．执行下面的程序，单击窗体，则在窗体上显示的第一行是________，第二行是_______PrivateSubForm_Click()Dima(3,3)AsInteger,iAsInteger,jAsIntegerFori=1To3Forj=1To3a(I,j)=(I-1)*2+jNextJNextiForj=1To3ForI=jTo3Printa(

8、j,i);NextiPrintNextjEndSub3．执行下面的程序，单击命令按钮Command1，则窗体上显示的第一行是_______，第二行是________，第三行是________。PrivateSubCommand1_Click()DimSAsString,tAsStringDimkASInteger,mASIntegers="BASICY"k=1:m=kFork=1ToLen(s)Stepm+1t=t&Chr(Asc(Mid(s,m,1))+k)k=k+