Visual-Basic程序设计形成性考核册-参考答案

《Visual Basic程序设计》形成性考核册作业及答案（程序设计》形成性考核册作业及答案Visual Basic作业1

一、选择题、在设计应用程序时，可以查看到应用程序工程所有组成部分的窗口是（）1D、窗体设计、代码、属性、工程资源管理器窗口A BC D、窗体的事件的触发时机是（）2load B、用户单击窗体时、窗体被加载时、窗体显示之后、窗体卸载时A BC D、与传统的程序设计语言相比，最突出的特点是（）3Visual BasicC、结构化程序设计、程序开发环境、事件驱动编程机制、程序调试技术A BC D、集成开发环境的主窗口中不包括（）4VB

6.0C、标题栏、菜单栏、状态栏、工具栏A BC D、如果对象的名称为而且对象有一个属性那么在代码中引用该属性的正确格式是（）5Mytext,Text,Bo、、、（）、A text.Mytext BMytext.Text CMytext.Text DMytext*Text、下列可以激活属性窗口的操作是（）6D、用鼠标双击窗体的任何部位、执行‘工程菜单中的〃属性窗口命令A B、按、按C Ctrl+F4D F

4、假定已在窗体上画了多个控件，并有一个控件是活动的，为了在属性窗口中设置窗体的属性，7预先应执行的操作是（）A、单击窗体上没有控件的地方、单击任一个控件、不执行任何操作、双击窗A BC D体的标题栏、如果要在文本框键入字符时，只显示某个字符，如果（*）,应设置文本框的（）属性8B、、、、A CaptionB PasswordCharC TextD Char、如果想要在文本框中的内容在运行时不能编辑，需要文本框的（）属性设置为9A True.、、A LockedB MultiLineC TabStopDVisible对于定时器（）控制，设置其定时是否开启的属性是（）10Tiner C、、、、A IndexB TagC EnabledD Left、要在窗口体内显示〃使用的语句是（）11Fornl myfrm C、、A Form.caption=myfrmB Fornl.caption=myfrmC、for mI.pri ntumyfrm,ZDform.printmyfrm”、对象的性质和状态特征称为（）12C、事件、方法、属性、类A BC D、下列正确的赋值语句是（）13B、、、、A x+y=20B y=x+20C3x=y Ds=、当使用上下文相关的帮助时，选择要帮助的内容，然后按（）键，就可出现窗口直14D MSDN接显示所需的帮助信息、、、、A HelpB F10C EseD Fl、将调试通过的工程经文件〃菜单的生成文件编绎成名后，将该可执行文件放到

15.exe.exe

8、以下的属性和方法中，可重定义坐标系的是C属性属性属性A.Drawstyle B.DrawWidth C.Scale D.ScaleMode

9、当用Line方法画直线后，当前坐标在C直线起点直线终点容器的中心A.0,0B.C.D.、将在窗体画一直线10Line200,200-Step500,500C到到A.200,200500,500B.200,200300,300到至C.200,200700,700D.300,3004500,

50011、设置对象的边框类型的属性是BA.Drawstyle B.Borderstyle C.DrawWidth D.ScaleMode

12、为了清除图片框Picturel中的图形，应采取的正确方法是B选择图片框，然后按键A.DelB.执行语句Picturel.picture=LoadPictureCwz执行语句C.Picturel.picture=选择图片框，在属性窗口中选择属性条，然后按回车键D.Picture

13、绘制多种形状的图形，需要设置Shape控件的A属性A.Shape B.Borderstyle C.FillStyle D.Style

14、绘制多种形状的直线，需要设置Line控件的B属性A.Shape B.Borderstyle C.FillStyle D.Style、如果准备读文件，打.开顺序文件〃的正确语句是157ext.dat CA.open utext.datz,for writeAs#1B.open text.dat forBinary As#1C.open text.dat forInput As#1D.open text.dat forRandom As#

116、如果准备向随机文件中写入数据，正确的语句是CA.Print#1,rec B.Write#1,rec C.Put#1,rec D.Get#1,rec

17、下歹『CommandDialogl”控件程序代码，CommandDialogl.Action=l,代表B文件另存为打开文件色彩打印A.B.C.D.

18、FileFilter.Pattern=,,*.bar程序代码执行后，会显示A只包含扩展文件名为的文件第一个文件A batBo bat包含所有的文件会显示磁盘的路径C.Do

19、下列数据对象模型中采用OLE DB访问数据库的是C和A.DAO B.RDO C.ADO D.RDO ADO

20.设ADOrs为Recordset对象，从学生基本情况表〃中获取所有记录的语句是B学生基本情况表A.ADOrs.New Select*From学生基本情况表”B.ADOrs.Open Select*From学生基本情况表”C.ADOrs.Execute Select*From学生基本情况表〃D.ADOrs.Select Select*From

21、VB中将变量xl声明为Excel应用程序对象的方法是AA.Dim xlAs Excel.Application B.Dim xlAs Excel.WorkbookC.Dim xlAs Excel.Worksheet D.Dim xlAs Excel.Worksheets

二、填空题、如果要新建一个顺序文件，用语句时，操作方式关键词是1Open output在程序中实现复制文件到盘根目录下的语句为

2.Visual BasicC\command.com”D:filecopy〃c:\command.com,d:\在程序中实现删除文件的语句为—

3.Visual Basic“D:\tem.tmp”kill d:\tem.tmp”.按文件号为打开顺序文件用于写入数据，语句41SEQNEW.DAT,为open“SEQNEW.DAT foroutput as#

1.按文件号为打开顺序文件用于从该文件读出数据,语句为52SEQOLD.DAT,open,,SEQOLD.DAT,,for inputas#2,若窗体的左上角坐标为右下角坐标为则轴的正向向右，轴的正向向6-200,250,300,-150,X Y上一属性设置为时，图像框可自动改变大小以适应其中的图形.

6.Stretch_false_,在图片框中画一个左上角在边长为的红色实心正方形的语句为8Picturel500,500,500_picturel.line500,500-step500,500,vbred,BF°,设「执彳亍指令〃〃9CurrentX=50,Cur entY=100,line100,20-Step300,500jH,Current=_400,520_.,使用模型时,可通过属性建立和对象的连接.10ADO_ActiveConnect_Recordset Connection中将数据库分为本地数据库、远程数据库和—外部数据库—三种类型.

11.VB.采用模型时，当使用方法打开一个记录集后，与学号〃等效的语12ADO OpenADOrs.Fields句是符号_AD0rs”模型中一般可通过对象的方法执行—增加_、—删除_、—修改—等

13.ADO ConnectionExecute三类不返回结果集的语句.SQL.设、为字符串变量，其中的值为〃那么执行赋值语句14StrSQL StrlStrl001”,StrSQL=Select*from学号=〃+〃〃饵,的值等于「学号Tabell WhereStrl+StrSQL select.*from tabellwhere.在中，将称为外部数据库,称为—本地数据库称为—远程数据15VB FoxproAccess SQL Server库

三、程序设计题、在窗体上建立一个驱动器列表框、目录列表框、文件列表框、图片框要求程序运行后，驱动1器列表框Drivel的默认驱动器设置为C盘，选择Filel中所列的确图片文件*,Bmp和*.jpg,则相应的图片显示在图片框中程序运行结果如图所示Picturel10解:依据图设计界面,文件列表框的属性设置为:10pattern*.Bmp;*Jpg驱动器列表框的事件中添加如下代码changechdrive drivel.drived ir

1.pa th=d ri ve

1.d rive目录列表框的事件中添加如下代码changechdir dirl.pathfilel.path=dirl.path文件列表框的事件中添加如下代码clickpicturel.picture=loadpicture filel.filename余弦曲线的方程为画出从到的确余弦曲线，并在坐标轴上标出刻度，如图所

2.y=cosx,x-2211示如图窗体的单击事件中添加如下代码Forml.scale-2*

3.14159,1-2*

3.14159,-1Forml.line-2*

3.14159,0-2*

3.14159,0Forml.line0,1-0,-1Forml.currentx=

0.2forml.currentY=-

0.1:print0〃Forml.currentx=-

3.2forml.currentY=-

0.1:print-pi〃Forml.currentx=

3.3forml.currentY=-

0.1:print”pi〃〃Forml.currentx=-

6.2forml.currentY=-

0.1:print-2pi Forml.currentx=

5.7forml.currentY=-O.l:print2pi”Forml.currentx=

0.2forml.currentY=

0.5:print

0.5”〃Forml.currentx=

0.2forml.currentY=-

0.5:print”-

0.5For I=-

6.282to

6.282step

0.08Forml.psetI,cosINext I使用控件显示直线，并且可以显示直线的线宽和线型,程序运行界面如图所示.3,Line12如图添加代码如下复选框的单击事件代码If checkl.value=1thenLinel.border width=4ElseLinel.border width=1End if实线、虚线、单选框要弄成一个单选框控件数组单选框单击事件代码optionlSelect caseindexCase0Linel.borderstyle=1Case1Linel.borderstyle=2Case2Linel.borderstyle=3End select.使用控件显示几种图形，并可以设置图形的边框和填充效果等.程序运行界面如图所4Shape13示.首先按图作出程序界面形状框架里的单选框要做成控件数组，边框类型框架里的单选框optionl最成控件数组，填充风格框架里的单选做成控件数组option2option3单击事件代码如下Option1Select caseindexCase0Shapel.shape=0Case1Shapel.shape=1Case2Shapel.shape=3Case3Shapel.shape=4End select单击事件代码如下Option2Select caseindexCase0Shapel.borderstyle=0Case1Shapel.borderstyle=2Case2Shapel.borderstyle=1Case3Shapel.borderstyle=3Case4Shapel.borderstyle=4End select单击事件代码如下Option3Select caseindexCase0Shapel.fillstyle=1Case1Shapel.fillstyle=1Case2Shapel.fillstyle=3Case3Shapel.fillstyle=6End select,使用或建立名称为〃学生的数据库,并在其中创建的数据库表，其5SQLServerAccess students”结构及初始记录如表所示,使用对象和控件设计数据库列表显示程序.程序的1ADO MSFIexGrid设计界面和运行结果如图、图所示1415表1学号姓名专业张红软件专业2004001李强会计专业2004003王丽软件专业2004002声名对象变量用于创建与数据库的连接ADOcn,Private ADOcnAs connectionReadfromtablePrivatesub readfromtableDimstrtmp AsstringDim ADOrsAs newrecordsetADOrs.activeconnection=ADOcn学号ADOrs.open select*from studentsorder byMSFIexgridl.clearMSFIexgridl.rows=0MSFIexgridl.cols=3学号〃+姓名〃专业”Strtmp=vbtab++vbtab+”MSFIexgridl.additem strtmpDo while notADOrs.eofStrtmp=ADOrs”学号+vbtab+ADOrs姓名+vbtab+ADOrs专业MSFIexgridl.addttem strtmpADOrsmovenextLoopMSFIexgrid

1.fixedcols=0MSFIexgrid

1.fixedrows=1End subPrivate sub form_loadDim strDB As stringstrDB=,zprovider=SQLOLEDB;LSF;User ID=sa;password=;database=学生”if ADOcnis nothingthensetADOcn=new connectionADOcn.open strDBEnd ifReadfrom tableEndsubPrivatesubcommandl_clickUnload meEndsub作业4

一、选择题、语句的含义是（）1WinsockServer.LocalPort=10001A、设置侦听端口、设置计算机地址、设置中断地址、设置通讯协议A BIP C D、当控件处于关闭状态时，其属性的值是（）2Winsock StateB、、、、A1B0C2D

6、相对于协议而言，协议是一种（）3UDP TCPA、面向连接的协议、无连接协议、计算机间不建立连接、适用于传送少量数据A BC D、程序中通常不会产生错误提示的（）4VB D、编译错误、实时错误、运行时错误、逻辑错误A BC D、程序的编译错误一般可通过集成环境的何种设置，自动检测（）5VB VBB、要求变量声明、自动语法检测、自动显示快速信息量、根本无法自动检测A BC D、程序中设置断点的按键是（）6VB C、键、键、键、键A F5B F6C F9D F

10、语句中，的含义是（）7On ErrorGo ToErrLB ErrLBA、行标识号、过程名、过程名、错误号A BSUB CFUNCTION D、对象中，用来表示错误描述的属性是（）8Err B、、、、A ErrNoB DescriptionC NumberD Source

二、填空题、使用控件时，一旦有数据到达，将首先触发该控件的事件而如果要发1Winsock DataArrival送数据，则通常使用该控件的方法senddata、控件主要用来编制或基于经协议的通话程序2Winsock TCP/IP UDP、文件的后缀是3ActiveXEX exe、对象有两种类型接口，即标准接口和用户接口4COM、如果希望得到本地计算机的地址，可以使用控件的并属性5IP Winsocklocal、控件的属性返回接受到的数据，通常使用方法来获取这些数6Winsock BytesReceivedgetdata据了、语句的含义是使服务程序处于侦听状态等待客户访问7Winsockl.Listen、常用中的网络编程控件主要有、三种8VB WinsockInternet TransferWebBrowser、中的程序错误类型主要有编译错误、逻辑错误、实时错误等三种9VB、中用于关闭错误捕获机制的语句是

三、问答题10VB onerror goto

0、简述基于的通信过程1Socket在计算机提供了一个通信端口，可以通过这个端口与任何一个也同时具有接口的Socket Socket计算机进行通信，应用程序在网络上传输、接收的信息都通过这个接口实现，只需要对Socket接口进行数据的读写操作就可以了Socket、简要设计错误处理程序的个步骤23捕捉错误，并强制程序跳转1编写错误处理程序，对所有可预见的错误作出反应2退出错误处理程序

3、简述常用的程序调式技巧3事先做好备份12分离受怀疑的程序3缩小搜索范围使用语句、简述基于控件的开发模式4MSGBOX4Winsock1服务器程序的开发模式服务器程序必须设置好作为侦听端口，该值可设置成任意一个整数，只要其他应A LOCALPORT,用和谐没有使用过的值均可，但习惯上应大于1000使用方法使用服务器进入侦听状态，等待客户机程序的连接请求B LISTRN客户机程序发出连接请求后，将触发服务器程序的事件，该事件得到C CONNECTIONREQUEST一个参数REQUESTIDO服务器程序使用方法接受客户机程序的请求，至此，服务器程序就可以D ACCEPTREQUESTID使用方法向客户机发送数据了此时应特别注意两点一是方法必须用到上SRNDDATA ACCEPT一步的作为其参数；二是在执行方法前，服务器仍处于侦听状态，此时应首REQUESTID ACCEPT先使用方法关闭服务器，然后再调用方法CLOSE ACCEPT当服务器程序接收到数据时，会产生事件在该事件中可以使用方E DATAARRIVALGETDATA法接收数据客户机程序的开发模式2客户程序首先应设置好属性，用来指向运行器程序的主机名或地址A REMOTEHOSTIP设置属性，用来指向服务器程序和侦听端口号B REMOTEPORT使用方法向服务器提出连接请求C CONNECT如果服务器接受上述连接请求，客户机程序会产生事件可以根据需要，在此事件D CONNECT中编写程序，比如使用函数向用户提示连接已成功〃之类的信息、MSGBOXE连接成功之后，就可以根据需要使用SENDDATA方法向服务器发送数据了F当客户机程序接收到数据时，会产生DATAARRIVAL事件，可以用GETDATA方法接收数据

四、程序设计题、利用冒泡排序算法开发以下程序，请指出程序中存在的错误并改正1Private SubCommandl_ClickDim A1To20As Integer此处有错，应为Dim c,j,T AsInteger Dimc,j,T asinteger随机生成一组数据For c=1To20Ac=IntRnd*100Next c排序For c=1To20For j=c+1To20IF AcA j ThenT=AjAj=A c此处有错，应为实现Aj=T A C=T,和的交换End IfA CA JNextNext在窗体上输出结果CisFor c=1To20此处有错，应为下标越界.Print AiAC.Next c、利用控件开发一个点对点聊天系统，该系统由一个服务器应用程序和一个客End Sub2Winsock户端应用程序组成，能够实现网络中两台计算机间的通话任务解如下界面的设计中，若不说明，各对象均采用默认的名称服务器程序的界面设计、创建一个标准工程选中工程〃菜单的部件〃选项，在控件中找到1EXE”Microsoft Winsock并将其选中如果没有找到，通常是由于安装不安全的缘故，可以找到安装盘并安装Control VB其中的压缩包Mswinsck.cad、将的名称改为并在其中添加一个命令按钮控件，将其属性修改为退出〃2forml frmSvr,Caption、在窗体上添加三个添加控件，分别将其名称修改为和3TextBox txtServerIP,txtSend txtReceive,用来显示服务器的地址和需收发的信息IP、在窗体上添加一个控件，将其名称改为将协议属性设置为4Winsock WinsockServer,Protocol即0sckTCPProtocol各控件及事件代码如下Private SubCommandl_ClickUnload MeEnd SubPrivate Sub Form_Loadtxtreceive.Text=txtsend.Text=nWinsockserver.Local Port=10001txtserverip.Text=Winsockserver.LocallPWinsockserver.ListenEnd SubPrivate Sub txtsend_ChangeWinsockserver.SendData txtsend.TextEnd SubPrivate Sub Winsockserver_ConnectionRequestByVal requestIDAs LongWinsockserver.CloseWinsockserver.Accept requestIDEnd SubPrivate SubWinsockserver_DataArrivalByVal bytesTotalAs LongDim mystr As StringWinsockserver.GetData mystrtxtreceive.Text=mystrEnd Sub客户机程序的界面设计、与服务器程序类似，创建一个新的标准工程，并添加控件1EXE”Winsock、将的名称改为并添加两个命令按钮控件，分别将它们的属性设置为退2forml frmCIt,Caption出〃和连接聊天服务器〃、在窗体添加四个文本框控件，分别将其名修改为和3txtClientIP,txtSenerIP,txtsend txtReceive,用来显示客户机和要连接的服务器的地址以及需收发的信息IP、在窗体上添加一个控件，将其名称改为将协议属性设置为即4Winsock WinsockClient,0sckTCPProtocol各控件及事件代码如下Private SubCommandl_ClickUnload MeEndSubPrivate SubCommand2_ClickWinsockclient.RemoteHost=txtserverlP.TextWinsockclient.ConnectEnd SubPrivate SubForm_Loadtxtreceive.Text=txtsend.Text=Winsockclient.RemotePort=10001txtclientIP.Text=Winsockclient.LocallPEnd SubPrivate Sub txtsend_ChangeWinsockclient.SendData txtsend.TextEnd SubPrivate Sub Winsockciient_Connect”你成功地与聊天室服务器进行了联接，MsgBox vblnformationEndSubPrivate SubWinsockclient_DataArrivaIByVaI bytesTotalAs LongDimmystrAs StringWinsockclient.GetData mystrtxtreceive.Text=mystrEnd Sub其它机器上不能运行的主要原因是D、运行的机器上无系统、缺少窗体文件、该执行文件有病毒、以上原A VBB.frmCD因都不对

二、填空题、当进入集成开发环境后，发现没有显示工具箱〃窗口应选择视图菜单的工1VB具箱选项，使工具箱窗口显示、在中，事件过程名由对象名和事件名构成2VB、工程文件的扩展名是窗体文件扩展名是3vbp,frm、对象时代码和数据的集合，例如，中的窗体、按钮、文本框等都是对象4Visual Basic、对象的方法用于实施某种操作功能当方法不需要任何参数并且也没有返回值，调用对象的方5法的格式为对象名.方法名例如对窗体使用方法，应写Forml Show成form

1.show、要使文本框显示滚动条，需要将其属性设置为6ScrollBars

3、欲设置定时的时间间隔为秒，则属性的值为74Interval

4000、要使标签框的大小随属性做自动调整，应将属性设置为8Caption AutoSizeTrue、通过窗体布局窗口可以在设计时直观地调整窗体在屏幕的位置

9、要想在代码中给名为的文框赋予文本时，应当编写的语句是10txtshow GOODWORK!txtshow.text=,z GOODWORK!,z、若命令按钮的名称为程序要求单击以上命令按钮，打开一个窗口请对以下事11Cmdopen,frml,件过程填空Private SubCmdopen clickFrm

1.showEnd Sud、事件就是对象上所发生的事情，中的事件如单击、装入、鼠标移动等一个对象12Visual Basic响应的事件可以有多个，用户不能建立新的事件事件过程是指响应某个事件后所执行的代码假设某一事件过程如下PrivateSubcmdl_ClickForml.Caption=,VB示例”EndSub则响应过程的对象名是,事件名是cmdl Click、对象的方法用于在对象上实施某种操作功能当方法不需要任何参数并且也没有返回值,调用13，对象的方法格式为对象名,方法名例如，对窗体使用方法，应写成Forml ShowForml.Show、为了在编写代码时能自动语法检查，必须执行工具菜单中的选项命令，打开选项对话框，14然后选择编辑器〃选项卡中的自动语法检测

15、定时器Timer控件可识别的事件是Timer,了生该事件的时间间隔定时由定时器的Interval属性设置，其单位为毫秒

二、问答题、什么是可视化编程和事件驱动？1答可视化编程是指无须编程，仅通过直观的操作方式即可完成界面的设计工作的这种编程方式当的应用程序运行后，系统处于等待状态，当某个事件发生后，程序就去执行此事件的事件过VB程，当这个事件过程执行完后，系统又处于等待另一个事件发生的状态，这就是事件驱动程序方式、对象、属性、事件和文件之间的关系如何？2答对象是代码和数据的封装体对象的操作通过与该对象有关的属性、事件、方法来描述属性是一个对象的基本特性，每个对象都有它自己的属性方法是对象要执行的动作事件是在对象上所发生的事情、简述事件驱动机制与传统编程方式的不同3答传统的面向过程的应用程序中，应用程序自身控制了执行那一部分代码按何种顺序执行代码，程序从第一行代码开始执行并按应用程序中预定的路径执行，用户无法改变程序的执行流程而事件驱动机制则由用户来决定执行的路线这就是两者的不同、简述事件驱动的工作过程4答事件驱动的工作过程如下1启动应用程序，装载和显示窗体2窗体或窗体上的控件等待事件的发生3当某个事件发生后，执行其对应的事件过程代码4重复执行2和3,直到遇到语句或单击结束〃按钮停止程序的运行END

四、程序设计题、在窗体上添加一个文本框和两个命令按钮，并把两个命令按钮的标题分别设置为隐藏文本框〃1和显示文本框〃当单击第一个命令按钮时，文本框消失；而当单击第二个命令按钮时，文本框重新出现，并在文本框中显示、程序设计〃字体大小为程序运行界面如图所示图VB161解「隐藏文本框〃按钮中的代码为Textl.Visible=False显示文本框〃按钮中的代码为Textl.Visible=True程序设计”Textl.Text=B〃〃Textl.FontSize=

16、设计一个计算程序该程序用户界面如图所示，由四个文本框文本框、文本框、221textl2text2文本框＞文本框和三个按钮:命令按钮、命令按钮3text34text4,1command2command＞命令按钮组成程序运行后，用户按清除按钮，则清除文本框中显示的内容，按3commands计算按钮，则计算三科平均成绩单击退出按钮则退出解中的代码为〃〃〃〃〃commandl textl=text2=J text3=J text4=中的代码为command2text4=valTextl+valText2+valText3/3中的代码为command2End、编写一收款计算程序要求用户输入商品的单价〃、数量〃和折扣〃后，单击计算〃3按钮显示应付款〃，单击清除〃按钮，清除文本框中所有的数据程序运行界面如图所示3答\计算〃按钮的代码text4=valTextl*valText2*valText3/100”清除〃按钮的代码〃〃〃textl=J text2=J text3=J text4=”作业2

一、选择题按照变量的作用域可将变量划分为

1.B、公有、私有、系统、全局变量、模块级变量、过程变量A B、动态、常数、静态、、＞CDPublic PrivateProtected,可获得字符的码的函数是2ASCII Co、、、、A VaiB FixC AscD Chr、要退出循环，可使用的语句的语句3Do.…Loop D、、、A ExitB ExitFor CEnd DoD ExitDo

4.把数值型转换为字符串型需要使用的函数是B o、、、、A VaiB StrC AscD Chr•关于语句行，下列说法正确的是5B一行只能写一条语句一条语句可以分多行书写A.B.每行的首字符必须大写长度不能超过个字符C.D.255表达式的值是

6.6+10Mod4*2+1A.A.9B.11C.1D.

3.以下可以作为变量名的是7Visual BasicB.A.SIN B.CO1C.COSX D.X-l8,表达式Abs-5+Len、ABCDE〃的值为C.A.5ABCDE B.-5ABCDE C.10D.O.在代码编辑器中，如果一条语句太长，无法在一行内写下不包括注释，要折行书写，可以在9行末使用续行字符A,表示下一行是当前行的继续.一个空格加一个下划字符_一个下划字符_A.B.直接回车一个空格加一个字符一C.D.过程与过程最根本的区别是lO.Sub FunctionD.过程可以使用语句或直接使用过程名调用，而过程不可以.A.Sub CallFunction过程可以有参数，过程不可以.B.Function Sub两种过程参数的传递方式不同.C.过程的过程名不能返回值，而过程能够通过过程名返回值.D.Sub FunctionIL”X是小于80的非负数”，用VB表达式表示正确的是C.A..0X80B.0=X80C.0=x andx80D.0=x Orx

80.在设计菜单时，如果要在菜单中加入一个菜单分隔条，则菜单分隔条的标题必须设置为12B,加号+.减号-星号*.感叹号⑴A BC.D.如果要在程序中显示一个弹出式菜单，那么要调用中提供的方法是13Visual BasicD.A.Print B.Move C.Refresh D.PopupMenu,下列可以用来存储图像供其他对象使用的控件是14C.A.ToolBar B.StatursBar C.ImageList D.TreeView.当单击工具拦上的按扭时，会触发的事件是15A.A.ButtonClick B.Change C.Load D.KeyPress.要利用公用对话框控件来显示〃打开文件〃对话框，需要调用控件的方法.16BA.ShowPrinter B.ShowOpen C.ShowSave D.ShowColor.对于窗体级变量,下列说法中错误的是17C.•所在窗体的各子程序都可以访问A其他窗体的子程序不能访问B..所在窗体发子程序不能访问用定义的窗体级变量C Private一定要在所在窗体的通用区内定义D..从一个字符串中的第个字符开始，获取个字符，应使用1835B函数函数函数函数A.Len B.Mid C.Left D.Right.用下面的语句所定义的数组的元素的个数是19D.DimA-3To5As IntegerA.6B.7C.8D.9•有如下程序段20Dim strlAsString*5Strl=,zVisual Basic当该段程序被执行完时，变量的值为strl B.A/Visualz,B/Visua C.WD/Visual Basic

二、填空题菜单一般有一下拉式_和一弹出式—两种基本类型

1.通用对话框控件可显示的常用对话框有—打开_、.保存_、—颜色_、—字体_、_打印

2.组合框具有—文本框—和—列表框—两种控件的基本功能

3.要使数组的默认下标从开始，则应在窗体或标准模块代码的声明部分使用语句

4.”1—Option Basel_o调用过程时，使用语句，语句用于把程序控制传送到一个的过程

5.Sub_call_Visual BasicSub若已建立了和两个窗体，默认启动窗体为通过—工程—菜单一属性—命

6.Forml Form2Forml令的一通用_选项卡，可将启动窗体设置为在程序中若要显示窗体，则执行Form2Forml_Form语句

1.show_列表框中项目的序号是从开始的

7._0_过程与过程最根本的区别是过程名无返回值,过程名有返回值

8.Sub Function_Sub Function的代码存储在模块中在中提供了三种类型的模块_类模块_、.窗体模块—和—标准

9.VB VB模块.使用方法会隐藏被调用的窗体，但是在调用方法之后不会把窗体—卸载被调用的窗10Hide Hide体中的属性等已处于—内存中将下列数学式子写成表达式

11.VisualBasic答12*cosa*sina/2*a⑵答sqrs*s-a*s-b*s-c3sin45°:sin45*2*

3.1415/360_.将下列数学式子各条件写成逻辑表达式12VisualBasicllx12:l=x andx12或2A+BC a-cc:A+B=C ORa-c=c和者为正整数或同为负数3a bK a=0and b=0or a=0and b=0设表达式的值为

13.A=2,B=3,C=4,D=5o NotA=C Or4*B^2And BvA+C_False_在语言中有三种形式的循环结构其中，若循环的次数可以事先确定，可使用

14.Visual Basic循环；若要求先判断循环进行的条件，可使用循环或__For…next__Do while…loop_while…Wend_循环以下语句的输出结果是

15._3_a%=

3.14159Print a%

三、阅读下列程序，写出程序运行结果、1PrivateSubForm_ClickStatic SumAs IntegerFor1=1to100Sum=Sum+INext IEndSub程序运行结果为・・・・・1+2+..+99+100=

5050、2private SubForm_ClickA=10:b=15:c=20:d=25Print A;Spc5;b;Spc7;cPrint A;Spc8;b;Space$5;cPrint c;Spc3;/z+,z;Spc3;c+dEnd Sub个空格个空格10515720个空格个空格10815520三个空格+三个空格

2045、3PrivateSubForm_clickFor i%=1to3Forj%=1to i〃〃Print LTrimStri%+”*+L TrimStrj%+”=;i%*j%;Next j%PrintNext i%EndSub1*1=12*1=22*2=

4、3*1=33*2=63*3=94PrivateSubCommandl_ClickDim a,b AsIntegerA=

3.4B=

3.4Textl.Text=aText2,Text=bEnd Sub显示、Textl34显示Text

23、5PrivateSubForm_ClickFor I=1to5Print Tab11-IForJ=1TOI*2-1〃Print”*;NextNext iEndSub****zTsZTS TsXTS

四、程序设计题、购物优惠程序某商场为了加速促成商品流通，采用购物打折的优惠办法，每位顾客一次购物11在100元以上者，按九五折优惠；2在200元以上者，按九折优惠；3300元以上者，按八折优惠；4500元以上者按七折优惠在窗体上添加两个文本框和一个命令按钮，要求在Textl中输入购物商品总金额，单击命令按钮，在中输入优惠后的价格程序运行结果如图解所示Text2If Valtextl=500then text2=Valtextl*

0.7Else ifValtextl=300then text2=Valtextl*

0.85Else ifValtextl=200then text2=valtextl*

0.9Else ifvaltextl=100then text2=valtextl*

0.95Endif、输出〜之间不能被整除的的数，要求用语句的一种形式来实现，程序运行结果21002003Do如图所示5窗体的装入事件中加入如下代码Dim aas integerA=100Dowhilea=200If amod30thenListl.additen straEndifA=a+1loop、编写程序，打印如下的乘积表3Dim I,j asinteger〃〃PHnt*:space5:For i=3to12step3Print stri;space5;Next iPrintForI=15tol8Print stri;space3;For j=3to12step3Print stri*j;space4;Next jPrint、设计一个计算程序该程序用户界面如图所示要求程序运行后，用户选中单击选按Next j47钮,则程序作和的相应计算，并把计算结果在文本框中显示出来如用户选中加法单选按钮,102则程序作和的相加，计算结果在文本框中显示出来按结束，则退出10212乘法单选按钮的单击事件中添加如下代码Textl=10*2除法单选按钮中添加如下代码Textl=10/2加法单选按钮中添加如下代码Textl=10+2减法单选按钮中添加如下代码textl=10-2结束按钮中代码或end unloadme、编写输入一个数字，显示汉字对照输出星期的过程程序运行结果如图所50~6Function8zj\O文本框的事件中代码如下changeSelect casevaltextlCase0星期天〃+〃Labell.caption-chr13+”SundayCase1〃星期一〃+〃Labell.caption=chr13+monday”Case2星期二Labell.caption=+chr13+TuesdayCase3〃星期三〃+〃Labell.caption=chr13+Wednesday”Case4〃星期四〃+〃〃Labell.caption=chr13+thursdayCase5星期五Labell.caption=+chr13+”firday”Case6星期六Labell.caption=+chr13+”saturday”End select、编写一个程序，当鼠标移到控件时，鼠标指针改变形状；当在控件上单击鼠6Picturel Picturel标右键时，通过消息框显示并再次改变鼠标指针的形状You pressed right button”,Picturel_mouseupIf button=2then1=1Msgbox youpressedrightbuttonEnd ifEndsub、列表框应用程序要求从文本框中输入姓名，然后按添加〃按钮，把姓名添加到列表框中；当7选择列表框中某一项时，按删除〃按钮，从列表框中删除；当列表框中某一项时，按修改〃按钮，把列表框中选取的项送往文本框且修改〃按钮变为”修改确认〃在文本框的内容修改好后，按修改确认〃按钮，再把文本框中修改后的信息送到列表框且修改确认〃按钮变为修改〃程序运行结果如图所示9添加按钮代码listl.additem textl.textTextl.text=删除〃if listl.textv thenList

1.removeitem=listl.listi ndexEndif修改修改If command

3.caption=thenTextl.text=listl.text〃修改确认“Command

3.caption=Else修改确认If command

3.caption=thenListl.list=listl.listindex=textl.text〃修改”Command

3.caption=End ifEndif作业3

一、选择题、根据计算机访问文件的方式将文件分成三类，其中不包括（）1Visible BasicB顺序文件文件二进制文件随机文件A.B.Unix C.D.、随机文件进行文件读取的单位是（）2B字节记录整个文件字符A.Bo CoDo、为了使目录路径列表框的内容符合驱动器列表框的选择，应当（）3Dirl DrivelB在事件中加入A.Dirl_Click Dirl.Path=Drivel.Drive在事件中加入B.Drivel_Click Dirl.Path=Drivel.Drive在事件中加入C.Dirl_Click Drivel.Path=Dirl.Drive在事件中加入D.Dirl_Click Drivel.Path=Dirl.Drive、为了使驱动器列表框、目录路径列表框和文件列表框能同步协调工作，需要在4drivel dirlfilel（）B的事件过程中加入在的事件过程中加入A.drivel Changedrivel.Drive=dirl.Path,dirl Change代码dirl.Path=filel.Path的事件过程中加入在的事件过程中加B.drivel Changedirl.Path=drivel.Drive,dirl Change入代码filel.Path=dirl.Path的事件过程中加入在的事件过程中加C.dirl Changedirl.Path=drivel.Drive,filel ClickA filel.Path代码=filel.fileName的事件过程中加入在的事件过程中加入D.dirl Changedirl.Path=drivel.Drive,filel Clickfilel.Path代码=dirl.Path、下面关于顺序文件的描述正确的是（）5A每条记录的长度必须相同A.可通过编程对文件中的某条记录方便地修改B.数据只能以码形式存放在文件中，所以可通过文本编辑软件显示C.ASCII文件的组织结构复杂D.、语句在语言中的功能是（）6KILL VBC清内存清病毒删除磁盘上的文件清屏幕A.Bo CoDo、可用来改变坐标度量单位的是（）7D属性属性方法属性A.Drawstyle B.DrawWidth C.Scale D.ScaleMode。