• 325.50 KB
  • 2022-04-22 11:37:14 发布

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

  • 25页
  • 当前文档由用户上传发布,收益归属用户
  1. 1、本文档共5页,可阅读全部内容。
  2. 2、本文档内容版权归属内容提供方,所产生的收益全部归内容提供方所有。如果您对本文有版权争议,可选择认领,认领后既往收益都归您。
  3. 3、本文档由用户上传,本站不保证质量和数量令人满意,可能有诸多瑕疵,付费之前,请仔细先通过免费阅读内容等途径辨别内容交易风险。如存在严重挂羊头卖狗肉之情形,可联系本站下载客服投诉处理。
  4. 文档侵权举报电话:19940600175。
'《计算机程序设计基础》课后练习题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#1B)Open"C:Data.txt"ForInput#1C)Open"C:Data.txt"InputAs#1D)Open"C:Data.txt"OutputAs#1(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的文本框,然后编写如下的事件过程: PrivateSubTxtA_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#1B、Open"C:Data.txt"ForInput#1C、Open"C:Data.txt"ForOutputAs#1D、Open"C:Data.txt"OutputAs#112.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页'