2017年电大《Visual Basic程序设计》期末复习试题及答案

Visual Basic 程序设计课程期末复习一、单项选择题1. 如果要设置窗体的标题栏，应选择（ B ）属性。AVisible BCaption CName DText2. 要使命令按钮不响应用户生成的事件，应设置命令按钮的（ D ）属性。AVisible BCaption CEnable DEnabled3. 要使标签能透出窗体的背景，应设置标签的（ A ）属性。ABackStyle BBorderStyle CAppearance DBackColor4. 以下控件中， （ A ）控件不会影响到界面设计效果。A计时器 B文本框 C标签 DLine 控件5. 在 Visual Basic 中，一般（ B ）属性用来设置字体的颜色。AFontColor BForeColor CBackColor DShowColor6. 在 VB 中断模式下，可用调试窗口监视表达式和变量的值，其中在（ A ）窗口中可以直接键入命令以显示命令所请求的信息。A立即 B.监视 C.本地 D.中断7. 某计时器控件的 interval 属性为 0 时，表示（ A ） 。A计时器关闭计时 CTimer 事件的间隔时间为 0 毫秒BTimer 事件的间隔时间为 0 秒 D计时器启动计时8. 在窗体 Form1 的 Click 事件过程中有以下语句：Label1.Caption=“Visual Basic“若本语句执行之前，标签控件的 Caption 属性为默认值，则标签控件的 Name 属性和 Caption 属性在执行本语句之前的值分别为（ B ） 。ALabel 和 Label BLabel1 和 Label1CLabel1 和 Visual Basic DLabel 和 Caption9. （ C ）控件不具有 Caption 属性。ALabel BForm C TextBox DCommandButton10. 改变控件在窗体中的上下位置，应设置控件的（ A ）属性。ATop BLeft CWidth DRight11. 文本框中选定的内容，由下列（ C ）属性反映。AText BCaption CSeltext DSelLenght12. 在 Visual Basic 中，变量的默认类型是（ D ） 。AString BInteger CDouble DVariant13. 假设已定义 Integer 变量 x、 y，则以下赋值语句正确的是（ C ） 。Ax + 1 = y Bx := y Cy = x + y D1 = x14. 、/、Mod、*四个算术运算符中，优先级别最低的是（ C ） 。A B/ CMod D*15. 下列哪组语句可以将变量 A、B 值互换（ B ） 。AA=C : C=B : B=A BA=A+B : B=A B: A=ABCA=B : B=A DA=(A+B)/2 : B=(A - B)/216. 以下语句的输出结果是（ C ） 。Print Format (32548.5,“000,000.00”)A32548.5 B32,548.5 C032,548.50 D32,548.5017. 表达式 4+5 6 * 7 / 8 Mod 9 的值是 （ B ） 。A4 B5 C6 D718. 函数 Int(Rnd*10)是在（ C ）范围内的整数。 A （0, 10） B(0,10 C0, 10） D0, 1019. 下面（ A ）运算符是算术运算符。 AMod BLike CAnd DNot20. 已知三个变量 A、B、C，判断 A、B、C 能否构成三角形的逻辑表达式为（ B ） 。AA = B And B = C And A = C BA + C = B And A + B = C And B + C = ACA + C = B Or A + B = C Or B + C = ADA + C = B And A + B = C Or B + C = A21. 下面程序段运行后，显示的结果是（ B ） 。Dim intX As Integer If intX ThenPrint intX ElsePrint intX + 1End IfA0 B1 C2 D不一定22. 以下程序的输出结果是（ C ） 。Dim a, i%, sum%a = Array(4, 3, 2, 1)For i = 0 To 3sum = sum + a(i)Next iPrint sumA4 B6 C10 D不一定23. 在过程中定义的变量，若希望在离开该过程后，还能保存过程中局部变量的值，则应使用（ D ）关键字在过程中定义局部变量。ADim BPublic CPrivate DStatic24. 能通过（ D ）来删除列表框中的选择项。AList 属性 BText 属性 CClear 方法 DRemoveItem 方法25. ListBox 中若没有任何条目选中，其 ListIndex 属性值为（ A ） 。A-1 B0 C1 D任意26. 可通过（ C ）属性判断 ListBox 列表框控件的项目总数目。AListIndex BListText CListcount D随机数27. 列表框的（ B ）属性用于返回或设置列表框中各列表项的文本。ASelected BList CText DCaption28. 设 List1 为列表框控件，List1.Clear 中的 Clear 是（ A ） 。A方法 B对象 C属性 D事件29. 以下（ D ）语句将删除列表框 List1 中的最后一项。AList1.RemoveItem List1.ListCount BList1.ClearCList1.List(List1.ListCount-1)= “ DList1.RemoveItem List1.ListCount-130. 若要把“XXX”添加到列表框 List1 中的第三项，则可执行语句（ B ） 。AList1.AddItem “XXX“, 3 BList1.AddItem “XXX“, 2CList1.AddItem 3,“XXX“ DList1.AddItem 2,“XXX“31. 用户可以通过设置菜单项的（ C ）属性值为 False 来使该菜单项失效。AHide BVisible CEnabled DChecked32. 用户可以通过设置菜单项的（ B ）属性值设置为 False 来使该菜单项不可见。AHide BVisible CEnabled DChecked33. 菜单编辑器中，同层次的（ B ）属性值设置为相同，才可以设置索引值。ACaption BName CIndex DShortCut34. 每创建一个顶级菜单，它的下面最多可以有（ C ）级子菜单。A1 B3 C5 D635. 在设计菜单时，为了创建分隔栏，要在（ B ）中输入字符（-） 。A名称栏 B标题栏 C索引栏 D显示区36. 如果要在程序中显示一个弹出菜单，需调用（ D ）方法。APrint BMove CRefresh DPopupMenu37. 当单击工具栏上的按钮，会触发的事件是（ A ） 。AButtonClick BChange CLoad DKeyPress38. 下列可以用来存储图像可以供其它控件使用的控件是（ C ） 。AToolBar BStatursBar C ImageList DTreeView39. 在 Visual Basic 中按文件的访问方式不同，可以将文件分为（ B ） 。A文本文件和数据文件 B顺序文件、随机文件和二进制文件CASCII 文件和二进制文件 D数据文件和可执行文件40. 检测文件是否结束的函数是（ C ） 。ALOF() BLen() CEOF() DChr()41. 要读出 C 盘根目录下的顺序文件 stud.txt 中的内容，下列打开方式中（ C ）是正确的。AOpen “ C:stud.txt“ For Append As #1 BOpen “ C:stud.txt“ For Random As #1COpen “ C:stud.txt“ For Input As #1 DOpen “ C:stud.txt“ For Output As #142. 随机文件使用（ C ）语句写数据。AInput# BWrite # CPut DGet43. 随机文件使用（ D ）语句读数据。AInput# BWrite # CPut DGet44. 程序运行时，驱动器列表框下列（ A ）属性能返回磁盘驱动器的名称。ADrive BDriveName CChgdrive DDrives45. 要用通用对话框控件显示标准的“字体”对话框，应调用其（ C ）方法。AShowOpen BShowColor CShowFont DShowSaveas46. 改变驱动器列表框的 Drive 属性值将激活其（ A ）事件。AChange BScroll CKeyDown DKeyUp47. 使用目录列表框的（ B ）属性可以返回或设置当前工作目录的完整路径（包括驱动器盘符） 。ADrive BPath CDir DListIndex48. 在随机文件中（ D ） 。A记录的内容是随机产生的 B记录的长度是任意的C记录号是通过随机数产生的 D可以通过记录号随机读取记录49. 执行语句 Open “C：Stud.txt“ For Input As #2 后，系统（ C ） 。A将内存数据存放在 C 盘当前文件夹下名为 Stud.txt 的文件中B将某个磁盘文件的内容写入 C 盘当前文件夹下名为 Stud.txt 的文件中C打开 C 盘当前文件夹下名为 Stud.txt 的文件，用来读取文件内容D在 C 盘当前文件夹下建立名为 Stud. txt 的顺序文件50. 下面对象中不能作为容器的是（ B ） 。A窗体 BImage 控件 CPictureBox 控件 DFrame 控件51. 要向图片框 picP 中加载“d:hainanzhiwu.bmp”图像文件，应使用语句（ C ） 。APicture1.Picture=“ d:hainanzhiwu.bmp“BPicture1.Picture=LoadPicture(“d:hainanzhiwu.bmp“)CpicP.Picture=LoadPicture(“d:hainanzhiwu.bmp“)DpicP.Picture=LoadPicture(d:hainanzhiwu.bmp)52. 执行 Form1.Scale（0, 10）-（ 10, -10）语句后，Form1 窗体坐标系 x 轴和 y 轴的正方向是（ A ） 。A向右和向上 B向左和向下 C向右和向下 D向左和向上53. 下列图形中不能使用 Shape 控件绘制的是（ B ） 。A矩形 B三角形 C正方形 D椭圆54. Line（100，100）-Step（400，400）将在窗体中的（ C ）画一条直线。A （200，200）到（400，400） B （100，100）到（300，300）C （100，100）到（500，500） D （100，100）到（400，400）55. RGB 函数通过红、绿、蓝三基色混合产生某种颜色，若使用三个滚动条分别输入三种基色，为保证输入数值有效，则应设置滚动条的（ A ）属性。AMax 和 Min BSmallchange 和 LargeChangeCScroll 和 Change DValue56. 如果在图片框上使用绘图方法绘制一个圆，则图片框的（ B ）属性决定了该圆的颜色。ABackColor BForeColor CFillColor DDrawStyle57. 键盘事件的执行顺序是（ B ） 。AKeyPress，KeyDown，KeyUp BKeyDown，KeyPress，KeyUpCKeyUp，KeyDown ，KeyPress DKeyUp，KeyPress，KeyDown58. ADO 控件属于 ActiveX 控件，使用之前必须加载 Microsoft ADO Data Conctrol 6.0（OLE DB） ，将 ADO 控件添加到工具箱中。添加ADO 控件的菜单为（ B ） 。A “工程”“引用” B “工程”“部件”C “工具”“选项” D “工程”“添加文件”59. 利用 ADO 访问数据库，首先要创建一个（ A ）对象，用于建立和数据库的连接。AConnection 对象 BRecordset 对象CCommand 对象 DObject 对象60. SQL 语言的 Select 语句中，用于分组的语句为（ B ） 。Awhere Bgroup by Corder by Dhaving61. 以下四个控件，不属于数据绑定控件的是（ C ） 。AText 控件 BDataGrid 控件 COption 控件 DLabel 控件62. 决定系统是否自动检测多媒体控件（MMControl）各按钮的状态的属性是（ B ） 。AEnable BAutoEnableCPlayEnabled D以上答案都不正确63. 将多媒体控件（MMControl）的 Frames 属性设为 3，则以下叙述正确的是（ A ） 。A指定 Back 或 Step 命令后退或前进的帧数都为 3B只有 Back 命令后退的帧数为 3C只有 Step 命令前进的帧数为 3D后退或前进的帧数都为 664. 多媒体控件（MMControl）具有一组执行 MCI 命令的下压式按钮。其中 Record 按钮表示为（ B ） 。A前一首 B录制 C弹出 D播放65. 为了使多媒体控件（MMControl）中的录制按钮不显示，应添加代码（ C ） 。AMMControl1.Visible= FalseBMMControl1.Visible= TrueCMMControl1.RecordVisible= FalseDMMControl1.RecordVisible= True66. 在多媒体控件（MMControl）中，DeviceType 属性用于设置多媒体设备的类型，如果将要播放的文件是 CD 歌曲，应将 DeviceType属性设置为（ D ） 。ADigitalVideo BWaveAudio CAVIVideo DCDAudio67. Windows Media Player 控件的 UiMode 属性，表示播放器界面模式，以下选项是播放器模式的属性值是（ D ） 。AFull BMini CNone D以上都是 68. 在 Windows Media Player 控件中，决定播放文件是否全屏的属性是（ A ） 。AFullScreen BFull CScreen DstretchToFit二、填空题1. 数学表达式 cox2x+ 写成等价的 Visual Basic 表达式为 cos(x)2+Sqr(x2-y2)/2 。21yx2. 数学表达式 写成等价的 Visual Basic 表达式为 10(1/2)*cos(50*3.14/180) 或者 Sqr(10)*cos(50*3.14/180) 。05cos3. 数学式子 对应的 Visual Basic 运算表达式是 ： Sqr(s*(s-a)*(s-b)*(s-c) 。)()(cba4. 将 1 x =1 And xb and Not ca Or cb And c 0 ThenintOp1 = intOp1 - intOp1 Mod intOp2End IfEnd Select lblQuestion 为标签lblQuestion.Caption = intOp1 Data Source=d: xs.mdb“If ADOcn Is Nothing ThenSet ADOcn = New ConnectionADOcn.Open strAccess End IffrmMain.Show frmMain 为窗体End Sub该段程序的功能是建立数据库的连接。实现与 D 盘根目录下的文件名为 xs.mdb 的 Access 数据库的连接，同时显示frmMain 窗体。11. 阅读以下程序，写出其功能。Public ADOcn As ConnectionPublic ADOrs As New RecordsetPrivate Sub cmdAdd_Click()Dim strSQL As String 文本框 txtNo、txtName 和组合框 cboSex、cboClass分别用来输入学号、姓名、性别和班级strSQL = “select * from 学生表 where 学号=“ + txtNo.Text + “ ADOrs.Open strSQL, ADOcn If Not ADOrs.EOF ThenMsgBox “该记录已经存在，不能继续增加！“, vbCritical + vbOKOnlyADOrs.CloseExit SubEnd IfstrSQL = “insert into 学生表(学号,姓名,性别,班级)“strSQL = strSQL + “ values(“ + txtNo.Text + “,“ + txtName.Text + “,“ strSQL = strSQL +“ + cboSex.Text + “,“ txtClass.Text + “)“ADOcn.Execute strSQL End Sub该段程序的功能是把一个学生记录插入到学生表中。首先查找数据表中是否存在文本框 txtNo 中输入的学号，如果存在则不增加；如果不存在，则把该学生的信息记录插入学生表中。四、程序设计题1. 编写一个程序。程序初始界面如图 1 左图所示，设“学习目的” 、 “学习方法”和“退出”命令按钮的名称定义为 cmdAim、cmdWay和 cmdExit，标签控件的名称定义为 lblContent。单击“学习目的” 按钮，显示如图 1 的中图所示；单击“学习方法”命令按钮，显示如图 1 的右图所示；单击“退出”按钮时，退出程序。图 1Private Sub cmdAim_Click()lblContent.Caption = “开发 Windows 应用程序“End SubPrivate Sub cmdWay_Click()lblContent.Caption = “从实际应用程序的开发过程中学习 VB“End SubPrivate Sub cmdExit_Click()EndEnd Sub2. 设计一个简单的加法程序，程序界面设计如图 2 所示。设第一操作数、第二操作数和计算结果文本框的名称分别定义为txtFirstNum、txtSecondNum 和 txtSum， “计算”命令按钮的名称定义为 cmdSum。图 2Private Sub cmdSum_Click()txtSum.Text = Val(txtFirstNum.Text) + Val(txtSecondNum.Text)End Sub3. 编写一个数制转换程序，运行界面如图 3 所示。设三个文本框的名称框定义分别为 TxtDec、TxtHex 和 TxtOct。实现在第一个文本框中输入十进制数后，第二个文本框自动显示该数对应的十六进制数，第三个文本框自动显示该数对应的八进制数。提示：利用文本框的 Change 事件和转换函数 Hex、Oct 。图 3Private Sub TxtDec_Change()TxtHex.Text = Hex(Val(TxtDec.Text)TxtOct.Text = Oct(Val(TxtDec.Text)End Sub4. 编写一个猜数字程序。程序产生一个随机数，由用户来猜这个数，并提示用户猜的数是否太大或太小，程序运行界面如 4 所示，设输入文本框的名称框定义为 TxtAnswer，神秘的数、评价标签控件的名称框定义为 lblComment 和 lblNum， “确定”命令按钮的名称定义为 cmdOk。图 4Dim intNum As Integer 用于存放 “神秘的数”Dim intCount As Integer 用于猜数计数Private Sub cmdOk_Click()intCount = intCount + 1 计数If Val(txtAnswer.Text) = intNum Then 猜对lblComment.Caption = “猜对了！你一共猜了“ & intCount & “次“lblNum.Caption = intNumElseIf Val(txtAnswer.Text) intNum ThenlblComment.Caption = “太大了！“ElselblComment.Caption = “太小了！“End IfEnd SubPrivate Sub Form_Load()RandomizeintNum = Int(Rnd * 1000 + 1)End Sub5. 编写一个判断闰年的程序。判断平年、闰年方法：凡是能被 4 整除但不能被 100 整除的年份为闰年，如 1980 年；凡是能被 400 整除的年份为闰年，如 2000 年；除以上两种情况以外的其余年份都是平年。Private Sub Command1_Click()Dim intYear As Integer 用于存放年份intYear = InputBox(“请输入年份 “)If intYear Mod 400 = 0 Or (intYear Mod 4 = 0 And intYear Mod 100 0) ThenMsgBox intYear & “年是闰年“ElseMsgBox intYear & “年是平年“End IfEnd Sub6. 编写一个列表框应用程序，程序界面如图 5 所示。设“添加” 、 “删除”和“修改”按钮的名称定义为 cmdAdd、cmdDel 和cmdUpdate，列表框和文本框的名称为默认。要求从文本框输入姓名，然后按“添加”按钮把姓名添加到列表框中；当选择列表框中某一项时，按“删除”按钮，从列表框中删除；当选择列表框中某一项时，按“修改”按钮，把列表框中选取的项送往文本框且“修改”按钮变为“修改确认” 。在文本框的内容修改好后，按“修改确认”按钮，再把文本框中修改的信息送到列表框且“修改确认”按钮变为“修改” 。图 5Private Sub cmdAdd_Click()List1.AddItem Text1.TextText1.Text = “End SubPrivate Sub cmdDel_Click()List1.RemoveItem List1.ListIndexText1.Text = “End SubPrivate Sub cmdUpdate_Click()If cmdUpdate.Caption = “修改 “ ThenText1.Text = List1.List(List1.ListIndex)cmdUpdate.Caption = “确认修改“ElseList1.List(List1.ListIndex) = Text1.TextcmdUpdate.Caption = “修改“Text1.Text = “End IfEnd Sub7. 假设在 D 盘驱动器上已建立了一个通信录文件（Txl.txt） ，文件中的每个记录包括编号、用户名、电话号码和地址等 4 项内容。试编写一个程序，实现能按用户名查找，并在文本框中显示查找结果，如图 6 所示。设“查找”按钮的名称定义为 cmdFindname，查找输入名称和结果文本框的名称分别定义为 txtName 和 txtCount，记录条数标签的名称定义为 lblCount。图 6设在标准模块中已输入以下代码：Type LxrintBh As Integer 编号strXm As String *