搜索
第1页共4页杭州电子科技大学信息工程学院考试试卷（）卷考试课程VB程序设计2考试日期成绩课程号教师号任课教师姓名修晓杰江虹唐红军考生姓名学号年级专业注意：请将答案填入答卷纸，交卷时，请将试卷与答卷纸分开交，谢谢。试题一、判断题（每题1分，共20分）说明：在以下提供的若干个陈述中，逐一判断其正确与否，选ˇ表示正确，选×表示错误。（1）目录列表框中的列表项不可以通过AddItem方法进行添加。（2）事件过程由某个用户事件或系统事件触发执行，它不能被其它过程调用。（3）在图片框中放置的控件既可以在该图片框内移动，也可以移出该图片框外。（4）滚动条控件可作为用户输入数据的一种方法。（5）单选钮控件和复选框控件都具有Value属性，它们的作用完全相同。（6）在盘驱动器列表框Drive1的Change事件过程中，代码Dir1.Path=Drive1.Drive的作用是：当Drive1的驱动器改变时，Dir1的目录列表随不同驱动器的作相应改变。（7）当需要在同一窗体中建立几组相互独立的单选钮时，就要用框架将每一组单选钮框起来。（8）当定时器控件的interval属性值设置为0时，会连续不断地激发Timer事件。（9）如果一个菜单项的Visible属性为False，则它的子菜单也不会显示。（10）通用对话框只能用SHOW方法进行调用。（11）图片框的属性Enabled设置为FALSE,图片框上的控件仍可响应用户操作。（12）如果一个列表框一共有5个选项，而当选中第三项时，这时列表框的ListIndex属性为2。（13）当窗体的ScaleTop=0,ScaleLeft=0时，这个窗体Top和Left值也是0。（14）某一过程中的静态变量在过程结束后，静态变量及其值可以在其它过程中使用。（15）设计菜单中每一个菜单项分别是一个控件，每个控件都有自己的名字和事件。（16）在过程中用Dim和Static定义的变量都是局部变量。（17）若要新建一个磁盘上的顺序文件，可用output，append方式打开文件。（18）Picture对象的AutoSize属性值为True时，表示该对象不管原来图片的大小，一律都自动调整为控件的大小尺寸，以便能完整的显示该图片。（19）图形绘图Line方法，只能绘制直线图形。（20）VisualBasic提供的几种标准坐标系统的原点都是在绘图区域的左上角，如果要把坐标原点放在其它位置，则需使用自定义坐标系统。试题二、单选题（每题1分，共20分）（21）单击命令按钮，不可触发下面的事件。A、ClickB、keyDownC、mouseDownD、MouseUp（22）运行时组合框控件Comb1中所选择的表项，可以表示为。A、Comb1.TextB、Comb1.ListC、Comb1.ListIndexD、Comb1.ListCount（23）在图片框控件picture1上坐标（x,y）处画一个绿色点，写作。A、Pset(x,y),RGB(0,255,0)B、Picture1.Pset(x,y),GreeenC、Pset(x,y),vbGreenD、Picture1.Pset(x,y),vbGreen（24）要使shape控件以实心方式填充，应该设置其属性。A、FillColorB、FillStyleC、BackStyleD、Shape（25）如果希望文件列表框只显示可执行文件，应该修改属性。A、PatternB、FilterC、PathD、Filename（26）通用对话框控件的返回值Filename表示所选择文件的。A、路径名B、全名C、文件主名D、文件扩展名（27）菜单项显示分隔线是通过设置属性来实现的。A、CaptionB、VisibleC、CheckedD、Enabled（28）在窗体上画一个List1的列表框，一个名称为Label1的标签，列表框中显示若干个项目，当单击列表框中的某个项目时，在标签中显示被选中的项目的名称，下列能正确实现上述操作的语句是。A、Label1.Caption=List1.ListIndexB、Label1.Name=List1.ListIndexC、Label1.Name=List1.TextD、Label1.Caption=List1.Text（29）RGB函数通过红.绿.蓝三基色混合产生某种颜色,某语法为RGB(红,绿,蓝)，括号中红、绿、蓝三基色的成分使用0～255之间的整数。若使用三个滚动条分别输入三种基色，为保证输入数值有效,则应设置属性。A、Max和MinB、Smallchange和LargeChangeC、Scroll和ChangeD、Value（30）用户可以通过设置菜单项的属性值为FALSE来使该菜单项不可见。A、HideB、CheckedC、VisibleD、Enabled（31）将CommandDialog1通用对话框以打开对话框打开，可选以下方法。A、showopenB、showcolorC、showsaveD、showfont（32）改变控件在窗体中的上下位置应修改控件的属性。A、TopB、LeftC、WideD、Height（33）假定建立了一个名为Command1的命令按钮数组，则以下说法中错误的是。A、数组中每个命令按钮的名称(名称属性)均为Command1B、数组中每个命令按钮的标题(Caption属性)都一样C、数组中所有命令按钮可以使用同一个事件过程D、用名称Command1(下标)可以访问数组中的每个命令按钮（34）窗体通用部分的语句“OptionBase1”，决定本窗体中数组下标界为。A、下界必须为1B、缺省的下界为1C、下界必须为0D、缺省的下界为0（35）在VisualBasic中，不能作为其他控件的容器。A、框架B、图片框C、影像框D、窗体（36）图像框(Image)的属性设置为true时，可使图形自动调整大小，填满整个图像框。第2页共4页A、WidthB、PictureC、NameD、Stretch（37）vb中的坐标系最小刻度为。A、缇B、象素C、厘米D、一个标准字符宽度（38）重新定义图片框控件的坐标系统，可采用该图片框的方法。A、ScaleB、ScaleXC、.ScaleYD、SetFocus（39）方式打开的文件只能读不能写。A、appendB、inputC、outputD、read（40）下列___选项能表示目录列表框控件Dir1的当前目录。A、Dir1.List(Dir1.ListIndex)B、Dir1.List(-1)C、Dir1.List(Dir1.Listcount)D、Dir1.List(0)试题三、程序填空题（每空2分，共20分）说明：阅读下列程序说明和相应程序，在每小题提供的若干可选答案中，挑选一个正确答案。程序1、【程序说明】程序界面如图1所示。界面有5个按钮控件,一个文本框控件和一个通用对话框控件（name为cd）。按钮控件“打开文件”（cmdOpen）用于打开文本文件，并将文件内容添加到文本框中。按钮控件“保存文件”（cmdSave）用于将文本框中内容保存到文本文件中。按钮控件“颜色设置”（cmdColor）用于设置文本框中字体的颜色，按钮控件“字体设置”（cmdFont）用于设置文本框中字体。【程序】PrivateSubcmdColor_Click()cd.Action=3Text1.ForeColor=（41）EndSubPrivateSubcmdFont_Click()cd.Flags=&H3cd.Action=4Text1.FontName=（42）Text1.FontSize=cd.FontSizeText1.FontBold=cd.FontBoldText1.FontItalic=cd.FontItalicEndSubPrivateSubcmdOpen_Click()Text1.Text=DimtextlineAsStringcd.Action=1Open（43）While（44）LineInput（45）Text1.Text=Text1.Text+textline+vbCrLfWendClose#1EndSub(41)A、commonDialog1.ColorB、cd.ColorC、commonDialog1.FilterD、cd.Filter(42)A、commonDialog1.FontNameB、commonDialog1.FileNameC、cd.FontNameD、cd.FileName(43)A、FileNameforinputas#1B、cd.FileNameforoutputas#1C、cd.FileNameforinputas#1D、FileNameforoutputas#1(44)A、EOF(1)B、notEOF(1)C、LOF(1)D、notLOF(1)(45)A、1,textlineB、textlineC、#1,textlineD、textline,#1程序2、【程序说明】利用随机函数产生40个二位整数,通过点击窗体上名为cmdSort的命令按钮，完成对这40个数的由小到大的排序，并以每行8个数进行打印在窗体上。【程序】PrivateSubcmdSort_Click()DimiAsInteger,npositionAsInteger,jAsIntegerPrint产生40个两位随机数分别是：第3页共4页Fori=1To40anumber(i)=10+int(Rnd*89)Printanumber(i);NextiFori=1To39nposition=iForj=（46）To40Ifanumber(nposition)anumber(j)Then(47)Nextjntemp=anumber(i)anumber(i)=anumber(nposition)anumber(nposition)=ntempNextiPrintPrint排序的结果是：Fori=1To40Ifimod8=0thenPrintanumber(i)ElsePrint（48）EndifNextiEndSub(46)A、1B、1+iC、iD、2(47)A、nposition=1B、nposition=iC、nposition=jD、nposition=j+1(48)A、anumber(i)B、anumber(j)C、anumber(i);D、anumber(j);程序3、【程序说明】用Circle方法在图片框中正中画出许多同心圆，且不能画到图片框外。【程序】PrivateSubPicture1_Click()DimCXAsInteger,CYAsInteger,RadiusAsInteger,LimitAsIntegerPicture1.ScaleMode=3CX=Picture1.ScaleWidth/2CY=Picture1.ScaleHeight/2IfCXCYThenLimit=CYElseLimit=CXEndIfForRadius=0To(49)Picture.Circle((50)),RadiusNextRadiusEndSub(49)A、LimitB、CYC、CXD、10(50)A、0,0B、CX,CYC、2*CX,2*CYD、10,10试题四、程序阅读题（每题4分，共20分）程序1、顺序写出运行时在文本框控件Text1中输入：“abcd”后，列表框控件List1中的各表项。DimsAsStringPrivateSubForm_Load()List1.ClearText1.Text=EndSubPrivateSubText1_Change()s=Text1.Text+sList1.AddItems,0EndSub程序2、写出程序运行后，单击窗体，Form1的输出结果。PublicSubSwap1(ByValxAsInteger,ByValyAsInteger)DimtAsIntegert=xx=yy=tEndSubPublicSubSwap2(xAsInteger,yAs