《计算机程序设计基础》课后练习题参考答案.doc 25页

'《计算机程序设计基础》课后练习题1一．判断题(1)（错）事件过程由某个用户事件或系统事件触发执行，但不能被其他过程调用。(2)（错）若X＝2,Y＝5，则表达式Y－2>X　ANDX＋2＞Y的结果为：True。(3)（错）常量是指在程序运行过程中其值可以改变的那些量。(4)（错，timer没有）VB工具箱中的所有控件都具有宽度（Width）和高度（Height）属性。(5)（错）定义变量：Dimmax,minasSingle,则max和min的数据类型均为Single。(6)（对）如果创建的菜单项的标题是一个减号“-”，则该菜单项显示为一条分隔线。(7)（错）标准模块文件的扩展名是“*.VBP”。(8)（错，都不能）定时器控件可以响应Click事件，但不能响应DbClick事件。(9)（错）在默认情况下，数组下标下界的缺省值为1。(10)（对）在使用字体对话框时，需要对其Flags属性先进行相应设置。二．单选题(11)在VisualBasic中，表示鼠标单击事件的是C。A）ActivateB）DoubleClickC）ClickD）MouseDown(12)用于设置计时器时间间隔的属性是A。A）IntervalB）NameC）LeftD）Top(13)函数Int(10*Rnd)是在D范围内的整数。A）[1，10]B）[1，10]C)[0，9)D）[0，9](14)Selectcase语句结构的结尾应使用D。A）EndB）EndCaseC）EndSubD）EndSelect(15)改变了容器的坐标系后，该容器的A属性值不会改变。A）leftB）scaleleftC）scaletopD）scalewidth(16)执行下列语句后，列表框中各表项顺序为DList1.ClearFori=1to4:List1.AddItemi-1,0：NextiA）B）C）D）(17)输入对话框InputBox的返回值的类型是A。第25页共25页 A）字符串B）整数C）浮点数D）长整数(1)将焦点主动设置到指定的控件或窗体上，应采用B方法。A）SetDateB）SetFocusC）SetTextD）GetData(2)有如下程序段：DimIAsInteger,SAsIntegerS=1FORI=1TO8STEP2S=S*INEXTIPRINT“S=“;S运行结果为BA）S=9B）S=105C）S=1D）S=16(3)利用以下___D____语句，可以输出日期和时间信息。A）PrintDateB）PrintMonthC）PrintTimeD）PrintNow(4)一只漂亮的酒杯被摔碎了，则漂亮，酒杯，摔是___D____。A）对象，属性，事件B）对象，属性，方法C）属性，对象，方法D）属性，对象，事件(5)将通用对话框以“打开文件对话框”方式打开，则选以下      A       方法。A)ShowOpenB）ShowColorC）ShowSaveD）ShowFont(6)执行语句“Line(100,100)-(150,200),vbBlue,B”,在窗体上绘制出一个矩形，那么该矩形的面积=A。A）5000B）10000C）15000D）20000(7)如何使一个标签或按钮控件在运行时不可用___C____。A）把它的Visible属性设置成FalseB）把它的Visible属性设置成TrueC）把它的Enabled属性设置成FalseD）把它的Enabled属性设置成True(8)下列C表达式的结果为"1234556789"。A）Trim("12345"+"56789")B）Ltrim("12345")+Rtrim("56789")C）Rtrim("12345")&("56789")D）Ltrim("12345")&Rtrim("56789")(9)将图形框（PictureBox）控件的AutoSize属性设置为True后，则对于图形框而言，____B____。A）图形框中的图片自动改变大小适应图形框B）图形框自动改变大小适应其中的图形C）如果图片的大小比图形框大，则图形框自动裁剪图象以适应图形框的大小。D）如果图片的大小比图形框小，则图形框大小不发生变化。(10)要获得当前驱动器应使用驱动器列表框的哪个属性B。A）Path　　B）Drive　C）Dir　D）Pattern(11)以下关于函数过程的叙述中，正确的是____A____。第25页共25页 A）函数过程形参的类型与函数返回值的类型没有关系B）在函数过程中，过程的返回值可以有多个C）数组作为函数过程的参数时，既能以传值方式传递，也能以传址方式传递D）如果不指明函数过程参数的类型，则该参数没有数据类型(1)单击滚动条的滚动箭头时，产生的事件是___C____。A）ClickB）ScrollC）ChangeD）Move(2)以下能返回文件长度的函数是__B___。A）BOFB）LOFC）LEND）EOF一．程序填空题【程序填空1】在C盘当前文件夹下已存在名为Data.txt的文件，利用文本框（Text1）输入若干英文单词。要求每输入一个单词后，按下回车键将文本框中的单词写入文件，然后清除文本框的内容以便输入下一个单词。当在文本框中输入的单词是“END”时，则表示结束输入（对于单词“END”不论大小写都视为结束），最后将文件关闭。PrivateSubForm_Load()（31）AText1.Text=""EndSubPrivateSubText1_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenIf（32）D="END"ThenClose#EndElse（33）A（注意，Text1的默认属性为text，可省略不写）Text1.Text=""EndIfEndIfEndSub(3)A）Open"C:Data.txt"ForOutputAs#１B）Open"C:Data.txt"ForInput#１C）Open"C:Data.txt"InputAs#１D）Open"C:Data.txt"OutputAs#１(4)A）LCase(Text1.Text)B）Text1.TextC）Str(Text1)D）UCase(Text1.Text)(5)A）Write#1,Text1B）Write#1,TextC）Write#3,Text1.TextD）Write#1,Text.Text【程序填空2】程序运行后如下图所示，Label1的Caption显示为"字体定时变大"，影响字体大小的属性每隔0.5秒增加1，数值在[8，72]之间变化。第25页共25页 OptionExplicitPrivateSubForm_Load()Timer1.Enabled=True（34）BLabel1.Caption="字体定时变大"EndSubPrivateSubTimer1_Timer()StaticiAsIntegerIfi<7Ori>=72Theni=7i=i+1（35）AEndSub(1)A）Timer1.Interval=5/10B）Timer1.Interval=500C）Timer1.Interval=TrueD）Timer1.Interval=False(2)A）Label1.FontSize=iB）Label1.Font=iC）Label1.Size=iD）Label1.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-1If（36）BThent=a(j)（37）Da(j-1)=tEndIfNextjNextiFori=1To5Printa(i);Nexti第25页共25页 EndSub(1)A）a(j)a(j-1)C）a(i)>a(j)D）a(j)>a(i)(2)A）a(i)=a(j)B)a(j-1)=a(j)C）a(j)=a(i)D)a(j)=a(j-1)【程序填空4】在窗体上画一个名称为Combol的组合框，画两个名称分别Label1和Label2及Caption属性分别为“城市名称”和空白的标签。程序运行后（如下图所示），当在组合框中输入一个新的项目按回车键时（回车键的ASCII码为13），如果输入的项在组合框的列表中不存在，则自动添加到组合框的列表中，并在Label2中给出提示“已成功添加输入项；如果存在，则在Label2中给出提示“输入项已在组合框中”。PrivateSubCombo1_KeyPress(KeyAsciiAsInteger)If_(38)BThenFori=0ToCombo1.ListCount-1IfCombo1.Text=_(39)BThenLabel2.Caption="输入项已在组合框中"ExitSubEndIfNextiLabel2.Caption="已成功添加输入项"Combo1._(40)CCombo1.TextEndIfEndSub(3)A）KeyAscii=0B）KeyAscii=13C）KeyAscii=8D）KeyAscii=9(4)A）Combo1.ListIndexB）Combo1.List(i)C）Combo1.AddItem(i)D）Combo1.Clear(5)A)SelectedB)RemoveItemC)AddItemD)ListIndex一．程序阅读题【程序阅读1】根据以下代码，单击窗体三次，那么第一次单击后输出的a、b、c的值为_____(41)_C__，第二次单击后输出的a、b、c的值为_____(42)__D_，第三次单击后输出的a、b、c的值为_____(43)_A_。第25页共25页 Privatea%,b%,c%PrivateSubForm_Click()DimaAsIntegerc=2CallAA(c)b=BB(a)Printa,b,cEndSubPublicSubAA(c%)a=c+bc=a+cEndSubPublicFunctionBB(ByValb%)b=b+1BB=a+bEndFunction(1)A）254B）234C）034D）032(2)A）7129B）7159C）062D）067(3)A）0910B）092C）171935D）102732【程序阅读2】阅读下列程序并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。PrivateSubForm_Click()Form1.Scale(-10,10)-(10,-10)Form1.Circle(0,0),5,,-3*3.14/2,-3.14Form1.FillStyle=0EndSub(44)运行以上程序，第一次单击窗体后，Form1上的输出结果是(44)A，A）B）C）D）(45)第二次单击窗体后,Form1上的输出结果是(45)B。A）B）C）D）【程序阅读3】阅读下列程序并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。（↙：表示回车）第25页共25页 PrivateSubForm_Load()Text1.Text="":Form1.ClsEndSubPrivateSubText1_KeyPress(kAsInteger)StaticsAsIntegerIf(Chr(k)<"0"OrChr(k)>"9")Andk<>13Thenk=0Ifk=13Thens=s+Val(Text1.Text):Text1.Text="":Prints;EndSub(44)写出运行时在Text1中依次按“1↙3↙5↙”输入后窗体上的显示结果_(46)_A__。A）149B）9C）135D）5(45)写出运行时在Text1中依次按“1↙-3↙5↙”输入后窗体上的显示结果_(47)_B___。A）1-23B）149C）1-35D）3(46)写出运行时在Text1中依次按“1↙2a↙5↙”输入后窗体上的显示结果_(48)D__。A）14348B）125C）5D）138【程序阅读4】PrivateSubForm_click()DimxAsSinglex=Val(InputBox("输入x"))SelectCasex2Case1Print"y=";xCase2Print"y=";xMod2Case3Print"y=";xMod3CaseElsePrint"y=";x2EndSelectEndSub(47)当x的输入值为5时的运行结果为（49）CA）y=5B）y=2.5C）y=1D）y=0(48)当x的输入值为5.5时的运行结果为（50）DA）y=5B）y=2.5C）y=1D）y=0(49)当x的输入值为-7时的运行结果为（51）BA）y=-7B）y=-3C）y=1D）y=3.5【程序阅读5】设text1.text为“abcdef”，运行时连续单击2次控件Hscroll1右侧箭头后，组合框控件中的第一项为_(52)A_、第二项___(53)A_。第25页共25页 PrivateSubForm_Load()HScroll1.SmallChange=1:HScroll1.Max=5HScroll1.Min=1:HScroll1.Value=1Combo1.ClearEndSubPrivateSubHScroll1_Change()Combo1.AddItemLeft(Text1.Text,HScroll1.Value),0EndSub(44)A）abcB）abcdC）abD）abcde(45)A）abB）abcdeC）abcD）abcd【程序阅读6】阅读下列程序并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。PrivateSubf(sAsString)（解释：根据代码推测功能是：将字符串s等分为两部分，并交换前半部与后半部的位置，如“abcde”，交换后得“decab”）DimiAsInteger,nAsInteger,cAsStringn=Len(s)IfnMod2=1Thenc=Mid(s,n2+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)PrintxEndSub(46)单击Command1后输入"abc"，窗体上显示结果为（54）A：A）cbaB）bcaC）abcD）acb(47)如果将Sub过程f首句改为PrivateSubf(ByvalsAsString)，单击Command1后输入"abcd"，窗体上显示结果为：（55）CA）abdcB）cdabC）abcdD）bcad第25页共25页 《计算机程序设计基础》课后练习题2一、判断题1．（错）任何控件都有一个Caption属性。2．（对）对于事件驱动型应用程序，每次运行时的执行顺序可以不一样。3．（错）用以下语句定义：Dimmax,minasSingle,则max和min的数据类型均为Single。4．（对）通用对话框不能真正实现文件打开、文件存储、设置颜色、字体设置、打印等操作，如果想要实现这些功能则需要编程实现。5．（对）用Scale方法改变了窗体坐标系后，窗体的Left、Top属性值不变。6．（对）在某列表框中一共有5个选项，而当选中第三项时，这时列表框的ListIndex属性为2。7．（错，标准模块文件格式为.bas）VB中工程文件是指与该工程有关的全部文件和对象，其扩展名是.vbp；窗体文件包括窗体及其控件的正文描述，其扩展名是.frm；标准模块文件是可选的，其扩展名是.cls。。8．（错，Clear方法）用Cls方法可以清除组合框中的所有表项。9．Frame控件可以作为其他控件的容器。10．（错）VisualBasic工具箱中的所有控件都具有宽度（Width）和高度（Height）属性。二、单选题11.P的值为－3时，－P^2的值是___B_____。A、9B、–9C、6D、-612.以下程序段的执行结果为_____A_______。A=0:B=1DoA=A+BB=B+1LoopWhileA<10PrintA;BA、105B、ABC、01D、103013.设置列表框中列表数量的属性是__B____。A、List　　B、ListCount　　C、ListIndex　　D、Columns14.要获得当前驱动器应使用驱动器列表框的哪个属性__B__。第25页共25页 A、Path　　B、Drive　C、Dir　D、Pattern11.以下Case语句中错误的是___C_____。A、Case0To10B、CaseIs>10C、CaseIs>10AndIs<50D、Case3,5,7,Is>1012.执行语句s=Len(Mid("VisualBasic",0,5))后，s的值是___D_____。A、VisualB、BasicC、6D、表达式有错13.以下关于函数过程的叙述中，正确的是___A_____。A、函数过程形参的类型与函数返回值的类型没有关系B、在函数过程中，过程的返回值可以有多个C、当数组作为函数过程的参数时，既能以传值方式传递，也能以传址方式传递D、如果不指明函数过程参数的类型，则该参数没有数据类型14.在窗体上画一个名称为TxtA的文本框,然后编写如下的事件过程：　PrivateSubTxtＡ_KeyPress(keyasciiasinteger)…………　EndSub　　若焦点位于文本框中,则能够触发KeyPress事件的操作是____D____。　　A、单击鼠标B、按下键盘上的“A”键　　C、鼠标滑过文本框D、按下键盘上的任意键15.执行行下面的事件过程，在窗体显示的内容是___B_____。PrivateSubCommand1_Click()DimaAsVarianta=Array(12,23,34,45,56)Fori=1To3PrintTrim(a(i));NextIEndSubA、122334B、233445C、122334D、23344516.将图形框（PictureBox）控件的AutoSize属性设置为True后，则对于图形框而言，____B____。A、图形框中的图片自动改变大小适应图形框B、图形框自动改变大小适应其中的图形C、如果图片的大小比图形框大，则图形框自动裁剪图象以适应图形框的大小。D、如果图片的大小比图形框小，则图形框大小不发生变化。17.在图形框控件picture1上坐标(100,100)和(500,500)之间画一条红色直线，写作第25页共25页 __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)Red11.下列赋值语句中，___C_____是错误的。A、x=x+1B、x=x+yC、x+y=xD、x=4>612.单击滚动条的滚动箭头时，产生的事件是____C______。A、ClickB、ScrollC、ChangeD、Move13.在程序运行期间可以用____D______函数把图形装入窗体、图片或图象框。A、AutosizeB、StretchC、PictureD、LoadPicture14.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()　DimnumAsInteger　num=1　DoUntilnum>6　　Printnum;　　num=num+2.4　LoopEndSub程序运行后，单击命令按钮，则窗体上显示的内容是____B______。A、13.45.8　　　　B、135　　　　　C、147　　　　D、无数据输出15.___C____对象具有Clear方法。A、窗体B、复选框C、列表框D、图片框16.设a=16，b=7，c=1，则表达式a3+2=bAndc=91Mod3的结果_____A_____。A、True　　B、False　　　C、1　　　D、出错信息17.设有如下通用过程：PublicSubFun(a(),ByValxAsInteger)　Fori=1To5　x=x+a(i)　NextEndSub在窗体上画一个名称为Text1的文本框和一个名称为Command1第25页共25页 的命令按钮，然后编写如下的事件过程：PrivateSubCommand1_Click()　Dimarr(5)AsVariant　DimnasInteger　Fori=1To5　　arr(i)=i　Next　n=10　CallFun(arr(),n)　Text1.Text=nEndSub程序运行后，单击命令按钮，则在文本框中显示的内容是AA、10　　　　B、15　　　C、25　　D、2411.窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()　DimnumAsIntegerFornum=1To6Step3Printnum;NextnumPrintnumEndSub程序运行后，单击命令按钮，则窗体上显示的内容是____C______。A、144　　　　B、135　　　　　C、147　　　　D、无数据输出12.以下___A____方式打开的文件只能读不能写。A、Input　　　　B、Output　　C、AppendD、Random三、程序填空程序1．在C盘当前文件夹下建立一个名为Data.txt的顺序文件，要求用文本框输入若干英文单词，每次按下回车键时将文本框中的内容写入文件，并清除文本框的内容，直到文本框输入END为止，最后关闭文件。PrivateSubForm_Load()（31）CText1.Text=""EndSubPrivateSubText1_KeyPress(KeyAsciiAsInteger)第25页共25页 IfKeyAscii=13ThenIf（32）D="END"Then（33）BEndElse（34）AText1.Text=""EndIfEndIfEndSub11.A、Open"D:Data.txt"ForOutputAs#１B、Open"C:Data.txt"ForInput#１C、Open"C:Data.txt"ForOutputAs#１D、Open"C:Data.txt"OutputAs#１12.A、LCaseText1.TextB、Text1.TextC、Str(Text1)D、UCase(Text1.Text)13.A、Quit#1B、Close#1C、End#1D、Exit#114.A、Write#1,Text1B、Write#1,TextC、Write#3,Text1.TextD、Write#1,Text.Text程序2．下面程序的作用是利用随机函数产生100个随机整数,范围在[20，120]之间（包含20和120），打印其中为5或7的倍数的数，求出它们的总和并打印。请将下列程序补充完整。PrivateSubCommand1_Click()SUM=0Fori=1To100X=Int（（35）B）If（36）DThenSUM=SUM+X（37）AEndIfNextiPrint"SUM=";SUMEndSub15.A、Int(Rnd*100+20)B、Int(Rnd*101+20)C、Int(Rnd*101+19)D、Int(Rnd*100+21)16.A、XMod5=0andXMod7=0B、X5=0andX7=0第25页共25页 C、X5=0OrX7=0D、XMod5=0OrXMod7=011.A、PrintX;B、PrintSUM+X;C、PrintSUM;D、PrintSUM*X;程序3．单击窗体后，用输入对话框输入x、n，然后按下式计算结果。要求：将计算结果以标签控件显示，且标签控件每秒随机变换一次颜色。S＝OptionExplicitPrivateSubForm_Load()Timer1.Interval=1000Timer1.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)EndSub12.A、StaticsAsSingleB、DimsAsSingleC、OptionBase1D、ConstsAsSingle13.A、t=-1B、t=0C、t=2D、t=114.A、2Ton+1B、1TonC、2TonD、1Ton+115.A、Label1.Caption=xB、Label1.Caption=nC、Label1.Caption=sD、Label1.Caption=s+x程序4．设计一个程序，用于从文本框Text1输入课程名称，单击按钮，添加到列表框（List1）中显示出来。第25页共25页 具体要求：单击“Command1”按钮，若文本框Text1.Text中不是空格串，并且列表中也没有，则将该课程添加列表框中，然后清除文本框Text1的内容，再将焦点返回到文本框Text1，以便再次在文本框Text1输入内容，继续添加。PrivateSubCommand1_Click()DimIAsIntegerDimAddFlagAsBoolean（42）AIf（43）CThenFori=0To（44）BIfList1.List(i)=Text1.TextThenAddFlag=FalseExitForEndIfNextiIfAddFlagThenList1.AddItemText1.TextEndIfText1.Text=""（45）BEndSub11.A、AddFlag=-1B、AddFlag=FalseC、AddFlag=1D、AddFlag=012.A、text1.text=“”B、text1.text=“”C、text1.text<>“”D、text1.text<>“NULL”13.A、List1.ListIndex–1B、List1.ListCount-1C、List1.ListIndexD、List1.ListCount14.A、text1.ClearB、text1.SetFocusC、text1.MoveD、text1.ReFresh四、程序阅读程序1．写出下列程序运行结果，单击命令按钮控件后窗体上的显示结果PrivateSubCommand1_Click()Dima(1To6)AsIntegerFori=1To6a(i)=i*iNextiForj=1To3（解释：将后3个数挪到数组前头）temp=a(6)Fori=6To2Step-1a(i)=a(i-1)Nexti第25页共25页 a(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)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","/","1","4",然后按回车键，写出输出结果。PrivateSubText1_KeyPress(KAsInteger)IfKAsc("9")ThenK=0PrintText1.Text第25页共25页 EndIfEndSub结果：程序4．在窗体上画一个名称为Command1的命令按钮，然后编写相应的事件过程。程序运行后，如果单击命令按钮，则在窗体上显示的内容是PublicFunctionf(xAsInteger)DimyAsIntegerx=20y=2f=x*yEndFunctionPrivateSubCommand1_Click()StaticxAsIntegerx=10y=5y=f(x)Printx;yEndSub结果：第25页共25页 《计算机程序设计基础》课后练习题3一．判断题1．（错）窗体或控件的事件的名称可以由编程人员确定。2．（错）关系运算表达式"1"+"2"="3"的运算结果为True。3．（对）变量是指在程序运行过程中其值可以改变的那些量，而值不能改变的是常量。4．（对）控件的有些属性只能在运行时设置。5．（对）数组在内存中占据一片连续的区域。6．（错）驱动器列表框、目录列表框、文件列表框三者之间能够自动实现关联。7．（错）当按钮的Default属性设置为True时，任何情况下按键，相当于单击该按钮。8．（错，dim定义的也可能是模块量）在过程中用Dim和Static定义的变量都是局部变量。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)a123      B)Integer     C)X_yz       D)π14. inputBox函数返回值的类型为   B    。A)数值  B)字符串C)变体  D)数值或字符串（视输入的数据而定）15. 表达式5+53*10/8Mod9的值是C.A)4           B)5          C)6          D)716.如果在立即窗口中执行以下操作：a=4                       (是回车键，下同)b=6  print a>b   则输出结果是  C  。A)-1          B)0          C)False      D)True17.当程序运行时,在窗体上单击鼠标,以下哪个事件是窗体不会接收到的C。A）MouseDownB）MouseUpC）LoadD）Click第25页共25页 18.在设计菜单时,如在菜单中加入一个菜单分隔项,则菜单分隔项的标题必须设置为B。  A）加号(+)B）减号(-)C）星号(*)D）感叹号(!)19.SelectCase语句属于程序基本结构中的注意：本题有问题，C和D均可：A）顺序结构B）循环结构C）分支结构D）选择结构20.为了把焦点移到某个指定的控件，所使用的方法是AA)SetFocus    B)Visible    C)Refresh    D)GetFocus21.设a=3，则执行x=IIf(a>5,-1,0)后，x的值为      C（详见附录IIf函数定义）     。A)5       B)6          C)0          D)-122. 执行下面的程序段后，x的值为       A      。x=5For i=1To10Step2x=x+i5NextiA)8          B)10         C)6         D)1223. 在窗体上画一个命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()Fori=1To2x=2Forj=iTo3x=x+6NextjNextiPrintxEndSub程序运行后，单击命令按钮，输出结果是  B  。A)20           B)14         C)32        D)3824.  在窗体上画一个命令按钮，然后编写如下事件过程：PrevateSubCommand1_Click()b=0DoWhileb<>-1a=Val(InputBox(“请输入A的值”))b=Val(InputBox(“请输入B的值”))a=a+bLoopPrintaEndSub第25页共25页 程序运行后，单击命令按钮，依次在输入对话框中输入5、3、3、-1，则输出结果为       A      。A)2        B)3           C)14          D)1525.将通用对话框以打开对话框打开，则选以下（A）方法。A）ShowOpenB）ShowColorC）ShowSaveD）ShowFont26.计时器控件能够引发的唯一事件是（C）A．Keypress　　B．ClickC．TimerD．Timer127.用于设置计时器时间间隔的属性是A：A、IntervalB、NameC、LeftD、Top28.在窗体上画两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(其Name属性为Command1)，然后编写如下事件过程：PrivateSubCommand1_Click()x=0DoWhilex<40x=(x+2)*(x+3)n=n+1LoopText1.Text=Str(n)Text2.Text=Str(x)EndSub程序运行后，单击命令按钮，在两个文本框中显示的值分别为BA)1和0       B)2和72      C)3和50     D)4和16829.用下面语句定义的数组的元素个数是        D     。DimA(-2To6)AsIntegerA)6        B)7           C)8           D)930.循环语句ForI=-3To20Step4执行的次数为C。A)4           B)5          C)6          D)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/y第25页共25页 y=tModyEndSub在窗体上画一个命令按钮，然后编写如下事件过程：PrivateSubCommandl_Click()DimaAsSingleDimbAsSinglea=2b=4Sa,bPrinta,bEndSub程序运行后，单击命令按钮，输出结果为   C 。A)2 4        B)10        C)0.5 2    D)0.5 034.阅读程序：FunctionF(aAsInteger)Staticcb=0b=b+1c=c+1f=a+b+cEndFunction PrivateSubCommandl_Click()DimaAsIntegera=2Fori=1To2PrintF(a)NextiEndSub运行上面的程序，单击命令按钮，输出结果为   D    。A)4        B)4           C)4          D)44          5             6             735.阅读程序：PrivateSubCommandl_Click()s=InputBox("输入字符串")Fori=Len(s)To1Step-1PrintMid(s,i,1);NextiEndSub第25页共25页 运行上面的程序，单击命令按钮，输入“ABCD”,输出结果为   B    。A）ABCDB)DCBAC)AAAAD)DDDD36.在程序运行期间，如果拖动滚动条上的滚动块，则触发的滚动条事件是   C  。A)Move        B)Change     C)Scroll     D)GetFocus37.设窗体上有一个列表框控件List1，且其中含有若干列表项。则以下能表示当前被选中的列表项内容的是DA)List1.ListB)List1.ListIndexC)List1.IndexD)List1.List(List1.ListIndex)38.为了暂时关闭计时器，应把该计时器的某个属性设置为False，这个属性是   C  。A)Visible     B)Timer      C)Enabled    D)Interval39.对窗体编写如下事件过程：PrivateSubForm_MouseDown(ButtonAsInteger,_ShiftAsInteger,XAsSingle,YAsSingle)IfButton=2ThenPrint"AAAAA"EndIfEndSub PrivateSubForm_MouseUp(ButtonAsInteger,_ShiftAsInteger,XAsSingle,YAsSingle)Print"BBBBB"EndSub程序运行后，如果单击鼠标右键，则输出结果为　　A　　。A)AAAAA       B)BBBBB      C)AAAAA      D)BBBBBBBBBB                                      AAAAA40.当标签的大小由Caption属性的值进行自动扩展或缩小，应对该控件的某个属性设置为True，这个属性是   A  。A)Stretch      B)AutoSize        C)Left       D)Scalewidth三．填空题（注意：过去有填空题，现在全部都是选择题）（1）设有如下的VisualBasic表达式：(-b+sqr(b*b-4*a*c))/(2*a)它相当于代数式【1】（略，veryeasy）。（2）数学表达式sin30°写成VB表达式应为_【2】__sin(30/180*3.1415926)________。 （3）执行下面的程序段后，i的最后值为【3】5.1 。s=5第25页共25页 Fori=3.6To4.9Step0.3s=s+1Nexti（4）将任意一个两位数x的个位数与十位数对换。例如，x=78，则表达式的值应为87。其VB表达式为【4】trim(xmod10)&trim(x10)或right(trim(x),1)&left(trim(x),1)。(5)执行下面的程序段后，a的值为【5】20（不用中间变量也能实现两数交换）。a=30b=20a=a+bb=a-ba=a-b(6)下面程序的作用是利用随机函数产生20个10~100之间（包含10、100）的随机数，打印其中为5的倍数的数，并求出它们的总和。请将下列程序补充完整。 PrivateSubCommand1_Click()k1=0  Form=1To20  x=Int(Rnd*_【6】_91+10________)  If【7】xmod5=0Then  Printx; k1=_【8】_k1+x_______  EndIf  Nextm  Print"k1=";k1 EndSub(9)下面的程序打开顺序文件，按行读入内容,并在文本框中按行显示，请在【9】、【10】、【11】处将程序补充完整。Open"Seqold.dat"For【9】InputAs#1strTest=””DoWhile【10】NotEOF(1)LineInput#1,sstrTest=strTest+s+【11】vbCrLf或Chr(10)&Chr(13)Loop（10）确保文本框中输入的全部是数字的程序如下，请在【12】、【13】处将程序补充完整。SubText1_【12】KeyPress(KeyAsciiAsInteger)IfKeyAsciiAsc("9")Then【13】KeyAscii=0（此句表示“输了也白输，输入非数字内容一律清空”EndIf第25页共25页 (11)假定建立了一个工程，该工程包括两个窗体，其名称(Name属性)分别为Form1和Form2，启动窗体为Form1。在Form1画一个命令按钮Command1，程序运行后，要求当单击该命令按钮时，Form1窗体消失，显示窗体Form2，请在【14】和【15】处将程序补充完整。PrivateSubCommand1_Click()Form1.【14】Hide Form2.【15】ShowEndSub第25页共25页 《计算机程序设计基础》课后练习题4一．判断题12345678910BBBBBBAABA二．单选题11121314151617181920DBABCCADCB21222324252627282930CDBABCBBDC三．程序填空题31323334353637383940ADCCBABBCC414243BCB四．程序阅读题44454647484950515253CDCADBDBAD5455DB第25页共25页'