复习2011年3月二级vb真卷

定义无符号整数类为UInt，下面可以作为类UInt实例化值的是 A）- 假定编写了如下4个窗体的过程，则运行应用程序并显示窗体后，已经执 设窗体上有一个名称为HSl的水平滚动条，如果执行了语句：HSl.ValueHSl.MaxHSl.Min2HSl.Min则（。A）窗体上有一个名称为Cbl的组合框，程序运行后，为了输出选中的列表项，应使用的语句是 A）Print B）PrintC）Print D）Print为了在窗体上建立2组单选按钮，并且当程序运行时，每组都可以有一个单选按钮被选中，则以下做法中 2组单选按钮的Index属性分别相 设a=2，b=3，c=4，d=5，则下面语句的输出是 Print3>2*bOra=cAndb<>cOrc>A） D）-窗体Form1上有一个名称为Command1令按钮，以下对应窗体单击的 A）PrivateSubForm B）PrivateSub End EndC）PrivateSub D）PrivateSub End默认情况下，下面的数组的元素个数是 Dima(5,-2To Dim…ForEachxlnaPrintx;Next在上面的程序段中，变量x必须是 A）整型变 …End A）x(0)=Fun(x, B）n=Fun(n,C）CallFun D）n=Fun(x(5),Open"Filel.Txt"ForInputAs A）Input#1, B）LineInput#1,C）ch$=Input$(5, D）read a=10Fork=1To5Step-1a=a-kNextkPrinta;kEndA）-5 B）-5- C）10 D）10设窗体上有一个名为Text1的文本框和一个名为Command1令按钮，并有以下x!=Val(Text1.Text)SelectCasexCaseIs<-10,Is>=CaseIs<0Print20-CaseIs<Print20CaseIs<=Printx+ x=10:y=0Fori=1To5x=x-2y=y+LoopUntily>5Orx<-1End DimarrDimiAsarr=Array(0,1,2,3,4,5,6,7,8,9,Fori=0ToPrintarr(7-End A）87 B）76 C）65 D）54Dima(10)AsIntegerFork=10To1Step-1a(k)=20-2*kNextk=k+Printa(k-End 窗体上有一个名为Commandl令按钮，并有如下程序Dima(10),x%Fork=1Toa(k)=Int(Rnd*90+10)x=x+a(k)Mod2NextkPrintEnd程序运行后，单击命令按钮，输出结果是（。A）10个数中奇数的个数 B）10个数中偶数的个数C）10个数中奇数的累加和D）10个数中偶数的累加和窗体上有一个名为Commandl令按钮和一个名为Timerl的计时器，并有下面的过程PrivateSubForm_Load()EndPrivateSubEnd B）命令按钮每10秒向右移动一C）命令按钮每10毫秒向左移动一 设窗体上有一个名为Listl的列表框，并编写下面的过程PrivateSubDimchAsStringList1.RemoveItemList1.ListIndex List1.AddItemch 窗体上有一个名为Commandl令按钮，并有如下程序PrivateSubCommand1_Click()DimaAsInteger,bAsIntegera=b=Printfun(a,b);a;bEndSuba=aModb=b\5Fun=End A）33 B）38 C）88 D）38为了从当前文件夹中读入文件File1.txt，编写了下面的程序PrivateSubOpen"File1.txt"ForOutputAsDoWhileNotEOF(20)LineInput#20,ch$PrintchClose#20End A）在Open语句中的文件名前添加路径 C）把Printch语句改为Print#20，ch D）把Open语句中的Output改为Input以下程序运行后的窗体如图所示。其中组合框的名称是Combo1，已有列表框如图所示；命令按钮的名称是Command1。PrivateSubMsgBox("输入错误")ExitSubEndIfFork=0ToCombo1.ListCount-IfCombo1.TextCombo1.List(k)ThenMsgBox("添加项目失败")ExitSubEndIfNextMsgBox("添加项目成功")EndPrivateFunctionCheck(chAsString)AsBooleann=Len(ch)Fork=1Toc$=UCase(Mid(ch,k,1))Ifc<"A"Orc>"Z"ExitEndIfNextkCheck=TrueEnd A）显示“输入错误 有序线性表能进行二分查找的前提是该线性表必须是【1】的DBEAFCABDECF，则后序遍历结果为【2】。对软件设计的最小单位（模块或程序单元）进行的测试通常称为【3】测试。实体完整性约束要求关系数据库中元组的【4】属性值不能为空 ,NM)中，A的主关键字是S，B的主关键字是D,则称【5】是关系PrivateSubDimpAsp=m(1)+m(2)+PrintpEndSubPrivateFunctionm(nAsInteger)AsIntegerStaticsAsIntegerFork=1Tos=s+m=End运行程序，单击命令Commandl后的输出结果为【6】。PrivateSubCommand1_Click()DimmAsInteger,xAsIntegerDimflagAsBooleanflag=DoWhileNotflaga=2flag DoWhileflagAnda<=Ifn/a=n\aThenflag=False

IfNotflagThenn=n+1 EndPrivateSubDima(10)AsInteger,iAsIntegernum=Int(Rnd*90)+Forj=1Toi Ifnum=a(j)ThenEndIfNextIfj>ii=i+a(i)= EndLoopWhilei<10Fori=1To9Forj ToIfa(ia(jThentempa(ia(ia(j):【12NextiFori=1ToNextiEndDri、，e1、Dirl、Filel的驱动器列表框、列表框和文件列表框，且有1个名称为Textl的文本框。以下程序的功能是：将指定位置中扩展名为“*.txtFilel中，如果双击Filel中的某个文件，则在Textl中显示该文件的内容。PrivateSubForm_Load()File1.Pattern=【13】EndPrivateSubDir1_Change()File1.Path=EndPrivateSubDrive1