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

《计算机程序设计基础》课后练习题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。(10)（对）在使用字体对话框时，需要对其Flags属性先进行相应设置。二．单选题(11)在VisualBasic中，表示鼠标单击事件的是C。A）ActivateB）DoubleClickC）ClickD）MouseDown(12)用于设置计时器时间间隔的属性是A。A）IntervalB）NameC）LeftD）Top(13)函数Int(10*Rnd)是在DA）[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的返回值的类型是AA）字符串B）整数C）浮点数。D）长整数(18)将焦点主动设置到指定的控件或窗体上，应采用B方法。A）SetDateB）SetFocusC）SetTextD）GetData(19)有如下程序段：DimIAsInteger,SAsIntegerS=1FORI=1TO8STEP2S=S*INEXTIPRINT“S=“;S运行结果为BA）S=9B）S=105C）S=1D）S=16(20)利用以下___D____语句，可以输出日期和时间信息。A）PrintDateB）PrintMonthC）PrintTimeD）PrintNow(21)一只漂亮的酒杯被摔碎了，则漂亮，酒杯，摔是___D____。A）对象，属性，事件C）属性，对象，方法B）对象，属性，方法D）属性，对象，事件(22)将通用对话框以“打开文件对话框”方式打开，则选以下A方法。A)ShowOpenB）ShowColorC）ShowSaveD）ShowFont(23)执行语句“Line(100,100)-(150,200),vbBlue,B”,在窗体上绘制出一个矩形，那么该矩形的面积=A。A）5000B）10000C）15000D）20000(24)如何使一个标签或按钮控件在运行时不可用___C____。A）把它的Visible属性设置成FalseB）把它的Visible属性设置成TrueC）把它的Enabled属性设置成FalseD）把它的Enabled属性设置成True(25)下列C表达式的结果为"1234556789"。A）Trim("12345"+"56789")B）Ltrim("12345")+Rtrim("56789")C）Rtrim("12345")&("56789")D）Ltrim("12345")&Rtrim("56789")(26)将图形框（PictureBox）控件的AutoSize属性设置为True后，则对于图形框而言，____B____。A）图形框中的图片自动改变大小适应图形框B）图形框自动改变大小适应其中的图形C）如果图片的大小比图形框大，则图形框自动裁剪图象以适应图形框的大小。D）如果图片的大小比图形框小，则图形框大小不发生变化。(27)要获得当前驱动器应使用驱动器列表框的哪个属性B。A）PathB）DriveC）DirD）Pattern(28)以下关于函数过程的叙述中，正确的是____A____。A）函数过程形参的类型与函数返回值的类型没有关系B）在函数过程中，过程的返回值可以有多个C）数组作为函数过程的参数时，既能以传值方式传递，也能以传址方式传递D）如果不指明函数过程参数的类型，则该参数没有数据类型(29)单击滚动条的滚动箭头时，产生的事件是___C____。A）ClickD）Move(30)以下能返回文件长度的函数是__B___。A）BOFB）LOFC）LEND）EOFB）ScrollC）Change三．程序填空题【程序填空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(31)A）Open"C:\Data.txt"ForOutputAs#１B）Open"C:\Data.txt"ForInput#１C）Open"C:\Data.txt"InputAs#１D）Open"C:\Data.txt"OutputAs#１(32)A）LCase(Text1.Text)B）Text1.TextC）Str(Text1)D）UCase(Text1.Text)(33)A）Write#1,Text1B）Write#1,TextC）Write#3,Text1.TextD）【程序填空2】程序运行后如下图所示，Label1的Caption显示为"字体定时变大"，影响字体大小的属性每隔0.5秒增加1，数值在[8，72]之间变化。OptionExplicitPrivateSubForm_Load()Timer1.Enabled=True（34）BLabel1.Caption="字体定时变大"EndSubPrivateSubTimer1_Timer()StaticiAsIntegerIfi<7Ori>=72Theni=7i=i+1（35）AEndSub(34)A）=5/10C）=TrueB）Timer1.Interval=500D）=False(35)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);NextiEndSub(36)A）a(j)<a(j-1)C）a(i)>a(j)B）a(j)>a(j-1)D）a(j)>a(i)(37)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)BThenIfCombo1.Text=_(39)BThenLabel2.Caption="输入项已在组合框中"ExitSubEndIfNextiLabel2.Caption="已成功添加输入项"Combo1._(40)CEndIfEndSub(38)A）KeyAscii=0B）KeyAscii=13C）KeyAscii=8D）KeyAscii=9(39)A）Combo1.ListIndexB）Combo1.List(i)C）Combo1.AddItem(i)D）(40)A)SelectedB)RemoveItemC)AddItemD)ListIndex四．程序阅读题【程序阅读1】根据以下代码，单击窗体三次，那么第一次单击后输出的a、b、c的值为_____(41)_C__，第二次单击后输出的a、b、c的值为_____(42)__D_，第三次单击后输出的a、b、c的值为_____(43)_A_。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(41)A）254(42)A）7129(43)A）0910B）234B）7159B）092C）034C）062D）032D）067C）171935D）102732【程序阅读2】阅读下列程序并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。PrivateSubForm_Click()Form1.Scale(-10,10)-(10,-10)Form1.FillStyle=0EndSub(44)运行以上程序，第一次单击窗体后，Form1上的输出结果是(44)A，A）B）C）D）(45)第二次单击窗体后,Form1上的输出结果是(45)B。A）B）C）D）【程序阅读3】阅读下列程序并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。（↙：表示回车）PrivateSubForm_Load()EndSubPrivateSubText1_KeyPress(kAsInteger)StaticsAsIntegerIf(Chr(k)<"0"OrChr(k)>"9")Andk<>13Thenk=0Ifk=13Thens=s+Val(Text1.Text):Text1.Text="":Prints;EndSub(46)写出运行时在Text1中依次按“1↙3↙5↙”输入后窗体上的显示结果_(46)_A__。A）149(47)写出运行时在Text1中依次按“1↙-3↙5↙”输入后窗体上的显示结果_(47)_B___。A）1-23B）149C）1-35D）3(48)写出运行时在Text1中依次按“1↙2a↙5↙”输入后窗体上的显示结果_(48)D__。B）9C）135D）5A）14348B）125【程序阅读4】C）5D）138PrivateSubForm_click()DimxAsSinglex=Val(InputBox("输入x"))SelectCasex\2Case1Print"y=";xCase2Print"y=";xMod2Case3Print"y=";xMod3CaseElsePrint"y=";x\2EndSelectEndSub(49)当x的输入值为5时的运行结果为（49）CA）y=5B）y=2.5C）y=1D）y=0(50)（50）DA）y=5B）y=2.5C）y=1D）y=0(51)当x的输入值为-7时的运行结果为（51）BA）y=-7B）y=-3C）y=1D）【程序阅读5】“abcdef”，运行时连续单击2次控件Hscroll1右侧箭头后，组合框控件中的第一项为_(52)A_、第二项___(53)A_。PrivateSubForm_Load()HScroll1.SmallChange=1:HScroll1.Max=5HScroll1.Min=1:HScroll1.Value=1EndSubPrivateSubHScroll1_Change()Combo1.AddItemLeft(Text1.Text,HScroll1.Value),0EndSub(52)A）abc(53)A）abB）abcdC）abD）abcdeD）abcdB）abcdeC）abc【程序阅读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)PrintxEndSub(54)单击Command1后输入"abc"，窗体上显示结果为（54）A：A）cbaB）bcaC）abcD）acb(55)如果将Sub过程f首句改为PrivateSubf(ByvalsAsString)，单击Command1后输入"abcd"，窗体上显示结果为：（55）CA）abdcB）cdabC）abcdD）bcad《计算机程序设计基础》课后练习题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=1DoA=A+BB=B+1LoopWhileA<10PrintA;BA、105B、ABC、01D、103013.设置列表框中列表数量的属性是__B____。A、ListB、ListCountC、ListIndexD、Columns14.要获得当前驱动器应使用驱动器列表框的哪个属性__B__。A、PathB、DriveC、DirD、Pattern15.以下Case语句中错误的是___C_____。A、Case0To10C、CaseIs>10AndIs<50B、CaseIs>10D、Case3,5,7,Is>1016.执行语句s=Len(Mid("VisualBasic",0,5))后，s的值是___D_____。A、VisualB、BasicC、6D、表达式有错17.以下关于函数过程的叙述中，正确的是___A_____。A、函数过程形参的类型与函数返回值的类型没有关系B、在函数过程中，过程的返回值可以有多个C、当数组作为函数过程的参数时，既能以传值方式传递，也能以传址方式传递D、如果不指明函数过程参数的类型，则该参数没有数据类型18.在窗体上画一个名称为TxtA的文本框,然后编写如下的事件过程：PrivateSubTxtＡ_KeyPress(keyasciiasinteger)…………EndSub若焦点位于文本框中,则能够触发KeyPress事件的操作是____D____。A、单击鼠标B、按下键盘上的“A”键D、按下键盘上的任意键C、鼠标滑过文本框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_____是错误的。D、x=4>6A、x=x+1B、x=x+yC、x+y=x23.单击滚动条的滚动箭头时，产生的事件是____C______。A、ClickB、ScrollC、ChangeD、Move24.在程序运行期间可以用____D______函数把图形装入窗体、图片或图象框。A、AutosizeB、StretchC、PictureD、LoadPicture25.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()DimnumAsIntegernum=1DoUntilnum>6Printnum;LoopEndSub程序运行后，单击命令按钮，则窗体上显示的内容是____B______。A、13.45.8B、135C、147D、无数据输出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的命令按钮，然后编写如下的事件过程：PrivateSubCommand1_Click()Dimarr(5)AsVariantDimnasIntegerFori=1To5arr(i)=iNextn=10CallFun(arr(),n)Text1.Text=nEndSub程序运行后，单击命令按钮，则在文本框中显示的内容是AA、10B、15C、25D、2429.窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()DimnumAsIntegerFornum=1To6Step3Printnum;NextnumPrintnumEndSub程序运行后，单击命令按钮，则窗体上显示的内容是____C______。A、144B、135C、147D、无数据输出30.以下___A____方式打开的文件只能读不能写。D、RandomA、InputB、OutputC、Append三、程序填空程序1．在C盘当前文件夹下建立一个名为Data.txt的顺序文件，要求用文本框输入若干英文单词，每次按下回车键时将文本框中的内容写入文件，并清除文本框的内容，直到文本框输入END为止，最后关闭文件。PrivateSubForm_Load()（31）CText1.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、UCase(Text1.Text)33.A、Quit#1C、End#1B、Close#1D、Exit#134.A、Write#1,Text1C、Write#3,Text1.TextB、Write#1,TextD、程序2．下面程序的作用是利用随机函数产生100个随机整数,范围在[20，120]之间（包含20和120），打印其中为5或7的倍数的数，求出它们的总和并打印。请将下列程序补充完整。PrivateSubCommand1_Click()SUM=0Fori=1To100X=Int（（35）B）If（36）DThenSUM=SUM+X（37）AEndIfNextiPrint"SUM=";SUMEndSub35.A、Int(Rnd*100+20)C、Int(Rnd*101+19)B、Int(Rnd*101+20)D、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＝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)EndSub38.A、StaticsAsSingleB、DimsAsSingleC、OptionBase139.A、t=-1B、t=040.A、2Ton+1B、1TonC、2TonD、ConstsAsSingleC、t=2D、t=1D、1Ton+141.A、Label1.Caption=xC、Label1.Caption=sB、Label1.Caption=nD、Label1.Caption=s+x程序4．设计一个程序，用于从文本框Text1输入课程名称，单击按钮，添加到列表框（List1）中显示出来。具体要求：单击“Command1”按钮，若文本框Text1.Text中不是空格串，并且列表中也没有，则将该课程添加列表框中，然后清除文本框Text1的内容，再将焦点返回到文本框Text1，以便再次在文本框Text1输入内容，继续添加。PrivateSubCommand1_Click()DimIAsIntegerDimAddFlagAsBoolean（42）AIf（43）CThenFori=0To（44）BIfList1.List(i)=Text1.TextThenAddFlag=FalseExitForEndIfNextiIfAddFlagThenEndIfText1.Text=""（45）BEndSub42.A、AddFlag=-1B、AddFlag=FalseC、AddFlag=1D、AddFlag=043.A、text1.text=“”B、text1.text=“”C、text1.text<>“”D、text1.text<>“NULL”44.A、List1.ListIndex–1ount-1ount45.四、程序阅读程序1．写出下列程序运行结果，单击命令按钮控件后窗体上的显示结果PrivateSubCommand1_Click()Dima(1To6)AsIntegerFori=1To6a(i)=i*iNextiForj=1To3（解释：将后3个数挪到数组前头）temp=a(6)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)Picture1(1).Circle(0,0),5Picture1(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)IfK<Asc("0")OrK>Asc("9")ThenK=0EndIfEndSub结果：程序4．在窗体上画一个名称为Command1的命令按钮，然后编写相应的事件过程。程序运行后，如果单击命令按钮，则在窗体上显示的内容是PublicFunctionf(xAsInteger)DimyAsIntegerx=20y=2f=x*yEndFunctionPrivateSubCommand1_Click()StaticxAsIntegerx=10y=5y=f(x)Printx;yEndSub结果：《计算机程序设计基础》课后练习题3一．判断题1．（错）窗体或控件的事件的名称可以由编程人员确定。2．（错）关系运算表达式"1"+"2"="3"的运算结果为True。3．（对）变量是指在程序运行过程中其值可以改变的那些量，而值不能改变的是常量。4．（对）控件的有些属性只能在运行时设置。5．（对）数组在内存中占据一片连续的区域。6．（错）驱动器列表框、目录列表框、文件列表框三者之间能够自动实现关联。7．（错）当按钮的Default属性设置为True时，任何情况下按<Enter>键，相当于单击该按钮。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)New。13.下列符号中，哪个是VB合法的变量名？C。A)a123B)IntegerC)X_yzD)π14.inputBox函数返回值的类型为B。A)数值B)字符串C)变体D)数值或字符串（视输入的数据而定）15.表达式5+5\3*10/8Mod9的值是C.A)4B)5C)6D)716.如果在立即窗口中执行以下操作：a=4<CR>(<CR>是回车键，下同)b=6<CR>printa>b<CR>则输出结果是C。A)-1B)0C)FalseD)True17.当程序运行时,在窗体上单击鼠标,以下哪个事件是窗体不会接收到的C。A）MouseDownB）MouseUpC）LoadD）Click18.在设计菜单时,如在菜单中加入一个菜单分隔项,则菜单分隔项的标题必须设置为B。A）加号(+)B）减号(-)C）星号(*)D）感叹号(!)19.SelectCase语句属于程序基本结构中的注意：本题有问题，C和D均可：A）顺序结构B）循环结构20.为了把焦点移到某个指定的控件，所使用的方法是AA)SetFocusB)VisibleC)RefreshD)GetFocus21.设a=3，则执行x=IIf(a>5,-1,0)后，x的值为C（详见附录IIf函数定义）A)5B)6C)0D)-1C）分支结构D）选择结构。22.执行下面的程序段后，x的值为A。x=5Fori=1To10Step2x=x+i\5NextiA)8B)10C)6D)1223.在窗体上画一个命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()Fori=1To2x=2Forj=iTo3x=x+6NextjNextiPrintxEndSub程序运行后，单击命令按钮，输出结果是B。A)20B)14C)32D)3824.在窗体上画一个命令按钮，然后编写如下事件过程：PrevateSubCommand1_Click()b=0DoWhileb<>-1a=Val(InputBox(“请输入A的值”))b=Val(InputBox(“请输入B的值”))a=a+bLoopPrintaEndSub程序运行后，单击命令按钮，依次在输入对话框中输入5、3、3、-1，则输出结果为A)2B)3C)14D)15A。25.将通用对话框以打开对话框打开，则选以下（A）方法。A）ShowOpenB）ShowColorC）ShowSaveD）ShowFont26.计时器控件能够引发的唯一事件是（C）A．KeypressB．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和0B)2和72C)3和50D)4和16829.用下面语句定义的数组的元素个数是D。DimA(-2To6)AsIntegerA)6B)7C)8D)930.循环语句ForI=-3To20Step4执行的次数为CA)4B)5C)6D)8。31.函数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=2b=4Sa,bPrinta,bEndSub程序运行后，单击命令按钮，输出结果为C。A)24B)10C)0.52D)0.5034.阅读程序：FunctionF(aAsInteger)Staticcb=0b=b+1c=c+1f=a+b+cEndFunctionPrivateSubCommandl_Click()DimaAsIntegera=2Fori=1To2PrintF(a)NextiEndSub运行上面的程序，单击命令按钮，输出结果为D。A)44B)4C)4D)456735.阅读程序：PrivateSubCommandl_Click()s=InputBox("输入字符串")Fori=Len(s)To1Step-1PrintMid(s,i,1);NextiEndSub运行上面的程序，单击命令按钮，输入“ABCD”,输出结果为B。A）ABCDB)DCBAC)AAAAD)DDDD36.在程序运行期间，如果拖动滚动条上的滚动块，则触发的滚动条事件是C。A)MoveB)ChangeC)ScrollD)GetFocus37.设窗体上有一个列表框控件List1，且其中含有若干列表项。则以下能表示当前被选中的列表项内容的是DA)List1.ListB)List1.ListIndexC)List1.IndexD)List1.List(List1.ListIndex)38.为了暂时关闭计时器，应把该计时器的某个属性设置为False，这个属性是C。A)VisibleB)TimerC)EnabledD)Interval39.对窗体编写如下事件过程：PrivateSubForm_MouseDown(ButtonAsInteger,_ShiftAsInteger,XAsSingle,YAsSingle)IfButton=2ThenPrint"AAAAA"EndIfEndSubPrivateSubForm_MouseUp(ButtonAsInteger,_ShiftAsInteger,XAsSingle,YAsSingle)Print"BBBBB"EndSub程序运行后，如果单击鼠标右键，则输出结果为A。A)AAAAABBBBBB)BBBBBC)AAAAAAAAAAD)BBBBB40.当标签的大小由Caption属性的值进行自动扩展或缩小，应对该控件的某个属性设置为True，这个属性是A。A)StretchB)AutoSizeC)LeftD)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=5Fori=3.6To4.9Step0.3s=s+1Nexti（4）将任意一个两位数x的个位数与十位数对换。例如，x=78，则表达式的值应为87。其VB表达式为【4】trim(xmod10)&trim(x\10)或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=0Form=1To20x=Int(Rnd*_【6】_91+10________)If【7】xmod5=0ThenPrintx;k1=_【8】_k1+x_______EndIfNextmPrint"k1=";k1EndSub(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)IfKeyAscii<Asc("0")OrKeyAscii>Asc("9")Then【13】KeyAscii=0（此句表示“输了也白输，输入非数字内容一律清空”EndIf(11)假定建立了一个工程，该工程包括两个窗体，其名称(Name属性)分别为Form1和Form2，启动窗体为Form1。在Form1画一个命令按钮Command1，程序运行后，要求当单击该命令按钮时，Form1窗体消失，显示窗体Form2，请在【14】和【15】处将程序补充完整。PrivateSubCommand1_Click()Form1.【14】HideForm2.【15】ShowEndSub《计算机程序设计基础》课后练习题4一．判断题1B2B3B4B5B6B7A8A9B10A二．单选题11D12B13A14B15C16C17A18D19C20B21C22D23B24A25B26C27B28B29D30C三．程序填空题四．程序阅读题31A41B32D42C33C43B34C35B36A37B38B39C40C44C45D46C47A48D49B50D51B52A53D54D55B《计算机程序设计语言》试卷专业年级班级学号姓名一、选择题(每小题2分，共20分。将答案填在下面表格内)题号答案123456789101、下列可以正确表示字符型常数的是______A."a"B.'\t'C."\n"D.2972、表达式((y=3)>4)&&((y=5)<7)执行后，y的值为（），表达式的值为（）A、y的值为3，表达式的值为0B、y的值为4，表达式的值为0C、y的值为4，表达式的值为1D、y的值为3，表达式的值为13、选出下列合法的变量名———A．intB.3countC.sum1D.name.14、C语言中运算对象必须是整型的运算符是_____A.%B./C.=D.<=5、设a和b均为double型变量，且、，则表达式（int）a+b/b的值是______。A．6.000000B.6C.5.500000D.6.5000006、能正确表示逻辑关系：“a≥10或a≤0”的C语言表达式是_____A.a>=10ora<=0B.a>=10ǁa<=0C.a>=10&&a<=0D.a>=0|a<=107、下列程序段所表示的数学函数关系是x=-1;if(a!=0)if(a>0)x=1;elsex=0;8、有以下程序段：intc1=1,c2=2,c3;c3=1.0/c2*c1;则执行后，c3中的值是______A.0.5B.1C.0D.29、若有说明：inta[10];则对a数组元素的正确引用是_____A.a[10]B.a[]C.a(5)D.a[10-10]10、有输入语句:scanf(“a=%d,b=%d,c=%d",&a,&b,&c);为使变量a的值为1,b为2,c为3,从键盘输入数据的正确形式应是_____(注:□表示空格,<CR>表示回车)A.132<CR>B.1,3,2<CR>C.a=1□b=3□c=2<CR>D.a=1,b=2,c=3<CR>二、填空（每小题3分，共24分）1、结构化程序设计由————————、————————和————————三种结构组成。2、在c语言中，源程序文件的