搜索
第1页共11页一、判断题（本大题共12小题，每小题1分，共12分）1.a@b,1x,c[10],b*都是合法的变量。2.一个对象若能识别多个事件，我们只能对其中一个事件编程。3.使用Redim语句只能改变数组的大小，不能改变数组的类型。4.For循环语句正常结束(即不是通过ExitFor语句和强制中断)，其循环控制变量的值一定大于“终值”，并等于“终值＋步长”。5.VB要对一个文件进行写操作时，需要先使用Open语句打开该文件，进行读操作时则可以不用打开。6.如果列表框List1中没有项目被选定，执行List1.RemoveitemList1.Listindex语句会直接删除第一项。7.在过程内用static定义的变量是静态变量，也是全局变量的一种。8.Pset方法可以用来画点，也可以用来画线和圆。9.属性是用来描述和反映对象特征的参数，不同的对象具有各自不同的属性，对象的所有属性都可以在属性窗口中设置。10.数组中的数据可以有相同的数据类型，也可以具有不同的数据类型。11.每个菜单项就是一个控件，它们只能识别Click事件。12.单选按钮与复选框对象的Value属性类型相同，只能取逻辑值True或False。二、单选题（本大题共20小题，每小题1分，共20分）1.有表达式Mid(“200”,1,3)＋123，则运算的结果是（）。（A）200123（B）323（C）出错（D）结果不确定2.表示S字符变量是数字字符的逻辑表达式为（）。（A）S0orS9（B）S=0andS=9（C）S=“0”andS=“9”（D）S=’0’andS=’9’3.若某过程声明为Subaa(nasinteger),则调用（）实参与形参是按地址传递。（A）Callaa(5)（B）Callaa(n+1)（C）Callaa(i-1)（D）Callaa(n)4.如果希望文件列表框只显示可执行文件，应该修改（）属性。（A）Pattern（B）Filter（C）Path（D）Filename5.菜单编辑器中，同层次的（）设置为相同时，才可以设置索引值。（A）Caption（B）Name（C）Index（D）Action6.循环结构Fori=-1to8step2,退出时i的值为（）。（A）8（B）7（C）9（D）107.下面程序段运行后，哪组语句可以将变量A、B的值互换（）。（A）A=C:C=B:B=A（B）A=(A+B)/2:B=(A-B)/2（C）A=B:B=A（D）A=A+B:B=A-B:A=A-B8.利用（）函数可以判断在访问文件时是否已经到达了文件尾。（A）LOF（B）LOC（C）EOF（D）BOF9.下列关于循环的说法错误的是（）。（A）一个Do循环只能使用一个Loop关键字（B）Dowhile-loop语句实现循环时，循环可能一次也不执行（C）Do-loopwhile语句实现循环时，循环可能一次也不执行（D）Do-loopuntil语句实现循环时，只要条件为假，循环将一直执行下去10.通过对话框控件的返回值Filename表示所选择文件的（）。（A）文件主名（B）全名（C）路径名（D）文件扩展名11.输入对话框Inputbox函数的返回值类型是（）。（A）整数（B）长整数（C）浮点数（D）字符串12.下列程序段的执行结果为（）。X=1：Y=2浙江科技学院考试试卷第2页共11页IfX*Y1ThenY=Y-1ElseY=-1PrintY-X0（A）True（B）-1（C）False（D）113.以下程序输出的结果是（）。Dima,i%a=array(1,2,3,4,5,6,7)Fori=Lbound(A)toUbound(A)a(i)=a(i)*a(i)nextiprinta(i)（A）0（B）49（C）程序出错（D）不确定14.为使文本框显示滚动条，必须首先设置的属性是（）。（A）AutoSize=True（B）Alignment=True（C）Multiline=True（D）Scrollbars=True15.要读一个文件名为“c:\t.txt”顺序文件里的内容，下列（）正确。（A）fm=c:\t.txt:OpenfmForInputAs#1（B）Openc:\t.txtForOutputAs#1（C）Openc:\t.txtForInputAs#1（D）fm=c:\t.txt:OpenfmForOutputAs#116.下列关于过程之间参数的说法错误的是（）。（A）通过过程调用实参与形参的结合实现数据的传送（B）数组作参数，传递的可以是地址，也可以是值（C）使用全局变量可以实现各过程中数据的共享（D）变量作为参数，有值传递，也可有地址传递17.在VisualBaic中，要使一个窗体不可见,但不从内存中释放，应使用（）。（A）Show方法（B）Hide方法（C）Load语句（D）UnLoad语句18.图像框中的Stretch属性为True时，其作用是（）。（A）自动设定图像框长度（B）自动扩大图像（C）自动缩小图像（D）图形自动调整大小以适应图像控件19.引用组合框Combo控件中选中的文本内容用（）属性。（A）Selected（B）caption（C）Text（D）List20.下列哪条语句可以正确的声明一个动态数组（）。（A）PrivateA(n)asInteger（B）DimA(1ton)asInteger（C）DimA()asInteger（D）RedimA()asInteger三、程序填空题（本大题共4小题，每空2分，共24分）1.下面过程Uppersen实现从键盘上任意输入一条英文句子，将句子中的每个单词的首字母都变成大写,例如输入：helloworld!要求输出：HelloWorld!以空格作为单词的界定，空格后的字母转换为大写字母。PublicSubUppersen()DimoldsenAsString,newsenAsStringDimcharAsString,lastcharAsStringDimLAsInteger,iAsIntegeroldsen=InputBox(请输入英文句子：)________（1）________lastchar=Fori=1ToL浙江科技学院考试试卷第3页共11页char=________（2）________Iflastchar=Thenchar=________（3）________EndIfnewsen=newsen&charlastchar=charNextiForm1.Printinput:;oldsenForm1.Printoutput:;newsenEndSub（1）（A）L=len(oldsen)（B）L=len(oldsen)-1（C）L=len(newsen)-1（D）L=len(newsen)（2）（A）mid(newsen,i,1)（B）mid(oldsen,1,i)（C）mid(oldsen,i,1)（D）mid(oldsen,i)（3）（A）lastchar（B）Lcase(char)（C）（D）Ucase(char)2.下面程序的功能是用来计算表达式：1+1/3!+1/5!……+1/(2n-1)!……的值，要求其误差小于0.0000001。PrivateSubForm_Click()DimxAsSingle,iAsIntegerDimnAsIntegers=________（4）________n=1Don=n+2t=________（5）________s=s+tLoopWhilet=0.00000001Form1.Prints=;sEndSubPrivateFunctionfact(mAsInteger)AsSingleDimxAsSingle,iAsIntegerx=1Fori=1Tomx=x*iNexti________（6）________EndSub（4）（A）0（B）1（C）2（D）-1（5）（A）callfact(n)（B）fact(n)（C）1/fact(n)（D）1\fact(n)（6）（A）fact(m)=x（B）x=fact(m)（C）fact=x（D）x=fact3.下面的子过程DelRepeat实现以下功能：产生一个由50个10—99的随机整数组成的数组，并整理数组，要求将数组中与前面数组元素重复的数据删除，只保留第一次出现该数据的数组元素，将整理后数组输出。PublicSubDelRepeat()Dimx(50)AsInteger浙江科技学院考试试卷第4页共11页DimiAsInteger,jAsIntegerDimcountAsIntegerRandomizeFori=1To50x(i)=________（7）________NextiForm1.Print原始数据：Fori=1To50Form1.Printx(i);Space(2);IfiMod10=0ThenForm1.PrintNexticount=50i=2DoForj=1Toi-1Ifx(j)=x(i)ThenExitForEndIfNextjIfj=iThen________（8）________ElseForj=i+1Tocountx(j-1)=x(j)Nextj________（9）________EndIfLoopWhileicountForm1.Print整理后数据：Fori=1TocountForm1.Printx(i);Space(2);IfiMod10=0ThenForm1.PrintNextiEndSub（7）（A）int(90*rnd)+10（B）int(91*rnd)+10（C）int(89*rnd)+10（D）int(99*rnd)（8）（A）i=i+1（B）i=i-1（C）count=count+1（D）count=count-1（9）（A）count=count+1（B）count=count-1（C）i=i+1（D）i=i-14.窗体中有2个列表框控件，下面一个合并按钮。初始状态在列表框List1中有一系列单词，按字母的顺序排列，在列表框List2中也按字母的顺序排列了一系列单词，点击合并按钮后，将List1中的单词合并到List2中，如果有重复的则不参加合并，合并后清除List1，效果如图所示。浙江科技学院考试试卷第5页共11页PrivateSubCommand1_Click()Fori=0ToList1.ListCount-1Forj=0To________（10）________IfList1.List(i)=List2.List(j)ThenExitForEndIfNextjIfj=List2.listcountThen________（11）________List1.List(i)EndIfNexti________（12）________EndSub（10）（A）List2.listcount（B）List2.Listcount-1（C）6（D）7（11）（A）List2.Removeitem（B）List2.Additem（C）List1.Removeitem（D）List1.Additem（12）（A）List1.clear（B）List2.clear（C）list1.cls（D）list2.cls四、程序阅读题（本大题共6小题，每小题4分，共24分）1.运行下列程序(目前的系统时间是12:29:39)，窗体上显示的结果是（）。PrivateSubForm_Load()Timer1.Interval=1000Form1.FontSize=24EndSubPrivateSubTimer1_Timer()StatickAsByteForm1.ClsIfk=0Thenk=1Elsek=0Ifk=0ThenForm1.ForeColor=RGB(0,255,0)ElseForm1.ForeColor=RGB(0,0,255)EndIfForm1.CurrentX=2600Form1.CurrentY