程序设计练习题附加答案

一、填

第一章VisualBasic程序设计

5、VisualBasic的编程机制是（ 三、简1、VisualBasic是一种面向 2、在VB中工程文件的扩展名是 的扩展名是 ，标准模块文件的扩展名 ActiveX控件。4、VisualBasic60用于开发 1、下面不是VB工作模式的是（ C．汇编模 2、可视化编程的最大优点是（A．具有标准工3、下列不能打开属性窗口的操作是（B．按F4键 C．按Ctrl+TD．单击上的“属性窗口”按4、下列可以打开立即窗口的操作是（ B．Ctrl+EC．Ctrl+F

1、代码窗口主要包括哪几部分2、在工程资源管理器窗口中，主要列出了哪三类文件3、窗体布局窗口的主要用途是什么4、VB的基本特点是什么5、怎样理解可视化设计6、怎要理解事件驱动编程第二章简单的VB程序设一、填1、设置是否可以用Tab键来选取命令按钮，应该用 属性 3、利用对象的属性setfocus可获得焦点，对于一个对象，只有其visible属性和 属性为true，才能接受焦点。4、设置控件背景颜色的属性名称是 5、所有控件都具有的共同属性 属性6、一般情况下，控件有两个属性项的缺省值是相同的，这两个属性项是 。7、VB中的每个对象（控件）都有一组特征，这组特征称 ，我们通过修改它可以控制对象的外观和操作8、通常情况下，VB中一个工程主要包括如下四个文件 扩展名为Bas，通常由Basic语言编写，是一个可共用的子程序。9、VB有三种工作模式，分别是设计（Design）模式、 1、以下能够触本框Change事件的操作是（） 2、应用程序设计完成后，应将程序保存，保存的过程是（．先保存窗体文件（或标准模块文件程文件3、VB应用程序的运行模式是（A．解释运行模 B．编译运行模 4、任何控件都具有的属性是（） 5、决定控件上文字的字体、字形、大小及效果的属性是（ 6、在窗体上建立了多个控件，如TEXT、LABEL1、COMMAND1，若要使程序一运行焦点就定位在COMMAND1控件上，应将COMMAND1控件的（）设置为0

7、运行时，当用户向文本框输入新的内容，或在程序代码中对文本框的TET属性进行赋值从而改变了文本框的T属性值时，将触本框的（）事件 8在运行TAB键跳过了一个可以获得焦点的控（如文本框），则可能是因为（）A．该控件的TABSTOP属性值为 B．该控件TABINDEX属性值为C．该控件的ENABLED属性值为TRUE 件的ENABLED属性值为FALSE9、为了防止用户随意将光标置于控件上，应（A．将控件的TABINDEX属性设置为B．将控件的TABSTOP属性设C．将控件的TABSTOP属性设D．将控件的ENABLED属性设置为10若要使控件显示时不覆盖其背景内容应设置标签控件的（）属性 1号（，运行时，在文本框中输入的字符仍然显示出来，而不显示星号，原因可能是（）A．文本框的MULTILINE属性值为B．文本框的LOCKED属性值为C．文本框的MULTILINE属性值为D．文本框的LOCKED属性为12、在运行阶段，要在文本框TEXT1获得焦点时选中文本框中所有内容，对应的事件过程是（）A．PrivateSubText1_GotFocus()Text1SelStart=0EndSubText1EndSubC．PrivateSubText1_Change(Text1EndSubD．PrivateSubText1_SetFocus(Text1EndSub13iualBaic继承了Baic时支持面向对象的编程机制，其中构成其控件（对象）的三要素是（）14、决定（Label）显示的属性是（A．Text B．Name C．Caption

15、命令按钮的标题文字由（）属性来设置 称16、若要设置文本的显示颜色，则可用（）属性来实 B．Forecolor C．FillColor17、在运行时，若要调用某命令钮的Click事件过程，则可设置该命令钮对象的（）属性为Ture来实现。 18、在运行时，若要获得用户在文本框中所选择的通过（）属性来实现 C．Text三、简1、事件驱动的含意是什么？举例说2、交互式开发方法和传统的应用程序开发过程有什么不同？3、文本框在什么情况下使4、什么是工程5、结构化程序设计的三种基本结构是什么6、对象的三要素是什么？并分别进行简单的解释7、为什么要生成可执行文件和制作安装盘8、使用变量前先有什么好处9、如何使用帮助功能10、结构化程序设计的特点是什么11、为了把焦点移到某个指定的控件，在代码中应使用的法是什么13么属性？第三章VB

10、从字符串中任意位置截取字符的函数 11、语句Forj=3To20Step3使循环体执行 次12、对于正在使用的动态数组raya但不能破坏数组内的数据，则应使用语句 13、在VisualBasic中静态变量的关键字一、填空题 。1、一般可以使 关键字常量2、 类型也称变体类型，是一种通用的、可变的数类型，它可表示或任何一种数据类型。3、变量的分为两种方法

14、表达式10Mod6\4的值 15、表达式chr(Asc("a")+5)的值 16、VB中使用注释有2种方法， 17、VB中的数据以四种形式：常量、 语句设定数组的下界 和记录 语句分别返回数组的5OptionExplicit的目的 6、functionaaa1asdate,optionala2asbooleanassingle，

18、为了在VB中一个4行5列的二维矩阵，需要定义一个整型的数组，请把数组定义语句补充完整：Dim_asInteger19个相同的控件名，但是每个控件都有一个唯一的下标来区分，出optional命令的作

我们使用属

来设置下标7、在VB中，我们用一个简单的 8、生成消息框令是 ，生成输入框令 9通用框（coondialg属activx控件它可以显示多个标准框，包括打开/另存为、字体、打印等框，若要显示所有文件则应设置其属性ilte= 若

20在过程调用中实现调用过程的实参和被调用过程的参之间的数据传递有两种方式：按值传递和 。21为了保证程序中必须对变量的强制性定义需要在代模块的部分加入 语句。22、分析For……Next循环结构的实例：Fori5To302中，循环体一共执行 次23达式Mid("UniversityOfPetroleum",8,4)的值使它显示为打印框，则应使用什么方 24、常量分为普通常量 常量 ActiveX控件。28 是程序中VB停止执行的地方29、逻辑常量为True 经的变量时，程序运行时会报错。 32、自字符串N1位开始向右取N2个字符，要使用 函数 34、局部变量只能 中和使用35、模块级变量的关键字是Dim 36、函数Abs(x)的功能 37、表达式3/6*5的值是 1、以下哪个是合法的变量 2、下列说法错误的是

B．不同模块中定义的全局变量不可以同．C另一模块中的全局变量时，必须在变量名前加模．名D．同一模块中不同级的变量可以同3、把MsgBox的返回值转换为数值应该使用的函数是 4、语句DIMAA(3,4,5)中定义的数组有 ）个元 5、下面程序运行后输出的结果是 PRINTB$ 6、以下语句的输出结果是 PrintFormat$(325485,"000,000A．325485 B．325,48500 C．032,548,507、以下叙述中错误的是 A．如果过程被定义为Static类型，则该过程中的局部变量都是Static类型B．Sub过程中不能嵌套Sub过C．Sub过程中可以嵌套Sub过D．事件过程可以像通用过程一样由用户定义过程8VisualBasic提供的OnErrorResumenext错误陷阱语句示 9、在VisualBasic中，若要将控制权交给操作系统则通 ）的语句A．End B．ExitDo C．ExitSub10、在VisualBasic中语句的续行号采用 Fori=1to3Forj=5to1Step–1Printi*jNext则语句Printi*j的执行次数是 B． 12、从键盘上输入两个字符串，分别保存在变量str1、中。确定第二个字符串在第一个字符串中起始位置的函数 变量的值为（） B．-

14、下列叙述不正确的是（它不被解释和编译D．代码中加入注释语句的目的是提高程序的可读A．INT(-132)=-13 B．INT(-132)=13C．INT(-132)=- D．INT(-132)=-16、如果TAB函数的参数小于1，则打印位置在第（） 17、变量未赋值时，数值型变量的值为（） 18、下列语句中正确的是（） txt1text+txt2text=txt3textB．command1name=cmdokC．12labelcaption=1234 19、假设变量BOOLVAR是一个型变量，则下面正确的赋值语句是（ 20、以下（）程序段可以实施X、Y变量值的变换（） 21、语句PRINT“SGN(-26)=”；SGN(-26)的输出结果为（A．SGN(- C．SGN(-26)= D．SGN(-26)=-22、读下面程序段，判断变量Str2的取值是（DimStr1,Str2asString 23、VB支持自定义数据类型，在某程序中我们定义了如下TypeStudentnumberAsstringnameAsStringageAsIntegerEnd针对上述定义，如下几项用法正确的是（A．Studentname="" AsStudentsname＝"C．DimsAsTypeStudent sAsTypes "sname="24、一个工程中包含两个名称分别为Form1、Form2的窗体，一个名称为mdlFunc的标准模块。假定在Form1、Form2和mdlFunc中分别建立了自定义过程，其定义格式为：Form1中定义的过程

PrivateSubfrmfunction1()EndSubForm2中定义的过程PublicSubEndmdlFunc中定义的过程PublicSubEnd在调用上述过程的程序中，如果不指明窗体或模块的名称，则以下叙述中正确的是（）被调用B．只有mdlFunction过程能够被工程中各个窗体或模块直C．frmfunction1只能在form1中调用，而frmfunction2则25、VB中Do……Loop结构既可以构成当型循环，也可构成直到型循环，根据下面的代码Dimi,nasIntegern=20i=1Printi;i=i+2LoopUntili判断循环结构的类型和循环体的执行次数确的选（A．当型循环，20次 B．直到型循环，10次C．当型循环，10次 循环，20次26、在程序中，使用InputBox函数可以接受用户的输入，如果要把它的返回值转换为数值型的数应该使用的函（ 27中动态数组的叙述中不正确的是（）A．可以用ReDim语句重新定义动态数组，并且可以进行B．首次用Dim进行动态数组的时候，必须指明它的D．当对动态数组使用Erase语句进行释放操作时其内28、VB中的控件也叫做部件或组件，主要包括三类，以下哪一项不属于VB控件的分类（）C．ADO控 D．ActiveX控29、表达式4+56*78Mod9的值是（

30、可以同时删除字符串前导和尾部空白的函数是（ 三、简1、全局变量有哪些限制2、字符串是否可以自动转换为数字类型4、在InputBox函数中，哪一个参数是必需的5、在MsgBox函数中哪一个参数是必须的6、在什么情况下使用过程7、为什么要进行程序调试8、调试程序有哪些9、用语句DimA(-3To5AsInteger定义的数组的元素个数11、数学式(2xa)(3yb对应的VB表达式是什12、表达式2>3And4<=5Or4>4的值是什么13、怎样在程序中设置断点14、在什么情况下可以设置断15、程序出错的类型有哪几种16在同一模块不同过程中的相同变量名两者是表示同一个变量？为什么？17、什么情况下会出现“数组下标越界错误18、逐语句和逐过程有什么区19、表达式275*2345的值是什么1、分析以下程序，写出运行结果PrivateSubForm_Click()score=Int(Rnd*10)+80SelectCasescoreCaseIs<A$=Case60ToA$=Case70ToA$=Case80ToA$=CaseA$=EndSelectPrintA$End2、读下面的程序，分析其功能，写出运行结在窗体上有一个命令按钮，名称为Command1。然后编写PrivateSub

ForI=1To4ForJ=0ToIPrintChr$(65+I);NextJNextIEnd程序运行后，如果单击命令按钮，则在窗体上显示的内容是什么？3、阅读下面的程序，分析并写出其功能Subinsert(a()AsSingle,ByValxAsDimmasinteger,nasintegerDoWhilen<20Andx>a(n)Form=20-1TonStep–1NextmEndSubsubP(b()AsInteger)Fori=1To4NextEndPrivateSubDima(1To4)AsIntegera(1)=5aaa

DimbasIntegerDimcasIntegerIf(a>=b)and(a>=c)or(b>c)ThenPrintaPrintsubPFori=1To4PrintNextiEndSub运行上面的程序，单击命令按钮，输出结果是什Subsele()DimnasIntegerDoWhilei>nPrintiEndSub6、分析以下程序，写出运行结果SubselectPrint()DimaasInteger

Printa;b;cEndSub7、分析以下程序，写出运行结果SubDimxasIntegerDimyasIntegerDimzasIntegerPrintx;y;zPrintx,y,zEndSubselectPrint()DimaasIntegerDimbas五、编

DimcasIntegerIf(a>=b)and(a>c)ThenPrintaPrinta,b,cEnd

8、找出所有的水仙花数。水仙花数是个三位数，它的各位371＝33+31331是水仙花数。9、从键盘输入一个大于2的正整数，判断该数是否是素数10、求二维数组中的最小值及其所在行号、列号11、求一元二次方程ax2+bx+c=0的根（包括实根和复根1、输入一年号，判断它是否是闰年。界面如下图所示，包括两个、一个文本框和一个命令按钮。提示：如果此年号能被400整除或者不能被400除尽，也不能被100被4整除，则它是闰年；否则，不是闰2、输入两个正整数m、nmn的最大公约数。要求

12、输入一个正整数n，计算出n!并输出13、Faibonacci数列为0，1，1，2，3，5，8，13…，计算并输出第20项以及前20项的和。第四章常用控件与窗一、填1、向列表框控件添加新项目的方法 2、在VB中，最主要的两种对象是 属性控制窗于所有4、若要将窗体Form1隐，则可通过执行代3、输入某学生成绩（百分制），若是100≥成绩≥90输出 来实现秀；若是90＞成绩≥80输出良好80＞成绩≥70输出中等；若是70＞成绩≥60输出及格；若是60＞成绩≥0，输出不及格；若是其他数则error信息。4、在窗体中显示从9号字型到16号字

5、要使装入到列表框中的数据项能自动按字母顺序排序，应设置该控件的 属性为 。6要将焦点自动定位到文本框ext1上，则在设计时需要将5、在有序序列中插入一个数，使插入后的数列仍然有序（ 控件 属性设置 按由小到大排列

7、在控件中通过编程使文字换行用的代码6、编程实现二维数组转置 7、随机输入10个100以内的整型数，计算其和及平均值 8、设置计时器控件只能触 事件9、设置计时器对象触发事件的时间间隔 属性10滚动条控件主要支持两个事件它们 事件1要使鼠标停留在按钮上显示特殊的鼠标形状应设置属性值是 。12、设某列表框共有10项，按题目要求补齐程序，完成相按下命令按钮Command1时将列表框第8项的内容显PrivateSubCommand1_Click()List PrintList1 End单击列表框某一项时立即将该项打印在窗体上PrivateSubList1_Click() End7、9项：PrivateSubCommand1_Click()ForI=1To5List1

PrivateSubCommand1_Click()ForI=1to10X=InputBox(“请输入插入的第&I&List1 NextIEndSub13、设在界面上放置了一个滚动条Hscroll1和一个控Label1两端箭头之间的空白区域时，内容能够反映滚动条的值，补齐以下代码。PrivateSubHscroll1 (Label1 Hscroll1 End要使拖动滚动条滑块时内容能够反映滚动条的值，补齐以下代码。PrivateSubHscroll1 (Label1 Hscroll1 End户可以选择一个或多个项目。它具有几个非常重要的数组NextIEndSub在列表框的每一项之后插入一个新的

其 属性存放了列表框中所有项目的值、、复选标志相对应的属性

A．一个控件具有什么属性是VB预先设计好的，用户下"a"还是"A"需用 二、选1、当程序运行时，在窗体上单击鼠标，以下哪个事件是窗体不会接收到( ) 3、用于设置通用框控件显示文件类型的属性是 4、用于从内存删除窗体令是（ A．ScaleWidth B．ScaleLeft C．ScaleHeight6、下列关于属性设置的叙述错误的是：（

改B．一个控件具有什么属性是VB预先设计好的，用户改C序代码设置码为其设置新值7、下列说法正确的是（8、下列关于窗体上控件的基本操作错误的是（A．按下一次DEL键只能删除一个控B．按下一次DEL键可以同时删除多个控C．按住SHIFT键，然后单击每个要选择的控件，可以同9、下列关于设置控件属性的叙述正确的是（D．不同控件的属性项都完全一10、不可以通过下列（）操作将焦点赋给对A．运行时使用TAB B．在代码中CALL语句调C．在代码中用SETFOCUS方法D．用键或用鼠标单上输出一定的内容，应（）A．设置窗体的VISIBLE属 B．设置窗体C．调用窗体的SHOW方 D．设置窗ENABLED属12、下面（）对象无CAPTION属 13、通用框控件和文件列表框控件中，都能根据文件 C．Filter14、对于复选框控件chkBoy，如果在程序中设置它为选中状态，下面语句正确的是（）A．chkBoyChecked= C．chkBoySelected= 1Timer事件，可以有规律地重复执行一段程序，它用于设置两

事件时间间隔的属性是（ 16、以下关于VB中窗体（Form）的说法中，不正确的描述为（）执行UnloadForm语句后，窗体Form，但仍在存当窗体的Enabled属性为False时，通过鼠标和键盘对窗体的Height、width属性用于设置窗体的高和窗体的load事件在加载窗体时发17、关于滚动条控件，下面说法错误的是（点击滚动条的箭头，可以改变它的value值，从而Change事拖动滚动框，可以触发Scroll事拖动滚动框，可以触发Change事件，而且是连续的18Coand1命令按钮时，执行如下事件过程：PriVateSubCommand1_C1ick()a$="softwareandhardware"Msgboxa$,b$,c$,1EndSub则在弹出的信息框的标题栏中显示的信息是（）A．softWareandhardware D．出现误19之间的衔接和窗体的显示、关闭等问题，以下关于窗体的相关语句和方法的叙述中，错误的是（）Load语句体Show方法兼具Load语句的功能，可以将窗体显来C．Hide方法用于将窗D．Unload语句用来释放窗体，但窗体并没从内存中消20滚动条控件的属性中取值范围最大值的属性（） 就需要使用鼠标事其中下面哪个选项用于表示拖动（ 22为了使用通用框进行打开文件的操作应将通用对话框的ction属性设定为（

三、简1、什么是单选按钮？什么是复选框？在使用上有什么不同？2、滚动条的change事件和scroll事件有什么不同3、快捷键和键有什么区别 么属性设置为False？7、单选按钮和复选框（即检查框）各用于什么情况8、如何为一个菜单项设置热键和快捷键9、菜单的形式有哪两种10、在KeyPress事件中，如何取消用户刚输入的字符11、框架的作用是什么12、如果要计时器每秒钟发生4Timer事件，则属性值应设多少13在一个窗体的程序代码中能否另一个窗体上控件的属性？若不行则请说明理由；若行则请说明如何。14、如何在框架中建立控件1、对窗体编写如下代码OptionBasePrivateSubForm_KeyPress(KeyAsciiAsInteger)a=Array(237,126,87,48,498)m1=a(1)m2=1IfKeyAscii=13ThenFori=2To5Ifa(i)>mlThenm1=a(j)m2=iEndIfNextiEndIfPrintm1PrintEnd程序运行后，按回车键，输出结果是什PrivateSubForm_load()Form1showd=0Fora=1To2Forb=1ToaForc=bTo5d=d+1Next

NextbNextaPrintdEnd五、编1Txtieie1，要求每一秒在文本框中显示一次当前的时间，请编程实现。2Text1中输入任一英文字母Text2中显示该英文字母及其ASCII码值。要求在文本框Text2中显示出所有输入英文字母及其ASCII码值，如下图所示3、编写一个程序，能够实现任意个整数的排4、编程实现以下功能：用户首先分别在两个文本框中输入两个数，然后在具有“加、减、乘、除”等四个菜单项的“计算”菜单中单击某一项，即可在中显示出相应的结果或者错误提示。5、编程实现任意两个数的“加、减、乘、6、编写一个程序，能够求任意个正整数的最大值和最小值7六、程序分析填空题1（x1中输入正文后选中某些文本时可进“剪切““粘贴操作假设在窗体部分定义了一个变量t1用于保存和剪切的内容，请把剪切按钮btnCut的Clik事件补充完整。程序运行界PrivateSubbtnCut_Click()End2、计算123100的和并输出。请把下面用DoWhile……Loop循环结构实现这能的代码补充完整。PrivateSubDimsum,countasIntegerDowhilecount100

Text1Text=sumEndSub3、列表框控件（ListBox）支持多项选择，这项功能在对户的的时候显得非常好用，在下图所示的界面中列表框Lit1用于列出选项，供用户进行多项选择。请把下列代码补充完整，能够取得用户的所选选项PrivateSubCommand1_Click()DimiAsIntegerDimsAss=txtnameText&"Fori0ToList1ListCount1Label3Caption=sEndSub4、要求利用计时器Timer1，在窗体Form1上每隔1秒钟印一个1到10的随机整数，请把下列代码补充完整PrivateSubEndEnd第五章一、填1、文件按存取方式及其组成结构可分 文件 文件 文件2、为了使文件列表框List1和 列表框Dir1之间能产生同步效果，必须在 事件过程中加入语 3、文件系统控件的作用是向用户显示系统中的文件，方便1、利用下面哪个函数可判定文件时是否已到文件 2、用于设置文件列表框控件显示文件类型的属性是 三、简1、什么是文件

2、文件存取分成几类，几种模式3顺序文件、随机文件和二进制文件各有什么特点和用途4、文件有哪几种类型？它们的区别是什么5、请说明PRINT#WRITE#语句的区6、EOF函数的功能是什么？1、实现二进制方式文件的2、如下图所示，实现一个简单的文件管理器第六章形操一、填1、使 方法可在窗体中进行文本的输出， 方法可画圆， 方法可画直线2、 函数可加载图形3为了使一个ictue控件能自动根据装入的调整大小，应设置该控件的 属性为ue。二、选1、下列关于控件画法的叙述错误的是（相应的控件C．双击工具箱中的控件图标，所画控件的大小和位置定对象，但可以写入文字字符2当一个对（如窗体或框被移动或改变大小之后，或当一个覆盖该窗体被移开之后，如果要保持该所画图形的完整性，可以选择触发（）事件来完成图形的重画工作 三、简1在什么情况下使用Image控件而不使用PictureBox控件2、在程序运行时怎样在图形框中装入和删除图形 下的文件列表，并能够预览选定的。

第七章面向对象的编一、填1、类是具有相同性质的对象 2、语句DIMTEMPASObject的作用是 1、什么是模块第八章面设一、简1、什么是多文档界面2、说明菜单栏、菜单、选项和之间的关系第九章VisualBasic与数据一、简1、表间的关系类型有哪几1、请编程实现每两秒在中显示一次当前的时间2、找出被3、5、7整除，余数为1的最小的2个正整3、有一个m×n的实型矩阵A(m,n)，找出其中最大的那个4、找出能同时被57整除的最小的10个正整5、编写一个程序，能够输出100~1000之间所有的素数6、从键盘上任意输入100个整数，统计负数的个数，并计7、有一种数，正序读与反序读都相同，这种数叫回文数，如 等求出4位数以0～999的所有回数。8、输出“九九乘参考答第一章VisualBasic程序设计一、填1、对象、事件驱动2、Vbp、frm、bas3、部件4、二、选1、 2、 3、 4、 5、第二章简单的VB程序设

一、填1、6、namecaption8、标准模块文1、2、3、4、5、6、7、8、9、10、11、12、13、14、15、16、17、18、

第三章VB

22、27、部28、断3、隐式、显示4、optionbase、ubound、lbound5、强制变量6、表示a2是一个可选参7、9、**、showprint10、11、12、redimpreservearraya(ubound(arraya())+1)14、15、16、rem、18、1to4,1to520、按地21、Option

29、30、OptionExplicit36、求x的绝对37、2二、选1、2、3、4、5、6、7、8、9、10、11、12、13、14、15、16、17、18、19、20、21、22、23、24、25、26、27、28、28、30、四、读程序2、结果如下

3、功能如下4、输出结果为24685、输出结果为36、输出结果为27、输出结果为 8、输出结果为3 五、编1、参考代码如下PrivateSubCommand1_Click()Dimyear,xAsIntegeryear=Val(Text1Text)IfyearMod400=0

Label2Caption是闰年

‘循环结束后n中存放的就是最大公'下面是嵌If语IfyearMod4=0AndyearMod100<>

数，输出n

Label2Caption最大公约数为：&

Label2Caption是闰年Label2Caption不是闰年

EndIfEndSub3、参考代码如下PrivateSubEndIfEnd2、程序参考代码如下PrivateSubDimm,n,rAsm=Val(Text1Textn=Val(Text2TextIfm<0Orn<0Then ‘若判断为数据，Then子句输出相应信息Label2Caption输入数据有错 ‘若判断为合数据，Else子句用辗转相除法求余r=mModDoWhiler<>m=n=r=mMod

DimxAsx=Val(Text1Ifx>100Orx<0Text2Text="error"ElseIfx<60ThenText2Text不及格ElseIfx<70Text2Text及格"ElseIfx<80ThenText2Text中等"ElseIfx<90ThenText2Text良好Text2Text优秀EndIfEndSub4、参考代码如下PrivateSubDimiAsShow'使输出可见Form1Font新宋体"Fori=9To16Step1Form1FontSizeiPrinti;"号字型"NextEndSubPrivateSubDima(1To11AsSingle定义静态数组a11个元素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)=a(10)='输出原始Fori=1ToLabel2Caption=Label2Caption&&",NextnumVal(Text1Text)'把输入的数插入队列中

Fori=10To1Step-Ifnum<a(i)a(i+1ai)'元素后一个位a(i+1)=Exit '退出环EndNext'输出新队Fori=1ToLabel3Caption=Label3Caption&a(i)&","NextiEndSub6、参考代码如下OptionBasePrivateSubConstN '常量决定二维数组大Dima(N,N)AsIntegerDimi,j,TempAsInteger'数组初始Fori1To Fori1变化到Forj=1Toa(i,j)=i*10+jNextjNext'输出原始Print"转置前的数组Fori1To Fori1变化到Forj=1ToPrinta(i,j);NextjNexti'数组转Fori1To Fori1变化到Forj1To '交Temp=a(i,j)a(i,j)=a(j,i)a(j,i)=NextjNexti'输出转置后的Print"转置后的数组

Fori1To For循i1变化到Forj=1ToPrinta(i,j);NextjNextiEndSubPrivateSubDima(10)AsInteger,iAsIntegerDimsumAsInteger,aveAsIntegersum=0Fori=1Toa(i)=Int(Rnd*101)sum=sum+a(i)Nextave=sum/10Printsum,EndSub8、参考代码如下PrivateSubDimi,j,k,FlowerAsIntegerFori=1ToForj=0ToFork=0ToFlower=i*100+j*10+IfFlower=i^3+j^3+k^3ThenPrintFlower;"是水仙花数"NextNextiEnd9、程序参考代码如下PrivateSubDimm,i,yAsIntegerm=Val(Text1Text)Ifm<=2ThenLabel2Caption输入数据有错k=Sqr(m)+1Fori=2Toky=mModIfy=0ThenExitForNextiIfy=0Label2Captionm&不是素数Label2Captionm&是素数"EndIfEnd

End10、程序参考代码如OptionBasePrivateSubConstN=5 '常数N确Dima(N,N)AsDimi,j,row,line,minAsIntegerFori=1To For循环i1变化到Forj=1To For循环j1变化到a(i,j)=Int(100*Rnd)+1 '产N*N1~100间的随机数Nexti'输出二维数Fori=1ToNForj=1ToNPrinta(i,Next '输完一行素后输出一个换Next'设定初始mina(11row1line1'寻找最小数Fori=1ToForj=1ToIfa(i,j)<min

Ifc=0Text4Text有无穷根"Text4Text无根"Endifmin=a(i,j)row=i

Endline=jEndIfNexti'输出结Print最小值是：Print在第row行第line列"EndSub

根

'下面嵌套块If语Ifdelt=0Label2Caption="有两个相等的Text4Text="x1="&-b/2/aText5Text="x2="&-b/2/ElseIfdelt>0Label2Caption="有两个不等11、参考代码如下PrivateSubDima,b,c,delt,realpart,imagpartAsa=Val(Text1Text):b=Val(Text2Text):c=Val(Text3Text):delt=b*b-4*a*cIfa=0ThenLabel2Caption是一元一次方程Ifb<>0Text4Text="x1="&-c/

实根Sqr(delt))/(2*Sqr(delt))/(2*根

Text4Text="x1="&(-bText5Text="x2="&(-bLabel2Caption="有两个共轭realpart=-b/(2*a)imagpart=Sqr(-delt)/(2*a)Text4Text="x1="&realpart&"+"&imagpart&"i"Text5Text="x2="&realpart"-"&imagpart&EndIf '此行EndIf部分与内层的块If语句对应EndIf '此行EndIf部分与外层的块If语句对应EndSub12、参考代码如下PrivateSubDimn,i,tAsLongn=Val(Text1Text)i=1:t=1Ifn<0Label2Caption="error"ElseIfn=0ThenLabel2Caption=DoWhilei<=nt=t*ii=i+1Label2Caption=n&"!="&tEndIfEnd

13、参考代码如下PrivateSubDimPrev,Last,NewOne,sumAsLongDimiAsIntegerPrev=0:Last=1:sum=Prev+LastFori=3To20NewOne=Prev+Lastsum=sum+NewOnePrev=LastLast=NewOneNextiLabel1Caption20项为"&Label2Caption20项的和为&sumEndSub第四章常用控件与窗一、填1、2、窗体、控4、form1hide5、sorted、8、9、10、scrollchange事，，11、17、12、selected、text、list1text、removeitem2*i-1、x,2*i-18、13、change、value、scrol、19、14、20、15、21、16、22、17、组合三、18、Form2Show1、单选按钮用来显示一个可以打开或关闭选项，而且在19、Click（或鼠标单击一组中的单选按钮控件，用户只能选择其中的一二、选2、主要是用鼠标拖动滑块时对Value属性的影响不同1、3、快捷键是执行某一个菜单项的键盘命令，常用形式2、字母键是打开一个菜单的键盘命令，常用形式Alt+字母3、4、Scroll事4、5 Item5、6、Interval属6、7、单选按钮用于只能选择一个的情况下，复选框（即检7、框）用于可以选择多个的情况8、8、为一个菜单项设置热键时需要在相应字符前面加&，设9、快捷键需要在菜单编辑器中选10、9、菜单的形式有两种：下拉式菜单和弹出式11、10、在KeyPress事件中，若想取消用户刚输入的字符，只12、将该事件的参数设置为0即13、11、框架主要是用作容器，可以实现多组单选按钮，并且14、以美化界15、12、16、13、在一个窗体的程序代码中可以另一个窗体上控件属性，在时只要写上窗体名称即14、先建立框架，然后再在其中建立控15四、读程序题1、输出结果为52、结果如下五、编1、参考代码如下PrivateSubForm_Load()Timer1Interval=1000EndPrivateSubTimer1_Timer()Txttimetext=TimeEndSub2、参考代码如下PrivateSubDimCharAsString*1Char=Trim(Text1Text)Text2Text=Text2Text&Spc(5)&Char_Spc(10)&Str(Asc(Char))&Text1SetFocusText1SelStart=0

Text1SelLength=Len(Text1Text)EndSub3、具体代码略4、具体代码略5、具体代码略6、具体代码略六、程序分析填空1、结果如下PrivateSubbtnCut_Click()Str1=text1text1selText=“”EndSub2、结果如下PrivateSubDimsum,countasIntegerSum=Count=Dowhilecount100Count=count+Sum=sum+countText1Text=EndSub3、结果如下PrivateSubDimiAsIntegerDimsAss=txtnameText&"Fori0ToList1ListCount1IfList1Selected(i)S=s&List1List(i)EndIfLabel3Caption=sEndSub4、结果如下PrivateSubTimer1Interval=EndForm1PrintInt(Rnd*10)+End第五章一、填

1、顺序、随机、二进2、dir1的chang、list1path=dir1path 二、选1、2、三、1、存放在外部介质上的数据和程序等2、文件的存取分为顺序型、随机型、二进制型，其编码方式分为CⅡ码文件和二进制文件。3、顺序文件：文件中每一个字符都被假设为代表一个文本字符或者文本格式序列，数据被NI字符，这类文件的信息按照顺序从头到尾排列，只提供第一条记录的位置，因而顺序文件只用于要求少量空间，不经常进行数据修改的有规律的文件。随机文件：随机文件由记录组成，能够随机存取相同长度的数据记录，每一数据记录内可以设计各种栏位，以容纳不同的数据，各数据记录长度相同，数据类型可以不同，随机文件有一定的磁盘空间的浪费。二进制文件：二进制文件与随机文件类似，但不必限制记录的长度，可以用喜欢的方式存取文件，二进制能提供对文件的完全控制，通过使用二进制型可使磁盘空间的使用降到最小。4、参5、Print#语句用来将一个或多个格式化的数据