电大《VisualBasic程序设计》形考作业任务01-06网考试题和答案.doc

最新电大VisualBasic程序设计形考作业任务01-06网考试题及答案100%通过考试说明：VisualBasic程序设计形考共有6个任务。任务1至任务2是客观题，其它为主观题。任务1至任务6需在考试中多次抽取试卷，直到出现01任务_0001、02任务_0001、03任务_0001、04任务_0004、05任务_0001、06任务_0001试卷，就可以按照该套试卷答案答题。做考题时，利用本文档中的查找工具，把考题中的关键字输到查找工具的查找内容框内，就可迅速查找到该题答案。本文库还有其他教学考一体化答案，敬请查看。01任务01任务_0001一、单项选择题（共25道试题，共50分。）1.启动VB后，就意味着要建立一个新（）。A.窗体B.程序C.文件D.工程2.应用程序打包后，其包文件的后缀为（）。A.exeB.cabC.txtD.ocx3.当一个工程中含有多个窗体时，其中的启动窗体是（）。A.启动VB时创建的第一个窗体B.第一个添加的窗体C.最后一个添加的窗体D.在“工程属性”对话框中指定的窗体4.下列说法中错误的是（）。A.应用程序的界面是窗体B.应用程序的界面是对象C.每个应用程序都要生成一个工程D.一个应用程序由若干个VisualBasic文件组成5.每建立一个窗体，工程管理器窗口中就会增加一个（）。A.工程文件B.窗体文件C.标准模块文件D.类模块文件6.当运行程序时，系统自动执行启动窗体的（）事件过程。A.LoadB.ClickC.UnloadD.GotFocus7.VB集成开发环境中，提供控件的窗口是（）。A.工具栏B.工具箱C.属性窗口D.工程管理器8.确定一个窗体或控件的大小的属性是（）。A.Top或LoftB.Top和LoftC.Width或HeightD.Width和Height9.下列关于窗体的说法不正确的是（）。A.窗体的标题由Caption属性确定B.窗体的Name属性与Caption属性相同C.窗体的背景图片由其Picture属性设定D.通过设置Icon属性可使窗体获得最小花时的图标10.在VB中，要想快速获得某个相关控件或语句的帮助信息，一般可首先选中该控件或语句，然后按的键是（）A.HelpB.F1C.F10D.Enter11.下列关于属性设置的叙述错误的是（）。A.一个控件具有什么属性是VisualBasic预先设计好的，用户不能改变B.一个控件具有什么属性是VisualBasic预先设计好的，用户可以改变C.一个控件的属性既可以在属性窗口中设置，也可以用程序代码设置D.一个控件的属性在属性窗口中设置后，还可以利用程序代码为其设置新值12.在界面设计时，双击窗体中的对象后，VisualBasic将显示的窗口是（）。A.立即窗口B.属性窗口C.代码窗口D.工程资源管理器窗口13.当使用上下文相关的帮助时，选择要帮助的内容，然后按（）键，就可出现MSDN窗口直接显示所需的帮助信息。A.HelpB.F10C.EscD.F114.如果想让文本框中的内容在运行时不能编辑，需将文本框的（）属性设置为True。A.LockedB.MultiLineC.TabStopD.Visible15.在VB6.0集成开发环境中，可以（）。A.编辑、调试、运行程序，但不能生成可执行文件B.编辑、生成可执行文件，运行程序，但不能调试程序C.编辑、调试、生成可执行文件，但不能运行程序D.编辑、调试、运行程序，也能生成可执行文件16.VisualBasic应用程序处于执行模式时，这时（）。A.既不能设计界面，也不能编写代码B.可以编辑代码，不能设计界面C.可以设计界面，不能编辑代码D.既能设计界面，也能编写代码17.要改变控件的宽度，应该修改控件的（）属性。A.TopB.LeftC.WidthD.Height18.Timer控件只有一个事件，该事件的名称是（）A.LoadB.TimerC.ClickD.Run19.要在命令按纽上显示图形，应首先设置的属性是（）A.EnabledB.StyleC.CaptionD.Icon20.后缀为.frm的文件表示VB的（）。A.窗体文件B.类模块文件C.工程文件D.标准类模块文件21.无论何种控件，共同具有的属性是（）A.TextB.NameC.CaptionD.ForeColor22.多窗体程序是由多个窗体组成，在缺省情况下，VB在应用程序执行时，总是把（）指定为启动窗体。A.不包含任何控件的窗体B.设计时的第一个窗体C.包含控件最多的窗体D.命名为Frm1的窗体23.要改变控件的高度，应该修改控件的（）属性。A.TopB.LeftC.WidthD.Height24.VisualBasic是一种面向对象的程序设计语言，构成对象的三要素是（）。A.属性、控件和方法B.属性、事件和方法C.窗体、控件和过程D.控件、过程和模块25.对于定时器（Timer）控件,设置其定时是否开启的属性是（）A.IndexB.TagC.EnabledD.Left二、作品题（共2道试题，共50分。）1.设计一个简单的倒计时程序，要求：（1）在文本框中输入倒计时的分钟数后，单击开始按纽就开始倒计时，倒计时结束时，弹出“时间到”的信息框。程序运行界面如图5所示：（2）将应用程序打包，并安装运行。注意：存盘时保存在以学号或姓名命名的文件夹下，工程文件名为vbxk1-05.vbp，窗体文件名为vbxk1-05.frm，文件夹名为vbxk1-05。参考答案：程序代码如下：DimttAsIntegerPrivateSubCommand1_Click()Label1.Caption=现在开始倒计时Command1.Visible=FalseTimer1.Enabled=Truett=Val(Text1)*60EndSubPrivateSubTimer1_Timer()tt=tt-1Text1=ttIftt=0Thena=MsgBox(时间到!,vbOKOnly,倒计时)Command1.Visible=TrueTimer1.Enabled=FalseEndIfEndSub2.在名称为Form1的窗体上画两个文本框，其名称分别为Text1和Text2，它们的高、宽分别为300、2400和1200、2400。窗体的标题为“窗口”。请通过属性窗口设置适当的属性满足以下要求：1）Text2可以显示多行文本，且有垂直和水平两个滚动条；2）运行时在Text1中输入的字符都显示为“*”。运行后的窗体如图1所示。注意：存盘时保存在以学号或姓名命名的文件夹下，工程文件名为vbxk1-01.vbp，窗体文件名为vbxk1-01.frm，文件夹名为vbxk1-01。参考答案：程序代码如下：PrivateSubText1_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=2ThenPopupMenuFormatEndIfEndSubPrivateSubM1_Click()Text1.FontBold=TrueEndSubPrivateSubM2_Click()Text1.FontItalic=TrueEndSubPrivateSubM3_Click()Text1.FontUnderline=TrueEndSub02任务02任务_0001一、单项选择题（共25道试题，共50分。）1.能够实现“窗体总在最前端”界面效果的API函数是（）。A.SetWindowPosB.SetWindowAPIC.SetWindowShapeD.DeclareAPI2.在窗体上画两个文本框（其Name属性分别为Text1和Tex12）和一个命令按钮（其Name属性为Command1）,然后编写如下事件过程：PrivateSubCommand1_Click()x=1:n=0DoWhilex100x=x*10n=n+1LoopText1.Text=Str(n)Text2.Text=Str(x)EndSub程序运行后，单击命令按钮，在两个文本框中显示的值分别为（）。A.10和0B.2和100C.3和50D.4和1683.下面程序段的循环结构执行后，i的输出结果是（）。Fori=1To10Step2y=y+iNextiPrintiA.25B.10C.11D.因为y的初值不知道，所以不确定4.把字符串型转换为数值型需要使用的函数是（）。A.ValB.StrC.AscD.Chr5.以下可以作为VisualBasic变量名的是（）。A.SINB.CO1C.COS（X）D.X（-1）6.可通过设置一普通窗体的何种属性，将它转变成MDI子窗体（）。A.MDIChild=TrueB.WindowState=NormalC.MDIChild=FalseD.WindowState=Maximized7.下列关于过程叙述不正确的是（）。A.过程的传值调用是将实参的具体值传递给形参B.过程的传址调用是将实参在内存的地址传递给形参C.过程的传值调用参数是单向传递的，过程的传址调用参数是双向传递的D.无论过程传值调用还是过程传址调用，参数传递都是双向的8.数学式子Sin30写成VB表达式是（）。A.Sin30B.Sin（30）C.SIN（30）D.Sin（30*3.14/180）9.“x是小于80的非负数”，用VB表达式表示正确的是（）。A.0x80B.0=x80C.0=xAndx80D.0=xOrx4x=x*yy=y+1LoopPrintxA.1B.4C.8D.2025.把数值型转换为字符串型需要使用的函数是（）。A.ValB.StrC.AscD.Chr二、作品题（共2道试题，共50分。）1.创建一个多功能计算器程序，程序运算界面如图2-6所示。要求：(1)用控件数组设计数字按钮（2）用API函数实现“总在前面效果”注意：存盘时保存在以学号或姓名命名的文件夹下，工程文件名为vbxk2-03.vbp，窗体文件名为vbxk2-03.frm，文件夹名为vbxk2-03。参考答案：程序代码如下：OptionExplicitDimi(1To100)AsIntegerPrivateSubCmd1_Click()DimjAsIntegerOpenApp.Path&in.txtForInputAs#1Forj=1To100Input#1,i(j)Text1.Text=Text1.Text&i(j)&Space(5)NextClose#1EndSubPrivateSubCmd2_Click()DimjAsIntegerDimkAsIntegerDimtempAsIntegerDimflagAsBooleanForj=1To100flag=FalseFork=1To100-jIfi(k)0ThenCommand1.Enabled=TrueText1.Text=File1.Path+File1.FileNameDimobjPicAsPictureSetobjPic=LoadPicture(Text1.Text)Picture1.Picture=objPicEndIfEndSubPrivateSubForm_Load()Drive1.Drive=d:Dir1.Path=d:Drive1.DriveDir1.RefreshFile1.Pattern=*.jpg;*.bmp;*.gif|(*.bmp,*.gif,*.jpg)File1.Path=Dir1.PathEndSubPrivateSubDrive1_Change()Dir1.Path=Drive1.DriveEndSubPrivateSubDir1_Change()File1.Path=Dir1.PathEndSub2.利用文件系统控件编写一个Word文件查找显示程序，程序运行界面如图3-2所示。要求：（1）在文件列表框中只显示后缀为.doc的文件。（2）新创建一个标准工程，并通常“工程部件”菜单项引入“MicrosoftRichTextBoxControl6.0”，将RichTextBox控件添加到工具箱中，用这个控件显示RTF格式的Word文件。（3）单击打开按钮，在文本框中显示RTF格式的Word文件。注意：存盘时保存在以学号或姓名命名的文件夹下，工程文件名为vbxk3-02.vbp，窗体文件名为vbxk3-02.frm，文件夹名为vbxk3-02。参考答案：程序代码如下：PrivateSubCommand1_Click()DimwdAppAsNewWord.ApplicationDimwdDocAsWord.DocumentDimstrFileNameAsStringwdApp.Visible=FalsestrFileName=File1.Path+File1.FileNameSetwdDoc=wdApp.Documents.Open(strFileName)wdDoc.SaveAsC:临时文件.rtf,6wdDoc.ClosewdApp.QuitRichTextBox1.FileName=C:临时文件.rtfKillc:临时文件.rtfEndSubPrivateSubDir1_Change()File1.Path=Dir1.PathEndSubPrivateSubDrive1_Change()Dir1.Path=Drive1.DriveEndSub04任务04任务_0004一、作品题（共1道试题，共100分。）1.开发一个如图4-1所示指针式时钟程序。要求：（1）要求用Shap控件、Line控件和Label控件设计表盘，用图形方法动态生成指针，用时钟控件控制时钟的转动。（2）圆形表盘在窗体的中央，其直径要求与窗体的高度和宽度相等。注意：存盘时保存在以学号或姓名命名的文件夹下，工程文件名为vbxk4-01.vbp，窗体文件名为vbxk4-02.frm，文件夹名为vbxk4-01。参考答案：程序代码如下：Constpi=3.141592653PrivateSubForm_Load()Form1.Scale(-14,14)-(14,-14)EndSubPrivateSubTimer1_Timer()DimxAsIntegerDimyAsIntegerDimsec,min,hrAsIntegersec=Second(Time)min=Minute(Time)hr=Hour(Time)Form1.ClsForm1.DrawWidth=2x=9*Sin(sec*pi/30)y=9*Cos(sec*pi/30)Form1.Line(0,0)-(x,y),vbRedForm1.DrawWidth=3x=7*Sin(min*pi/30)y=7*Cos(min*pi/30)Form1.Line(0,0)-(x,y)Form1.DrawWidth=4hr=hr+min/60x=6*Sin(hr*pi/6)y=6*Cos(hr*pi/6)Form1.Line(0,0)-(x,y)EndSub05任务05任务_0001一、作品题（共1道试题，共100分。）1.开发一个成绩查询数据库应用程序。它具有数据增加（Insert）、修改（Update）、删除（Delete）和查询（Select）功能。开发步骤及要求：准备工作建立名称为“vbxk5成绩查询”文件夹，在该文件夹下，建立“图标”文件夹，在其中存入界面设计时所用图标。开发过程中的全部文件存放在“vbxk5成绩查询”文件夹中。建立成绩查询数据库用MicrosoftAccess或SQLServer创建一个名称为“成绩”的数据库，其中包含三张数据表，即学生成绩表、学生情况表、课程情况表，如表53、表54、表55、表56所参考答案：程序代码如下：-创建数据库；createdatabasestudent;go-使用数、数据库usestudent;go-创建成绩表createtablestudentScore(stuidvarchar(10)primarykey,-学号cidvarchar(10),-课程号socrevarchar(20)-成绩)go-创建学生情况表createtablestudentStatus(stuidvarchar(10)primarykey,stuNamevarchar(20)go-创建课程情况表createtablecurriculum(cidvarchar(10),cNamevarchar(50)go-添加记录insertintostudentStatusvalues(001,张红)goinsertintostudentStatusvalues(002,李强)goinsertintostudentStatusvalues(003,王丽)goinsertintocurriculumvalues(001,数据库原理)goinsertintocurriculum.06任务06任务_0001一、作品题（共1道试题，共100分。）1.程序调试参考答案：程序代码如下：（1）根据如下所给程序代码进行程序调试PrivateSubCommand1_Click()List1.AddItemText.TextEndSub排序按钮的Click事件PrivateSubCommand2_Click()Dimi,jAsInteger定义数组，以List1的项目个数为数组维数DimstrList(List1.ListCount)AsInteger定义中间临时变量，用于数据交换DimstrTmpAsInteger将List1中的项目导入到strList数组中Fori=0ToList1.ListCountstrList(i)=List1.List(i)Nexti按“冒泡”算法完成排序工作Fori=0ToUBound(strList)Forj=i+1ToUBound(strList)IfstrList(i)strList(j)ThenstrTmp=strList(i)strList(i)=strList(j)strList(j)=strTmpEndIfNextjNexti将排序结果输出到List2中Fori=0ToUBound(strList)List2.AddItemstrList(i)NextiEndSub（2）运行程序，在Text1文本框中输入一个整数，比如1，然后点击“添加”按钮，此时会出现如图65所示的错误提示。（3）点击“调试”按钮，进入中断模式，VB编译器将自动标识出引发错误的语句行。（4）分析错误原因，很容易发现该行语句的正确写法应该是：List1.AddItemText1.Text（5）修改错误后，按F5键继续执行程序。（6）在上述界面上依次输入以下整数序列“21，9,8，6”后。（7）点击“排序”按钮后，又出现如图69所示的运行错误。（8）点击“确定”按钮后，再次进入中断模式，编译器以加重的形式指出了引发错误的位置，如图6