VisualBasic程序设计教程第三版课后习题答案

/《》综合复习资料第一章VisualBasic程序设计概述一、填空题1、VisualBasic是一种面向__________的可视化程序设计语言，采取了__________的编程机制。2、在VB中工程文件的扩展名是____________，窗体文件的扩展名是____________，标准模块文件的扩展名是____________。3、执行“工程”菜单下的__________命令，可选择并添加ActiveX控件。4、VisualBasic6.0用于开发__________环境下的应用程序。二、选择题1、下面不是VB工作模式的是（）A．设计模式 B．运行模式 C．汇编模式 D．中断模式2、可视化编程的最大优点是（）A．具有标准工具箱 B．一个工程文件由若干个窗体文件组成C．不需要编写大量代码来描述图形对象 D．所见即所得3、下列不能打开属性窗口的操作是（）A．执行“视图”菜单中的“属性窗口”命令B．按F4键C．按Ctrl+TD．单击工具栏上的“属性窗口”按钮4、下列可以打开立即窗口的操作是（）A．Ctrl+D B．Ctrl+E C．Ctrl+F D．Ctrl+G5、VisualBasic的编程机制是（）A．可视化B．面向对象C．面向图形D．事件驱动三、简答题1、代码窗口主要包括哪几部分？2、在工程资源管理器窗口中，主要列出了哪三类文件？3、窗体布局窗口的主要用途是什么？4、VB的基本特点是什么？5、怎样理解可视化设计？6、怎要理解事件驱动编程？第二章简单的VB程序设计一、填空题1、设置是否可以用Tab键来选取命令按钮，应该用______________属性。2、一个控件在窗体的位置由_______和________属性决定，其大小由__________和_________属性决定。3、利用对象的属性setfocus可获得焦点，对于一个对象，只有其visible属性和____________属性为true，才能接受焦点。4、设置控件背景颜色的属性名称是______________________。5、所有控件都具有的共同属性是__________________属性。6、一般情况下，控件有两个属性项的缺省值是相同的，这两个属性项是_______________。7、VB中的每个对象（控件）都有一组特征，这组特征称为__________，我们通过修改它可以控制对象的外观和操作。8、通常情况下，VB中一个工程主要包括如下四个文件：窗体文件、工程文件、类模块文件和_____________文件，后者的扩展名为.Bas，通常由Basic语言编写，是一个可共用的子程序。9、VB有三种工作模式，分别是设计（Design）模式、_____________和中断（Break）模式。二、选择题1、以下能够触发文本框Change事件的操作是（）A．文本框失去焦点 B．文本框获得焦点C．设置文本框的焦点 D．改变文本框的内容2、应用程序设计完成后，应将程序保存，保存的过程是（）A．只保存窗体文件即可B．只保存工程文件即可C．先保存工程文件，之后保存窗体文件D．先保存窗体文件（或标准模块文件），之后还要保存工程文件3、VB应用程序的运行模式是（）A．解释运行模式 B．编译运行模式 C．两者都有 D．汇编模式4、任何控件都具有的属性是（）A．TEXT B．CAPTION C．NAME D．FORECOLOR5、决定控件上文字的字体、字形、大小与效果的属性是（）A．TEXT B．CAPTION C．NAME D．FONT6、在窗体上建立了多个控件，如TEXT、LABEL1、COMMAND1，若要使程序一运行焦点就定位在COMMAND1控件上，应将COMMAND1控件的（）设置为0A．INDEX B．TABINDEX C．TABSTOP D．ENABLED7、运行时，当用户向文本框输入新的内容，或在程序代码中对文本框的TEXT属性进行赋值从而改变了文本框的TEXT属性值时，将触发文本框的（）事件A．CLICK B．DBLCLICK C．GOTFOCUS D．CHANGE8、在运行时，按TAB键跳过了一个可以获得焦点的控件（如文本框），则可能是因为（）A．该控件的TABSTOP属性值为TRUE B．该控件的TABINDEX属性值为FALSEC．该控件的ENABLED属性值为TRUE D．该控件的ENABLED属性值为FALSE9、为了防止用户随意将光标置于控件上，应（）A．将控件的TABINDEX属性设置为0B．将控件的TABSTOP属性设置为TRUEC．将控件的TABSTOP属性设置为FALSED．将控件的ENABLED属性设置为FALSE10、若要使标签控件显示时，不覆盖其背景内容，应设置标签控件的（）属性A．BACKCOLOR B．BORDERSTYLEC．FORECOLOR D．BACKSTYLE11、如果要在文本框中输入字符时，只显示某个字符，如星号（*），运行时，在文本框中输入的字符仍然显示出来，而不显示星号，原因可能是（）A．文本框的MULTILINE属性值为TRUEB．文本框的LOCKED属性值为TRUEC．文本框的MULTILINE属性值为FALSED．文本框的LOCKED属性为FALSE12、在运行阶段，要在文本框TEXT1获得焦点时选中文本框中所有内容，对应的事件过程是（）A．PrivateSubText1_GotFocus()Text1.SelStart=0Text1.Sellength=Len(Text1.Text)EndSubB．PrivateSubText1_LostFocus()Text1.SelStart=0Text1.Sellength=Len(Text1.Text)EndSubC．PrivateSubText1_Change()Text1.SelStart=0Text1.Sellength=Len(Text1.Text)EndSubD．PrivateSubText1_SetFocus()Text1.SelStart=0Text1.Sellength=Len(Text1.Text)EndSub13、VisualBasic继承了Basic语言简单易用的语法特点，同时支持面向对象的编程机制，其中构成其控件（对象）的三要素是（）A．属性、事件、事件过程 B．控件、窗体、事件C．属性、过程、方法 D．属性、事件、方法14、决定标签（Label）显示的属性是（）A．TextB．NameC．CaptionD．Alignment15、命令按钮的标题文字由（）属性来设置。A．TextB．CaptionC．NameD．(名称)16、若要设置文本的显示颜色，则可用（）属性来实现。A．BackColor B．ForecolorC．FillColorD．Backstyle17、在运行时，若要调用某命令钮的Click事件过程，则可设置该命令钮对象的（）属性为Ture来实现。A．EnabledB．ValueC．DefaultD．Cancel18、在运行时，若要获得用户在文本框中所选择的文本，可通过访问（）属性来实现。A．SelStart B．SelLenght C．Text D．SelText三、简答题1、事件驱动的含意是什么？举例说明。2、交互式开发方法和传统的应用程序开发过程有什么不同？3、文本框在什么情况下使用？4、什么是工程？5、结构化程序设计的三种基本结构是什么？6、对象的三要素是什么？并分别进行简单的解释。7、为什么要生成可执行文件和制作安装盘？8、使用变量前先声明有什么好处？9、如何使用帮助功能？10、结构化程序设计的特点是什么？11、为了把焦点移到某个指定的控件，在代码中应使用的方法是什么？12、启动VisuaBasic后，只创建了一个窗体，若此时保存，需要保存几个文件？各是什么文件？先保存的是哪一个？13、为了防止文本框中的信息运行后被用户修改，应设置什么属性？第三章VB基本语言一、填空题1、一般可以使用__________关键字声明常量。2、______类型也称变体类型，是一种通用的、可变的数据类型，它可表示或存储任何一种数据类型。3、变量的声明分为两种方法：__________和____________。4、在VB中，用___________________语句设定数组的下界，用_____________和__________________语句分别返回数组的上、下界。5、在代码模块中加入OptionExplicit的目的是_____________________。6、functionaa(a1asdate,optionala2asboolean)assingle，写出optional命令的作用__________________。7、在VB中，我们用一个简单的______语句就能实现退出程序。8、生成消息框的命令是____________，生成输入框的命令是____________。9、通用对话框（commondialog）属activex控件，它可以显示多个标准对话框，包括打开/另存为、字体、打印等对话框，若要显示所有文件，则应设置其属性filter=____________，若要使它显示为打印对话框，则应使用什么方法____________。10、从字符串中任意位置截取字符的函数是__________。11、语句Forj=3To20Step3使循环体执行了______次。12、对于正在使用的动态数组Arraya()，要增加一个单元，但不能破坏数组内的数据，则应使用语句__________________________________。13、在VisualBasic中声明静态变量的关键字是_________________。14、表达式10Mod6\4的值为______。15、表达式chr(Asc("a")+5)的值为_________。16、VB中使用注释有2种方法，即________和________。17、VB中的数据以四种形式存储：常量、_________、_________和记录。18、为了在VB中存储一个4行5列的二维矩阵，需要定义一个整型的数组，请把数组定义语句补充完整：DimJuzhen(__)asInteger。19、控件数组由一组相同类型的控件组成，这些控件共用一个相同的控件名，但是每个控件都有一个唯一的下标来区分，我们使用属性____来设置下标。20、在过程调用中，实现调用过程的实参和被调用过程的形参之间的数据传递有两种方式：按值传递和____。21、为了保证程序中必须对变量的强制性定义，需要在代码模块的声明部分加入______________语句。22、分析For……Next循环结构的实例：Fori=5To30Step2中，循环体一共执行了______次。23、表达式Mid("UniversityOfPetroleum",8,4)的值为_________。24、常量分为普通常量和__________常量。25、要将大写字母转换为小写字母，可使用____________函数。26、不管焦点在哪个控件上，按__________键相当于按了取消按钮。27、执行“工程”菜单下的__________命令，可选择并添加ActiveX控件。28、__________是程序中VB停止执行的地方。29、逻辑常量为True或__________。30、使用了__________________的声明后，当程序中使用未经声明的变量时，程序运行时会报错。31、要将小写字母转换为大写字母，可使用____________函数。32、自字符串N1位开始向右取N2个字符，要使用_________________函数。33、日期常量表示时，用符号__________将日期型数据括起来。34、局部变量只能在__________中声明和使用。35、模块级变量的声明关键字是Dim或__________。36、函数Abs(x)的功能是__________。37、表达式3/6*5的值是__________。二、选择题1、以下哪个是合法的变量（）A．right B．abc@123 C．123_abc D．ab123c2、下列说法错误的是（）A．在同一模块不同过程中的变量可以同名B．不同模块中定义的全局变量不可以同名C．引用另一模块中的全局变量时，必须在变量名前加模块名D．同一模块中不同级的变量可以同名3、把MsgBox的返回值转换为数值应该使用的函数是（）A．LogB．StrC．LenD．Val4、语句DIMAA(3,4,5)中定义的数组有（）个元素A．12B．60C．120D．3455、下面程序运行后输出的结果是（）A$="CHINA"B$=STRING$(3,A$)PRINTB$ENDA．CHIB．CCCC．INAD．AAA6、以下语句的输出结果是（）PrintFormat$(32548.5,"000,000.00")A．32548.5B．325,485.00C．032,548,50D．32,548,507、以下叙述中错误的是（）A．如果过程被定义为Static类型，则该过程中的局部变量都是Static类型B．Sub过程中不能嵌套定义Sub过程C．Sub过程中可以嵌套调用Sub过程D．事件过程可以像通用过程一样由用户定义过程名8、VisualBasic提供的OnErrorResumenext错误陷阱语句表示（）A．当发生错误时，使程序转跳到语句标号为0的程序块B．当发生错误时，不使用错误处理程序块C．当发生错误时，忽略错误行，继续执行下一语句D．当发生错误时，终止本过程执行，继续执行下一过程9、在VisualBasic中，若要将控制权交给操作系统则通过（）的语句。A．EndB．ExitDoC．ExitSubD．DoEvents10、在VisualBasic中语句的续行号采用（）A．空格与下划线 B．下划线与空格C．空格与短线D．短线与空格11、假定有以下程序段：Fori=1to3 Forj=5to1Step–1 Printi*j Nextj,i则语句Printi*j的执行次数是（）A．15B．.16C．17D．1812、从键盘上输入两个字符串，分别保存在变量str1、str2中。确定第二个字符串在第一个字符串中起始位置的函数是（）A．LeftB．MidC．StringD．Instr13、如果将布尔常量值TRUE赋值给一个整型变量，则整型变量的值为（）A．0 B．-1 C．TRUE 14、下列叙述不正确的是（）A．注释语句是非执行语句，仅对程序的内容起注释作用，它不被解释和编译B．注释语句可以放在代码中的任何位置C．注释语句不能放在续行符的后面D．代码中加入注释语句的目的是提高程序的可读性15、语句PRINT“INT(-13.2)”；INT(-13.2)的输出结果为（）A．INT(-13.2)=-13.2 B．INT(-13.2)=13.2C．INT(-13.2)=-13 D．INT(-13.2)=-1416、如果TAB函数的参数小于1，则打印位置在第（）列A．0 B．1 C．2 17、变量未赋值时，数值型变量的值为（）A、0 B．空 C．1 D．无任何值18、下列语句中正确的是（）A．txt1.text+txt2.text=txt3.text B．=cmdokC．12label.caption=1234 D．a=inputbox(“hello”)19、假设变量BOOLVAR是一个布尔型变量，则下面正确的赋值语句是（）A．BOOLVAR=‘TRUE’ B．BOOLVAR=.TRUEC．BOOLVAR=#TRUE# D．BOOLVAR=3<420、以下（）程序段可以实施X、Y变量值的变换（）A．Y=X：X=Y B．Z=X：Y=Z：X=YC．Z=X：X=Y：Y=Z D．Z=X：W=Y：Y=Z：X=Y21、语句PRINT“SGN(-26)=”；SGN(-26)的输出结果为（）A．SGN(-26)=26 B．SGN(-26)=-26C．SGN(-26)=+1 D．SGN(-26)=-122、读下面程序段，判断变量Str2的取值是（）DimStr1,Str2asStringStr1="University"Str2=STRING$(3,Str1)A．Uni B．UUUC．ity D．yyy23、VB支持自定义数据类型，在某程序中我们定义了如下类型：TypeStudentnumberAsstringnameAsStringageAsIntegerEndType针对上述定义，如下几项用法正确的是（）A．S="张三"B．DimsAsS＝"张红"C．DimsAsTypeStudentD．DimsAsType="张三"="张三"24、一个工程中包含两个名称分别为Form1、Form2的窗体，一个名称为mdlFunc的标准模块。假定在Form1、Form2和mdlFunc中分别建立了自定义过程，其定义格式为：Form1中定义的过程：PrivateSubfrmfunction1()EndSubForm2中定义的过程：PublicSubfrmfunction2()EndSubmdlFunc中定义的过程：PublicSubmdlFunction()EndSub在调用上述过程的程序中，如果不指明窗体或模块的名称，则以下叙述中正确的是（）A．上述三个过程都可以在工程中的任何窗体或模块中直接被调用B．只有mdlFunction过程能够被工程中各个窗体或模块直接被调用C．frmfunction1只能在form1中调用，而frmfunction2则可以在所有模块或窗体中被直接调用D．上述三个过程都只能在各自被定义的模块中直接调用25、VB中Do……Loop结构既可以构成当型循环，也可以构成直到型循环，根据下面的代码：Dimi,nasIntegern=20i=1DoPrinti;i=i+2LoopUntili>20判断循环结构的类型和循环体的执行次数，正确的选项是（）A．当型循环，20次 B．直到型循环，10次C．当型循环，10次 D．直到型循环，20次26、在程序中，使用InputBox函数可以接受用户的输入，如果要把它的返回值转换为数值型的数据，应该使用的函数是（）A．Val B．LenC．Str D．Log27、动态数组因为在程序运行前无法确定数组的大小，所以经常根据程序的运行情况，对数组进行重新定义，以下关于VB中动态数组的叙述中不正确的是（）A．可以用ReDim语句重新定义动态数组，并且可以进行多次重定义B．首次用Dim进行动态数组声明的时候，必须指明它的类型和上下界C．Preserve为ReDim语句的可选参数，用于保留动态数组原来的内容D．当对动态数组使用Erase语句进行释放操作时，将释放其内存28、VB中的控件也叫做部件或组件，主要包括三类，以下哪一项不属于VB控件的分类（）A．控件 B．可插入对象C．ADO控件 D．ActiveX控件29、表达式4+5\6*7/8Mod9的值是（）A．4 B．5 C．6 D．730、可以同时删除字符串前导和尾部空白的函数是（）A．Ltrim B．Rtrim C．Trim D．Mid三、简答题1、全局变量声明有哪些限制？2、字符串是否可以自动转换为数字类型？3、用Format函数格式化后的字符格式在不同区域环境下的输出是否相同？为什么？4、在InputBox函数中，哪一个参数是必需的？5、在MsgBox函数中哪一个参数是必须的？6、在什么情况下使用过程？7、为什么要进行程序调试？8、调试程序有哪些手段？9、用语句DimA(-3To5)AsInteger定义的数组的元素个数是多少？10、设有如下的VisualBasic表达式：5*x^2-3*x-2*Sin(a)/3，与它对应的数学式是什么？11、数学式对应的VB表达式是什么？12、表达式2>3And4<=5Or4>4的值是什么？13、怎样在程序中设置断点？14、在什么情况下可以设置断点？15、程序出错的类型有哪几种？16、在同一模块、不同过程中声明的相同变量名，两者是否表示同一个变量？为什么？17、什么情况下会出现“数组下标越界错误”？18、逐语句和逐过程有什么区别？19、表达式2.75*2\3.45的值是什么？20、在程序设计中为什么尽量不用GoTo语句？四、读程序题1、分析以下程序，写出运行结果。PrivateSubForm_Click()score=Int(Rnd*10)+80SelectCasescoreCaseIs<60A$="F"Case60To69A$="D"Case70To79A$="C"Case80To89A$="B"CaseElseA$="A"EndSelectPrintA$EndSub2、读下面的程序，分析其功能，写出运行结果。在窗体上有一个命令按钮，名称为Command1。然后编写如下程序：PrivateSubCommand1_Click()ForI=1To4ForJ=0ToIPrintChr$(65+I);NextJPrintNextIEndSub程序运行后，如果单击命令按钮，则在窗体上显示的内容是什么？3、阅读下面的程序，分析并写出其功能。Subinsert(a()AsSingle,ByValxAsSingle)Dimmasinteger,nasintegern=1DoWhilen<20Andx>a(n) n=n+1LoopForm=20-1TonStep–1 a(m+1)=a(m)Nextma(n)=xEndSub4、分析以下程序，写出运行结果。SubsubP(b()AsInteger)Fori=1To4b(i)=2*iNextiEndSubPrivateSubCommandl_Click()Dima(1To4)AsIntegera(1)=5a(2)=6a(3)=7a(4)=8subPa()Fori=1To4Printa(i)NextiEndSub运行上面的程序，单击命令按钮，输出结果是什么？5、分析以下程序，写出运行结果。Subsele()DimnasIntegeri=21:n=3DoWhilei>ni=i－nLoopPrintiEndSub6、分析以下程序，写出运行结果。SubselectPrint()DimaasIntegerDimbasIntegerDimcasIntegera=2:b=5:c=2If(a>=b)and(a>=c)or(b>c)ThenPrintaa=a+2ElsePrintbEndIfPrinta;b;cEndSub7、分析以下程序，写出运行结果。Subswap()DimxasIntegerDimyasIntegerDimzasIntegerx=1:y=2:z=0Printx;y;zx=x+yx=x*zPrintx,y,zEndSub8、分析以下程序，写出运行结果。SubselectPrint()DimaasIntegerDimbasIntegerDimcasIntegera=3:b=3:c=2If(a>=b)and(a>c)ThenPrintaPrinta,b,cEndSub五、编程题1、输入一年号，判断它是否是闰年。界面如下图所示，包括两个标签、一个文本框和一个命令按钮。提示：如果此年号能被400整除或者不能被400除尽，也不能被100除尽，但能被4整除，则它是闰年；否则，不是闰年。2、输入两个正整数m、n，求m和n的最大公约数。要求建立如下图所示的窗体，其中主要的控件包括：两个标签（Lable1、Lable2）、两个文本框（Text1、Text2）和一个按钮（Command1）。3、输入某学生成绩（百分制），若是100≥成绩≥90输出优秀；若是90＞成绩≥80输出良好；若是80＞成绩≥70输出中等；若是70＞成绩≥60输出与格；若是60＞成绩≥0，输出不与格；若是其他数则输出error信息。4、在窗体中显示从9号字型到16号字型。5、在有序序列中插入一个数，使插入后的数列仍然有序（设按由小到大排列）。6、编程实现二维数组转置。7、随机输入10个100以内的整型数，计算其和与平均值。8、找出所有的水仙花数。水仙花数是个三位数，它的各位数字的立方和等于这个三位数本身。例如371＝33+73+13，则371是水仙花数。9、从键盘输入一个大于2的正整数，判断该数是否是素数。10、求二维数组中的最小值与其所在行号、列号。11、求一元二次方程ax2+bx+c=0的根（包括实根和复根）。12、输入一个正整数n，计算出n!并输出。13、Faibonacci数列为0，1，1，2，3，5，8，13…，计算并输出第20项以与前20项的和。第四章常用控件与窗体一、填空题1、向列表框控件添加新项目的方法是__________。2、在VB中，最主要的两种对象是____________和____________。3、当窗体启动时可通过__________属性控制窗体位于所有者的中心位置。4、若要将窗体Form1隐藏起来，则可通过执行代码_________________来实现。5、要使装入到列表框中的数据项能自动按字母顺序排序，应设置该控件的_________属性为__________。6、窗体上放置了若干个文本框和命令按钮，当窗体装入后，要将焦点自动定位到文本框Text1上，则在设计时需要将__________控件的_________属性设置为__________。7、在标签控件中通过编程使文字换行用的代码是___________________。8、设置计时器控件只能触发______________________事件。9、设置计时器对象触发事件的时间间隔用_____________________属性。10、滚动条控件主要支持两个事件，它们是_______________事件。11、要使鼠标停留在按钮上显示特殊的鼠标形状，应设置的属性值是_________________。12、设某列表框共有10项，按题目要求补齐程序，完成相应的功能。（1）按下命令按钮Command1时将列表框第8项的内容显示在窗体上：PrivateSubCommand1_Click()List.__________(7)=TruePrintList1.______________EndSub（2）单击列表框某一项时立即将该项打印在窗体上：PrivateSubList1_Click()Print_______________EndSub（3）按下命令按钮Command1时在窗体上删除第1、3、5、7、9项：PrivateSubCommand1_Click()ForI=1To5List1.____________NextIEndSub（4）在列表框的每一项之后插入一个新的项：PrivateSubCommand1_Click()ForI=1to10X=InputBox(“请输入插入的第”&I&“项内容”)List1.AddItem____________NextIEndSub13、设在界面上放置了一个滚动条Hscroll1和一个标签控件Label1，要使每次单击滚动条两端箭头时，或单击滚动条滑块与两端箭头之间的空白区域时，标签内容能够反映滚动条的值，补齐以下代码。PrivateSubHscroll1.__________________()Label1.Caption=Hscroll1.___________________EndSub要使拖动滚动条滑块时标签内容能够反映滚动条的值，补齐以下代码。PrivateSubHscroll1.________________()Label1.Caption=Hscroll1.__________________EndSub14、列表框（ListBox）用于列出可供选择的项目的列表，用户可以选择一个或多个项目。它具有几个非常重要的数组属性，其中____属性存放了列表框中所有项目的值。15、菜单项一般由标题、访问键、快捷键和复选标志等构成，通过对相应的属性进行设置可以改变这些项目的状态，其中与复选标志相对应的属性是____。16、keydown与keypress事件各有其参数，若需获得用户按下"a"还是"A"需用____________事件。17、控件________组合了文本框和列表框的功能，是VB中一种功能非常强大的选择类控件。18、若需要将窗体Form2以模态窗口的形式显示出来，可通过执行代码_________________来实现。19、菜单中的分隔条是一种菜单控件，不响应__________事件，不能被选中。二、选择题1、当程序运行时，在窗体上单击鼠标，以下哪个事件是窗体不会接收到()A．MouseDown B．MouseUp C．Load D．Click2、窗体Form1的Name属性是Frm1，它的单击事件过程名是（）A．Form1_ClickB．Form_ClickC．Frm1_ClickD．Me_Click3、用于设置通用对话框控件显示文件类型的属性是（）A．FilterB．PathC．ParternD．FoleName4、用于从内存删除窗体的命令是（）A．MoveB．HideC．UnloadD．Delete5、用于返回窗体可用区域宽度的属性是（）A．ScaleWidthB．ScaleLeftC．ScaleHeightD．ScaleTop6、下列关于属性设置的叙述错误的是：（）A．一个控件具有什么属性是VB预先设计好的，用户不能改变B．一个控件具有什么属性是VB预先设计好的，用户可以改变C．一个控件的属性即可以在属性窗口中设置，也可以用程序代码设置D．一个控件的属性在属性窗口中设置，还可以利用程序代码为其设置新值7、下列说法正确的是（）A．对象属性只能在“属性窗口”中设置B．一个新的工程可以在“工程窗口”中建立C．必须先建立一个工程，才能开始设计应用程序D．只能在“代码窗口”中编写程序代码8、下列关于窗体上控件的基本操作错误的是（）A．按下一次DEL键只能删除一个控件B．按下一次DEL键可以同时删除多个控件C．按住SHIFT键，然后单击每个要选择的控件，可以同时选中多个控件D．按住ALT键，然后单击每个要选择的控件，可以同时选中多个控件9、下列关于设置控件属性的叙述正确的是（）A．用户必须设置属性值B．所有的属性值都可以由用户随意设定C．属性值不必一一重新设置D．不同控件的属性项都完全一样10、不可以通过下列（）操作将焦点赋给对象A．运行时使用TAB键 B．在代码中用CALL语句调用C．在代码中用SETFOCUS方法 D．用访问键或用鼠标单击选择对象11、要在FORM_LOAD事件过程中使用PRINT方法在窗体上输出一定的内容，应（）A．设置窗体的VISIBLE属性 B．设置窗体的CAPTIONC．调用窗体的SHOW方法 D．设置窗体ENABLED属性12、下面（）对象无CAPTION属性A．FORM B．COMMANDBUTTON C．TEXTBOX D．LABEL13、通用对话框控件和文件列表框控件中，都能根据文件的类型对要显示的文件进行筛选过滤，后者使用（）属性进行该项设置。A．Pattern B．Path C．Filter D．14、对于复选框控件chkBoy，如果在程序中设置它为选中状态，下面语句正确的是（）A．chkBoy.Checked=true B．chkBoy.Value=trueC．chkBoy.Selected=true D．chkBoy.Value=115、计时器（Timer）控件用于每隔一段时间自动触发一次Timer事件，可以有规律地重复执行一段程序，它用于设置两次事件时间间隔的属性是（）A．Interval B．SmallChange C．LargeChange D．Max16、以下关于VB中窗体（Form）的说法中，不正确的描述为（）A．执行UnloadForm语句后，窗体Form消失，但仍在内存中B．当窗体的Enabled属性为False时，通过鼠标和键盘对窗体的操作都被禁止C．窗体的Height、width属性用于设置窗体的高和宽D．窗体的load事件在加载窗体时发生17、关于滚动条控件，下面说法错误的是（）A．点击滚动条的箭头，可以改变它的value值，从而引发Change事件B．拖动滚动框，可以触发Scroll事件C．通常，水平滚动条的值从左向右递增，垂直滚动条的值自上而下递增D．拖动滚动框，可以触发Change事件，而且是连续触发的18、在窗体上放置一个命令按钮，名称为Command1。单击命令按钮时，执行如下事件过程：PriVateSubCommand1_C1ick()a$="softwareandhardware"b$＝Right(a$,8)c$=Mid(a$,1,8)Msgboxa$,b$,c$,1EndSub则在弹出的信息框的标题栏中显示的信息是（）A．softWareandhardware B．softwareC．hardwafe D．出现错误19、在多重窗体程序设计中，关键的问题是要解决不同窗体之间的衔接和窗体的显示、关闭等问题，以下关于窗体的相关语句和方法的叙述中，错误的是（）A．Load语句用于加载指定窗体，即在内存中创建该窗体B．Show方法兼具Load语句的功能，可以将窗体显示出来C．Hide方法用于将窗体隐藏起来D．Unload语句用来释放窗体，但窗体并没从内存中消20、滚动条控件的属性中，表示取值范围最大值的属性是（）A．Max B．LargeChangeC．Min D．Value21、程序中如果需要检测和控制鼠标的位置和状态的改变，就需要使用鼠标事件，其中下面哪个选项用于表示拖动事件（）A．DragDrop B．MouseDownC．MouseUp D．MouseMove22、为了使用通用对话框进行打开文件的操作，应将通用对话框的Action属性设定为（）。A．0 B．1 C．2 D．3三、简答题1、什么是单选按钮？什么是复选框？在使用上有什么不同？2、滚动条的change事件和scroll事件有什么不同？3、快捷键和访问键有什么区别？4、在程序运行期间，如果拖动滚动条上的滚动块（即滑块），则触发滚动条的什么事件？5、假定有一个菜单项，名为MenuItem，为了在运行时使该菜单项失效（变灰），应使用什么语句？6、为了暂时关闭计时器（即时钟控件），应把该计时器的什么属性设置为False？7、单选按钮和复选框（即检查框）各用于什么情况？8、如何为一个菜单项设置热键和快捷键？9、菜单的形式有哪两种？10、在KeyPress事件中，如何取消用户刚输入的字符？11、框架的作用是什么？12、如果要计时器每秒钟发生4个Timer事件，则Interval属性值应设多少？13、在一个窗体的程序代码中能否访问另一个窗体上控件的属性？若不行则请说明理由；若行则请说明如何访问。14、如何在框架中建立控件？15、组合框有哪几种类型？四、读程序题1、对窗体编写如下代码：OptionBase1PrivateSubForm_KeyPress(KeyAsciiAsInteger)a=Array(237,126,87,48,498)m1=a(1)m2=1IfKeyAscii=13ThenFori=2To5Ifa(i)>mlThenm1=a(j)m2=iEndIfNextiEndIfPrintm1Printm2EndSub程序运行后，按回车键，输出结果是什么？2、阅读下面的程序，写出执行结果。PrivateSubForm_load()Form1.showd=0Fora=1To2Forb=1ToaForc=bTo5d=d+1NextcNextbNextaPrintdEndSub五、编程题1、在窗体上有一个文本框控件，名称为TxtTime；一个计时器控件，名称为Timer1，要求每一秒在文本框中显示一次当前的时间，请编程实现。2、在Text1中输入任一英文字母，在Text2中显示该英文字母与其ASCII码值。要求在文本框Text2中显示出所有输入的英文字母与其ASCII码值，如下图所示。Text1Text1Text2Command13、编写一个程序，能够实现任意个整数的排序。4、编程实现以下功能：用户首先分别在两个文本框中输入两个数，然后在具有“加、减、乘、除”等四个菜单项的“计算”菜单中单击某一项，即可在标签中显示出相应的结果或者错误提示。5、编程实现任意两个数的“加、减、乘、除”。6、编写一个程序，能够求任意个正整数的最大值和最小值。7、编程求任意两个正整数的最大公约数。六、程序分析填空题1、建立一个如图所示的简单编辑器。用户在文本框（text1）中输入正文后，选中某些文本时可进行“剪切”、“复制”和“粘贴”操作。假设在窗体声明部分定义了一个变量str1，用于保存复制和剪切的内容，请把剪切按钮(btnCut)的Click事件补充完整。程序运行界面：PrivateSubbtnCut_Click()‘请补充EndSub2、计算1+2+3+……+100的和并输出。请把下面用DoWhile……Loop循环结构实现这一功能的代码补充完整。PrivateSubForm_Load()Dimsum,countasInteger‘请补充Dowhilecount<=100‘请补充LoopText1.Text=sumEndSub3、列表框控件（ListBox）支持多项选择，这项功能在对用户的兴趣爱好进行调查的时候显得非常好用，在下图所示的界面中列表框List1用于列出爱好选项，供用户进行多项选择。请把下列代码补充完整，能够取得用户的所选爱好选项：PrivateSubCommand1_Click()DimiAsIntegerDimsAsStrings=txtname.Text&"爱好"Fori=0ToList1.ListCount-1‘请补充NextLabel3.Caption=sEndSub4、要求利用计时器Timer1，在窗体Form1上每隔1秒钟打印一个1到10的随机整数，请把下列代码补充完整：PrivateSubForm_Load()Show‘请补充EndSubPrivateSubTimer1_Timer()‘请补充EndSub第五章文件一、填空题1、文件按存取方式与其组成结构可分为________________文件、__________文件和______________文件。2、为了使文件列表框List1和目录列表框Dir1之间能产生同步效果，必须在______________事件过程中加入语句__________________________。3、文件系统控件的作用是向用户显示系统中的文件，方便用户选择，它是一组控件的组合，包括：驱动器列表框、____和文件列表框。二、选择题1、利用下面哪个函数可判定访问文件时是否已到文件尾（）A．LOFB．LOCC．EOFD．BOF2、用于设置文件列表框控件显示文件类型的属性是（）A．FilterB．PathC．ParternD．三、简答题1、什么是文件？2、文件存取分成几类，几种模式？3、顺序文件、随机文件和二进制文件各有什么特点和用途？4、文件有哪几种类型？它们的区别是什么？5、请说明PRINT#和WRITE#语句的区别6、EOF函数的功能是什么？四、编程题1、实现二进制方式文件的复制。2、如下图所示，实现一个简单的文件管理器。第六章图形操作一、填空题1、使用____________方法可在窗体中进行文本的输出，用____________方法可画圆，用____________方法可画直线。2、用____________函数可加载图形。3、为了使一个Picture控件能自动根据装入的图片调整大小，应设置该控件的________________属性为True。二、选择题1、下列关于控件画法的叙述错误的是（）A．单击一次工具箱中的控件图标，只能在窗体上画出一个相应的控件B．按住CTRL键后单击一次工具箱中的控件图标，可以在窗体上画出多个相同类型的控件C．双击工具箱中的控件图标，所画控件的大小和位置是固定的D．不使用工具箱中的控件工具，不可以在窗体上画出图形对象，但可以写入文字字符2、当一个对象（如窗体或图片框）被移动或改变大小之后，或当一个覆盖该窗体被移开之后，如果要保持该所画图形的完整性，可以选择触发（）事件来完成图形的重画工作A．Paint B．Load C．Click D．Active三、简答题1、在什么情况下使用Image控件而不使用PictureBox控件？2、在程序运行时怎样在图形框中装入和删除图形？3、颜色函数主要有哪些？四、编程题1、如下图显示当前目录下的图片文件列表，并能够预览选定的图片。第七章面向对象的编程一、填空题1、类是具有相同性质的对象的_________。2、语句DIMTEMPASObject的作用是________________________________。二、简答题1、什么是模块？第八章界面设计一、简答题1、什么是多文档界面（MDI）？2、说明菜单栏、菜单、选项和工具栏之间的关系。3、结束MDI应用程序时，需要注意什么？第九章VisualBasic与数据库一、简答题1、表间的关系类型有哪几种？2、VisualBasic中的记录集有哪几种类型？二、编程题1、请编程实现每两秒在标签中显示一次当前的时间。2、找出被3、5、7整除，余数为1的最小的2个正整数。3、有一个m×n的实型矩阵A(m,n)，找出其中最大的那个元素所在的行和列。4、找出能同时被5和7整除的最小的10个正整数。5、编写一个程序，能够输出100~1000之间所有的素数。6、从键盘上任意输入100个整数，统计负数的个数，并计算正数的和。7、有一种数，正序读与反序读都相同，这种数叫回文数，如88、858、2332等。求出4位数以内（0～9999）的所有回文数。8、输出“九九乘法表”。参考答案第一章VisualBasic程序设计概述一、填空题1、对象、事件驱动2、Vbp、frm、bas3、部件4、WINDOWS二、选择题1、C2、C3、C4、D5、D第二章简单的VB程序设计一、填空题1、Tabstop2、Left、top、height、width3、enabled4、backcolor5、name6、name和caption7、属性8、标准模块文件9、运行模式二、选择题1、D2、D3、C4、C5、D6、B7、D8、D9、D10、D11、B12、A13、D14、C15、B16、B17、B18、D第三章VB基本语言一、填空题1、Const2、Variant3、隐式声明、显示声明4、optionbase、ubound、lbound5、强制变量声明6、表示a2是一个可选参数7、End8、Msgbox、Inputbox9、*.*、showprint10、Mid()11、612、redimpreservearraya(ubound(arraya())+1)13、static14、015、f16、rem、’17、变量、数组18、1to4,1to519、Index20、按地址21、OptionExplicit22、1323、ityo24、符号25、LCase26、ESC27、部件28、断点29、False30、OptionExplicit31、UCase32、Mid33、#34、过程35、private36、求x的绝对值37、2.5二、选择题1、D2、B3、D4、C5、B6、C7、D8、C9、D10、A11、A12、D13、B14、B15、D16、B17、A18、D19、D20、C21、D22、B23、B24、B25、B26、A27、B28、C28、B30、C四、读程序题1、结果如下：B2、结果如下：BBCCCDDDDEEEEE3、功能如下：在20个由小到大排列的数据中插入一个数，插入数据后的数据仍按由小到大的顺序排列。4、输出结果为：24685、输出结果为：36、输出结果为：24527、输出结果为：1200208、输出结果为：3332五、编程题1、参考代码如下：PrivateSubCommand1_Click()Dimyear,xAsIntegeryear=Val(Text1.Text)IfyearMod400=0ThenLabel2.Caption="是闰年"Else'下面是嵌套块If语句IfyearMod4=0AndyearMod100<>0ThenLabel2.Caption="是闰年"ElseLabel2.Caption="不是闰年"EndIfEndIfEndSub2、程序参考代码如下：PrivateSubCommand1_Click()Dimm,n,rAsIntegerm=Val(Text1.Text)n=Val(Text2.Text)Ifm<0Orn<0Then‘若判断为非法数据，Then子句输出相应信息Label2.Caption="输入数据有错！"Else‘若判断为合法数据，Else子句用辗转相除法求余数r=mModnDoWhiler<>0m=nn=rr=mModnLoop‘循环结束后n中存放的就是最大公约数，输出n值Label2.Caption="最大公约数为："&nEndIfEndSub3、参考代码如下：PrivateSubCommand1_Click()DimxAsSinglex=Val(Text1.Text)Ifx>100Orx<0ThenText2.Text="error"ElseIfx<60ThenText2.Text="不与格"ElseIfx<70ThenText2.Text="与格"ElseIfx<80ThenText2.Text="中等"ElseIfx<90ThenText2.Text="良好"ElseText2.Text="优秀"EndIfEndSub4、参考代码如下：PrivateSubForm_Load()DimiAsIntegerShow'使输出可见Form1.Font="新宋体"Fori=9To16Step1Form1.FontSize=iPrinti;"号字型"NextiEndSub5、参考代码如下：PrivateSubCommand1_Click()Dima(1To11)AsSingle'定义静态数组a含11个元素Dimi,jAsIntegerDimnumAsSingle'给数组元素赋初值，即原始队列a(1)=3:a(2)=5:a(3)=7:a(4)=8:a(5)=9a(6)=13:a(7)=16:a(8)=19:a(9)=33a(10)=38'输出原始队列Fori=1To10Label2.Caption=Label2.Caption&a(i)&","Nextinum=Val(Text1.Text)'把输入的数插入队列中Fori=10To1Step-1Ifnum<a(i)Thena(i+1)=a(i)'元素后移一个位置elsea(i+1)=numExitFor'退出循环EndIfNexti'输出新队列 Fori=1To11Label3.Caption=Label3.Caption&a(i)&","NextiEndSub6、参考代码如下：OptionBase1PrivateSubForm_Load()ConstN=4'常量N决定二维数组大小Dima(N,N)AsIntegerDimi,j,TempAsIntegerShow'数组初始化Fori=1ToN'For循环i从1变化到NForj=1ToNa(i,j)=i*10+jNextjNexti'输出原始数组Print"转置前的数组："Fori=1ToN'For循环i从1变化到NForj=1ToNPrinta(i,j);NextjPrintNexti'数组转置Fori=1ToN'For循环i从1变化到NForj=1Toi'交换Temp=a(i,j)a(i,j)=a(j,i)a(j,i)=TempNextjNexti'输出转置后的数组Print"转置后的数组："Fori=1ToN'For循环i从1变化到NForj=1ToNPrinta(i,j);NextjPrintNextiEndSub7、参考代码如下：PrivateSubForm_Click()Dima(10)AsInteger,iAsIntegerDimsumAsInteger,aveAsIntegersum=0Fori=1To10a(i)=Int(Rnd*101)sum=sum+a(i)Nextiave=sum/10Printsum,aveEndSub8、参考代码如下：PrivateSubForm_Load()Dimi,j,k,FlowerAsIntegerShowFori=1To9Forj=0To9Fork=0To9Flower=i*100+j*10+kIfFlower=i^3+j^3+k^3ThenPrintFlower;"是水仙花数"NextkNextjNextiEndSub9、程序参考代码如下：PrivateSubCommand1_Click()Dimm,i,yAsIntegerm=Val(Text1.Text)Ifm<=2ThenLabel2.Caption="输入数据有错"Elsek=Sqr(m)+1Fori=2Toky=mModiIfy=0ThenExitForNextiIfy=0ThenLabel2.Caption=m&"不是素数"ElseLabel2.Caption=m&"是素数"EndIfEndIfEndSub10、程序参考代码如下：OptionBase1PrivateSubForm_Load()ConstN=5'常数N确定数组的大小Dima(N,N)AsIntegerDimi,j,row,line,minAsIntegerShowFori=1ToN'For循环i从1变化到NForj=1ToN'For循环j从1变化到Na(i,j)=Int(100*Rnd)+1'产生N*N个1~100间的随机数NextjNexti'输出二维数组Print"数组内容是："Fori=1ToNForj=1ToNPrinta(i,j);NextjPrint'输完一行元素后输出一个换行Nexti'设定初始值min=a(1,1):row=1:line=1'寻找最小数Fori=1ToNForj=1ToNIfa(i,j)<minThenmin=a(i,j)row=iline=jEndIfNextjNexti'输出结果Print"最小值是：";minPrint"在第";row;"行第";line;"列"EndSub11、参考代码如下：PrivateSubCommand1_Click()Dima,b,c,delt,realpart,imagpartAsSinglea=Val(Text1.Text):b=Val(Text2.Text):c=Val(Text3.Text):delt=b*b-4*a*cIfa=0ThenLabel2.Caption="是一元一次方程:"Ifb<>0thenText4.Text="x1="&-c/bElse Ifc=0thenText4.Text="有无穷根"ElseText4.Text="无根"EndifEndifElse'下面嵌套块If语句Ifdelt=0ThenLabel2.Caption="有两个相等的实根:"Text4.Text="x1="&-b/2/aText5.Text="x2="&-b/2/bElseIfdelt>0ThenLabel2.Caption="有两个不等的实根:"Text4.Text="x1="&(-b+Sqr(delt))/(2*a)Text5.Text="x2="&(-b-Sqr(delt))/(2*a)ElseLabel2.Caption="有两个共轭复根:"realpart=-b/(2*a)imagpart=Sqr(-delt)/(2*a)Text4.Text="x1="&realpart&"+"&imagpart&"i"Text5.Text="x2="&realpart&"-"&imagpart&"i"EndIf'此行EndIf部分与内层的块If语句对应EndIf'此行EndIf部分与外层的块If语句对应EndSub12、参考代码如下：PrivateSubCommand1_Click()Dimn,i,tAsLongn=Val(Text1.Text)i=1:t=1Ifn<0ThenLabel2.Caption="error"ElseIfn=0ThenLabel2.Caption="0!=1"ElseDoWhilei<=nt=t*ii=i+1Loop