VB期末考试

-1-1.函数InStr(VB程序设计教程，程序)的值为______。32.在程序中分别将变量IntA、Bl、st和D定义为整型、布尔型、字符串型和日期型，下列赋值语句在执行时会出错的是____。Bl=#True#3.如果要在语句：a=Array(1,2,3,4,5)的前面声明变量a，则正确的声明是___________。DimaAsVariant4.窗体上有名称为Command1的命令按钮，名称分别为List1、List2的列表框，其中List1的MultiSelect属性设置为1（Simple），并有如下事件过程：PrivateSubCommand1_Click()Fori=0ToList1.ListCount-1IfList1.Selected(i)=TrueThenList2.AddItemTextEndIfNextEndSub上述事件过程的功能是将List1中被选中的列表项添加到List2中。运行程序时，发现不能达到预期目的，应做修改，下列修改中正确的是___________。将Lsit2.AddItemText改为List2.AddItemList1.List(i)5.设有如下函数Functiondelspace(chAsString)AsIntegerDimn%,st$,c$st=n=0Fork=1ToLen(ch)c=Mid(ch,k,1)IfcThenst=st&cElsen=n+1EndIfNextkch=stdelspace=nEndFunction该函数的功能是:删除字符串ch中的空格符，返回删除字符的个数6.下列程序段的执行结果为____________18DimA(5,5)AsIntegerFori=1To3Forj=1To4A(i,j)=i*jNextjNextiPrintA(2,3)+A(3,4)+A(4,5)7.执行下列程序段，输出结果为__________。出错Dima()AsInteger-2-DimiAsIntegerReDima(10)Fori=1To10a(i)=2*i-1NextiPrinta(4);EraseaPrinta(4)8.设有如下程序OptionBase1PrivateSubCommand1_Click()Dima(10)AsIntegerDimnAsIntegern=InputBox(输入数据)Ifn10ThenCallGetArray(a,n)EndIfEndSubPrivateSubGetArray(b()AsInteger,nAsInteger)Dimc(10)AsIntegerj=0Fori=1Tonb(i)=CInt(Rnd()*100)Ifb(i)/2=b(i)\2Thenj=j+1c(j)=b(i)EndIfNextiPrintjEndSub以下说法中错误的是___________。GetArray过程的参数n是按值传送的9.若在应用程序的标准模块.窗体模块和过程Sub1的说明部分，分别用PublicGAsInteger、PrivateGAsInteger和DimGAsInteger语句说明了三个同名变量G。如果在过程Sub1中使用赋值语句G=3596，则该语句是给在___________说明部分定义的变量G赋值。过程Sub110.执行语句DimX,YAsInteger后__。x被定义为变体类型变量，Y被定义为整型变量11.窗体上有名称为List1的列表框。以上能够将列表框当前选定的列表项替换为字符串Basic的语句是:List1.List(List1.ListIndex)=Basic12.VB中三种文件访问的类型为___________.顺序、随机、二进制13.在标准模块中，将a定义为全局整型变量的语句是:PrivateaAsInteger14.有程序段如下：Fori=1To3Forj=5ToiStep-1Printi*j-3-NextjNexti其中Printi*j语句执行的次数为_________。1215.下面程序段的运行结果为________。溢出DimsAsInteger,iAsIntegeri=1:s=1Doi=i+sLoopUntils10Printi,s16.在文本框Text1中输入数字12，Text2中输入数字34，执行以下语句，只有:Text3.Text=val(Text1.Text)+val(Text2.Text)_可使文本框Text3中显示4617.假定在图片框Picture1中装入了一个图片，在程序运行时，为了清除该图片（注意，清除图片，而不是删除图片框），应采用的正确方法是___________。执行语句Picture1.Picture=LoadPicture()19.下面关于VB数据文件的叙述中错误的是___________。VB应用程序不能把一个二维表格中的数据存入文件20.表达式Right(Beijing,4)的值是______。jing21.下列说法正确的是____。模块级变量可在模块通用声明段中用Private和Dim定义22.假定在窗体上建立了通用对话框，其名称为CommonDialog1，用下面的语句可以建立一个对话框:CommonDialog1.Action=2与该语句等价的语句是___________。CommonDialog1.showsave23.设有如下事件过程：PrivateSubCommand1_Click()Dimaa=Array(3,5,6,3,2,6,5,3,5,4,3,9,4,5,6,3,5)x=0n=UBound（A）Fori=0Tonm=0Forj=0TonIfa(i)=a(j)Thenm=m+1EndIfNextjIfmxThenx=m:b=a(i)NextiPrintbEndSub运行程序，输出的是324.如果x是一个正实数，对x的第3位小数四舍五入的表达式0.01*Int(100*(x+0.005))25.执行语句：A=Inputbox(Today,Tomorrow,Yesterday)将显示一个输入对话框，在对话框的输入区中显示的信息是______。Yesterday26.以下关于图片框、图像框的叙述中，正确的是:图片框可以通过Print方法显示文本-4-27.有下面的程序段：x=InputBox(字符串,输入,请输入)Printx如果执行上面程序段时没有从键盘输入任何内容就直接按了回车键，则输出内容是___________。请输入28.窗体Form1的名称属性是frm，它的Load事件过程名是_______。Form_Load29.下面关于标准模块的叙述中错误的是___________。标准模块中可以包含一个SubMain过程，但此过程不能被设置为启动过程30.在下面的程序段中，循环体将执行______次。6Forv=20To10Step-2printvNextv31.在下面的程序段中，循环体将执行______次。0Forv=10To20Step-2printvNextv32.窗体上有一个名称为CD1的通用对话框，一个名称为Command1的命令按钮，相应的事件过程如下：PrivateSubCommand1_Click()CD1.Filter=AllFile|*.*|TextFile|*.txt|Word|*.DocCD1.FilterIndex=2CD1.FileName=E:\Test.pptCD1.InitDir=E:\CD1.ShowOpenEndSub关于上述程序，以下叙述正确的是___________。指定的初始目录为E:\33.以下关于动态数组的说法中不正确的是_。使用ReDim语句可以改变动态数组的类型34.在VB中，函数过程与子程序过程的区别之一是___________。函数过程有返回值，而子程序过程没有35.若要使文本框能够输入多行文本，应该设置的属性是___________。MultiLine36.在窗体上用复制、粘贴的方法建立一个命令按钮数组，数组名为C1，共有3个数组元素。设窗体Form1的标题为Myform1，打开代码编辑器，写下如下代码：PrivateSubC1_Click(IndexAsInteger)Form1.Caption=myform2EndSub运行时，单击按钮数组中的第三个按钮，则窗体标题为______myform237.Sub过程与Function函数最根本的区别是____。前者无返回值，但后者有38.若在应用程序中用PrivateSubSub1(XAsInteger,YAsSingle)定义了子程序Sub1，以下调用子程序Sub1的Call语句中____是错误的。CallSub1(5)39.为了建立一个随机文件，其中每一条记录由多个不同数据类型的数据项组成，应使用___________。记录类型40.窗体上有一个名称为Combo1的组合框，要求在其编辑区输入文本并按回车键后，编辑区中的文本被添加到列表中。下面能实现这一功能的是___________。PrivateSubCombo1_KeyDown(KeyCodeAsInteger,ShiftAsInteger)-5-IfKeyCode=13ThenCombo1.AddItemCombo1.TextEndIfEndSub41.执行以下程序，单击命令按钮后，输出结果是______。012345678910PrivateSubCommand1_Click()Dima(10)AsIntegerDimbFori=1To10a(i)=iNextiForEachbInaPrintb;NextbEndSub42.从键盘上输入任一正整数n，判断该数是否是完全数。如果一个数的所有因子和正好等于该数，则称该数为完全数。PrivateSubCommand1_Click()DimnAsInteger,iAsIntegerDimsAsIntegern=InputBox(请输入要判断的数)i=1_____________s=1Doi=i+1IfnModi=0Thens=s+iLoopuntili=n-1If________ThenPrintn;是完全数[NY]s=n或n=sEndSub43.执行下面的程序段，文本框Text1中显示的是_______。9DimiAsInteger,jAsIntegeri=1DoWhilei20j=i+ji=i*(i+1)LoopText1.Text=j44.运行下面的程序，显示结果是___________。45PrivateFunctiondigit(nAsInteger,kAsInteger)AsIntegerdigit=0DoWhilek0digit=nMod10n=n\10:k=k-1Loop-6-EndFunctionPrivateSubForm_Click()Printdigit(4567,4);Printdigit(4567,3)EndSub45.有如下程序a=100Dos=s+aa=a+1LoopWhilea120Printa运行后的输出结果为______。10146.执行下列程序，单击命令按钮在窗体上输出结果为______。563OptionBase1PrivateSubCommand1_Click()Dima(3,3)AsInteger,kAsIntegerDimiAsInteger,jAsInteger,nAsIntegern=UBound(a,1)Fori=1Ton-2Forj=iTon-ia(i,j)=k+1a(j,n+1-i)=k+2a(n+1-i,n+1-j)=k+3a(n+1-j,i)=k+4k=k+4NextjNextiIfnMod20Thena((n+1)/2,(n+1)/2)=k+1EndIfPrinta(1,2);a(2,3);a(3,3)EndSub47.设在窗体上有一个文本框Text1，一个标签数组Label1，共有10个标签，以下程序段实现在单击任一个标签时将标签的内容添加到文本框现有内容之后。