最新电大《VisualBasic程序设计》形考作业任务01.doc

《最新电大《VisualBasic程序设计》形考作业任务01.doc》由会员分享，可在线阅读，更多相关《最新电大《VisualBasic程序设计》形考作业任务01.doc（9页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、最新电大VisualBasic程序设计形考作业任务01最新电大VisualBasic程序设计形考作业任务01-06网考试题及答案 100通过 考试说明：VisualBasic程序设计形考共有6个任务。任务1至任务2是客观题，其它为主观题。任务1至任务6需在考试中多次抽取试卷，直到出现01任务001、02任务001、03任务001、04任务004、05任务001、06任务001试卷，就可以按照该套试卷答案答题。做考题时，利用本文档中的查找工具，把考题中的关键字输到查找工具的查找内容框内，就可迅速查找到该题答案。本文库还有其他教学考一体化答案，敬请查看。 01任务 01任务001 一、单项选择题（

2、共25道试题，共50分。） 1.启动VB后，就意味着要建立一个新（）。 A.窗体 B.程序 C.文件 D.工程 2.应用程序打包后，其包文件的后缀为（）。 A.e_e B.cab C.t_t D.oc_ 3.当一个工程中含有多个窗体时，其中的启动窗体是（）。 A.启动VB时创建的第一个窗体 B.第一个添加的窗体 C.最后一个添加的窗体 D.在“工程属性”对话框中指定的窗体 4.下列说法中错误的是（）。 A.应用程序的界面是窗体 B.应用程序的界面是对象 C.每个应用程序都要生成一个工程 D.一个应用程序由若干个VisualBasic文件组成 5.每建立一个窗体，工程管理器窗口中就会增加一个（）

3、。 A.工程文件 B.窗体文件 C.标准模块文件 D.类模块文件 6.当运行程序时，系统自动执行启动窗体的（）事件过程。 A.Load B.Click C.Unload D.GotFocus 7.VB集成开发环境中，提供控件的窗口是（）。 A.工具栏 B.工具箱 C.属性窗口 D.工程管理器 8.确定一个窗体或控件的大小的属性是（）。 A.或Loft B.和Loft C.Width或Height D.Width和Height 9.下列关于窗体的说法不正确的是（）。 A.窗体的标题由Caption属性确定 B.窗体的Name属性与Caption属性相同 C.窗体的背景图片由其Picture属性设

4、定 D.通过设置Icon属性可使窗体获得最小花时的图标 10.在VB中，要想快速获得某个相关控件或语句的帮助信息，一般可首先选中该控件或语句，然后按的键是（） A.Help B.F1 C.F10 D.Enter 11.下列关于属性设置的叙述错误的是（）。 A.一个控件具有什么属性是VisualBasic预先设计好的，用户不能改变 B.一个控件具有什么属性是VisualBasic预先设计好的，用户可以改变 C.一个控件的属性既可以在属性窗口中设置，也可以用程序代码设置 D.一个控件的属性在属性窗口中设置后，还可以利用程序代码为其设置新值 12.在界面设计时，双击窗体中的对象后，VisualBas

5、ic将显示的窗口是（）。 A.立即窗口 B.属性窗口 C.代码窗口 D.工程资管理器窗口 13.当使用上下文相关的帮助时，选择要帮助的内容，然后按（）键，就可出现MSDN窗口直接显示所需的帮助信息。 A.Help B.F10 C.Esc D.F1 14.如果想让文本框中的内容在运行时不能编辑，需将文本框的（）属性设置为True。 A.Locked B.MultiLine C.TabS D.Visible 15.在VB6.0集成开发环境中，可以（）。 A.编辑、调试、运行程序，但不能生成可执行文件 B.编辑、生成可执行文件，运行程序，但不能调试程序 C.编辑、调试、生成可执行文件，但不能运行程序

6、 D.编辑、调试、运行程序，也能生成可执行文件 16.VisualBasic应用程序处于执行模式时，这时（）。 A.既不能设计界面，也不能编写代码 B.可以编辑代码，不能设计界面 C.可以设计界面，不能编辑代码 D.既能设计界面，也能编写代码 17.要改变控件的宽度，应该修改控件的（）属性。 A. B.Left C.Width D.Height 18.Timer控件只有一个事件，该事件的名称是（） A.Load B.Timer C.Click D.Run 19.要在命令按纽上显示图形，应首先设置的属性是（） A.Enabled B.Style C.Caption D.Icon 20.后缀为.f

7、rm的文件表示VB的（）。 A.窗体文件 B.类模块文件 C.工程文件 D.标准类模块文件 21.无论何种控件，共同具有的属性是（） A.Te_t B.Name C.Caption D.ForeColor 22.多窗体程序是由多个窗体组成，在缺省情况下，VB在应用程序执行时，总是把（）指定为启动窗体。 A.不包含任何控件的窗体 B.设计时的第一个窗体 C.包含控件最多的窗体 D.命名为Frm1的窗体 23.要改变控件的高度，应该修改控件的（）属性。 A. B.Left C.Width D.Height 24.VisualBasic是一种面向对象的程序设计语言，构成对象的三要素是（）。 A.属性

8、、控件和方法 B.属性、事件和方法 C.窗体、控件和过程 D.控件、过程和模块 25.对于定时器（Timer）控件,设置其定时是否开启的属性是（） A.Inde_ B.Tag C.Enabled D.Left 二、作品题（共2道试题，共50分。） 1.设计一个简单的倒计时程序，要求： （1）在文本框中输入倒计时的分钟数后，单击开始按纽就开始倒计时，倒计时结束时，弹出“时间到”的信息框。程序运行界面如图5所示： （2）将应用程序打包，并安装运行。 注意：存盘时保存在以学号或姓名命名的文件夹下，工程文件名为vb_k1-05.vbp，窗体文件名为vb_k1-05.frm，文件夹名为vb_k1-05。

9、 参考答案： 程序代码如下： DimttAsInteger PrivateSubCommand1_Click Label1.Caption=“现在开始倒计时“ Command1.Visible=False Timer1.Enabled=True tt=Val(Te_t1)_60 EndSub PrivateSubTimer1_Timer tt=tt-1 Te_t1=tt Iftt=0Then a=MsgBo_(“时间到!“,vbOKOnly,“倒计时“) Command1.Visible=True Timer1.Enabled=False EndIf EndSub 2.在名称为Form1的窗体

10、上画两个文本框，其名称分别为Te_t1和Te_t2，它们的高、宽分别为300、2400和120_、2400。窗体的标题为“窗口”。请通过属性窗口设置适当的属性满足以下要求： 1）Te_t2可以显示多行文本，且有垂直和水平两个滚动条； 2）运行时在Te_t1中输入的字符都显示为“_”。 运行后的窗体如图1所示。 注意：存盘时保存在以学号或姓名命名的文件夹下，工程文件名为vb_k1-01.vbp，窗体文件名为vb_k1-01.frm，文件夹名为vb_k1-01。 参考答案： 程序代码如下： PrivateSubTe_t1_MouseDown(ButtonAsInteger,ShiftAsInteg

11、er,_AsSingle,YAsSingle) IfButton=2Then PopupMenuFormat EndIf EndSub PrivateSubM1_Click Te_t1.FontBold=True EndSub PrivateSubM2_Click Te_t1.FontItalic=True EndSub PrivateSubM3_Click Te_t1.FontUnderline=True EndSub 02任务 02任务001 一、单项选择题（共25道试题，共50分。） 1.能够实现“窗体总在最前端”界面效果的API函数是（）。 A.SetdowPos B.SetdowAP

12、I C.SetdowShape D.DeclareAPI 2.在窗体上画两个文本框（其Name属性分别为Te_t1和Te_12）和一个命令按钮（其Name属性为Command1）,然后编写如下事件过程： PrivateSubCommand1_Click _=1:n=0 DoWhile_4 _=_y y=y+1 Loop Print_ A.1 B.4 C.8 D.20 25.把数值型转换为字符串型需要使用的函数是（）。 A.Val B.Str C.Asc D.Chr 二、作品题（共2道试题，共50分。） 1.创建一个多功能计算器程序，程序运算界面如图2-6所示。 要求： (1)用控件数组设计数字

13、按钮 （2）用API函数实现“总在前面效果” 注意：存盘时保存在以学号或姓名命名的文件夹下，工程文件名为vb_k2-03.vbp，窗体文件名为vb_k2-03.frm，文件夹名为vb_k2-03。 参考答案： 程序代码如下： OptionE_plicit Dimi(1To100)AsInteger PrivateSubCmd1_Click DimjAsInteger Open.Path“in.t_t“ForInputAs#1 Forj=1To100 Input#1,i(j) Te_t1.Te_t=Te_t1.Te_ti(j)Space(5) Ne_t Close#1 EndSub Privat

14、eSubCmd2_Click DimjAsInteger DimkAsInteger DimtempAsInteger DimflagAsBoolean Forj=1To100 flag=False Fork=1To100-j Ifi(k)0Then Command1.Enabled=True Te_t1.Te_t=File1.Path+File1.FileName DimobjPicAsPicture SetobjPic=LoadPicture(Te_t1.Te_t) Picture1.Picture=objPic EndIf EndSub PrivateSubForm_Load Drive

15、1.Drive=“d:“ Dir1.Path=“d:“Drive1.Drive Dir1.Refresh File1.Pattern=“_.jpg;_.bmp;_.gif|(_.bmp,_.gif,_.jpg)“ File1.Path=Dir1.Path EndSub PrivateSubDrive1_Change Dir1.Path=Drive1.Drive EndSub PrivateSubDir1_Change File1.Path=Dir1.Path EndSub 2.利用文件系统控件编写一个Word文件查找显示程序，程序运行界面如图3-2所示。 要求： （1）在文件列表框中只显示后缀

16、为.doc的文件。 （2）新创建一个标准工程，并通常“工程部件”菜单项引入“RichTe_tBo_Control6.0”，将RichTe_tBo_控件添加到工具箱中，用这个控件显示RTF格式的Word文件。 （3）单击打开按钮，在文本框中显示RTF格式的Word文件。 注意：存盘时保存在以学号或姓名命名的文件夹下，工程文件名为vb_k3-02.vbp，窗体文件名为vb_k3-02.frm，文件夹名为vb_k3-02。 参考答案： 程序代码如下： PrivateSubCommand1_Click DimwdAsNewWord.lication DimwdDocAsWord.Document Di

17、mstrFileNameAsString wd.Visible=False strFileName=File1.Path+“+File1.FileName SetwdDoc=wd.Documents.Open(strFileName) wdDoc.SaveAs“C:临时文件.rtf“,6 wdDoc.Close wd.Quit RichTe_tBo_1.FileName=“C:临时文件.rtf“ Kill“c:临时文件.rtf“ EndSub PrivateSubDir1_Change File1.Path=Dir1.Path EndSub PrivateSubDrive1_Change Di

18、r1.Path=Drive1.Drive EndSub 04任务 04任务004 一、作品题（共1道试题，共100分。） 1.开发一个如图4-1所示指针式时钟程序。 要求： （1）要求用Shap控件、Line控件和Label控件设计表盘，用图形方法动态生成指针，用时钟控件控制时钟的转动。 （2）圆形表盘在窗体的中央，其直径要求与窗体的高度和宽度相等。 注意：存盘时保存在以学号或姓名命名的文件夹下，工程文件名为vb_k4-01.vbp，窗体文件名为vb_k4-02.frm，文件夹名为vb_k4-01。 参考答案： 程序代码如下： Constpi=3.141592653 PrivateSubFor

19、m_Load Form1.Scale(-14,14)-(14,-14) EndSub PrivateSubTimer1_Timer Dim_AsInteger DimyAsInteger Dimsec,min,hrAsInteger sec=Second(Time) min=Minute(Time) hr=Hour(Time) Form1.Cls Form1.DrawWidth=2 _=9_Sin(sec_pi/30) y=9_Cos(sec_pi/30) Form1.Line(0,0)-(_,y),vbRed Form1.DrawWidth=3 _=7_Sin(min_pi/30) y=7_

20、Cos(min_pi/30) Form1.Line(0,0)-(_,y) Form1.DrawWidth=4 hr=hr+min/60 _=6_Sin(hr_pi/6) y=6_Cos(hr_pi/6) Form1.Line(0,0)-(_,y) EndSub 05任务 05任务001 一、作品题（共1道试题，共100分。） 1.开发一个成绩查询数据库应用程序。它具有数据增加（Insert）、修改（Update）、删除（Delete）和查询（Select）功能。 开发步骤及要求： 准备工作 建立名称为“vb_k5成绩查询”文件夹，在该文件夹下，建立“图标”文件夹，在其中存入界面设计时所用图标。

21、开发过程中的全部文件存放在“vb_k5成绩查询”文件夹中。 建立成绩查询数据库 用Access或SQLServer创建一个名称为“成绩”的数据库，其中包含三张数据表，即学生成绩表、学生情况表、课程情况表，如表53、表54、表55、表56所 参考答案： 程序代码如下： -创建数据库；createdatabasestudent;go-使用数、数据库usestudent;go-创建成绩表createtablestudentScore(stuidvarchar(10)primarykey,-学号cidvarchar(10),-课程号socrevarchar(20)-成绩)go-创建学生情况表creat

22、etablestudentStatus(stuidvarchar(10)primarykey,stuNamevarchar(20)go-创建课程情况表createtablecurriculum(cidvarchar(10),cNamevarchar(50)go-添加记录insertintostudentStatusvalues(001,张红)goinsertintostudentStatusvalues(002,)goinsertintostudentStatusvalues(003,王丽)goinsertintocurriculumvalues(001,数据库原理)goinsertintoc

23、urriculum06任务 06任务001 一、作品题（共1道试题，共100分。） 1.程序调试 参考答案： 程序代码如下： （1）根据如下所给程序代码进行程序调试 PrivateSubCommand1_Click List1.AddItemTe_t.Te_t EndSub 排序按钮的Click事件 PrivateSubCommand2_Click Dimi,jAsInteger 定义数组，以List1的项目个数为数组维数 DimstrList(List1.ListCount)AsInteger 定义中间临时变量，用于数据交换 DimstrTmpAsInteger 将List1中的项目导入到s

24、trList数组中 Fori=0ToList1.ListCount strList(i)=List1.List(i) Ne_ti 按“冒泡”算法完成排序工作 Fori=0ToUBound(strList) Forj=i+1ToUBound(strList) IfstrList(i)strList(j)Then strTmp=strList(i) strList(i)=strList(j) strList(j)=strTmp EndIf Ne_tj Ne_ti 将排序结果输出到List2中 Fori=0ToUBound(strList) List2.AddItemstrList(i) Ne_ti

25、 EndSub （2）运行程序，在Te_t1文本框中输入一个整数，比如1，然后点击“添加”按钮，此时会出现如图65所示的错误提示。 （3）点击“调试”按钮，进入中断模式，VB编译器将自动标识出引发错误的语句行。 （4）分析p 错误原因，很容易发现该行语句的正确写法应该是： List1.AddItemTe_t1.Te_t （5）修改错误后，按F5键继续执行程序。 （6）在上述界面上依次输入以下整数序列“21，9,8，6”后。 （7）点击“排序”按钮后，又出现如图69所示的运行错误。 （8）点击“确定”按钮后，再次进入中断模式，编译器以加重的形式指出了引发错误的位置，如图610所示。 （9）分析p

26、 图69所示的错误提示“要求常数表达式”后，发现引用错误的原因是不能用变量作为数组的下标，即下列数组声明语句不符合VB语法约定： DimstrList(List1.ListCount)AsInteger 为此我们做如下选择，即采用动态数组声明的方法 DimstrListAsInteger ReDimstrList(List1.ListCount)AsInteger （10）点击“调试”按钮后。 （11）分析p 错误原因发现，我们将数组strList声明为Integer数据类型，而List1.List表示的是字符型数据，VB无法进行自动类型转换，因此我们只能通过Val函数进行转换： strLis

27、t(i)=Val(List1.List(i) （12）按F5键继续，程序成功运行。这说明语法错误已基本排除了。但是观查运行结果，发现“排序结果”序列中多出了一个数值0。这种结果并不是我们期望的。 （13）关闭程序，重新运行，这说明程序中存在逻辑问题，需要进一步调试。 （14）设置断点，分析p 逻辑错误。用鼠标点击如图612所示位置设置断点 （15）按F5键运行程序并输入一组整数，比如“5，4，3，2”。点击“排序”按钮后，程序将进入中断模式，出现如图613所示界面。 （16）在VB集成环境的“立即”窗口中，使用“？”打印strList数组的上界和相关的值，如图614所示。当然也可以使用Print、Debug.Print命令，它们等效于？。 （17）仔细分析p 不难发现，List1.ListCount的最大值是4，说明数字序列中共有4个数，即“5,4，3,2”。但是List1.List的下标是从0开始的，下标最大值应该为3，即: List1.ListCount1 为些，我们需要选择strList数组的上界和循环次数。 个性数组声明 ReDimstrList(List1.ListCount-1)AsInteger 修改循环次数 Fori=0ToList1.ListCount-1 strList(i)=Val(List1.List(i) Ne_ti 第 9 页 共 9 页