《计算机程序设计基础》课后练习题习题与讲解

《计算机程序设计基础》课后练习题参考答案《计算机程序设计基础》课后练习题1一．判断题(1)（错）事件过程由某个用户事件或系统事件触发执行，但不能被其他过程调用。(2)（错）若X＝2,Y＝5，则表达式Y－2>XANDX＋2＞Y的结果为：True。(3)（错）常量是指在程序运行过程中其值可以改变的那些量。(4)（错，timer没有）VB工具箱中的所有控件都具有宽度（Width）和高度（Height）属性。(5)（错）定义变量：Dimmax,minasSingle,则max和min的数据类型均为Single。(6)（对）如果创建的菜单项的标题是一个减号“-”，则该菜单项显示为一条分隔线。(7)（错）标准模块文件的扩展名是“*.VBP”。(8)（错，都不能）定时器控件可以响应Click事件，但不能响应DbClick事件。(9)（错）在默认情况下，数组下标下界的缺省值为1。第1页共59页

第1页共59页(11)A）leftB）scaleleftC）scaletopD）scalewidth(12)执行下列语句后，列表框中各表项顺序为DList1.ClearFori=1to4:List1.AddItemi-1,0：NextiA）B）C）D）(13)输入对话框InputBox的返回值的类型是A。A）字符串B）整数D）长整数C）浮点数(14)将焦点主动设置到指定的控件或窗体上，应采用B方法。A）SetDateB）SetFocusC）SetTextD）GetData(15)有如下程序段：DimIAsInteger,SAsIntegerS=1第1页共59页FORI=1TO8STEP2S=S*INEXTIPRINT“S=“;S运行结果为BA）S=9B）S=105C）S=1D）S=16(16)利用以下___D____语句，可以输出日期和时间信息。A）PrintDateB）PrintMonthC）PrintTimeD）PrintNow(17)一只漂亮的酒杯被摔碎了，则漂亮，酒杯，摔是___D____。A）对象，属性，事件对象，属性，方法C）属性，对象，方法属性，对象，事件B）D）(18)将通用对话框以“打开文件对话框”方式打开，则选以下A方法。A)ShowOpenB）ShowColorC）ShowSaveD）ShowFont第2页共59页(19)执行语句“Line(100,100)-(150,200),vbBlue,B”,在窗体上绘制出一个矩形，那么该矩形的面积=A）5000A。B）10000C）15000D）20000(20)如何使一个标签或按钮控件在运行时不可用___C____。A）把它的Visible属性设置成FalseB）把它的Visible属性设置成TrueC）把它的Enabled属性设置成FalseD）把它的Enabled属性设置成True(21)下列C表达式的结果为"1234556789"。A）Trim("12345"+"56789")B）Ltrim("12345")+Rtrim("56789")C）Rtrim("12345")&("56789")D）Ltrim("12345")&Rtrim("56789")(22)将图形框（PictureBox）控件的AutoSize属性设置为True后，则对于图形框而言，____B____。A）图形框中的图片自动改变大小适应图形框第3页共59页B）图形框自动改变大小适应其中的图形C）如果图片的大小比图形框大，则图形框自动裁剪图象以适应图形框的大小。D）如果图片的大小比图形框小，则图形框大小不发生变化。(23)要获得当前驱动器应使用驱动器列表框的哪个属性B。A）PathD）PatternB）DriveC）Dir(24)以下关于函数过程的叙述中，正确的是____A____。A）函数过程形参的类型与函数返回值的类型没有关系B）在函数过程中，过程的返回值可以有多个C）数组作为函数过程的参数时，既能以传值方式传递，也能以传址方式传递D）如果不指明函数过程参数的类型，则该参数没有数据类型(25)单击滚动条的滚动箭头时，产生的事件是___C____。第4页共59页A）ClickB）ScrollD）MoveC）Change(26)以下能返回文件长度的函数是__B___。A）BOFD）EOFB）LOFC）LEN二．程序填空题【程序填空1】在C盘当前文件夹下已存在名为Data.txt的文件，利用文本框（Text1）输入若干英文单词。要求每输入一个单词后，按下回车键将文本框中的单词写入文件，然后清除文本框的内容以便输入下一个单词。当在文本框中输入的单词是“END”时，则表示结束输入（对于单词“END”不论大小写都视为结束），最后将文件关闭。PrivateSubForm_Load()（31）AText1.Text=""EndSubPrivateSubText1_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13Then第5页共59页If（32）D="END"ThenClose#EndElse（33）A（注意，Text1的默认属性为text，可省略不写）Text1.Text=""EndIfEndIfEndSub(27)A）Open"C:\Data.txt"ForOutputAs#１B）Open"C:\Data.txt"ForInput#１C）Open"C:\Data.txt"InputAs#１D）Open"C:\Data.txt"OutputAs#１(28)A）LCase(Text1.Text)Text1.TextB）C）Str(Text1)D）UCase(Text1.Text)(29)A）Write#1,Text1TextB）Write#1,D）Write#1,C）Write#3,Text1.Text第6页共59页Text.Text【程序填空2】程序运行后如下图所示，Label1的Caption显示为"字体定时变大"，影响字体大小的属性每隔0.5秒增加1，数值在[8，72]之间变化。OptionExplicitPrivateSubForm_Load()Timer1.Enabled=True（34）BLabel1.Caption="字体定时变大"EndSubPrivateSubTimer1_Timer()StaticiAsIntegerIfi<7Ori>=72Theni=7i=i+1第7页共59页（35）AEndSub(30)A）Timer1.Interval=5/10BTimer1.Interval=500））））C）Timer1.Interval=TrueDTimer1.Interval=False(31)A）Label1.FontSize=iBLabel1.Font=iC）Label1.Size=iDLabel1.FontSize=i+1【程序填空3】已知五个数存放在数组中，用冒泡法对该数组进行递减排序（冒泡法：一旦发现数组中两个数逆序马上交换这两个数）。PrivateSubCommand1_Click()Dima(1To5)AsIntegerDimn%,i%，j%,t%a(1)=53:a(2)=34:a(3)=45:a(4)=89:a(5)=23Fori=1To4（确保第i轮循环后，a(i)位置上存放第i大的数）Forj=5Toi+1Step-1第8页共59页If（36）Bt=a(j)Then（37）Da(j-1)=tEndIfNextjNextiFori=1To5Printa(i);NextiEndSub(32)A）a(j)<a(j-1)a(j-1)B）a(j)>C）a(i)>a(j)(33)A）a(i)=a(j)C）a(j)=a(i)D）a(j)>a(i)B)a(j-1)=a(j)D)a(j)=a(j-1)【程序填空4】在窗体上画一个名称为Combol的组合框，画两个名称分别Label1和Label2及Caption属性分别为“城市名称”和空白的标签。程序运行后（如下图所示），当在组合框中输入一个新的项目按回车键时（回车键的第9页共59页ASCII码为13），如果输入的项在组合框的列表中不存在，则自动添加到组合框的列表中，并在Label2中给出提示“已成功添加输入项；“输入项已如果存在，则在Label2中给出提示在组合框中”。PrivateSubCombo1_KeyPress(KeyAsciiAsInteger)If_(38)BThenFori=0ToCombo1.ListCount-1IfCombo1.Text=_(39)BThenLabel2.Caption="输入项已在组合框中"ExitSubEndIfNextiLabel2.Caption="已成功添加输入项"Combo1._(40)CCombo1.Text第10页共59页EndIfEndSub(34)A）KeyAscii=0C）KeyAscii=8B）KeyAscii=13D）KeyAscii=9(35)A）Combo1.ListIndexB）Combo1.List(i)C）Combo1.AddItem(i)D）Combo1.Clear(36)A)SelectedC)AddItemB)RemoveItemD)ListIndex三．程序阅读题【程序阅读1】根据以下代码，单击窗体三次，那么第一次单击后输出的a、b、c的值为_____(41)_C__，第二次单击后输出的a、b、c的值为_____(42)__D_，第三次单击后输出的a、b、c的值为_____(43)_A_。Privatea%,b%,c%PrivateSubForm_Click()DimaAsInteger第11页共59页c=2CallAA(c)b=BB(a)Printa,b,cEndSubPublicSubAA(c%)a=c+bc=a+cEndSubPublicFunctionBB(ByValb%)b=b+1BB=a+bEndFunction(37)A）254B）234D）032B）7159C）034(38)A）7129C）062D）067B）092(39)A）0910C）171935D）102732【程序阅读2】阅读下列程序并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。PrivateSubForm_Click()Form1.Scale(-10,10)-(10,-10)Form1.Circle(0,0),5,,-3*3.14第12页共59页

/2,Form1.FillStyle-3.14=0EndSub(44)运行以上程序，第一次单击窗体后，Form1上的输出结果是(44)A，C）A）B）D）(45)第二次单击窗体后,Form1上的输出结果是(45)B。A）C）B）D）【程序阅读3】阅读下列程序并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。（↙：表示回车）PrivateSubForm_Load()Text1.Text="":Form1.ClsEndSubPrivateSubText1_KeyPress(kAsInteger)StaticsAsIntegerIf(Chr(k)<"0"OrChr(k)>"9")Andk<>第13页共59页13Thenk=0Ifk=13Thens=s+Val(Text1.Text):Text1.Text="":Prints;EndSub(46)写出运行时在Text1中依次按“1↙3↙5↙”输入后窗体上的显示结果_(46)_A__。A）149B）9C）135D）5(47)写出运行时在Text1中依次按“1↙-3↙5↙”输入后窗体上的显示结果_(47)_B___。A）1-23B）149C）1-35D）3(48)写出运行时在Text1中依次按“1↙2a↙5↙”输入后窗体上的显示结果_(48)D__。A）14348B）125D）138C）5【程序阅读4】PrivateSubForm_click()DimxAsSinglex=Val(InputBox("输入x"))SelectCasex\2Case1Print"y=";xCase2Print"y=";xMod2Case3Print"y=";xMod3第14页共59页CaseElsePrint"y=";x\2EndSelectEndSub(49)当x的输入值为5时的运行结果为（49）CA）y=5B）y=2.5D）y=0C）y=1(50)当x的输入值为5.5时的运行结果为（50）DA）y=5B）y=2.5C）y=1D）y=0(51)当x的输入值为-7时的运行结果为（51）BA）y=-7B）y=-3C）y=1D）y=3.5【程序阅读5】设text1.text为“abcdef”，运行时连续单击2次控件Hscroll1右侧箭头后，组合框控件中的第一项为_(52)A_、第二项___(53)A_。PrivateSubForm_Load()HScroll1.SmallChange=1:HScroll1.Max第15页共59页=5HScroll1.Min=1:HScroll1.Value=1Combo1.ClearEndSubPrivateSubHScroll1_Change()Combo1.AddItemHScroll1.Value),0EndSubLeft(Text1.Text,(52)A）abcB）abcdC）abC）abcD）abcde(53)A）abD）abcdB）abcde【程序阅读6】阅读下列程序并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。PrivateSubf(sAsString)（解释：根据代码推测功能是：将字符串s等分为两部分，并交换前半部与后半部的位置，如“abcde”，交换后得“decab”）DimiAsInteger,nAsInteger,cAsStringn=Len(s)IfnMod2=1Thenc=Mid(s,n\2+1,1)Fori=1ToLen(s)\2c=Mid(s,Len(s)+1-i,1)+c+Mid(s,i,1)Nextis=cEndSubPrivateSubCommand1_Click()DimxAsStringx=InputBox("x=")Callf(x)Printx第16页共59页

EndSub(54)单击Command1后输入"abc"，窗体上显示结果为（54）A：A）cbaabcB）bcaD）acbC）(55)如果将Sub过程f首句改为PrivateSubf(ByvalsAsString)，单击Command1后输入"abcd"，窗体上显示结果为：（55）CA）abdcB）cdabC）abcdD）bcad第17页共59页《计算机程序设计基础》课后练习题2一、判断题1．（错）任何控件都有一个Caption属性。2．（对）对于事件驱动型应用程序，每次运行时的执行顺序可以不一样。3．（错）用以下语句定义：Dimmax,minasSingle,则max和min的数据类型均为Single。4．（对）通用对话框不能真正实现文件打开、文件存储、设置颜色、字体设置、打印等操作，如果想要实现这些功能则需要编程实现。5．（对）用Scale方法改变了窗体坐标系后，窗体的Left、Top属性值不变。6．（对）在某列表框中一共有5个选项，而当选中第三项时，这时列表框的ListIndex属性为2。7．（错，标准模块文件格式为.bas）VB中工程文件是指与该工程有关的全部文件和对象，其扩展名是.vbp；窗体文件包括窗体及其控件的正文描述，其扩展名是.frm；标准第18页共59页

模块文件是可选的，其扩展名是.cls。。8．（错，Clear方法）用Cls方法可以清除组合框中的所有表项。9．Frame控件可以作为其他控件的容器。10．（错）VisualBasic工具箱中的所有控件都具有宽度（Width）和高度（Height）属性。11.P的值为－3时，－P^2的值是___B_____。A、9B、–9C、6D、-612.以下程序段的执行结果为_____A_______。DoLoopWhileA<10PrintA;BA、105B、ABC、01D、103013.设置列表框中列表数量的属性是__B____。A、ListB、ListCountC、ListIndexD、Columns14.要获得当前驱动器应使用驱动器列表框的哪个属性__B__。A、PathB、DriveC、DirD、Pattern15.以下Case语句中错误的是___C_____。A、Case0To10Is>10B、CaseC、CaseIs>10AndIs<50D、Case3,5,7,Is>1016.执行语句s=Len(Mid("VisualBasic",0,5))后，s的值是___D_____。A、VisualB、BasicC、6D、表达式有错17.以下关于函数过程的叙述中，正确的是___A_____。A、函数过程形参的类型与函数返回值的类型没有关系B、在函数过程中，过程的返回值可以有多个C、当数组作为函数过程的参数时，既能以传值方式传递，也能以传址方式传递第20页共59页

D、如果不指明函数过程参数的类型，则该参数没有数据类型18.在窗体上画一个名称为TxtA的文本框,然后编写如下的事件过程：PrivateSubTxtＡ_KeyPress(keyasciiasinteger)若焦点位于文本框中,则能够触发A、单击鼠标B、按下键盘上的“A”键C、鼠标滑过文本框D、按下键盘上的任意键19.执行行下面的事件过程，在窗体显示的内容是___B_____。PrivateSubCommand1_Click()DimaAsVarianta=Array(12,23,34,45,56)Fori=1To3PrintTrim(a(i));NextIEndSubA、122334B、233445C、122334D、23344520.将图形框（PictureBox）控件的AutoSize属性设置为True后，则对于图形框而言，____B____。A、图形框中的图片自动改变大小适应图形框B、图形框自动改变大小适应其中的图形C、如果图片的大小比图形框大，则图形框自动裁剪图象以适应图形框的大小。D、如果图片的大小比图形框小，则图形框大小不发生变化。21.在图形框控件picture1上坐标(100,100)和(500,500)之间画一条红色直线，写作__C__。A、Line(100,100)-(500,500)vbRedB、Line(100,100)-(500,500)RGB(0,255,0)C、picture1.Line(100,100)-(500,500)RGB(255,0,0)D、picture1.Line(100,100)-(500,500)Red22.下列赋值语句中，___C_____是错误的。A、x=x+1D、x=4>6B、x=x+yC、x+y=x23.单击滚动条的滚动箭头时，产生的事件是____C______。A、ClickD、MoveB、ScrollC、Change24.在程序运行期间可以用____D______函数把图形装入窗体、图片或图象框。A、AutosizeB、StretchC、PictureD、LoadPicture25.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()DimnumAsIntegernum=1DoUntilnum>6Printnum;num=num+2.4第23页共59页

LoopEndSub程序运行后，单击命令按钮，则窗体上显示的内容是____B______。A、13.45.8C、147B、135D、无数据输出26.___C____对象具有Clear方法。A、窗体B、复选框C、列表D、图片框框27.设a=16，b=7，c=1，则表达式a\3+2=bAndc=91Mod3的结果_____A_____。A、TrueB、FalseC、1D、出错信息28.设有如下通用过程：PublicSubFun(a(),ByValxAsInteger)Fori=1To5x=x+a(i)NextEndSub在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如第24页共59页

下的事件过程：PrivateSubCommand1_Click()Dimarr(5)AsVariantDimnasIntegerFori=1To5arr(i)=iNextn=10CallFun(arr(),n)Text1.Text=nEndSub程序运行后，单击命令按钮，则在文本框中显示的内容是AA、10B、15D、24C、2529.窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()DimnumAsIntegerFornum=1To6Step3Printnum;第25页共59页NextnumPrintnumEndSub程序运行后，单击命令按钮，则窗体上显示的内容是____C______。A、144B、135C、147D、无数据输出30.以下___A____方式打开的文件只能读不能写。A、InputB、OutputAppendD、RandomC、三、程序填空程序1．在C盘当前文件夹下建立一个名为Data.txt的顺序文件，要求用文本框输入若干英文单词，每次按下回车键时将文本框中的内容写入文件，并清除文本框的内容，直到文本框输入END为止，最后关闭文件。PrivateSubForm_Load()（31）C第26页共59页Text1.Text=""EndSubPrivateSubText1_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenIf（32）D="END"Then（33）BEndElse（34）AText1.Text=""EndIfEndIfEndSub31.A、Open"D:\Data.txt"ForOutputAs#１B、Open"C:\Data.txt"ForInput#１C、Open"C:\Data.txt"ForOutputAs#１D、Open"C:\Data.txt"OutputAs#１32.A、LCaseText1.TextB、Text1.TextC、Str(Text1)D、第27页共59页UCase(Text1.Text)33.A、Quit#1B、Close#1C、End#1D、Exit#134.A、Write#1,Text1#1,TextB、WriteC、Write#3,Text1.TextText.TextD、Write#1,程序2．下面程序的作用是利用随机函数产生100个随机整数,范围在[20，120]之间（包含20和120），打印其中为5或7的倍数的数，求出它们的总和并打印。请将下列程序补充完整。PrivateSubCommand1_Click()SUM=0Fori=1To100X=Int（（35）B）If（36）DThenSUM=SUM+X（37）AEndIfNexti第28页共59页Print"SUM=";SUMEndSub35.A、Int(Rnd*100+20)Int(Rnd*101+20)B、D、C、Int(Rnd*101+19)Int(Rnd*100+21)36.A、XMod5=0andXMod7=0B、X\5=0andX\7=0C、X\5=0OrX\7=0D、XMod5=0OrXMod7=037.A、PrintX;B、PrintSUM+X;C、PrintSUM;D、PrintSUM*X;程序3．单击窗体后，用输入对话框输入x、n，然后按下式计算结果。要求：将计算结果以标签控件显示，且标签控件每秒随机变换一次颜色。S＝xx2x3(n1)!xn2!3!4!OptionExplicitPrivateSubForm_Load()Timer1.Interval=1000第29页共59页Timer1.Enabled=TrueEndSubPrivateSubForm_Click()DimxAsSingle,nAsInteger,iAsInteger,tAsSingle（38）Bs=0x=InputBox("x=")n=InputBox("n=")（39）Dfori=（40）At=t*x/is=s+tNexti（41）CEndSubPrivateSubTimer1_Timer()Label1.BackColor=RGB(Rnd*255,Rnd*255,Rnd*255)EndSub38.A、StaticsAsSingleB、DimsAs第30页共59页SingleC、OptionBase1SingleD、ConstsAsB、t=0C、t=239.A、t=-1D、t=140.A、2Ton+1B、1TonC、2TonD、1Ton+141.A、Label1.Caption=xLabel1.Caption=nB、C、Label1.Caption=sLabel1.Caption=s+xD、程序4．设计一个程序，用于从文本框Text1输入课程名称，单击按钮，添加到列表框（List1）中显示出来。具体要求：单击“Command1”按钮，若文本框Text1.Text中不是空格串，并且列表中也没有，则将该课程添加列表框中，然后清除文本框Text1的内容，以便再次在文本框Text1输入内容，PrivateSubCommand1_Click()再将焦点返回到文本框Text1，继续添加。第31页共59页

DimIAsIntegerDimAddFlagAsBoolean（42）AIf（43）CThenFori=0To（44）BIfList1.List(i)=Text1.TextThenAddFlag=FalseExitForEndIfNextiIfAddFlagThenList1.AddItemText1.TextEndIfText1.Text=""（45）BEndSub42.A、AddFlag=-1B、AddFlag=FalseC、AddFlag=1D、AddFlag=043.A、text1.text=“”B、text1.text=“”第32页共59页C、text1.text<>“”D、text1.text<>“NULL”44.A、List1.ListIndex–1B、List1.ListCount-1C、List1.ListIndexList1.ListCountD、45.A、text1.ClearB、text1.SetFocusC、text1.MoveD、text1.ReFresh四、程序阅读程序1．写出下列程序运行结果，单击命令按钮控件后窗体上的显示结果PrivateSubCommand1_Click()Dima(1To6)AsIntegerFori=1To6a(i)=i*iNextiForj=1To3（解释：将后3个数挪到数组前头）temp=a(6)第33页共59页

Fori=6To2Step-1a(i)=a(i-1)Nextia(1)=tempNextjFori=1To6Printa(i);NextiEndSub结果：程序2．单击窗体后，在四个PictureBox控件中的图形分别是：（答案略）OptionExplicitPrivateSubForm_Click()Dimi%Fori=0To3Picture1(i).Scale(-10,10)-(10,-10)NextiPicture1(0).Line(-10,10)-(0,0)Picture1(0).Line-(-10,-10)第34页共59页Picture1(1).Circle(0,0),5Picture1(2).Circle(0,0),5,,0,3.14159Picture1(3).Circle(0,0),5,,,,2EndSubPrivateSubForm_Load()DimiAsIntegerFori=0To3Picture1(i).FillStyle=(i+1)Mod2Picture1(i).ClsNextiEndSub结果：程序3．事先将text1.text设为为空，在获得焦点后,从键盘上依次按下以下键:"1","2","+","3","4","-","5","6",第35页共59页"/","1","4",然后按回车键，写出输出结果。PrivateSubText1_KeyPress(KAsInteger)IfK<Asc("0")OrK>Asc("9")ThenK=0PrintText1.TextEndIfEndSub结果：程序4．在窗体上画一个名称为Command1的命令按钮，然后编写相应的事件过程。程序运行后，如果单击命令按钮，则在窗体上显示的内容是PublicFunctionf(xAsInteger)DimyAsIntegerx=20y=2f=x*y第36页共59页EndFunctionPrivateSubCommand1_Click()StaticxAsIntegerx=10y=5y=f(x)Printx;yEndSub结果：第37页共59页《计算机程序设计基础》课后练习题3一．判断题1．（错）窗体或控件的事件的名称可以由编程人员确定。2．（错）关系运算表达式"1"+"2"="3"的运算结果为True。3．（对）变量是指在程序运行过程中其值可以改变的那些量，而值不能改变的是常量。4．（对）控件的有些属性只能在运行时设置。5．（对）数组在内存中占据一片连续的区域。6．（错）驱动器列表框、目录列表框、文件列表框三者之间能够自动实现关联。7．（错）当按钮的Default属性设置为True时，任何情况下按<Enter>键，相当于单击该按钮。8．（错，dim定义的也可能是模块量）在过程中用Dim和Static定义的变量都是局部第38页共59页

变量。9．（对）设置数组下标下界缺省值为1的语句为optionbase1。10．（对）For-Next循环结构的默认步长为1。二．单选题11．当建立好一个简单的应用程序后，假定该工程仅有一个窗体模块。问该工程涉及到多少个文件要保存？B个。A)1B)2C)3D)412．能够将文本框控件隐藏起来的属性是B。(A)Clear(B)Visible(C)Hide(D)New13.下列符号中，哪个是VB合法的变量名？C。A)a123IntegerB)C)X_yzD)π第39页共59页14.inputBox函数返回值的类型为B。A)数值B)字符串C)变体D)数值或字符串（视输入的数据而定）15.表达式5+5\3*10/8Mod9的值是C.A)45B)D)C)6716.如果在立即窗口中执行以下操作：a=4<CR>(<CR>是回车键，下同)b=6<CR>printa>b<CR>则输出结果是C。A)-10B)C)FalseD)True17.当程序运行时,在窗体上单击鼠标,以下哪个事件是窗体不会接收到的C。第40页共59页A）MouseDownB）MouseUpC）LoadD）Click18.在设计菜单时,如在菜单中加入一个菜单分隔项,则菜单分隔项的标题必须设置为B。A）加号(+)B）减号(-)C）星号(*)D）感叹号(!)19.SelectCase语句属于程序基本结构中的注意：本题有问题，C和D均可：A）顺序结构B）循环结构C）分支结构D）选择结构20.为了把焦点移到某个指定的控件，所使用的方法是AA)SetFocusVisibleB)C)RefreshD)GetFocus21.设a=3，则执行x=IIf(a>5,-1,0)后，x的值为C（详见附录IIf函数定义）。第41页共59页A)65B)C)0D)-122.执行下面的程序段后，x的值为A。x=5Fori=1To10Step2x=x+i\5NextiA)8B)C)106D)1223.在窗体上画一个命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()Fori=1To2x=2Forj=iTo3x=x+6NextjNexti第42页共59页PrintxEndSub程序运行后，单击命令按钮，输出结果是B。A)20B)C)1432D)3824.在窗体上画一个命令按钮，然后编写如下事件过程：PrevateSubCommand1_Click()b=0DoWhileb<>-1a=Val(InputBox(“请输入A的值”))b=Val(InputBox(“请输入B的值”))a=a+bLoopPrintaEndSub程序运行后，单击命令按钮，依次在输入对第43页共59页话框中输入5、3、3、-1，则输出结果为A。A)2B)C)314D)1525.将通用对话框以打开对话框打开，则选以下（A）方法。AShowOpenBShowColorCShowSave）））DShowFont）26.计时器控件能够引发的唯一事件是（C）A．KeypressB．ClickC．TimerD．Timer127.用于设置计时器时间间隔的属性是A：A、IntervalB、NameC、LeftD、Top28.在窗体上画两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(其Name属性为Command1)，然后编写如下事件过程：第44页共59页PrivateSubCommand1_Click()x=0DoWhilex<40x=(x+2)*(x+3)n=n+1LoopText1.Text=Str(n)Text2.Text=Str(x)EndSub程序运行后，单击命令按钮，在两个文本框中显示的值分别为BA)1和072B)2和D)C)3和504和16829.用下面语句定义的数组的元素个数是D。DimA(-2To6)AsIntegerA)6B)7C)8D)930.循环语句ForI=-3To20Step4第45页共59页执行的次数为C。A)4B)5C)6D)831.函数Int(10*Rnd)是在（D）范围内的整数。A．[0，1]B．[1，10]C．[1，9]D．[0，9]32.利用下面哪个函数可访问文件大小。（A）A）LOFB）LOCC）EOFD）BOF33.假定有如下的Sub过程：SubS（xAsSingle,yAsSingle）t=xx=t/yy=tModyEndSub在窗体上画一个命令按钮，然后编写如下事件过程：PrivateSubCommandl_Click()DimaAsSingleDimbAsSinglea=2第46页共59页b=4Sa,bPrinta,bEndSub程序运行后，单击命令按钮，输出结果为C。A)240B)1C)0.52D)0.5034.阅读程序：FunctionF(aAsInteger)Staticcb=0b=b+1c=c+1f=a+b+cEndFunctionPrivateSubCommandl_Click()DimaAsIntegera=2第47页共59页Fori=1To2PrintF(a)NextiEndSub运行上面的程序，单击命令按钮，输出结果为D。A)44B)C)4D)4546735.阅读程序：PrivateSubCommandl_Click()s=InputBox("输入字符串")Fori=Len(s)To1Step-1PrintMid(s,i,1);NextiEndSub运行上面的程序，单击命令按钮，输入“ABCD”,输出结果为B。第48页共59页A）ABCDB)DCBAC)AAAAD)DDDD36.在程序运行期间，如果拖动滚动条上的滚动块，则触发的滚动条事件是C。A)MoveChangeB)C)ScrollD)GetFocus37.设窗体上有一个列表框控件List1，且其中含有若干列表项。则以下能表示当前被选中的列表项内容的是DA)List1.ListB)List1.ListIndexC)List1.IndexD)List1.List(List1.ListIndex)38.为了暂时关闭计时器，应把该计时器的某个属性设置为False，这个属性是C。A)VisibleTimerB)C)EnabledD)Interval39.对窗体编写如下事件过程：第49页共59页PrivateSubForm_MouseDown(ButtonAsInteger,_ShiftAsInteger,XAsSingle,YAsSingle)IfButton=2ThenPrint"AAAAA"EndIfEndSubPrivateSubForm_MouseUp(B