最新电大《VisualBasic程序设计》形考作业任务01-06网考试题及答案

最新电大《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..exe B..cab C..txt D..ocx 3.当一个工程中含有多个窗体时，其中的启动窗体是（）。

A.启动VB时创建的第一个窗体 B.第一个添加的窗体 C.最后一个添加的窗体 D.在“工程属性”对话框中指定的窗体 4.下列说法中错误的是（）。

A.应用程序的界面是窗体 B.应用程序的界面是对象 C.每个应用程序都要生成一个工程 D.一个应用程序由若干个VisualBasic文件组成 5.每建立一个窗体，工程管理器窗口中就会增加一个（）。

A.工程文件 B.窗体文件 C.标准模块文件 D.类模块文件 6.当运行程序时，系统自动执行启动窗体的（）事件过程。

A.Load B.Click C.Unload D.GotFocus 7.VB集成开发环境中，提供控件的窗口是（）。

A.工具栏 B.工具箱 C.属性窗口 D.工程管理器 8.确定一个窗体或控件的大小的属性是（）。

A.Top或Loft B.Top和Loft C.Width或Height D.Width和Height 9.下列关于窗体的说法不正确的是（）。

A.窗体的标题由Caption属性确定 B.窗体的Name属性与Caption属性相同 C.窗体的背景图片由其Picture属性设定 D.通过设置Icon属性可使窗体获得最小花时的图标 10.在VB中，要想快速获得某个相关控件或语句的帮助信息，一般可首先选中该控件或语句，然后按的键是（）
A.Help B.F1 C.F10 D.Enter 11.下列关于属性设置的叙述错误的是（）。

A.一个控件具有什么属性是VisualBasic预先设计好的，用户不能改变 B.一个控件具有什么属性是VisualBasic预先设计好的，用户可以改变 C.一个控件的属性既可以在属性窗口中设置，也可以用程序代码设置 D.一个控件的属性在属性窗口中设置后，还可以利用程序代码为其设置新值 12.在界面设计时，双击窗体中的对象后，VisualBasic将显示的窗口是（）。

A.立即窗口 B.属性窗口 C.代码窗口 D.工程资源管理器窗口 13.当使用上下文相关的帮助时，选择要帮助的内容，然后按（）键，就可出现MSDN窗口直接显示所需的帮助信息。

A.Help B.F10 C.Esc D.F1 14.如果想让文本框中的内容在运行时不能编辑，需将文本框的（）属性设置为True。

A.Locked B.MultiLine C.TabStop D.Visible 15.在VB6.0集成开发环境中，可以（）。

A.编辑、调试、运行程序，但不能生成可执行文件 B.编辑、生成可执行文件，运行程序，但不能调试程序 C.编辑、调试、生成可执行文件，但不能运行程序 D.编辑、调试、运行程序，也能生成可执行文件 16.VisualBasic应用程序处于执行模式时，这时（）。

A.既不能设计界面，也不能编写代码 B.可以编辑代码，不能设计界面 C.可以设计界面，不能编辑代码 D.既能设计界面，也能编写代码 17.要改变控件的宽度，应该修改控件的（）属性。

A.Top 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.后缀为.frm的文件表示VB的（　　）。

A.窗体文件 B.类模块文件 C.工程文件 D.标准类模块文件 21.无论何种控件，共同具有的属性是（　　）
A.Text B.Name C.Caption D.ForeColor 22.多窗体程序是由多个窗体组成，在缺省情况下，VB在应用程序执行时，总是把（）指定为启动窗体。

A.不包含任何控件的窗体 B.设计时的第一个窗体 C.包含控件最多的窗体 D.命名为Frm1的窗体 23.要改变控件的高度，应该修改控件的（）属性。

A.Top B.Left C.Width D.Height 24.VisualBasic是一种面向对象的程序设计语言，构成对象的三要素是（）。

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

注意：存盘时保存在以学号或姓名命名的文件夹下，工程文件名为vbxk1-05.vbp，窗体文件名为vbxk1-05.frm，文件夹名为vbxk1-05。

参考答案：
程序代码如下：
DimttAsInteger PrivateSubCommand1_Click() Label1.Caption=“现在开始倒计时“ Command1.Visible=False Timer1.Enabled=True tt=Val(Text1)*60 EndSub PrivateSubTimer1_Timer() tt=tt-1 Text1=tt Iftt=0Then a=MsgBox(“时间到!“,vbOKOnly,“倒计时“) Command1.Visible=True Timer1.Enabled=False EndIf EndSub 2. 在名称为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=2Then PopupMenuFormat EndIf EndSub PrivateSubM1_Click() Text1.FontBold=True EndSub PrivateSubM2_Click() Text1.FontItalic=True EndSub PrivateSubM3_Click() Text1.FontUnderline=True EndSub 02任务 02任务_0001 一、单项选择题（共25道试题，共50分。）
1.能够实现“窗体总在最前端”界面效果的API函数是（　　）。

A.SetWindowPos B.SetWindowAPI C.SetWindowShape D.DeclareAPI 2.在窗体上画两个文本框（其Name属性分别为Text1和Tex12）和一个命令按钮（其Name属性为Command1）,然后编写如下事件过程：
PrivateSubCommand1_Click() x=1:n=0 DoWhilex<100 x=x*10 n=n+1 Loop Text1.Text=Str(n) Text2.Text=Str(x) EndSub 程序运行后，单击命令按钮，在两个文本框中显示的值分别为（）。

A.10和0 B.2和100 C.3和50 D.4和168 3.下面程序段的循环结构执行后，i的输出结果是（）。

Fori=1To10Step2 y=y+i Nexti Printi A.25 B.10 C.11 D.因为y的初值不知道，所以不确定 4.把字符串型转换为数值型需要使用的函数是（）。

A.Val B.Str C.Asc D.Chr 5.以下可以作为VisualBasic变量名的是（）。

A.SIN B.CO1 C.COS（X）
D.X（-1）
6.可通过设置一普通窗体的何种属性，将它转变成MDI子窗体（　　）。

A.MDIChild=True B.WindowState=Normal C.MDIChild=False D.WindowState=Maximized 7.下列关于过程叙述不正确的是（）。

A.过程的传值调用是将实参的具体值传递给形参 B.过程的传址调用是将实参在内存的地址传递给形参 C.过程的传值调用参数是单向传递的，过程的传址调用参数是双向传递的 D.无论过程传值调用还是过程传址调用，参数传递都是双向的 8.数学式子Sin30°写成VB表达式是（）。

A.Sin30 B.Sin（30）
C.SIN（30°）
D.Sin（30*3.14/180）
9.“x是小于80的非负数”，用VB表达式表示正确的是（）。

A.0£x<80 B.0<=x<80 C.0<=xAndx<80 D.0<=xOrx<80 10.下面正确的赋值语句是（）。

A.x+y=30 B.y=p*r*r C.y=x+30 D.3y=x 11.事件的名称（）。

A.都要由用户定义 B.有的由用户定义，有的由系统定义 C.都是由系统预先定义 D.是不固定的 12.如果要在窗体代码编辑器的“通用”部分定义私有Sub过程，则正确的语句是（　　）。

A.PublicSub B.PrivateSub C.PublicFunction D.PrivateFunction 13.如果仅需要得到当前系统时间，则可以使用哪个函数（　　）。

A.Time B.Year C.Now D.Date 14.赋值语句：a=123+MID(“123456”,3,2)执行后，a变量中的值是（）。

A.123 B.34 C.12334 D.157 15.DimA(1To6,6)AsString定义的数组包含的元素个数是（）。

A.36 B.49 C.42 D.50 16.VB提供了结构化程序设计的3种基本结构，这3种基本结构是（）。

A.递归结构，选择结构，循环结构 B.选择结构，过程结构，顺序结构 C.过程结构，输入、输出结构，转向结构 D.选择结构，循环结构，顺序结构 17.要退出Do…Loop循环，可使用的语句是（）语句。

A.Exit B.ExitFor C.EndDo D.ExitDo 18.如果希望以模态方式显示窗体Form1，下列正确的语句是（）。

A.Form1.Show0 B.Form1.Show C.Form1.Show1 D.Form1.Show0,1 19.表达式6+10Mod4*2+1的值是（）。

A.9 B.11 C.1 D.3 20.下列4项中合法的变量名是（）。

A.45xyz B.Single C.x-yz D.x_yz 21.在窗体上按下鼠标左键时产生的事件是（）
A.KeyDown B.MouseUp C.MouseMove D.MouseDown 22.关于语句行，下列说法正确的是（）。

A.一行只能写一条语句 B.一条语句可以分多行书写 C.每行的首字符必须大写 D.长度不能超过255个字符 23.可通过何种属性判断List列表框控件的项目总数目（）。

A.ListIndex B.ListCount C.ListText D.LisItem 24. 以下程序段的输出结果为（）。

x=1 y=4 DoUntily>4 x=x*y y=y+1 Loop Printx A.1 B.4 C.8 D.20 25.把数值型转换为字符串型需要使用的函数是（）。

A.Val B.Str C.Asc D.Chr 二、作品题（共2道试题，共50分。）
1. 创建一个多功能计算器程序，程序运算界面如图2-6所示。

要求：
(1)用控件数组设计数字按钮 （2）用API函数实现“总在前面效果” 注意：存盘时保存在以学号或姓名命名的文件夹下，工程文件名为vbxk2-03.vbp，窗体文件名为vbxk2-03.frm，文件夹名为vbxk2-03。

参考答案：
程序代码如下：
OptionExplicit Dimi(1To100)AsInteger PrivateSubCmd1_Click() DimjAsInteger OpenApp.Path&“＼in.txt“ForInputAs#1 Forj=1To100 Input#1,i(j) Text1.Text=Text1.Text&i(j)&Space(5) Next Close#1 EndSub PrivateSubCmd2_Click() DimjAsInteger DimkAsInteger DimtempAsInteger DimflagAsBoolean Forj=1To100 flag=False Fork=1To100-j Ifi(k)<i(k+1)Then temp=i(k) i(k)=i(k+1) i(k+1)=temp flag=True EndIf Next IfNotflagThen ExitFor EndIf Next Text1.Text=““ Forj=1To100 Text1.Text=Text1.Text&i(j)&Space(5) Next putdatai,100 EndSub 2. 编写某市公用电话收费程序，程序运行界面如图2-10所示。收费标准为：通话时间在3分钟以下，收费0.5元；
3分钟以上，则每超过一分钟加收0.15元；
在7:00～19:00之间通话，按上述收费标准全价收费，在其它时间通话者，一律按收费标准的半价收费。

要求程序运行后，点击“开始通话”按钮，在文本框text1中以hh:mm:ss的形式显示通话开始的时间，点击“结束通话”按钮，在文本框text2中，以hh:mm:ss的形式显示通话结束的时间，点击“计费”按钮，在text3中显示通话的分钟数，在text4中显示通话的费用，点击“清楚”按钮，清楚全部数据。

注意：存盘时保存在以学号或姓名命名的文件夹下，工程文件名为vbxk2-07.vbp，窗体文件名为vbxk2-07.frm，文件夹名为vbxk2-07。

参考答案：
程序代码如下：
PrivateSubOption1_Click() Text1.Alignment=0 EndSub PrivateSubOption2_Click() Text1.Alignment=2 EndSub PrivateSubOption3_Click() Text1.Alignment=1 EndSub PrivateSubOption4_Click() Text1.FontName=“宋体“ EndSub PrivateSubOption5_Click() Text1.FontName=“黑体“ EndSub 03任务 03任务_0001 1.在窗体上建立一个驱动器列表框、目录列表框、文件列表框、图片框、文本框。要求程序运行后，驱动器列表框Drive1的默认驱动器设置为D盘，选择File1中所列的图片文件（*.bmp,*.gif和*.jpg）,则相应的图片显示在图片框Picture1中，文件的路径显示在文本框中。程序运行结果如图3-1所示。

注意：存盘时保存在以学号或姓名命名的文件夹下，工程文件名为vbxk3-01.vbp，窗体文件名为vbxk3-01.frm，文件夹名为vbxk3-01。

参考答案：
程序代码如下：
PrivateSubFile1_Click() IfFile1.ListCount>0Then ＇Command1.Enabled=True Text1.Text=File1.Path+File1.FileName DimobjPicAsPicture SetobjPic=LoadPicture(Text1.Text) Picture1.Picture=objPic EndIf EndSub PrivateSubForm_Load() Drive1.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）在文件列表框中只显示后缀为.doc的文件。

（2）新创建一个标准工程，并通常“工程－部件”菜单项引入“MicrosoftRichTextBoxControl6.0”，将RichTextBox控件添加到工具箱中，用这个控件显示RTF格式的Word文件。

（3）单击打开按钮，在文本框中显示RTF格式的Word文件。

注意：存盘时保存在以学号或姓名命名的文件夹下，工程文件名为vbxk3-02.vbp，窗体文件名为vbxk3-02.frm，文件夹名为vbxk3-02。

参考答案：
程序代码如下：
PrivateSubCommand1_Click() DimwdAppAsNewWord.Application DimwdDocAsWord.Document DimstrFileNameAsString wdApp.Visible=False strFileName=File1.Path+“＼“+File1.FileName SetwdDoc=wdApp.Documents.Open(strFileName) wdDoc.SaveAs“C:＼临时文件.rtf“,6 wdDoc.Close wdApp.Quit RichTextBox1.FileName=“C:＼临时文件.rtf“ Kill“c:＼临时文件.rtf“ EndSub PrivateSubDir1_Change() File1.Path=Dir1.Path EndSub PrivateSubDrive1_Change() Dir1.Path=Drive1.Drive EndSub 04任务 04任务_0004 一、作品题（共1道试题，共100分。）
1.开发一个如图4-1所示指针式时钟程序。

要求：
（1）要求用Shap控件、Line控件和Label控件设计表盘，用图形方法动态生成指针，用时钟控件控制时钟的转动。

（2）圆形表盘在窗体的中央，其直径要求与窗体的高度和宽度相等。

注意：存盘时保存在以学号或姓名命名的文件夹下，工程文件名为vbxk4-01.vbp，窗体文件名为vbxk4-02.frm，文件夹名为vbxk4-01。

参考答案：
程序代码如下：
Constpi=3.141592653 PrivateSubForm_Load() Form1.Scale(-14,14)-(14,-14) EndSub PrivateSubTimer1_Timer() DimxAsInteger DimyAsInteger Dimsec,min,hrAsInteger sec=Second(Time) min=Minute(Time) hr=Hour(Time) Form1.Cls Form1.DrawWidth=2 x=9*Sin(sec*pi/30) y=9*Cos(sec*pi/30) Form1.Line(0,0)-(x,y),vbRed Form1.DrawWidth=3 x=7*Sin(min*pi/30) y=7*Cos(min*pi/30) Form1.Line(0,0)-(x,y) Form1.DrawWidth=4 hr=hr+min/60 x=6*Sin(hr*pi/6) y=6*Cos(hr*pi/6) Form1.Line(0,0)-(x,y) EndSub 05任务 05任务_0001 一、作品题（共1道试题，共100分。）
1. 开发一个成绩查询数据库应用程序。它具有数据增加（Insert）、修改（Update）、删除（Delete）和查询（Select）功能。

开发步骤及要求：
１．准备工作 建立名称为“vbxk5－成绩查询”文件夹，在该文件夹下，建立“图标”文件夹，在其中存入界面设计时所用图标。开发过程中的全部文件存放在“vbxk5－成绩查询”文件夹中。

２．建立成绩查询数据库 用MicrosoftAccess或SQLServer创建一个名称为“成绩”的数据库，其中包含三张数据表，即学生成绩表、学生情况表、课程情况表，如表5－3、表5－4、表5－5、表5－6所 参考答案：
程序代码如下：
--创建数据库；
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.Text EndSub 排序按钮的Click事件 PrivateSubCommand2_Click() Dimi,jAsInteger ＇定义数组，以List1的项目个数为数组维数 DimstrList(List1.ListCount)AsInteger ＇定义中间临时变量，用于数据交换 DimstrTmpAsInteger ＇将List1中的项目导入到strList数组中 Fori=0ToList1.ListCount strList(i)=List1.List(i) Nexti ＇按“冒泡”算法完成排序工作 Fori=0ToUBound(strList) Forj=i+1ToUBound(strList) IfstrList(i)>strList(j)Then strTmp=strList(i) strList(i)=strList(j) strList(j)=strTmp EndIf Nextj Nexti ＇将排序结果输出到List2中 Fori=0ToUBound(strList) List2.AddItemstrList(i) Nexti EndSub （2）运行程序，在Text1文本框中输入一个整数，比如1，然后点击“添加”按钮，此时会出现如图6－5所示的错误提示。

（3）点击“调试”按钮，进入中断模式，VB编译器将自动标识出引发错误的语句行。

（4）分析错误原因，很容易发现该行语句的正确写法应该是：
List1.AddItemText1.Text （5）修改错误后，按F5键继续执行程序。

（6）在上述界面上依次输入以下整数序列“21，9,8，6”后。

（7）点击“排序”按钮后，又出现如图6－9所示的运行错误。

（8）点击“确定”按钮后，再次进入中断模式，编译器以加重的形式指出了引发错误的位置，如图6－10所示。

（9）分析图6－9所示的错误提示“要求常数表达式”后，发现引用错误的原因是不能用变量作为数组的下标，即下列数组声明语句不符合VB语法约定：
DimstrList(List1.ListCount)AsInteger 为此我们做如下选择，即采用动态数组声明的方法 DimstrList()AsInteger ReDimstrList(List1.ListCount)AsInteger （10）点击“调试”按钮后。

（11）分析错误原因发现，我们将数组strList()声明为Integer数据类型，而List1.List()表示的是字符型数据，VB无法进行自动类型转换，因此我们只能通过Val函数进行转换：
strList(i)=Val(List1.List(i)) （12）按F5键继续，程序成功运行。这说明语法错误已基本排除了。但是观查运行结果，发现“排序结果”序列中多出了一个数值0。这种结果并不是我们期望的。

（13）关闭程序，重新运行，这说明程序中存在逻辑问题，需要进一步调试。

（14）设置断点，分析逻辑错误。用鼠标点击如图6－12所示位置设置断点 （15）按F5键运行程序并输入一组整数，比如“5，4，3，2”。点击“排序”按钮后，程序将进入中断模式，出现如图6－13所示界面。

（16）在VB集成环境的“立即”窗口中，使用“？”打印strList数组的上界和相关的值，如图6－14所示。当然也可以使用Print、Debug.Print命令，它们等效于？。

（17）仔细分析不难发现，List1.ListCount的最大值是4，说明数字序列中共有4个数，即“5,4，3,2”。但是List1.List()的下标是从0开始的，下标最大值应该为3，即: List1.ListCount–1 为些，我们需要选择strList()数组的上界和循环次数。

＇个性数组声明 ReDimstrList(List1.ListCount-1)AsInteger ＇修改循环次数 Fori=0ToList1.ListCount-1 strList(i)=Val(List1.List(i)) Nexti