(电大复习)《Visual Basic程序设计》课程期末复习

Visual Basic 程序设计 课程 期末复习 一、单项选择题 1. 如果要 设置 窗体的标题栏，应选择 （ B ） 属性 。 A Visible B Caption C Name D Text 2. 要使命令 按钮不响应用户生成的事件 ，应设置命令按钮的 （ D ） 属性。 A Visible B Caption C Enable D Enabled 3. 要使 标签 能透出窗体的背景，应设置标签的 （ A ） 属性。 A BackStyle B BorderStyle C Appearance D BackColor 4. 以下控件中， （ A ） 控件 不会 影响到界面设计效果。 A 计 时器 B 文本框 C 标签 D Line控件 5. 在 Visual Basic中，一般 （ B ） 属性用来设置字体的颜色。 A FontColor B ForeColor C BackColor D ShowColor 6. 在 VB 中断模式下，可用调试窗口监视表达式和变量的值 ， 其中在 （ A ） 窗口中可以直接键入命令以显示命令所请求的信息。 A立即 B.监视 C.本地 D.中断 7. 某 计时器 控件的 interval属性为 0时，表示（ A ）。 A 计时器 关闭计时 C Timer事件的 间隔时间为 0毫秒 B Timer事件的 间隔时间为 0秒 D 计时器启动计时 8. 在 窗体 Form1的 Click事件过程中有以下语句： Label1.Caption=Visual Basic 若本语句执行之前，标签控件的 Caption 属性为默认值，则标签控件的 Name 属性和 Caption 属性在执行本语句之前的值分别为（ B ） 。 A Label和 Label B Label1和 Label1 C Label1和 Visual Basic D Label和 Caption 9. （ C ） 控件不具有 Caption属性。 A Label B Form C TextBox D CommandButton 10. 改变控件在窗体中的上下位置，应设置控件的（ A ）属性。 A Top B Left C Width D Right 11. 文本框 中选定的内容，由下列（ C ）属性反映。 A Text B Caption C Seltext D SelLenght 12. 在 Visual Basic中，变量的默认类 型是（ D ）。 A String B Integer C Double D Variant 13. 假设 已定义 Integer变量 x、 y，则以下赋值语句正确的是（ C ）。 A x + 1 = y B x := y C y = x + y D 1 = x 14. 、 /、 Mod、 *四个算术运算符中，优先级别最低的是（ C ）。 A B / C Mod D * 15. 下列 哪组语句可以将变量 A、 B值互换（ B ）。 A A=C : C=B : B=A B A=A+B : B=A B: A=A B C A=B : B=A D A=(A+B)/2 : B=(A - B)/2 16. 以下语句的输出结果是（ C ）。 Print Format (32548.5,“ 000,000.00” ) A 32548.5 B 32,548.5 C 032,548.50 D 32,548.50 17. 表达式 4+5 6 * 7 / 8 Mod 9 的值是 （ B ） 。 A 4 B 5 C 6 D 7 18. 函数 Int(Rnd*10)是在 （ C ） 范围内的整数 。 A（ 0, 10） B (0,10 C 0, 10） D 0, 10 19. 下面（ A ）运算符 是算 术 运算符 。 A Mod B Like C And D Not 20. 已知三个变量 A、 B、 C，判断 A、 B、 C能否构成三角形的逻辑表达式为（ B ）。 A A = B And B = C And A = C B A + C = B And A + B = C And B + C = A C A + C = B Or A + B = C Or B + C = A D A + C = B And A + B = C Or B + C = A 21. 下面程序段运行后，显示的结果是（ B ）。 Dim intX As Integer If intX Then Print intX Else Print intX + 1 End If A 0 B 1 C 2 D不一定 22. 以下程序的输出结果是（ C ）。 Dim a, i%, sum% a = Array(4, 3, 2, 1) For i = 0 To 3 sum = sum + a(i) Next i Print sum A 4 B 6 C 10 D不一定 23. 在过程中定义的变量，若希望在离开该过程后，还能保存过程中局部变量的值，则应使用（ D ）关键字在过程中定义局部变量。 A Dim B Public C Private D Static 24. 能通过（ D ）来删除列表框中的选择项。 A List 属性 B Text 属性 C Clear方法 D RemoveItem方法 25. ListBox中若没有 任何 条目选中，其 ListIndex属性 值为（ A ）。 A -1 B 0 C 1 D任意 26. 可通过（ C ）属性判断 ListBox列表框控件的项目总数目。 A ListIndex B ListText C Listcount D随机数 27. 列表框的（ B ）属性 用于 返回或设置列表框中各列表项的文本。 A Selected B List C Text D Caption 28. 设 List1为列表框控件， List1.Clear中的 Clear是（ A ）。 A方法 B对象 C属性 D 事件 29. 以下（ D ）语句将删除列表框 List1中的最后一项。 A List1.RemoveItem List1.ListCount B List1.Clear C List1.List(List1.ListCount-1)= D List1.RemoveItem List1.ListCount-1 30. 若要把 “ XXX” 添加到列表框 List1中的第三项，则可执行语句（ B ）。 A List1.AddItem XXX, 3 B List1.AddItem XXX, 2 C List1.AddItem 3,XXX D List1.AddItem 2,XXX 31. 用户可以通过设置菜单项的（ C ）属性值为 False来使该菜单项失效。 A Hide B Visible C Enabled D Checked 32. 用户可以通过设置菜单项的（ B ）属性值 设置 为 False来使该菜单项不可见。 A Hide B Visible C Enabled D Checked 33. 菜单编辑器中，同层次的（ B ） 属性值 设置为相同，才可以设置索引值。 A Caption B Name C Index D ShortCut 34. 每创建一个 顶级 菜单，它的下面最多可以有（ C ）级子菜单。 A 1 B 3 C 5 D 6 35. 在设计菜单时，为了创建分隔栏，要在（ B ）中输入字符（ -）。 A名称栏 B标题栏 C索引栏 D显示区 36. 如果要在 程序 中显示一个弹出菜单， 需 调用 （ D ） 方法。 A Print B Move C Refresh D PopupMenu 37. 当单击 工具栏 上的按钮，会触发的事件是（ A ）。 A ButtonClick B Change C Load D KeyPress 38. 下列可以 用来 存储图像可以供其它控件使用的控件是（ C ）。 A ToolBar B StatursBar C ImageList D TreeView 39. 在 Visual Basic中按文件的访问方式不同，可以将文件分为（ B ）。 A 文本文件 和数据文件 B顺序文件、随机文件和二进制文件 C ASCII文件和二进制文件 D数据文件和可执行文件 40. 检测文件 是否 结束的函数是（ C ）。 A LOF() B Len() C EOF() D Chr() 41. 要读出 C盘根目录下的 顺序文件 stud.txt 中的内容，下列打开方式中（ C ）是正确的。 A Open C:stud.txt For Append As #1 B Open C:stud.txt For Random As #1 C Open C:stud.txt For Input As #1 D Open C:stud.txt For Output As #1 42. 随机文件 使用（ C ）语句写数据。 A Input# B Write # C Put D Get 43. 随机文件使用（ D ）语句读数据。 A Input# B Write # C Put D Get 44. 程序运行 时， 驱动器 列表框 下列（ A ）属性能返回磁盘驱动器的名称。 A Drive B DriveName C Chgdrive D Drives 45. 要用通用对话框控件显示标准的“字体”对话框，应调用其（ C ）方法。 A ShowOpen B ShowColor C ShowFont D ShowSaveas 46. 改变 驱动器 列表框的 Drive属性值将激活 其 （ A ）事件。 A Change B Scroll C KeyDown D KeyUp 47. 使用 目录 列表框的（ B ）属性可以返回或设置当前工作目录的完整路径（包括驱动器盘符）。 A Drive B Path C Dir D ListIndex 48. 在 随机文件 中（ 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窗体 B Image控件 C PictureBox控件 D Frame控件 51. 要向 图片 框 picP 中加载“ d:hainanzhiwu.bmp”图像文件，应使用语句（ C ）。 A Picture1.Picture= d:hainanzhiwu.bmp B Picture1.Picture=LoadPicture(d:hainanzhiwu.bmp) C picP.Picture=LoadPicture(d:hainanzhiwu.bmp) D picP.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 ）属性。 A Max和 Min B Smallchange和 LargeChange C Scroll和 Change D Value 56. 如果在图片框上使用 绘图 方法绘制一个圆，则图片框的（ B ）属性决定了该圆的颜色。 A BackColor B ForeColor C FillColor D DrawStyle 57. 键盘事件的执行顺序是（ B ）。 A KeyPress， KeyDown， KeyUp B KeyDown， KeyPress， KeyUp C KeyUp， KeyDown， KeyPress D KeyUp， KeyPress， KeyDown 58. ADO控件属于 ActiveX 控件，使用之前必须 加载 Microsoft ADO Data Conctrol 6.0（ OLE DB） ，将 ADO 控件 添加到工具箱中 。 添加ADO控件的菜单为（ B ）。 A“工程”“引用” B“工程”“部件” C“工具”“选项” D“工程”“添加文件” 59. 利用 ADO访问数据库 ，首先要创建一个（ A ）对象，用于建立和数据库的连接。 A Connection对象 B Recordset 对象 C Command对象 D Object 对象 60. SQL语言的 Select 语句中，用于分组的语句为（ B ）。 A where B group by C order by D having 61. 以下四个控件，不属于数据绑定控件的是（ C ）。 A Text 控件 B DataGrid控件 C Option控件 D Label控件 62. 决定系统是否自动检测多媒体控件（ MMControl）各按钮的状态的属性是（ B ）。 A Enable B AutoEnable C PlayEnabled D以上答案都不正确 63. 将多媒体控件（ MMControl）的 Frames 属性设为 3，则以下叙述正确的是（ A ）。 A指定 Back或 Step 命令后退或前进的帧数都为 3 B只有 Back命令 后退 的帧数为 3 C只有 Step 命令 前进 的帧数为 3 D后退或前进的帧数都为 6 64. 多媒体控件（ MMControl）具有一组执行 MCI命令的下压式按钮。其中 Record按钮 表示为（ B ）。 A前一首 B录制 C弹出 D播放 65. 为了使多媒体控件（ MMControl）中的录制按钮不显示，应添加代码（ C ）。 A MMControl1.Visible= False B MMControl1.Visible= True C MMControl1.RecordVisible= False D MMControl1.RecordVisible= True 66. 在多媒体控件（ MMControl）中， DeviceType 属性用于设置多媒体设备的类型，如果将要播放 的文件是 CD 歌曲，应将 DeviceType属性设置为（ D ）。 A DigitalVideo B WaveAudio C AVIVideo D CDAudio 67. Windows Media Player控件的 UiMode属性，表示播放器界面模式，以下选项是播放器模式的属性值是（ D ）。 A Full B Mini C None D以上都是 68. 在 Windows Media Player控件中，决定播放文件是否全屏的属性是（ A ）。 A FullScreen B Full C Screen D stretchToFit 二、填空题 1. 数学表达式 cox2x+ 2221 yx 写成等价的 Visual Basic表达式为 cos(x)2+Sqr(x2-y2)/2 。 2. 数学表达式 050cos10 写成等价的 Visual Basic表达式为 10(1/2)*cos(50*3.14/180) 或者 Sqr(10)*cos(50*3.14/180) 。 3. 数学式子 )()( csbsass 对应的 Visual Basic运算表达式是 ： Sqr(s*(s-a)*(s-b)*(s-c) 。 4. 将 1 x =1 And xb and Not ca Or cb And c sngMax Then sngMax = MarkArray(i) Next i Max_Mark = sngMax End Function 该程序是一个求最大值的函数。 以 一个单精度的数组作为参数，先求出数组元素的个数，接着逐个比较，求出数组元素的最大值。 7. 阅读以下程序，写出其功能。 Public Function Pass_Mark(MarkArray() As Single) As Single Dim intCount As Integer, i As Integer , n As Integer intCount = 0 n = UBound(MarkArray) For i = 0 To n if MarkArray(i) = 60 Then intCount = intCount + 1 Next i Pass_Mark = intCount / n End Function 该 函数的功能 是求 一组数中大于等于 60的数的比例 。 以 一个单精度的数组作为参数，先求出数组元素的个数，接着逐个比较，求出数组元素 中大于等于 60的数 的 个数，最后求出其比例。 8. 阅读以下程序，写出其功能。 Private Sub Sort_Mark(MarkArray() As Single) Dim sngMtemp As Single Dim i As Integer , n As Integer , k As Integer,j As Integer n = UBound(MarkArray) For i = 0 To n 1 k = i For j = i + 1 To n If MarkArray(j) MarkArray(k) Then k = j Next j sngMtemp = MarkArray(k) MarkArray(k) = MarkArray(i) MarkArray(i) = sngMtemp Next i End Sub 该 过程 的功能是 把 一组数 按从大到小排序 。 以 一个单精度的数组作为参数，先求出数组元素的个数，接着逐个比较，求出数组元素中 的最大值和第一个元素交换位置； 求出次大值和第二个元素交换位置；依次类推，完成从大到小排序。 9. 阅读以下程序，写出其功能。 Private Sub changecolor() Dim r As Integer , g As Integer, b As Integer Dim x As Long hsbRed、 hsbGreen和 hsbBlue为水平滚动条 hsbRed.Min=0: hsbGreen.Min=0 : hsbBlue.Min=0 hsbRed.Max=255: hsbGreen.Max=255 : hsbBlue.Max=255 r = hsbRed.Value g = hsbGreen.Value b = hsbBlue.Value x = RGB(r, g, b) frmMain.BackColor = x End Sub 该过程的功能是 用红色、绿色、蓝色三个滚动条调节窗体底色。先把红色、绿色、蓝色三个滚动条的 Min 属性设置为 0、Max属性设置为 255，接着用取出三个滚动条的 Value属性值，用 RGB函数产生一个由红、绿、蓝 三个 Value属性值混合而成的 新 颜色，并作为窗体底色。 10. 阅读以下程序，写出其功能。 Public ADOcn As Connection Public Sub Main() Dim strAccess As String strAccess=Provider=Microsoft.Jet.OLEDB.4.0；Data Source=d: xs.mdb If ADOcn Is Nothing Then Set ADOcn = New Connection ADOcn.Open strAccess End If frmMain.Show frmMain为 窗体 End Sub 该段程序的功能是 建立数据库的连接。实现与 D 盘根目录下的文件名为 xs.mdb 的 Access 数据库的连接，同时显示 frmMain窗体。 11. 阅读 以下程序，写出其功能。 Public ADOcn As Connection Public ADOrs As New Recordset Private 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 Then MsgBox 该记录已经存在，不能继续增加！ , vbCritical + vbOKOnly ADOrs.Close Exit Sub End If strSQL = 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的 右图所示；单击“退出”按钮时，退出程序。 图 1 Private Sub cmdAim_Click() lblContent.Caption = 开发 Windows 应用程序 End Sub Private Sub cmdWay_Click() lblContent.Caption = 从实际应用程序的开发过程中学习 VB End Sub Private Sub cmdExit_Click() End End Sub 2. 设计一个简单的加法程序，程序界面设计如 图 2所示 。 设 第一操作数、第二操作数 和计算结果文本框的名称 分别 定义为 txtFirstNum、txtSecondNum和 txtSum， “ 计算 ”命令按钮的名称定义为 cmdSum。 图 2 Private Sub cmdSum_Click() txtSum.Text = Val(txtFirstNum.Text) + Val(txtSecondNum.Text) End Sub 3. 编写一个 数制 转换程序，运行界面如图 3所示 。 设三个文本框的名称框定义分别为 TxtDec、 TxtHex和 TxtOct。 实现在第一个文本框中输入十进制数后，第二个文本框自动显示该数对应的十六进制数，第三个文本框自动显示该数对应的八进制数。提示：利用文本框的 Change事件和转换函数 Hex、 Oct。 图 3 Private Sub TxtDec_Change() TxtHex.Text = Hex(Val(TxtDec.Text) TxtOct.Text = Oct(Val(TxtDec.Text) End Sub 4. 编写一个猜数字程序。 程序产生一个随机数，由用户来猜这个数，并提示用户猜的数是否太大或太小，程序运行界面如 4所示 ，设输入文本框的名称框定义为 TxtAnswer， 神秘的数、评价标签控件的 名称框定义为 lblComment 和 lblNum， “确定”命令按钮的名称定义为 cmdOk。 图 4 Dim 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 = intNum ElseIf Val(txtAnswer.Text) intNum Then lblComment.Caption = 太大了 ！ Else lblComment.Caption = 太小了！ End If End Sub Private Sub Form_Load() Randomize intNum = Int(Rnd * 1000 + 1) End Sub 5. 编写一个判断闰年的 程序 。判断平年、闰年方法：凡是能被 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) Then MsgBox intYear & 年是闰年 Else MsgBox intYear & 年是平年 End If End Sub 6. 编写 一 个列表框应用程序，程序界面如图 5所示 。 设“添加”、“删除”和“修改”按钮的名称定义为 cmdAdd、 cmdDel和 cmdUpdate，列表框和文本框的名称为默认 。要求从文本框输入姓名，然后按“添加”按钮把姓名添加到列表框中；当选择列表框中某一项时，按“删除”按钮，从列表框中删除；当选择列表框中某一项时，按“修改”按钮，把列表框中选取的项送往文本框且“修改”按钮变为“修改确认”。在文本框的内容修改好后，按“修改确认”按钮，再把文本框中修改的信息送到 列表框 且“修改确认”按钮变为“修改”。 图 5 Private Sub cmdAdd_Click() List1.AddItem Text1.Text Text1.Text = End Sub Private Sub cmdDel_Click() List1.RemoveItem List1.ListIndex Text1.Text = End Sub Private Sub cmdUpdate_Click() If cmdUpdate.Caption = 修改 Then Text1.Text = List1.List(List1.ListIndex) cmdUpdate.Caption = 确认修改 Else List1.List(List1.ListIndex) = Text1.Text cmdUp