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

第1页共32页《计算机程序设计基础》课后练习题1一．判断题(1)事件过程由某个用户事件或系统事件触发执行，但不能被其他过程调用。(2)若X＝2,Y＝5，则表达式Y－2XANDX＋2＞Y的结果为：True。(3)常量是指在程序运行过程中其值可以改变的那些量。(4)VB工具箱中的所有控件都具有宽度（Width）和高度（Height）属性。(5)定义变量：Dimmax,minasSingle,则max和min的数据类型均为Single。(6)如果创建的菜单项的标题是一个减号“-”，则该菜单项显示为一条分隔线。(7)标准模块文件的扩展名是“*.VBP”。(8)定时器控件可以响应Click事件，但不能响应DbClick事件。(9)在默认情况下，数组下标下界的缺省值为1。(10)在使用字体对话框时，需要对其Flags属性先进行相应设置。二．单选题(11)在VisualBasic中，表示鼠标单击事件的是。A）ActivateB）DoubleClickC）ClickD）MouseDown(12)用于设置计时器时间间隔的属性是。A）IntervalB）NameC）LeftD）Top(13)函数Int(10*Rnd)是在范围内的整数。A）[1，10]B）[1，10]C)[0，9)D）[0，9](14)Selectcase语句结构的结尾应使用_。A）EndB）EndCaseC）EndSubD）EndSelect(15)改变了容器的坐标系后，该容器的属性值不会改变。A）leftB）scaleleftC）scaletopD）scalewidth(16)执行下列语句后，列表框中各表项顺序为List1.ClearFori=1to4:List1.AddItemi-1,0：NextiA）B）C）D）(17)输入对话框InputBox的返回值的类型是。A）字符串B）整数C）浮点数D）长整数第2页共32页(18)将焦点主动设置到指定的控件或窗体上，应采用方法。A）SetDateB）SetFocusC）SetTextD）GetData(19)有如下程序段：DimIAsInteger,SAsIntegerS=1FORI=1TO8STEP2S=S*INEXTIPRINT“S=“;S运行结果为A）S=9B）S=105C）S=1D）S=16(20)利用以下_______语句，可以输出日期和时间信息。A）PrintDateB）PrintMonthC）PrintTimeD）PrintNow(21)一只漂亮的酒杯被摔碎了，则漂亮，酒杯，摔是_______。A）对象，属性，事件B）对象，属性，方法C）属性，对象，方法D）属性，对象，事件(22)将通用对话框以“打开文件对话框”方式打开，则选以下方法。A)ShowOpenB）ShowColorC）ShowSaveD）ShowFont(23)执行语句“Line(100,100)-(150,200),vbBlue,B”,在窗体上绘制出一个矩形，那么该矩形的面积=。A）5000B）10000C）15000D）20000(24)如何使一个标签或按钮控件在运行时不可用_______。A）把它的Visible属性设置成FalseB）把它的Visible属性设置成TrueC）把它的Enabled属性设置成FalseD）把它的Enabled属性设置成True(25)下列表达式的结果为1234556789。A）Trim(12345+56789)B）Ltrim(12345)+Rtrim(56789)C）Rtrim(12345)&(56789)D）Ltrim(12345)&Rtrim(56789)(26)将图形框（PictureBox）控件的AutoSize属性设置为True后，则对于图形框而言，________。A）图形框中的图片自动改变大小适应图形框B）图形框自动改变大小适应其中的图形C）如果图片的大小比图形框大，则图形框自动裁剪图象以适应图形框的大小。D）如果图片的大小比图形框小，则图形框大小不发生变化。(27)要获得当前驱动器应使用驱动器列表框的哪个属性。A）PathB）DriveC）DirD）Pattern(28)以下关于函数过程的叙述中，正确的是________。A）函数过程形参的类型与函数返回值的类型没有关系第3页共32页B）在函数过程中，过程的返回值可以有多个C）数组作为函数过程的参数时，既能以传值方式传递，也能以传址方式传递D）如果不指明函数过程参数的类型，则该参数没有数据类型(29)单击滚动条的滚动箭头时，产生的事件是__________。A）ClickB）ScrollC）ChangeD）Move(30)以下能返回文件长度的函数是_______。A）BOFB）LOFC）LEND）EOF三．程序填空题【程序填空1】在C盘当前文件夹下已存在名为Data.txt的文件，利用文本框（Text1）输入若干英文单词。要求每输入一个单词后，按下回车键将文本框中的单词写入文件，然后清除文本框的内容以便输入下一个单词。当在文本框中输入的单词是“END”时，则表示结束输入（对于单词“END”不论大小写都视为结束），最后将文件关闭。PrivateSubForm_Load()（31）Text1.Text=EndSubPrivateSubText1_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenIf（32）=ENDThenClose#EndElse（33）Text1.Text=EndIfEndIfEndSub(31)A）OpenC:\Data.txtForOutputAs#１B）OpenC:\Data.txtForInput#１C）OpenC:\Data.txtInputAs#１D）OpenC:\Data.txtOutputAs#１(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）Write#1,Text.Text【程序填空2】程序运行后如下图所示，Label1的Caption显示为字体定时变大，影响字体大小的属性每隔0.5秒增加1，数值在[8，72]之间变化。第4页共32页OptionExplicitPrivateSubForm_Load()Timer1.Enabled=True（34）Label1.Caption=字体定时变大EndSubPrivateSubTimer1_Timer()StaticiAsIntegerIfi7Ori=72Theni=7i=i+1（35）EndSub(34)A）Timer1.Interval=5/10B）Timer1.Interval=500C）Timer1.Interval=TrueD）Timer1.Interval=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=1To4Forj=5Toi+1Step-1If（36）Thent=a(j)（37）a(j-1)=tEndIfNextjNextiFori=1To5Printa(i);NextiEndSub第5页共32页(36)A）a(j)a(j-1)B）a(j)a(j-1)C）a(i)a(j)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)ThenFori=0ToCombo1.ListCount-1IfCombo1.Text=_(39)ThenLabel2.Caption=输入项已在组合框中ExitSubEndIfNextiLabel2.Caption=已成功添加输入项Combo1._(40)Combo1.TextEndIfEndSub(38)A）KeyAscii=0B）KeyAscii=13C）KeyAscii=8D）KeyAscii=9(39)A）Combo1.ListIndexB）Combo1.List(i)C）Combo1.AddItem(i)D）Combo1.Clear(40)A)SelectedB)RemoveItemC)AddItemD)ListIndex四．程序阅读题【程序阅读1】根据以下代码，单击窗体三次，那么第一次单击后输出的a、b、c的值为_____(41)___，第二次单击后输出的a、b、c的值为_____(42)___，第三次单击后输出的a、b、c的值为_____(43)__。Privatea%,b%,c%PrivateSubForm_Click()DimaAsIntegerc=2CallAA(c)b=BB(a)第6页共32页Printa,b,cEndSubPublicSubAA(c%)a=c+bc=a+cEndSubPublicFunctionBB(ByValb%)b=b+1BB=a+bEndFunction(41)A）254B）234C）034D）032(42)A）7129B）7159C）062D）067(43)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）B）C）D）(45)第二次单击窗体后,Form1上的输出结果是(45)。A）B）C）D）【程序阅读3】阅读下列程序并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。（↙：表示回车）PrivateSubForm_Load()Text1.Text=:Form1.ClsEndSubPrivateSubText1_KeyPress(kAsInteger)StaticsAsIntegerIf(Chr(k)0OrChr(k)9)Andk13Thenk=0Ifk=13Thens=s+Val(Text1.Text):Text1.Text=:Prints;第7页共32页EndSub(46)写出运行时在Text1中依次按“1↙3↙5↙”输入后窗体上的显示结果_(46)___。A）149B）9C）135D）5(47)写出运行时在Text1中依次按“1↙-3↙5↙”输入后窗体上的显示结果_(47)____。A）1-23B）149C）1-35D）3(48)写出运行时在Text1中依次按“1↙2a↙5↙”输入后窗体上的显示结果_(48)__。A）14348B）125C）5D）138【程序阅读4】PrivateSubForm_click()DimxAsSinglex=Val(InputBox(输入x))Sele