2023年电大计算机本科补修VisualBasic程序设计期末复习题

《VｉsuaｌBasic程序设计》（开放本科补修)课程期末复习一、单项选择题假如要设立窗体的标题栏,应选择(Ｂ）属性。A．Vｉsible B．Capｔioｎ ﻩＣ.Ｎame ﻩＤ.Ｔeｘt要使命令按钮不响应用户生成的事件，应设立命令按钮的(D）属性。A．VisiblｅﻩﻩB．Capｔion C．Ｅnaｂle ﻩＤ．Eｎabｌeｄ要使标签能透出窗体的背景,应设立标签的（Ａ）属性。A．BａｃkSｔyle B．BｏrderStｙlｅ Ｃ.Apｐeａrancｅ D．BaｃkColor以下控件中,(A）控件不会影响到界面设计效果。A.计时器ﻩﻩB．文本框ﻩ C.标签 ﻩD.Ｌine控件在VｉsuaｌBasｉc中,一般(Ｂ)属性用来设立字体的颜色。A．ＦｏｎtColorﻩﻩB.FｏｒeCoｌｏrﻩﻩC.BackColoｒﻩ D.ShoｗColoｒ在VB中断模式下,可用调试窗口监视表达式和变量的值，其中在（A）窗口中可以直接键入命令以显示命令所请求的信息。A．立即ﻩ ﻩB.监视 ﻩﻩC.本地ﻩ D．中断某计时器控件的interｖal属性为0时，表达（A）。A.计时器关闭计时ﻩ ﻩﻩ Ｃ.Ｔimer事件的间隔时间为０毫秒B．Timer事件的间隔时间为0秒 Ｄ.计时器启动计时在窗体Fｏrm1的Clicｋ事件过程中有以下语句：Lａｂel1.Capｔion＝"VisuaｌBaｓiｃ"若本语句执行之前，标签控件的Cａption属性为默认值，则标签控件的Name属性和Captｉoｎ属性在执行本语句之前的值分别为(B）。Ａ.Lａbel和Labeｌﻩﻩ ﻩﻩＢ．Ｌabel1和Lａbｅl1C．Label1和VisualBａsicﻩ D．Ｌａbｅl和Ｃaptｉoｎ(C）控件不具有Caｐｔiｏn属性。A．Lａｂeｌﻩﻩ B．Fｏrm C. ＴeｘtBox Ｄ．CommandBｕtｔon改变控件在窗体中的上下位置，应设立控件的（A)属性。A.Top ﻩﻩB.Leftﻩ C.Wｉdtｈﻩ D．Riｇht文本框中选定的内容,由下列（C)属性反映。A．Ｔｅｘtﻩﻩ B．Cａption Ｃ.Selteｘtﻩ D.SelＬeｎｇht在VｉｓｕalBasｉc中,变量的默认类型是（D）。A.Strｉng ﻩＢ．Inｔegeｒ Ｃ.Ｄoubｌeﻩ D.Vaｒｉant假设已定义Inteｇer变量x、y,则以下赋值语句对的的是（C)。A.x＋1=yﻩ B．ｘ:=yﻩ C.y=x＋yﻩﻩD.1＝x\、/、Mｏd、＊四个算术运算符中,优先级别最低的是（C)。Ａ.\ ﻩB./ ﻩ Ｃ．Mｏd ﻩﻩＤ.*下列哪组语句可以将变量A、B值互换（B）。A.A=C:Ｃ=Ｂ:Ｂ=A ﻩＢ．A＝Ａ＋Ｂ:B＝A–B:Ａ=A–BＣ．A=Ｂ:B=Ａ ﻩD．A=(Ａ+B)/２:B=(A-B)/2以下语句的输出结果是（C)。PrｉnｔＦoｒｍaｔ(３2548．５,“０0０,0０0.00”A.3254８.５ B．32,５４８.5ﻩ C.032，548.50ﻩD.32,５48．50表达式4+５＼6*7/8Ｍｏｄ9的值是（B）。A.4ﻩ B．５ ﻩﻩC.６ﻩ ﻩD.7函数Int(Ｒｎd*10)是在(Ｃ）范围内的整数。A．(0,1０）ﻩﻩB．(0,10] ﻩC．[0，10)ﻩﻩD.[0，10]下面（Ａ)运算符是算术运算符。Ａ．Ｍoｄ ﻩ B.Like ﻩﻩC．And ﻩﻩD.Not已知三个变量A、B、C，判断Ａ、B、C能否构成三角形的逻辑表达式为（B)。A．A>＝BAndB>=CAｎdA>=CB．A＋C＞＝BAndA+B>=CAndB+C＞=AC．A+C>=BOrA+Ｂ>=COｒB+C＞＝AD.Ａ+C>=BAndA＋B>=COrＢ+Ｃ>＝Aﻩ下面程序段运营后，显示的结果是（B）。DiｍintXAsＩntegｅrIfintXThenPrintinｔXElsePriｎtiｎtX+1ＥndＩfA.0 B.１ﻩ ﻩC.２ﻩ Ｄ．不一定以下程序的输出结果是(C)。Dimａ,ｉ％，sum%a=Array(４,3,2,１)Fｏri=０To3sum=ｓuｍ＋a(i)NexｔiPｒｉntsumA.4 B.6 ﻩﻩC.10ﻩﻩ D.不一定在过程中定义的变量，若希望在离开该过程后，还能保存过程中局部变量的值，则应使用(Ｄ)关键字在过程中定义局部变量。Ａ．Dｉm ﻩﻩＢ．PublｉcﻩﻩC．Prｉvateﻩ D.Static能通过(D)来删除列表框中的选择项。A.List属性ﻩﻩB.Tｅxt属性ﻩ C.Clear方法ﻩD．ＲeｍｏvｅIｔem方法LｉｓtBox中若没有任何条目选中,其LisｔＩｎｄex属性值为(A)。A．-１ ﻩB．0 ﻩＣ．1 D.任意可通过(C)属性判断ListBｏx列表框控件的项目总数目。Ａ．ＬｉstIndex B．LｉstＴｅｘt C.Listｃoｕnt ﻩD.随机数列表框的（B）属性用于返回或设立列表框中各列表项的文本。Ａ.Sｅleｃted B.Listﻩﻩ C.Text ﻩＤ．Ｃaptｉoｎ设Lisｔ1为列表框控件，List１.Cｌｅａr中的Cleａｒ是(A）。A．方法ﻩ ﻩB．对象ﻩﻩﻩC.属性 ﻩ D.事件以下（D）语句将删除列表框List1中的最后一项。Ａ．Lｉsｔ1.RemoveItemＬist1.LisｔCounｔＢ．Lｉsｔ1.CｌeａｒC.List１.Lｉst(Lｉst1.LｉstCoｕｎｔ-1）="＂D．List1.ＲemｏveIｔeｍList1.LisｔCｏunt-1若要把“ＸXX”添加到列表框Lｉst1中的第三项,则可执行语句(B）。A．List1.AｄdＩteｍ"XXＸ",3 Ｂ.List1.AddItem＂XXX＂,2C.Lｉsｔ１.AddIteｍ3,"XＸX"ﻩﻩ D.Ｌｉｓt1.AddＩtem2,"XXＸ＂用户可以通过设立菜单项的(C)属性值为Falｓe来使该菜单项失效。A.Ｈideﻩ B.Viｓibleﻩ C.EnableｄﻩﻩD.Checked用户可以通过设立菜单项的（B）属性值设立为False来使该菜单项不可见。Ａ.Hide ﻩﻩB.Visiｂle ﻩC.EｎaｂlｅdﻩﻩD．Ｃheｃｋed菜单编辑器中，同层次的(B)属性值设立为相同，才可以设立索引值。A．Ｃaptiｏｎ ﻩB．Nameﻩ C．Iｎdeｘ ﻩﻩD．ShｏｒtCut每创建一个顶级菜单，它的下面最多可以有（C)级子菜单。A.1ﻩﻩﻩB．３ﻩ ﻩC．5 ﻩＤ.6在设计菜单时,为了创建分隔栏,要在（B)中输入字符（－)。Ａ．名称栏ﻩ Ｂ．标题栏 Ｃ.索引栏ﻩ D.显示区假如要在程序中显示一个弹出菜单,需调用(D)方法。Ａ．Print ﻩﻩB．MoveﻩﻩＣ.RefresｈﻩﻩD.ＰopｕｐＭｅnｕ当单击工具栏上的按钮，会触发的事件是(A）。Ａ.ＢuttonClicｋ Ｂ．Ｃhange ﻩＣ．Loａdﻩ ﻩD．KeyPｒeｓs下列可以用来存储图像可以供其它控件使用的控件是(Ｃ)。A.ToolBar ﻩB．ＳｔatursＢａｒ ﻩC.ＩｍageＬist Ｄ．ＴreeViｅw在VisuaｌBａsic中按文献的访问方式不同，可以将文献分为(Ｂ）。A.文本文献和数据文献ﻩﻩﻩＢ.顺序文献、随机文献和二进制文献C．AＳCIＩ文献和二进制文献ﻩ D.数据文献和可执行文献检测文献是否结束的函数是（C)。A．LＯＦ()ﻩﻩ B．Ｌｅn(） ﻩC.ＥＯF() ﻩ Ｄ.Chr()要读出Ｃ盘根目录下的顺序文献sｔｕｄ.ｔxt中的内容，下列打开方式中（C）是对的的。A．Opｅｎ＂Ｃ：\stｕd.txt"FoｒAｐpendAｓ＃１ ﻩB．Ｏpｅn＂C:\stｕd．ｔxt"FoｒＲａnｄomAs#１C.Oｐen"Ｃ:\stud.txt"ＦoｒIｎｐuｔAs＃1 ﻩ Ｄ.Open＂Ｃ：\stｕｄ.txｔ＂ForOutpｕtＡs＃1随机文献使用(Ｃ）语句写数据。A．Ｉｎpuｔ＃ B．Wｒite# C．Pｕt ﻩD.Ｇet随机文献使用(D)语句读数据。A．Inｐut＃ ﻩB．Writｅ#ﻩ C．Puｔ Ｄ．Get程序运营时,驱动器列表框下列（A)属性能返回磁盘驱动器的名称。Ａ.Drｉveﻩﻩ B.DｒｉveNameﻩﻩC.Chgｄｒiveﻩ D.Driｖes要用通用对话框控件显示标准的“字体”对话框,应调用其（C）方法。A．SｈowＯｐｅnﻩＢ．ShoｗＣoｌoｒﻩ Ｃ．ShｏwFont ﻩＤ.ＳｈowSavｅas改变驱动器列表框的Drive属性值将激活其(A)事件。A.CｈangｅﻩﻩB．ScrｏllﻩﻩﻩＣ．KｅyDｏwn D．KeyＵp使用目录列表框的(B)属性可以返回或设立当前工作目录的完整途径（涉及驱动器盘符)。A．Drivｅ ﻩﻩＢ.Paｔhﻩﻩﻩ Ｃ.Diｒﻩ D．ＬiｓｔInｄeｘ在随机文献中(Ｄ)。A.记录的内容是随机产生的 Ｂ．记录的长度是任意的C．记录号是通过随机数产生的ﻩﻩD.可以通过记录号随机读取记录执行语句Oｐeｎ"C：Stud.txt"ＦoｒIｎｐｕtAs＃2后，系统(C）。A.将内存数据存放在Ｃ盘当前文献夹下名为Ｓtuｄ.txｔ的文献中B．将某个磁盘文献的内容写入C盘当前文献夹下名为Stuｄ.txt的文献中C.打开C盘当前文献夹下名为Stｕd.ｔｘt的文献，用来读取文献内容D.在C盘当前文献夹下建立名为Sｔｕd.txt的顺序文献下面对象中不能作为容器的是（B)。A．窗体ﻩﻩB.Iｍage控件ﻩC.PictureBoｘ控件ﻩＤ．Fｒamｅ控件要向图片框picＰ中加载“d:＼hainan\zhiwｕ.bｍｐ”图像文献,应使用语句(C）。A.Picｔurｅ1.Piｃture=＂ｄ：\hainan\zhiwｕ.bmp＂Ｂ.Ｐｉｃturｅ1.Ｐｉcturｅ=LｏadPicｔuｒe("d:\hainan\ｚhiwu.bｍp"）Ｃ.ｐｉcP．Picture=LｏａｄPiｃture("d：\hainan＼zhｉwｕ.bｍp")D.ｐicP.Ｐiｃture＝LoａdPiｃturｅ(d:\haiｎan\ｚhiｗu.bｍp)执行Foｒｍ1．Sｃａle（0,1０)-(10,-10)语句后，Ｆoｒｍ１窗体坐标系ｘ轴和y轴的正方向是(A)。A.向右和向上ﻩＢ.向左和向下ﻩＣ．向右和向下 Ｄ.向左和向上下列图形中不能使用Shapｅ控件绘制的是(B)。Ａ．矩形ﻩ Ｂ．三角形 C．正方形ﻩﻩＤ.椭圆Liｎe（100,100)-Ｓtep(400，４0０)将在窗体中的(C）画一条直线。Ａ．(200，２00）到（４00，４00) Ｂ．(１00,100)到(３00，300)Ｃ．(1０0，１０0)到（５0０,500)ﻩD.(100，100)到(400,400)RGＢ函数通过红、绿、蓝三基色混合产生某种颜色，若使用三个滚动条分别输入三种基色,为保证输入数值有效,则应设立滚动条的(Ａ)属性。A．Maｘ和Miｎﻩﻩ ﻩＢ．Sｍalｌchanｇe和ＬargeＣhangeC.Sｃroll和ChangeﻩﻩﻩD．Value假如在图片框上使用绘图方法绘制一个圆,则图片框的（B)属性决定了该圆的颜色。A．BackColor Ｂ．ＦoreColoｒ C．FillＣoloｒﻩ Ｄ.ＤrawStyｌe键盘事件的执行顺序是(B）。A．KeyPreｓs，KeyDｏwn,ＫｅyUp ﻩB．KｅyDown,ＫeｙPreｓs,KeyＵpＣ.KeｙＵp，KeyDowｎ,ＫeyPreｓs Ｄ.KｅyUｐ，KeyPress，KeyDoｗnADO控件属于AcｔiveX控件，使用之前必须加载MｉcｒosoftＡＤODataＣoncｔrｏl6.0(OLEDＢ)，将ADＯ控件添加到工具箱中。添加ＡDＯ控件的菜单为(B）。Ａ．“工程”→“引用”ﻩﻩﻩＢ.“工程”→“部件”Ｃ．“工具”→“选项” ﻩD.“工程”→“添加文献”运用AＤO访问数据库，一方面要创建一个（A）对象,用于建立和数据库的连接。A．Conｎecｔiｏn对象 ﻩﻩB．Ｒｅcｏrdsｅt对象C．Command对象 ﻩ D．Ｏbjeｃｔ对象SＱL语言的Seｌect语句中,用于分组的语句为（B）。A．where ﻩB．grouｐby ﻩC．ordeｒby ﻩD．havinｇ以下四个控件，不属于数据绑定控件的是(C)。A.Text控件 B.DａtaGrid控件ﻩ C.Optｉｏn控件 D.Label控件决定系统是否自动检测多媒体控件（MMControl）各按钮的状态的属性是（Ｂ)。A.Ｅnａｂｌe ﻩﻩ ﻩB．ＡutoEnabｌｅC.PｌayＥnａｂled ﻩﻩ D．以上答案都不对的将多媒体控件(ＭMCｏntrol）的Frames属性设为３，则以下叙述对的的是（A)。A.指定Back或Stｅp命令后退或前进的帧数都为3Ｂ.只有Ｂack命令后退的帧数为3C．只有Step命令前进的帧数为3Ｄ．后退或前进的帧数都为6多媒体控件(ＭMControl)具有一组执行ＭＣI命令的下压式按钮。其中Reｃord按钮表达为（B）。A．前一首 ﻩB．录制 ﻩﻩC．弹出ﻩﻩ D．播放为了使多媒体控件(MMContrｏl)中的录制按钮不显示，应添加代码（C）。A．MＭConｔroｌ1.Visibｌe＝ＦalｓｅＢ.MMContrｏl1.Ｖisible＝ＴrueＣ．MＭConｔrｏl1．RecordＶiｓible=FａlseD.MMConｔｒoｌ1.RecorｄVisiｂle＝Trｕe在多媒体控件（ＭMCoｎtrol)中，ＤeviceType属性用于设立多媒体设备的类型，假如将要播放的文献是ＣD歌曲,应将ＤｅvｉceＴyｐe属性设立为（Ｄ)。A.ＤigitalＶideoﻩﻩＢ.WaveＡuｄｉｏ ﻩC．AＶIVideo D.CDAuｄiｏWｉｎｄowｓＭedｉaPｌayeｒ控件的UiMode属性,表达播放器界面模式，以下选项是播放器模式的属性值是（D)。Ａ．Fｕｌl ﻩB.Mini C．Noｎｅ D．以上都是在WindoｗsMedｉａＰｌayer控件中,决定播放文献是否全屏的属性是（A)。A．FuｌlSｃreeｎﻩﻩB．Fｕlｌﻩ C.Sｃrｅen ﻩD.stretcｈToFit二、填空题数学表达式cox2x+写成等价的ＶｉｓualBａｓic表达式为cos（x)^２+Ｓqｒ(x^2-y^2)/2。数学表达式写成等价的ＶｉｓualＢaｓｉc表达式为1０^（１/2)*cos(50*3.14/１８０）或者Ｓqr(１0)*cos(5０＊3．１4／１80)。数学式子相应的ＶiｓualBasｉc运算表达式是：Sqｒ(ｓ＊(s-ａ)*（s-b）*（s-c））。将1x＜12写成ＶｉsualBaｓic逻辑表达式x＞=1Andx<12。已知ａ=3，b＝4,ｃ=５，表达式a>bandNotc＞ａOrc>bAndｃ<a＋ｂ的值是True。Leｆｔ（＂abcｄ"，２)函数的返回值是ab;Riｇhｔ(＂abcd",2)函数的返回值是cd。在VisualBasiｃ的转换函数中将数值转换为字符串的函数是Str(ｘ）;将数字字符串转换为数值的函数是Val（x)；将字符转换为相应的ＡSCII码的函数是Asｃ(x)。有变量定义语句“DiｍSｔｒ1,Str2AsStrｉng*１0”,其中Sｔr１变量的类型应为变体型,其中Ｓtr2变量的类型应为字符串型数组的类型可以是基本数据类型，也可以是用户自定义的记录类型。假如省略类型说明，数组会被设立为默认的变体类型（Variaｎt)。数组中各个元素在定义时假如是数值类型就被默认初始化为0，假如是字符串类型就被初始化为空字符串。在ＶｉsualＢaｓic中，数组默认的下标下界是0，假如希望从１开始,可以使用ＯｐtionBasen语句语句来设立。在缺省情况下，用DimA(５，5）语句声明二维数组后,数组A的元素共有３6个。在ＶiｓuａlBasｉc中，参数通过按值传递和按地址传递两种方式传送。VisualBａsｉc中变量依据其作用域不同可以分为过程级变量（局部变量)、模块级变量和全局变量3类。过程级变量就是指在事件过程或通用过程内定义的变量,它的作用域就是其所在的过程。模块级变量涉及窗体级模块变量和标准模块级变量。窗体模块变量的作用域是窗体内的所有过程，标准模块变量的作用域是模块内的所有过程。全局变量的作用域是整个工程中所有的模块和所有的过程。基本程序控制结构可以分为顺序结构、选择结构和循环结构3种。在VｉsｕａlBａsiｃ语言中有三种形式的循环结构。其中，若循环的次数可以事先拟定，可使用For循环；若规定先判断循环进行的条件,可使用Whiｌｅ循环或Do循环。VisuａlＢasｉc一般用4种类型的文献保存,分别是扩展名为.frm的窗体文献，扩展名为bas的标准模块文献,扩展名为.cls的类模块文献和扩展名为.vbp的工程文献。ＶisualBaｓiｃ程序开发有三种模式，即设计模式、运营模式和中断模式。VisualBasic中设立断点的按键是F９,逐语句调试的语句是Ｆ8。VｉsualＢasic中的程序错误类型重要有编译错误、实时错误和逻辑错误三种。ＶisuａlBａsｉc应用程序即工程文献通常由三类模块组成,即窗体模块、标准模块和类模块。窗体模块包含窗体和代码两部分。标准模块完全由代码组成,这些代码不与具体的对象相关联，一般用来定义全局变量和公用过程和函数。类模块用于自定义类。在VisｕalBasic中将多重窗体程序中第一个被装载内存的窗体称为启动窗体。创建第一个按钮控件对象时，系统自动为其“Naｍｅ”属性分派一个名字，该名字为Cｏmmａnd1。为了在运营时把当前程径下的图形文献ｐictureｆile.ｊpｇ装入图片框Pｉcture1，所使用的语句为Piｃtｕre1.Pｉcｔurｅ=ＬoadPrcｔuｒｅ(“pｉcturefile.jpg”）。在ＶisualBasic中，每个菜单项都是一个图形控件对象，所以它们也有一些与其他控件类似的属性，标题就相称于其他控件的Captioｎ属性,而名称就相称于Ｎaｍe属性。在ＶiｓｕａｌBasic菜单中设立显示一条分割线的操作是在【菜单编辑器】的标题栏中，输入一个“－”。在VisualBaｓiｃ中,文献系统控件涉及驱动器列表框(DriveＬｉstBｏｘ）、目录列表框(DirListBｏx)和文献列表框（ＦileListBox)。三者协同操作可以访问任意位置的目录和文献,可以进行文献系统的人机交互管理。每次重新设立驱动器列表框的Driｖe属性时，都将引发Chａnge事件。可在该事件过程中编写代码修改目录列表框的途径,使目录列表框内容随之发生改变。对驱动器列表框来说，每次重新设立驱动器列表框的Drｉｖe属性时,将引发Chａnｇｅ事件;对目录列表框来说，当Path属性值改变时，将引发Change事件；对于文献列表框,重新设立的Ｐath属性,将引发Chaｎge事件。执行指令“Lｉne(20０,200）–Step(5０0,５０0)”后，ＣurrenｔX＝70０。执行指令“Line(200,200）–(５００,５０0)”后，CｕrreｎｔＸ=5０0。将图片框ＰictureBｏx的AｕtoSｉzｅ属性设立成Tｕrｅ时，图片框能自动调整大小，以适应其中的图片。Label和ＴeｘtBox控件用来显示和输入文本，假如仅需要让应用程序在窗体中显示文本信息,可使用Labｅl控件;若允许用户输入文本,则应使用TeｘｔBox控件。按文献的存取方式,可将文献分为顺序文献、随机文献和二进制文献。ＡDO模型中一般可通过Ｃonｎectioｎ对象的Exeｃｕte方法执行增长、删除、修改操作。使用ＡＤＯ模型时,建立Recｏrdset和Ｃoｎnｅction对象连接的属性是ActiveＣonｎｅctiｏn。ADO数据模型中一般可通过Ｃｏnnｅcｔion对象的Execuｔe方法对数据库中的基本表进行增长、删除、修改等不返回结果集的操作。三、程序阅读题阅读以下程序,写出其功能。PriｖateＳubcｍdWhy_Clｉcｋ()'ｃmｄWｈy为命令按钮，lbｌHelloVB为标签,txｔＨellｏVB为文本框lｂｌＨelｌoVB.Caption=＂为什么学VＢ＂tｘｔＨelloVB="(1）VＢ简朴易学，开发效率高，通用性强，用途广泛。"＿＋vbCｒLｆ＋ｖbＣｒＬｆ+"(2）VB是国内外最流行的程序设计语言之一，"_＋＂也是学习开发Windｏｗs应用程序首选的程序设计语言。"EndSｕb该程序功能:单击cmｄWｈy按钮,在lbｌＨellｏVＢ标签显示“为什么学VB”,在txtHellｏVB文本框显示以下内容：１．VB简朴易学,开发效率高，通用性强，用途广泛。2.VB是国内外最流行的程序设计语言之一,也是学习开发Windows应用程序首选的程序设计语言。阅读以下程序,写出其功能。PrivateSubｃmdＷhat_Clicｋ(）'ｃmdWaｔ为命令按钮,lblHelloVB为标签，txtHellｏＶB为文本框ｌblHｅlloVB.Ｃaｐtion＝"VＢ能干什么"ｔxtHeｌlｏVB=＂VB能快速实现用户界面的设计、＂_+＂文字和图形图像的解决以及数据库的使用,能开发多媒体、数据库、＂_+＂网络和图形等多方面的应用程序;可以开发个人使用或小组＂_+"使用的小工具、大型公司应用系统以及遍及全球的分布式应用程序。"EｎdＳuｂ该程序功能:单击ｃmdWhat按钮，在lblHelloVB标签显示“VB能干什么”,在ｔxtHelｌoVＢ文本框显示以下内容:ＶＢ能快速实现用户界面的设计、文字和图形图像的解决以及数据库的使用,能开发多媒体、数据库网络和图形等多方面的应用程序；可以开发个人使用或小组使用的小工具、大型公司应用系统以及遍及全球的分布式应用程序。阅读以下程序,写出其功能。ＰｒivateSubcｍｄHｏｗ_Clｉck()＇cｍdHoｗ为命令按钮，lblＨellｏVＢ为标签，txｔHeｌloVB为文本框lblＨeｌloVB.Captｉoｎ="如何学好VＢ"tｘｔHｅlloVB="(1）从实际应用程序的开发过程中学习VB程序设计。"_+vｂCrLf+vbCrLf+"（2）学会分析问题和解决问题的思绪、"_+"算法设计和实现方法。"+ｖbCｒLf+vbCrLf＿＋＂（3)学会运用MSDN资源。"+ｖbCrＬf+ｖbCrLf_+"（4）养成良好的编程习惯。"EnｄSub该程序功能：单击cmdＨow按钮,在lblHellｏＶB标签显示“如何学好VB”，在txtHelloVB文本框显示以下内容：(1)从实际应用程序的开发过程中学习ＶＢ程序设计。（２)学会分析问题和解决问题的思绪算法设计和实现方法。(３）学会运用MSDN资源。（4）养成良好的编程习惯。阅读以下程序,写出其功能。SｕbneｗQuｅstion（)DｉmintOp1AsIｎteger,iｎtOp2ＡsInteger,iｎtTeｍpAsＩｎtｅgerDimstｒＯpratorAsSｔrｉngＤiminｔOpratｏｒNumAｓInｔegｅrRaｎｄoｍizeintＯp1=Ｉｎt（１0*Rnd＋1)intOp2=Ｉnt(10*Rnd+1)intOｐraｔorNｕm＝Int（4＊Rnd+1)ＳelectＣaseinｔＯprａtorNｕｍＣase1sｔrＯprator="+":ｉntＡｎｓwer＝intOp1+intOp２Ｃaｓe2strOｐrａtｏｒ＝"-":ＩｆintＯp１＜iｎｔOp2ThenintTemp=intOｐ1:iｎｔOｐ1＝iｎtOp2:ｉntOp２=intTempEｎdIfintＡｎsｗer=intOp１-iｎｔＯp2Ｃase3stｒＯprａtｏr="×":ｉｎtAｎsｗer=ｉntOｐ1*inｔＯp２Case４strOｐrａｔｏｒ="÷"ＩｆintＯp1<iｎtOp2ＴhenｉntTeｍp=iｎｔOp１:intOp1＝ｉntＯp2:intＯp2=intTempEnｄＩfIfintOp1ModiｎtOp２<＞0ＴheninｔOp1=ｉntOp1-intOp1ModintＯｐ2EndIfEndＳeｌｅｃｔ'lblQuestioｎ为标签lblQｕeｓtｉｏｎ．Capｔion＝ｉｎｔOp1&"＂&ｓｔrOｐrａtor&＂"&intOp2&"="ＥｎｄＳub该程序是一个随机出题的过程。随机产生两个１0以内的操作数,随机产生一个操作符（＋、－、×、÷）。假如是减法和除法时，第一操作数小于第二操作数时互换两个操作数,且假如是除法则同时减去两数相除所得的余数。最后在标签lbｌQuestion上显示题目。阅读以下程序,写出其功能。PubｌｉcFuncｔionＡvｇ＿mark(ＭarkArray()AsSiｎglｅ)AｓＳｉngｌeDiｍsnｇSumＡｓSinglｅ，iAｓIｎtegeｒ,ｎAｓＩntegersnｇＳｕm=0n=UBｏunｄ(MａrkAｒray)Fori=０TonｓnｇSｕm=sngSum+MａｒｋＡrray(i)NeｘtiAvg_mａrk=snｇＳｕm／ｎEnｄFｕncｔｉon该程序是一个求平均值的函数。以一个单精度的数组作为参数，先求出数组元素的个数，接着求出数组所有元素的和,最后得出该数组的平均值。阅读以下程序,写出其功能。ＰubｌicＦuｎctｉonMａx＿Ｍark(MarｋＡｒraｙ（）AsSingle）AsSingleDiｍsngMaxAsSiｎgle，iAsＩnteｇｅr,ｎAsInteｇｅrsnｇＭaｘ=0n=UＢoｕnd(ＭarkArraｙ)Fori=０TonIfMａrkArray(i）>ｓngMａxThensngMａx=MarkＡrray(i)NｅxtｉMax_Marｋ=ｓｎgMａxEnｄFuncｔｉoｎ该程序是一个求最大值的函数。以一个单精度的数组作为参数,先求出数组元素的个数，接着逐个比较,求出数组元素的最大值。阅读以下程序,写出其功能。PuｂｌicFｕnctioｎPａss＿Ｍark(MａｒkArray(）AsSinｇle)AsSingｌeDiｍｉntCoｕntAsInteger，iＡsIｎtｅger，ｎAsInteｇerｉｎtＣounｔ=0n=UBｏｕnd(ＭarkArray）Fori=0ＴonｉfＭarｋAｒray（i)>=60TheninｔCount=iｎtCｏunt+1ＮｅxtiＰaｓs＿Mark=ｉｎtＣount／nEndFunction该函数的功能是求一组数中大于等于60的数的比例。以一个单精度的数组作为参数,先求出数组元素的个数,接着逐个比较,求出数组元素中大于等于６0的数的个数，最后求出其比例。阅读以下程序，写出其功能。PriｖａtｅＳubSort_Mａrk(MarｋArｒａｙ()ＡｓＳiｎgle)DｉｍｓngMtｅmpAsＳingｌeDｉmｉＡsIntegｅr,nＡｓInteger,ｋＡｓInteger,jAsInｔegerｎ＝UBｏund(ＭａrkArray)Foｒi=０Tｏｎ–1k=iＦoｒｊ＝i+1TonIfＭarkＡrｒay(j)>ＭarkArｒay(k)Ｔhｅnｋ=jＮextｊsngＭｔemp=MaｒkArｒay（k)MarｋArray（k）＝MarkＡｒray(ｉ）MａrkArray(ｉ)=sngMtempNextｉEｎｄＳｕb该过程的功能是把一组数按从大到小排序。以一个单精度的数组作为参数,先求出数组元素的个数,接着逐个比较,求出数组元素中的最大值和第一个元素互换位置；求出次大值和第二个元素互换位置；依次类推，完毕从大到小排序。阅读以下程序,写出其功能。PrivateSubchaｎgecoloｒ（)DｉmrAsＩnteｇer,gAsIntegeｒ，bAsIntegerDimxＡｓLong'hsbRed、hｓｂＧreen和ｈsbBlue为水平滚动条ｈsｂＲｅd.Ｍin＝０:hsbGreｅn．Min＝０:hsbBlｕe.Mｉn=０hsbＲed.Mａx=2５５：hsbGreｅn.Ｍax=２55:ｈｓbＢlue.Ｍax=２５5r＝hsbＲeｄ.Ｖalｕeｇ=hsｂGｒeen.Ｖａlueｂ=hｓｂＢlｕe．Vａlｕeｘ=RGB(ｒ，g，b）frmMain.ＢacｋColｏｒ＝xEndSub该过程的功能是用红色、绿色、蓝色三个滚动条调节窗体底色。先把红色、绿色、蓝色三个滚动条的Mｉｎ属性设立为0、Max属性设立为255,接着用取出三个滚动条的Value属性值,用ＲGＢ函数产生一个由红、绿、蓝三个Value属性值混合而成的新颜色,并作为窗体底色。阅读以下程序，写出其功能。PubｌicADOcnAsConnectiｏｎPublicSuｂMain(）DiｍｓtrAccessAｓStringstｒＡｃｃess="Ｐｒovider=Micrｏｓoft.Ｊet.OLＥDＢ.4．０;DatａSourｃe＝d：\xｓ.mdb"IfＡＤOcnＩsNoｔhinｇTｈenSeｔADOcn=NeｗＣｏnｎｅcｔｉoｎADＯcn.ＯpenstrＡcｃeｓsEndＩffrｍMain．Sｈｏw'frｍＭａin为窗体ＥｎdSub该段程序的功能是建立数据库的连接。实现与D盘根目录下的文献名为xs．ｍdb的Aｃｃeｓs数据库的连接，同时显示fｒmMain窗体。阅读以下程序,写出其功能。PｕｂlｉｃADOｃnAsConnecｔioｎPｕｂｌｉcＡDＯrｓAsNｅwＲecoｒdsetPrivatｅSubcmｄAｄd_Click()DimstrＳQLAsStriｎg＇文本框ｔxtNo、txｔName和组合框cboSex、cbｏCｌａss'分别用来输入学号、姓名、性别和班级strSQL＝"select＊fｒoｍ学生表wｈｅre学号＝＇"+tｘtＮｏ.Text+＂＇"ADＯrs.OpenstrSQＬ，ADOcｎＩfNotADOrs.EOFThenMsgBoｘ"该记录已经存在,不能继续增长!＂,vbCritｉcal+ｖbＯＫOｎlｙADOrs．CloseEｘiｔSubEndIfｓtrSQL＝"ｉnsｅrtinｔo学生表(学号，姓名,性别,班级）＂sｔrSQＬ=strSQＬ+＂vaｌuｅs('＂+txtNo.Ｔext+"＇,＇＂+txｔName．Tｅｘｔ＋"'，＂ｓtｒSQL＝strＳＱL+＂'"+cboSex.Ｔext＋"＇,＇"txtClass．Tｅｘｔ+＂＇)＂ＡDOcn.ExｅcutｅｓtrSQLEｎdSｕb该段程序的功能是把一个学生记录插入到学生表中。一方面查找数据表中是否存在文本框txtＮｏ中输入的学号,假如存在则不增长；假如不存在,则把该学生的信息记录插入学生表中。四、程序设计题编写一个程序。程序初始界面如图1左图所示，设“学习目的”、“学习方法”和“退出”命令按钮的名称定义为cmdAim、cｍdWay和cmdExiｔ，标签控件的名称定义为lblCｏntenｔ。单击“学习目的”按钮,显示如图1的中图所示;单击“学习方法”命令按钮，显示如图1的右图所示;单击“退出”按钮时，退出程序。图1PrivaｔeSubcｍdAｉm_Ｃlｉck()lｂlＣoｎtｅｎt.Captｉon＝＂开发Wiｎｄoｗs应用程序＂ＥndSubPrivateＳuｂcｍｄWaｙ_Ｃlick(）lblContent.Caption="从实际应用程序的开发过程中学习VB"EndSubPrivateＳubcmｄExｉt_Cｌｉck()ＥｎdEndＳuｂ设计一个简朴的加法程序,程序界面设计如图2所示。设第一操作数、第二操作数和计算结果文本框的名称分别定义为txｔＦirstNｕｍ、txｔSeconｄNｕｍ和ｔxｔＳuｍ,“计算”命令按钮的名称定义为cmdＳum。图2PriｖaｔｅＳubcmdSum_Ｃｌicｋ(）txtSum．Texｔ=Ｖaｌ（ｔｘtFirstNｕm.Tｅxｔ)+Ｖａｌ(tｘtSeｃondNum.Text)EndSｕｂ编写一个数制转换程序，运营界面如图３所示。设三个文本框的名称框定义分别为ＴxtDec、TｘｔＨex和TxtOcｔ。实现在第一个文本框中输入十进制数后,第二个文本框自动显示该数相应的十六进制数，第三个文本框自动显示该数相应的八进制数。提醒：运用文本框的Chaｎge事件和转换函数Hex、Oct。图3PriｖａtｅSuｂTxtＤec_Cｈange()TxtHex.Ｔeｘｔ=Hex(Vａｌ（TｘｔDec.Ｔext))TｘｔOｃt.Text＝Oct(Val(TｘtＤec.Ｔeｘｔ）)ＥndSｕb编写一个猜数字程序。程序产生一个随机数，由用户来猜这个数,并提醒用户猜的数是否太大或太小,程序运营界面如４所示，设输入文本框的名称框定义为TxtAｎswer，神秘的数、评价标签控件的名称框定义为lｂlComｍｅnt和ｌblNum,“拟定”命令按钮的名称定义为cmdOk。图4DiｍintNｕmAｓＩnteｇer＇用于存放“神秘的数”DiｍｉnｔＣｏuntAsInｔeger'用于猜数计数PｒivａｔeＳubcmdOｋ＿Cｌick()intCounｔ=inｔCount＋1＇计数IfＶａｌ（txtAnswｅr．Teｘｔ)＝ｉntNｕmThｅn'猜对lblCoｍment．Cａｐｔion="猜对了！你一共猜了"&intCount&"次"lbｌＮum.Ｃapｔiｏn=intNumElｓeIfVal（txtＡnsweｒ.Tｅxt)>intNumThenlblCｏｍｍent.Capｔｉon="太大了!"ElsｅlblＣomｍenｔ.Capｔｉon＝"太小了!"EndIfEnｄSubPrivatｅSｕｂForｍ_Loaｄ（）RaｎdomizeiｎｔＮum=Iｎｔ(Rnｄ*1０００＋1）EndＳub编写一个判断闰年的程序。判断平年、闰年方法:凡是能被4整除但不能被100整除的年份为闰年，如１980年;凡是能被４0０整除的年份为闰年,如2023年;除以上两种情况以外的其余年份都是平年。PrivatｅSubCommand1＿Click()ＤiｍinｔYｅａｒAsInｔegｅr'用于存放年份iｎtYeaｒ＝InpuｔBｏx("请输入年份"）ＩｆｉntYearMｏd400=0Or（ｉnｔYeaｒMｏd４=0AndiｎｔYｅarMod100<>0)ＴhenＭsgBoｘｉｎtYｅａr＆"年是闰年"ElｓｅMsｇＢｏxinｔYeａr＆"年是平年"EndＩｆEndSub编写一个列表框应用程序，程序界面如图5所示。设“添加”、“删除”和“修改”按钮的名称定义为cmdAｄd、cmdDｅｌ和ｃmdUｐdatｅ,列表框和文本框的名称为默认。规定从文本框输入姓名,然后按“添加”按钮把姓名添加到列表框中;当选择列表框中某一项时，按“删除”按钮，从列表框中删除;当选择列表框中某一项时,按“修改”按钮，把列表框中选取的项送往文本框且“修改”按钮变为“修改确认”。在文本框的内容修改好后，按“修改确认”按钮，再把文本框中修改的信息送到列表框且“修改确认”按钮变为“修改”。图5PrivatｅSubｃｍdAdｄ_Clｉｃｋ()Liｓt1．AddIteｍText1．TextＴexｔ1.Tｅxt=＂"EndSubＰｒivａｔｅSubcmdDel_Cｌｉck（)Lisｔ1.RemoveＩteｍList1.ListIndexTeｘｔ1．Ｔext=""EndSｕｂPrivateSuｂcｍdUpdate＿Ｃlicｋ(）ＩｆcmｄＵpdａte．Caｐtion=＂修改＂ＴｈｅｎＴext1.Ｔext＝Lisｔ1.List（Ｌiｓt１．LｉstInｄeｘ）cmdUpｄaｔe.Capｔion=＂确认修改"ElseList１.Lisｔ（List1．ＬｉｓtIｎｄex)=Teｘt1.TextcmdＵpdatｅ.Captioｎ="修改"Text1.Text＝""EｎdＩfEndSub假设在D盘驱动器上已建立了一个通信录文献(Txl.ｔxt），文献中的每个记录涉及编号、用户名、电话号码和地址等４项内容。试编写一个程序,实现能按用户名查找,并在文本框中显示查找结果，如图6所示。设“查找”按钮的名称定义为cmｄFiｎdnamｅ,查找输入名称和结果文本框的名称分别定义为txtＮamｅ和ｔｘtＣouｎt，记录条数标签的名称定义为lblCouｎt。图6设在标准模块中已输入以下代码：TypeＬxrintBhAsInteger'编号sｔｒＸmAsＳtriｎg*8'姓名strDhAsStｒiｎg＊1１＇电话stｒDzAsString*3０＇地址ＥnｄTypeＰuｂlicuserＡｓLxr写出查询命令按钮ｃmdFindnａme的Ｃlｉck事件代码。PriｖａteSubcmdFindname＿Click()DimｉＡsInｔｅgｅr,intCoｕｎtAsInｔｅgｅｒ,inｔRecorｄNuｍAｓIｎｔegｅrDｉｍｓtｒComp1AｓStｒｉｎg，stｒＣomp２ＡｓSｔrｉngtxtCoｕnt.Texｔ=＂编号姓名电话地址＂＋vbＣrＬfiｎtＣoｕnt=0Open"d:＼txl.txｔ"ForRaｎdomＡs#1Lｅn＝Leｎ（useｒ）inｔRｅcordＮｕｍ=LOF(1）／Lｅｎ(ｕser）Ｆｏri=１TｏintRecｏrdNｕmGｅt#1，i,uｓeｒstrCｏmp1=Ｔｒim(ｔxtName.Ｔexｔ)sｔｒComｐ2=Trim(Rｅｐlace（useｒ．strXm,Cｈｒ(0)，"＂))'比较输入的姓名和文本中的姓名是否一致IfStｒＣomp(strＣomｐ1,ｓtrＣomｐ２）=０ThｅnｉntＣount＝ｉntCouｎt＋１Ｇet#1,i,ｕｓerｍsg=Str(Bh）+"＂+ｕser.ｓtrＸm+uｓeｒ.strDｈ+ｕser.sｔrDzmsg＝Rｅplace(mｓg,Ｃhr(0），"")txtCｏunt.Text=txtCｏunt.Teｘt+mｓg+Chr(13)+Chr(10)EndＩfNexｔｉClose#1lｂｌCount.Caｐｔion＝"一共找到"+Str（iｎtCｏunt)+"条记录"IfｉntＣouｎt=0ThｅnMｓｇBｏx"没有该记录",vbIｎformatｉoｎ,"提醒"EnｄIfEndSuｂ编写一个函数图形程序。用Pset方法在图形框Ｐｉｃtｕre1内绘制y＝Coｓx在-π到π之间的图形，运营结果图7所示。设所有控件使用默认名称。图７Coｎstpi=3.１4１592６DimｘAsSiｎgｌeＰｒｉvateSubCommaｎｄ1＿Click()Pictuｒe１.DrａｗWidth=2Ｆorx=-piＴｏpiStep0.０01Ｐｉｃtuｒe１.PSｅt（x,Cos(ｘ))ＮｅxtxEndＳｕｂPrivaｔeSｕbForm_Lｏａｄ()Ｐｉｃture1.Scａle(-4,2)-(４,-2）Picｔuｒｅ１.Line(０,2）－（０,－2）Ｐiｃtuｒe1.Linｅ(-4,0）－(4,0）Pｉcture1．Lｉne(-pｉ,0.1）-(-pｉ，0)CｕｒrentX=-pi：ＣurrenｔY＝－0.2：Pｉcｔurｅ1.Ｐriｎt"