2023年电大VisualBasic程序设计考试资料已整理排版

《ViｓｕalBasic程序设计》一、单项选择题１4.

\、/、Moｄ、*四个算术运算符中，优先级别最低的是（C)。C．ModA58.

AＤＯ控件属于ＡctiveX控件，使用之前必须加载MicｒosofｔAＤODataConctrol6.0(ＯLEDＢ），将AＤO控件添加到工具箱中。添加ADO控件的菜单为(Ｂ）。B.“工程”→“部件”B17.

表达式４＋5＼6*7/８Ｍｏd９的值是(B)。B．５Ｃ４．

以下控件中,（Ａ)控件不会影响到界面设计效果。Ａ．计时器C９.

(C）控件不具有Ｃaｐtion属性。C．TｅxtＢoｘC33.

菜单编辑器中，同层次的（B)属性值设立为相同，才可以设立索引值。B.NameC44.

程序运营时,驱动器列表框下列(A）属性能返回磁盘驱动器的名称。A．DriｖeＤ3７.

当单击工具栏上的按钮，会触发的事件是(A）。A．BuｔｔonClickＤ64.

多媒体控件(MMCｏntrol）具有一组执行ＭCI命令的下压式按钮。其中Reｃord按钮表达为（B）。B.录制G１０.

改变控件在窗体中的上下位置，应设立控件的（A）属性。A.ToｐＧ４6．

改变驱动器列表框的Driｖｅ属性值将激活其（A）事件。A.CｈangeH18．

函数Int（Rｎd*1０)是在（C）范围内的整数。Ｃ．[0,１０）J1３．

假设已定义Intｅger变量ｘ、ｙ,则以下赋值语句对的的是(Ｃ）。C.y=x+yJ４0.

检测文献是否结束的函数是(C）。C.EOF()J5７.

键盘事件的执行顺序是(B)。B.KeyＤｏwｎ，KｅｙＰreｓs，KeｙUpJ６2.

决定系统是否自动检测多媒体控件（MMCｏｎtｒol)各按钮的状态的属性是(B)。B．AuｔoＥnaｂｌeJ63.

将多媒体控件（MMCｏｎｔrｏl)的Frａmes属性设为3,则以下叙述对的的是（A)。A．指定Back或Ｓtep命令后退或前进的帧数都为3K2６.

可通过（C)属性判断ＬistBｏx列表框控件的项目总数目。C.LisｔcｏｕntL２5．

LisｔBoｘ中若没有任何条目选中，其ＬisｔIｎｄｅｘ属性值为（A)。A．－1L２7.

列表框的（B）属性用于返回或设立列表框中各列表项的文本。Ｂ.ＬｉsｔL５4.

Line（1０0,100)-Ｓtep(40０,4０0)将在窗体中的（Ｃ)画一条直线。C．（10０，100)到（50０，500)L59.

运用ＡDＯ访问数据库，一方面要创建一个（A)对象,用于建立和数据库的连接。A.Cｏｎnｅction对象M3４.

每创建一个顶级菜单,它的下面最多可以有(Ｃ）级子菜单。C.５N２4．

能通过(D)来删除列表框中的选择项。D.ＲemｏｖeItem方法R1.

假如要设立窗体的标题栏，应选择(B）属性。Ｂ．ＣaｐｔionR30.

若要把“XXX”添加到列表框Ｌｉｓt１中的第三项，则可执行语句(Ｂ）。Ｂ.Ｌist１.ＡddIｔem"ＸXＸ"，2R36．

假如要在程序中显示一个弹出菜单，需调用（D)方法。D.PｏpupＭenｕR55.

RGB函数通过红、绿、蓝三基色混合产生某种颜色,若使用三个滚动条分别输入三种基色,为保证输入数值有效,则应设立滚动条的(A）属性。A.Mａx和ＭｉｎR56.

假如在图片框上使用绘图方法绘制一个圆,则图片框的(B)属性决定了该圆的颜色。B．ForeCoｌorS2.

要使命令按钮不响应用户生成的事件,应设立命令按钮的(D)属性。D．EｎａbledS3.

要使标签能透出窗体的背景，应设立标签的（Ａ）属性。A．ＢackＳtylｅＳ28.

设Liｓt1为列表框控件，List1．Cleaｒ中的Cleａr是（A）。A.方法S41.

要读出C盘根目录下顺序文献stud.txｔ内容,下列打开方式(C)。C.Oｐeｎ"C:\sｔud．txｔ"FｏrIｎpｕtＡs#1S42．

随机文献使用（C)语句写数据。Ｃ．PuｔS43.

随机文献使用(Ｄ）语句读数据。Ｄ．GeｔS47.

使用目录列表框的（Ｂ)属性可以返回或设立当前工作目录的完整途径(涉及驱动器盘符)。B.PatｈＳ51.

要向图片框ｐiｃP中加载“d:\haｉnａn\zhiwu.bmp”图像文献，应使用语句(C)。c．picP．Piｃture=ＬｏadPｉcture(＂d:\hainａn\ｚhiｗu．bmp＂)S60.

SQL语言的Selecｔ语句中，用于分组的语句为（B）。Ｂ.grｏｕｐbyW7．

某计时器控件的intｅrvａl属性为0时,表达(A)。Ａ．计时器关闭计时W１1.

文本框中选定的内容,由下列（C）属性反映。C．SeltｅxtW65.

为了使多媒体控件(MMControl)中的录制按钮不显示,应添加代码（C)。C．MMCｏntrol1.RecoｒdVｉsibｌe=FalseW67.

WindowsMedｉaPlayer控件的UiMoｄｅ属性,表达播放器界面模式,以下选项是播放器模式的属性值是(D）。D．以上都是X15．

下列哪组语句可以将变量Ａ、B值互换(B)。B.A=A+B:B＝Ａ–B:A＝A–BX19.

下面(A)运算符是算术运算符。A.ModX3８.

下列可以用来存储图像可以供其它控件使用的控件是(Ｃ）。C．ImaｇeLisｔX50.

下面对象中不能作为容器的是(B)。Ｂ．Imagｅ控件X5３.

下列图形中不能使用Ｓhape控件绘制的是(B）。B．三角形X21．

下面程序段运营后，显示的结果是(B）。Ｂ.1DimiｎtXAsIntegeｒIｆintXThenＰrｉｎｔｉntXElsｅＰrinｔinｔX+1ＥｎdIfＹ２２.

以下程序的输出结果是(C)。C.10Ｄima,ｉ%,sｕm%ａ=Ａrraｙ(4,3,２,1）Ｆoｒｉ＝0To３sｕm＝sｕｍ+ａ(i）NexｔiPｒiｎtsumＹ16.

以下语句的输出结果是（C）。PrintFormat(３2５48.5，“000,０00.0０”)C．032,54８.5０Y20．

已知三个变量Ａ、Ｂ、C,判断A、B、Ｃ能否构成三角形的逻辑表达式为（B)。B．A＋C>=BAndA+B>=ＣＡｎdB+C>=AＹ29．

以下（D)语句将删除列表框Lisｔ1中的最后一项。D.Lisｔ１.RemovｅIｔeｍＬisｔ1.LｉstCount-1Y３１．

用户可以通过设立菜单项的(Ｃ）属性值为Fａlｓe来使该菜单项失效。C.EnabｌｅｄY３2.

用户可以通过设立菜单项的(B）属性值设立为False来使该菜单项不可见。B.ＶｉsiｂｌｅY4５.

要用通用对话框控件显示标准的“字体”对话框，应调用其(Ｃ）方法。C．ＳhoｗFｏntY６１.

以下四个控件,不属于数据绑定控件的是（C)。C．Optｉoｎ控件Z5.

在VisｕaｌBａsic中,一般（B）属性用来设立字体的颜色。B．ForｅColoｒZ6.

在VＢ中断模式下，可用调试窗口监视表达式和变量的值，其中在(A)窗口中可以直接键入命令以显示命令所请求的信息。A.立即Z８.

在窗体Ｆorm1的Click事件过程中有以下语句:Laｂel１.Ｃaptｉoｎ＝"VｉsuaｌBasiｃ"若本语句执行之前，标签控件的Ｃａptiｏn属性为默认值,则标签控件的Name属性和Captｉon属性在执行本语句之前的值分别为（Ｂ)。B．Lａbｅｌ1和Label1Z1２．

在ＶisualBaｓic中,变量的默认类型是(D）。D．VariantZ23.

在过程中定义的变量,若希望在离开该过程后，还能保存过程中局部变量的值，则应使用(D）关键字在过程中定义局部变量。D．ＳtatiｃZ35.

在设计菜单时,为了创建分隔栏,要在（B）中输入字符（-)。B．标题栏Ｚ3９．

在VisuａlＢasic中按文献的访问方式不同,可以将文献分为（B)。B．顺序文献、随机文献和二进制文献Z4８.

在随机文献中(D)。Ｄ.可以通过记录号随机读取记录Ｚ49．

执行语句Open"Ｃ：Stｕｄ.txｔ"ForIｎｐuｔＡs#2后，系统(C）。C．打开Ｃ盘当前文献夹下名为Sｔuｄ.ｔxt的文献，用来读取文献内容Z５2.

执行Form１.Scaｌe(０,10）-（10,-10)语句,Foｒm1窗体坐标系x轴和y轴的正方向是(A）A．向右和向Z６6.

在多媒体控件(MMConｔrｏl）中,ＤeviceType属性用于设立多媒体设备的类型，假如将要播放的文献是CD歌曲,应将DeviceTｙpe属性设立为（D）。Ｄ.CＤＡudioZ68.

在WiｎｄoｗｓMediａPlａｙｅｒ控件中，决定播放文献是否全屏的属性是（A）。A.FuｌｌScｒeen二、填空题A3３．按文献的存取方式，可将文献分为顺序文献、随机文献和二进制文献。A34.ＡDＯ模型中一般可通过Conneｃtion对象的Execｕｔe方法执行增长、删除、修改操作。使用ADO模型时，建立Recordｓet和Cｏnnｅｃｔioｎ对象连接的属性是ActiveCoｎnecｔｉon。Ａ3５.ADO数据模型中一般可通过Connｅctｉon对象的Eｘeｃute方法对数据库中的基本表进行增长、删除、修改等不返回结果集的操作。C２2.创建第一个按钮控件对象时，系统自动为其“Namｅ”属性分派一个名字,该名字为Ｃomｍaｎｄ1。Ｄ28．对驱动器列表框来说,每次重新设立驱动器列表框的Ｄｒive属性时,将引发Chａnge事件;对目录列表框来说，当Ｐath属性值改变时，将引发Chaｎｇｅ事件;对于文献列表框,重新设立的Pａth属性，将引发Ｃhａnge事件。J4．

将1£x<1２写成VｉｓｕalＢasiｃ逻辑表达式x>=1Ａnｄx<１2。J1４基本程序控制结构可以分为顺序结构、选择结构和循环结构３种。Ｊ3１.将图片框PictｕreＢoｘ的AuｔoSｉze属性设立成Ture时，图片框能自动调整大小，以适应其中的图片。L６.

Left（"ａbcd",2)函数的返回值是ａb;Rｉght(＂abcｄ＂,2）函数的返回值是ｃd。L３2．

Lａbel和TeｘtBox控件用来显示和输入文本,假如仅需要让应用程序在窗体中显示文本信息，可使用Lａbｅl控件；若允许用户输入文本，则应使用TｅxtBox控件。M２7．

每次重新设立驱动器列表框的Drive属性时，都将引发Ｃhaｎge事件。可在该事件过程中编写代码修改目录列表框的途径,使目录列表框内容随之发生改变。S９.

数组的类型可以是基本数据类型，也可以是用户自定义的记录类型。假如省略类型说明,数组会被设立为默认的变体类型（Vaｒiａｎt）。数组中各个元素在定义时假如是数值类型就被默认初始化为0,假如是字符串类型就被初始化为空字符串。Ｓ1.

数学表达式coｘ2x+写成等价的VisualBasic表达式为cos(x）^2+Ｓqｒ(x^2-y^2)/２S２.

数学表达式写成等价的VｉｓualBａsiｃ表达式为10^(１/2)*coｓ(５0*3．1４/1８0）或者Sqr(1０)*ｃoｓ（50*3.1４/１８０）S3.

数学式子相应的VｉsualBaｓic运算表达式是:Sqr(s*(s-a)*（s-b)＊(s-ｃ))V13.

VisualBasic中变量依据其作用域不同可以分为过程级变量(局部变量）、模块级变量和全局变量3类。过程级变量就是指在事件过程或通用过程内定义的变量,它的作用域就是其所在的过程。模块级变量涉及窗体级模块变量和标准模块级变量。窗体模块变量的作用域是窗体内的所有过程,标准模块变量的作用域是模块内的所有过程。全局变量的作用域是整个工程中所有的模块和所有的过程。16．

VisuaｌBasic一般用4种类型的文献保存,分别是扩展名为．ｆrm的窗体文献，扩展名为bas的标准模块文献,扩展名为.ｃls的类模块文献和扩展名为.vbp的工程文献。V17．

VisuａｌBａsic程序开发有三种模式,即设计模式、运营模式和中断模式。Ｖ18.

VisualＢasｉc中设立断点的按键是F9,逐语句调试的语句是Ｆ８。V19.

VｉsuａｌBａｓｉｃ中的程序错误类型重要有编译错误、实时错误和逻辑错误三种。Ｖ20.

ViｓｕaｌＢaｓic应用程序即工程文献通常由三类模块组成,即窗体模块、标准模块和类模块。窗体模块包含窗体和代码两部分。标准模块完全由代码组成,这些代码不与具体的对象相关联,一般用来定义全局变量和公用过程和函数。类模块用于自定义类。W23.

为了在运营时把当前程径下的图形文献pictuｒefile.jpg装入图片框Ｐictｕrｅ1,所使用的语句为Picturｅ1.Piｃture=ＬoａdＰrcture(“picturefile．ｊpg”)。Y5.

已知a=3，b＝4，c=５，表达式a>bａｎdNotc＞aOrc＞bAndｃ<a+b的值是Ｔrue。Y8.

有变量定义语句“ＤｉｍStr1，Stｒ2ＡsStｒing*10”,其中Str1变量的类型应为变体型,其中Ｓtr2变量的类型应为字符串型。Ｚ7．

在VisualBasｉc的转换函数中将数值转换为字符串的函数是Ｓtr（x);将数字字符串转换为数值的函数是Vａl(x);将字符转换为相应的ＡＳCIＩ码的函数是Asｃ(x)。Z10.

在VisualＢasic中,数组默认的下标下界是0,假如希望从1开始，可以使用OptｉonBａｓeｎ语句语句来设立。Z11．

在缺省情况下,用DimA（5,5）语句声明二维数组后,数组A的元素共有36个。Z1２.

在VisｕalBasic中,参数通过按值传递和按地址传递两种方式传送。Z１５.

在ＶisualBａsic语言中有三种形式的循环结构。其中，若循环的次数可以事先拟定，可使用For循环；若规定先判断循环进行的条件，可使用Whｉｌe循环或Do循环。Ｚ２１.

在ＶisｕａlBａsic中将多重窗体程序中第一个被装载内存的窗体称为启动窗体。Z2４.

在ViｓｕalBaｓｉc中，每个菜单项都是一个图形控件对象,所以它们也有一些与其他控件类似的属性,标题就相称于其他控件的Cａptioｎ属性，而名称就相称于Ｎame属性。Z２5.

在VisuａlBasic菜单中设立显示一条分割线的操作是在【菜单编辑器】的标题栏中,输入一个“－”。Z26.

在VisuaｌBaｓiｃ中,文献系统控件涉及驱动器列表框（DriveＬｉsｔＢoｘ)、目录列表框(DirLｉstBox）和文献列表框(FileLｉstBoｘ)。三者协同操作可以访问任意位置的目录和文献,可以进行文献系统的人机交互管理。Z29.

执行指令“Liｎｅ(200,200)–Step(5０0,50０)”后，ＣurreｎtＸ＝７00。Z30.

执行指令“Ｌｉne(200，2００)–(50０，5０0)”后,ＣurrentX＝50０。程序阅读题Ｙ阅读以下程序，写出其功能。ＰrｉvａteSuｂcmdWhy_Cｌicｋ()＇cmdＷhy为命令按钮,ｌｂｌHｅlloVB为标签,ｔｘｔHelloVＢ为文本框lblHellｏＶB.Captioｎ=＂为什么学ＶB"txtHelloVB=＂（1)VB简朴易学，开发效率高，通用性强，用途广泛。"_＋vｂCrLｆ＋vbCrLf+"（2）VB是国内外最流行的程序设计语言之一,"_+"也是学习开发Winｄoｗs应用程序首选的程序设计语言。"EndSub该程序功能:单击cmdWhy按钮,在lblHelｌoＶB标签显示“为什么学VＢ”,在txｔHeｌloVB文本框显示以下内容:1.VB简朴易学，开发效率高，通用性强,用途广泛。VB是国内外最流行的程序设计语言之一，也是学习开发Ｗｉndows应用程序首选的程序设计语言。Y阅读以下程序,写出其功能。ＰｒiｖａｔｅSｕｂcmdWhat_Ｃlicｋ（)'cｍｄWat为命令按钮，lblHelloＶＢ为标签，txｔHeｌloＶB为文本框lblHelloVB.Caｐtｉｏｎ＝"VB能干什么"tｘtHelloVB=＂ＶＢ能快速实现用户界面的设计、"_+"文字和图形图像的解决以及数据库的使用,能开发多媒体、数据库、"_+"网络和图形等多方面的应用程序;可以开发个人使用或小组"_+"使用的小工具、大型公司应用系统以及遍及全球的分布式应用程序。＂ＥndSub该程序功能:单击ｃmdWｈaｔ按钮,在lｂｌHellｏVB标签显示“VB能干什么”,在ｔｘｔＨelloＶB文本框显示以下内容：VB能快速实现用户界面的设计、文字和图形图像的解决以及数据库的使用,能开发多媒体、数据库网络和图形等多方面的应用程序；可以开发个人使用或小组使用的小工具、大型公司应用系统以及遍及全球的分布式应用程序。Ｙ阅读以下程序,写出其功能。PrｉvａteSuｂcｍdHow_Clｉck()＇cmｄHow为命令按钮，lbｌHｅlloVB为标签,tｘtＨelloVB为文本框lblＨellｏVＢ.Ｃaｐtion=＂如何学好VB"txtHeｌloVB="(1)从实际应用程序的开发过程中学习ＶB程序设计。"_+vbＣrLｆ＋vbCｒLｆ+"(２)学会分析问题和解决问题的思绪、"_+"算法设计和实现方法。"＋ｖbＣrLf+vbCrLf_+"(3)学会运用MSDＮ资源。"＋vbCrLf+vbCrLf_+"(4)养成良好的编程习惯。"EndＳub该程序功能:单击cｍｄHoｗ按钮，在lblHelloVB标签显示“如何学好VB”，在ｔｘtHeｌｌoＶB文本框显示以下内容:(１）从实际应用程序的开发过程中学习VＢ程序设计。(2）学会分析问题和解决问题的思绪算法设计和实现方法。（3）学会运用MSDＮ资源。养成良好的编程习惯。Y阅读以下程序,写出其功能。SubｎeｗＱuestion(）DimiｎtＯp1ＡsIｎｔeger,intOp２AsIntegeｒ,iｎtＴeｍpAsIｎtｅgeｒDimstrＯｐrａtｏrAsStringDimiｎtOpratoｒＮｕmＡsInteｇerＲaｎdomiｚeｉnｔOp１=Ｉnｔ(10*Rｎｄ+１）iｎｔＯp2＝Int(10*Rnd＋１)intＯpratｏｒＮum=Int(４*Rnd＋1)SｅlecｔCａsｅｉnｔOｐｒatorＮｕmCaｓｅ１sｔrOprator="+":intAｎsｗer=inｔOｐ1+intＯp2Ｃaｓｅ2ｓｔrOprator="-"：ＩfintOp1<iｎtＯp2TｈeniｎｔTemp=ｉntOp1:intOp１=iｎｔOp2:intＯp2=ｉntＴｅｍpEｎｄIfiｎtAnｓwer=intOp1-inｔOｐ２Cａse3ｓtrＯprａtｏｒ="×＂:iｎtAｎsｗer＝iｎtOp1*ｉntOp2Casｅ4strＯpｒatoｒ="÷"ＩfｉntOp1<ｉｎtＯｐ2ThenｉnｔTemｐ＝intOｐ1：iｎｔＯp1=intＯp２：intＯp2＝iｎtＴemｐＥｎdIfＩfｉntOp1MｏｄinｔOp2<>0TheninｔOp1＝ｉntOp1-iｎtＯｐ1ModintOｐ２EｎdIfＥnｄSelect＇lｂｌＱuesｔion为标签lｂlＱｕestｉoｎ.Ｃaｐtion=ｉntOｐ１＆"＂&ｓtrＯprator&""＆inｔOｐ2＆"="ＥnｄＳｕｂ该程序是一个随机出题的过程。随机产生两个10以内的操作数，随机产生一个操作符（+、-、×、÷)。假如是减法和除法时,第一操作数小于第二操作数时互换两个操作数,且假如是除法则同时减去两数相除所得的余数。最后在标签lblQuｅstion上显示题目。Y阅读以下程序，写出其功能。PuｂlicFunｃtｉoｎAｖg_maｒk(MaｒｋArray()AsＳｉnglｅ)AsＳiｎgleDiｍsnｇSumＡsSinｇlｅ,iAsＩnteger,nAｓInteｇeｒsngSum=０n＝UBｏｕnd（MarkArray）Fori＝0TｏｎｓngSｕｍ=sｎgＳum+MａrｋＡrｒaｙ(i）NｅｘtｉＡvg＿mａｒk=sngSｕｍ/nEndFｕnction该程序是一个求平均值的函数。以一个单精度的数组作为参数,先求出数组元素的个数，接着求出数组所有元素的和，最后得出该数组的平均值。Y阅读以下程序,写出其功能。PuｂlicFuｎｃtionMaｘ＿Ｍarｋ(MaｒkＡｒraｙ（)AsSingｌe)AｓＳiｎglｅＤｉmsｎgMaxAsＳinｇlｅ，iAｓIｎtｅger,nAsＩntegeｒsｎgＭａｘ＝０ｎ=UＢouｎd(ＭarkＡrray)Forｉ=0TｏnIfMarkArray(ｉ）>sｎgMaｘTｈeｎsnｇMａｘ=MａｒkArraｙ(i)NextiMax_Mａrｋ＝snｇMaxEｎdFuｎction该程序是一个求最大值的函数。以一个单精度的数组作为参数,先求出数组元素的个数，接着逐个比较，求出数组元素的最大值。Y阅读以下程序，写出其功能。PubｌｉｃFuncｔｉoｎPass_Mａrk(MarkArray()ＡｓＳingle）ＡsSiｎgleDiｍｉnｔCｏuntAsIｎtegｅｒ,iＡsInｔegｅr,ｎＡｓIｎtegｅrinｔCounｔ=0n=UBound(MａrkＡrray)Ｆorｉ=0TonｉfＭarkAｒraｙ(i)>=６０TｈeninｔCount＝ｉntCount+1ＮexｔｉＰaｓｓ_Marｋ=intCouｎｔ/ｎEndFunctioｎ该函数的功能是求一组数中大于等于60的数的比例。以一个单精度的数组作为参数，先求出数组元素的个数,接着逐个比较,求出数组元素中大于等于60的数的个数,最后求出其比例。Y阅读以下程序,写出其功能。PrivateSubSort_Mark(MａrkＡrrａy()AsＳiｎglｅ）DiｍsnｇMtempAsＳinｇleDimｉＡｓＩnteｇer,ｎAｓIntegｅr，kＡｓInteｇer,jＡsInteｇｅｒn=UBｏuｎd（MａｒｋＡrraｙ)Ｆoｒi=0Ton–１k=iForj=i＋1ＴonIfMarｋＡｒray(j）＞MaｒkArray(k)Thenk＝ｊNextjsngＭtemｐ＝MarkArrａy(k）MarkArrａy(k）=MarkAｒray（i）MaｒkAｒｒaｙ(i)=sｎgMteｍｐNｅxtiEndSｕb该过程的功能是把一组数按从大到小排序。以一个单精度的数组作为参数，先求出数组元素的个数，接着逐个比较,求出数组元素中的最大值和第一个元素互换位置;求出次大值和第二个元素互换位置；依次类推,完毕从大到小排序。Y阅读以下程序,写出其功能。ＰｒivateＳｕbｃhanｇｅcolｏｒ()DiｍrAsIntegeｒ，gAｓIｎtegｅr,ｂAsIntegerDimxＡsLｏｎｇ'hsbRｅd、ｈｓbGreen和hsｂBlue为水平滚动条ｈsｂRed.Min=0:hsbGrｅｅn.Mｉｎ=0:ｈｓbBlｕe.Min=0hｓbRed.Max＝２55:hsｂGｒeｅn.Max=255:hsｂBlue.Max=2５５r=hsbRed．Vaｌuｅg=hsbGreen．Valuｅb＝hsbBlue.Ｖalｕex＝RGB(r,g,ｂ)frｍMａin.ＢaｃkCｏｌor=xEndSub该过程的功能是用红色、绿色、蓝色三个滚动条调节窗体底色。先把红色、绿色、蓝色三个滚动条的Ｍｉｎ属性设立为0、Ｍａx属性设立为255，接着用取出三个滚动条的Ｖａlｕe属性值，用RGB函数产生一个由红、绿、蓝三个Value属性值混合而成的新颜色,并作为窗体底色。Ｙ阅读以下程序,写出其功能。ＰubｌicAＤOｃnAsＣonnｅctionＰuｂｌｉcＳｕｂMain（)ＤimstrAccessAｓSｔriｎgstrAccess＝"Provider=Microsofｔ.Jｅt.OLEDB.４.0;DataSｏuｒce=d:\xｓ.mdｂ＂IｆADOcｎIｓNｏthｉnｇTｈenSetADＯcｎ=NeｗConnｅctioｎADOｃn.ＯｐenstｒＡccｅssEｎｄIｆfrｍMaｉn.Show＇frmMaiｎ为窗体EndSub该段程序的功能是建立数据库的连接。实现与Ｄ盘根目录下的文献名为xｓ.mdb的Acｃess数据库的连接，同时显示fｒmMain窗体。Y阅读以下程序,写出其功能。PuｂlicADOｃnAsCｏnｎectｉonPubｌicAＤＯｒsＡｓＮｅwRｅcｏｒｄsetPrivaｔｅSubcｍdAdd_Cｌick()ＤimstrSQLAsStriｎg'文本框txtNo、txtＮａme和组合框cｂoＳｅx、ｃboClaｓs＇分别用来输入学号、姓名、性别和班级sｔrＳQL="ｓelect*fｒom学生表wheｒｅ学号='＂+tｘｔNo.Texｔ＋"'"ADOrs.OpenｓtrSＱL,ＡDOcｎIfNotADOrｓ.EOＦTheｎＭｓgBox"该记录已经存在，不能继续增长!＂,vbCritiｃal＋ｖｂOKOｎlｙAＤＯrｓ．CloseＥxｉtSuｂEｎdＩfstrSQL="insertintｏ学生表(学号,姓名,性别，班级）"ｓtrSＱL=strSQL+"valｕｅs（'"+ｔxtNｏ.Text＋＂','"+ｔxtNａme.Texｔ＋"',"strSＱL=sｔrSQL+"'＂+ｃboSex.Ｔext+＂','"tｘtClass.Tｅxｔ＋"')"AＤOcn.ＥxecutesｔrSQLEndSｕb该段程序的功能是把一个学生记录插入到学生表中。一方面查找数据表中是否存在文本框ｔｘtＮｏ中输入的学号,假如存在则不增长；假如不存在,则把该学生的信息记录插入学生表中。程序设计题Ｂ编写一个程序。程序初始界面如图1左图所示，设“学习目的”、“学习方法”和“退出”命令按钮的名称定义为ｃmdAiｍ、ｃmｄWay和cｍdＥｘiｔ,标签控件的名称定义为ｌblＣｏｎtｅnt。单击“学习目的”按钮，显示如图1的中图所示;单击“学习方法”命令按钮，显示如图1的右图所示;单击“退出”按钮时，退出程序。图1ＰｒivatｅSubｃｍdAim_Ｃlick（)lblContｅnｔ．Captｉｏn="开发Winｄowｓ应用程序"EｎdSｕbＰrivaｔｅSｕbｃmdＷaｙ_Cｌicｋ(）lblCｏntent.Cａptioｎ="从实际应用程序的开发过程中学习ＶＢ"EndSubＰrｉｖatｅＳubcmｄＥｘit_Ｃlｉｃk(）EｎdEndSubB编写一个数制转换程序，运营界面如图３所示。设三个文本框的名称框定义分别为TxtDec、TxtHex和TxtOct。实现在第一个文本框中输入十进制数后，第二个文本框自动显示该数相应的十六进制数,第三个文本框自动显示该数相应的八进制数。提醒：运用文本框的Ｃｈange事件和转换函数Hｅx、Oｃt。PriｖaｔeSubTxtDec＿Ｃhａnｇｅ()TｘtＨex.Ｔexｔ=Hex(Val(ＴxtDｅc.Teｘｔ）)TxtOct．Text=Oct(Vaｌ(TｘtDeｃ.Teｘｔ))EnｄSubB编写一个猜数字程序。程序产生一个随机数，由用户来猜这个数,并提醒用户猜的数是否太大或太小,程序运营界面如4所示，设输入文本框的名称框定义为TxtAnsweｒ，神秘的数、评价标签控件的名称框定义为lblCｏmmｅnｔ和lbｌNｕｍ,“拟定”命令按钮的名称定义为ｃmdOk。DimiｎtＮumAsInｔeger'用于存放“神秘的数”ＤｉｍintCｏunｔAsInteｇer'用于猜数计数PrivateＳubｃmdOk＿Clｉcｋ（)intＣｏunt＝iｎｔCoｕnt＋1'计数IfＶaｌ(txtAnｓwer.Tｅxt)=inｔNｕmThen'猜对lｂlComment.Caｐtion＝＂猜对了！你一共猜了"＆ｉntCoｕnt＆＂次"lｂｌNｕｍ．Caｐｔiｏn＝intNuｍElseIfVal(txｔAnsｗer.Ｔext)>intＮumＴheｎlbｌCoｍmｅｎt.Captiｏn＝＂太大了!＂ＥlselbｌＣomment.Ｃaptｉｏn="太小了！"EndIｆEndSubＰrivatｅSubＦoｒm_Load()RａndomｉzeinｔNum=Int(Ｒnd*１０00＋1)EｎdSｕbB编写一个判断闰年的程序。判断平年、闰年方法：凡是能被4整除但不能被100整除的年份为闰年,如１980年；凡是能被400整除的年份为闰年,如2023年;除以上两种情况以外的其余年份都是平年。PｒｉvatｅSuｂCommanｄ1＿Clicｋ(）DｉmintYearAｓInｔeger＇用于存放年份ｉnｔＹear＝InpｕtBｏx("请输入年份＂）IfｉntYｅarＭod4０0=0Or(iｎｔYearMod4=０AndintYｅarMod100<＞0)TｈenMsgBｏxiｎｔYeａr＆"年是闰年"EｌseMｓgＢoxｉｎtYear&"年是平年"EnｄIfEndSuｂＢ编写一个列表框应用程序,程序界面如图5所示。设“添加”、“删除”和“修改”按钮的名称定义为cmdAｄｄ、cmｄＤel和cmｄUｐdａｔe,列表框和文本框的名称为默认。规定从文本框输入姓名，然后按“添加”按钮把姓名添加到列表框中；当选择列表框中某一项时，按“删除”按钮，从列表框中删除;当选择列表框中某一项时,按“修改”按钮,把列表框中选取的项送往文本框且“修改”按钮变为“修改确认”。在文本框的内容修改好后，按“修改确认”按钮，再把文本框中修改的信息送到列表框且“修改确认”按钮变为“修改”。PｒｉｖａteSubcmｄAdｄ_Cｌｉｃｋ（)Ｌｉｓｔ1.AｄdItemTeｘt1.ＴextTｅxt1.Ｔext＝""EｎｄＳubPｒｉvａteSuｂcmdDeｌ＿Cｌick(）List１.ReｍｏｖeＩtｅmList1.ＬistIndexText1.Tｅxt=""EndSｕbPrｉvateSｕbcmｄUpdate＿Click()IｆｃmdＵpｄaｔe.Caption="修改"ThenTexｔ1.Texｔ=Ｌist１.Lｉst(Liｓt１.ＬistIndex)ｃmdUｐｄate．Caｐtion＝＂确认修改"EｌｓｅList1.Lisｔ（Lｉst1．ListIｎdｅx）=Ｔeｘt1.TｅxtcmdUｐｄaｔe.Captｉｏｎ＝"修改＂Tｅｘt1.Text＝""EndＩfEnｄSubB编写一个函数图形程序。用Pｓｅｔ方法在图形框Piｃturｅ1内绘制y＝Ｃosx在－π到π之间的图形，运营结果图7所示。设所有控件使用默认名称。Cｏnstpi=3.1415926DiｍxAsSingｌｅＰrivａｔｅSubCｏｍｍand1_Click()Picture1.DraｗＷｉdｔｈ=２Fｏrx=-piToｐｉStep０.0０1Pictｕre1.PSet(x,Cｏs（x)）NextｘＥndSuｂPriｖａteSubFｏｒm＿Load（）Ｐictｕre1.Sｃale（－４,２）-(4,-2)Picｔｕｒｅ1.Line（0，2）-(0,－2)Pictuｒe1.Line(-4,0)-（４,0)Picture１.Liｎｅ(-pi,０.１)-(-pi,0)CurreｎｔX=-pｉ:CｕrｒeｎtY=-0．2:Pictuｒe1.Pｒｉｎｔ"－π"Piｃtuｒe１．Line(-pi／2,0．1）-(-pi/2,0)Picｔure1.Lｉne(pi/2,0．１)-(pi/2,0)Ｐiｃture1．Liｎe(ｐi,0.１)-(pi，0)CurrｅntX=pi：CuｒｒentＹ=-０．2:Ｐｉctuｒe１.Prｉnt"π＂Pｉcture１．Ｌinｅ(0,1）-(0.１，1）CuｒｒeｎｔX=0.3:CurrｅntＹ＝１：Piｃture1.Print"1＂Pｉｃtuｒｅ1.Linｅ(0,-1）－(0．１,-1)CurrentX=0.３:CｕrrｅntＹ=-１:Picｔuｒe1.Print"-1"EndSubＰｒｉvaｔｅSubＣｏmｍand2＿Ｃlicｋ（)EndEndSubB编写一个键盘按键程序。对窗体的KeyDown和KeｙPress事件编程,显示按下、放开一个键时的事件发生通过,如当按下了A键时程序运营界面如图8所示。PrｉvateSｕbＦoｒm_KeyDｏwn(KeyCodｅAｓInteｇer,ShiｆｔAsＩｎtｅger)ＩfKeｙＣode<＞０ThｅｎＰrint"KｅyDown事件:KｅyCode";KeyＣode,＂Shiｆｔ:"；ＳhifｔEｎｄＩfEndSuｂＰriｖaｔｅＳubForm＿KeｙPｒesｓ(KeｙAscｉiAsＩｎｔegeｒ）Prinｔ"KｅyＰress事件：KeyＡscｉi＂;KeｙAscｉi;"按下了：";Chｒ(KeｙAscii）EndSｕbＢ编写使用ADO对象中的Conｎection对象连接SQLServｅｒ数据库的代码。PubｌicＡDＯcｎAsConneｃtionPｕblicSubMain()DiｍstrSqlServerＡsStringstrSqlＳerver="Provｉder＝ＳQLOLＥＤB;Ｓｅrｖeｒ=（ｌocal);ＵｓerID＝sａ;_Passwoｒd＝sa;Dａtaｂaｓe=XS"IfADＯｃnＩsＮoｔhinｇTｈenＳｅtＡDOcｎ=NewCｏnnecｔionＡＤOcn．OpenstrSqlSｅrｖer＇连接SQLServer数据库ＥndIfEndSubS设计一个简朴的加法程序，程序界面设计如图2所示。设第一操作数、第二操作数和计算结果文本框的名称分别定义为txｔFｉｒstNum、ｔxtSｅcoｎdNｕｍ和txtＳum,“计算”命令按钮的名称定义为cmdSｕｍ。PrivateＳｕbcmｄSum_Click()ｔxtＳum．Text=Val(ｔxtFiｒstＮum.Text)+Vａl(txtSecondNｕm.Tｅxｔ)EndSubJ假设在D盘驱动器上已建立了一个通信录文献(Ｔｘｌ.ｔxｔ）,文献中的每个记录涉及编号、用户名、电话号码和地址等４项内容。试编写一个程序，实现能按用户名查找,并在文本框中显示查找结果，如图6所示。设“查找”按钮的名称定义为ｃmdFiｎdnaｍe，查找输入名称和结果文本框的名称分别定义为txｔNａｍe和ｔxｔCoｕｎt,记录条数标签的名称定义为ｌblCouｎt。设在标准模块中已输入以下代码:TypeLxｒｉntBhＡｓInｔeger＇编号strXmAｓStｒing*8'姓名strＤhAsString*１1'电话strDzAsStｒing*3０'地址EndTｙpePublｉｃusｅｒAsLxr写出查询命令按钮cmdFindname的Ｃｌicｋ事件代码。PｒivateSｕbcmdＦiｎdname_Cｌｉck()DiｍiAsＩntｅgeｒ，intCouｎtＡsInteger,intReｃｏrｄＮumAsＩntegerDimstrＣｏｍp1AｓStr