请认真阅读说明再下载：请仔细核对题目顺序完全相同再下载！题库学校每学期都可能更换！部分主观题没有标准答案！预祝您取得好成绩金！由金锄头账号：qq号1072066377电大奥鹏助学团队独家整理！仅在金锄头网上传!Visual Basic程序设计#-0001浙江广播电视大学形成性测评系统 课程代码：3309019 参考资料 试卷总分：100单项选择题(共15题,共60分)1.(4分)对目录列表框来说，当( )属性值改变时，将引发Change事件。A、PathB、DriveC、CaptionD、Text参考答案：A2.(4分)程序运行时，驱动器列表框下列（ ）属性能返回磁盘驱动器的名称。A、DriveB、DriveNameC、ChgdriveD、Drives参考答案：A3.(4分)Visual Basic中设置断点的按键是F9，逐语句调试的语句是( )。A、F1B、F9C、F8D、F7参考答案：C4.(4分)某计时器控件的interval属性为0时，表示（ ）。A、计时器关闭计时B、Timer事件的间隔时间为0秒C、Timer事件的间隔时间为0毫秒D、计时器启动计时参考答案：A5.(4分)如果在图片框上使用绘图方法绘制一个圆，则图片框的（ ）属性决定了该圆的颜色。A、BackColorB、ForeColorC、FillColorD、DrawStyle参考答案：B6.(4分)在Visual Basic中，数组默认的下标下界是( ) 。A、0B、1C、-1D、不确定参考答案：A7.(4分)在Visual Basic中，一般（ ）属性用来设置字体的颜色。A、FontColorB、ForeColorC、BackColorD、ShowColor参考答案：B8.(4分)Visual Basic中变量依据其作用域不同可以分为过程级变量（局部变量）、模块级变量和全局变量3类。过程级变量就是指在事件过程或通用过程内定义的变量，它的作用域就是( )。A、整个工程中所有的模块和所有的过程B、窗体内的所有过程C、其所在的过程D、模块内的所有过程参考答案：C9.(4分)在Visual Basic中，参数通过 ( )两种方式传送。A、按值传递和按空间传递B、按值传递和按地址传递C、按类型传递和按地址传递D、按次序传递和按数量传递参考答案：B10.(4分)在Windows Media Player控件中，决定播放文件是否全屏的属性是（ ）。A、FullScreenB、FullC、ScreenD、stretchToFit参考答案：A11.(4分)在设计菜单时，为了创建分隔栏，要在（ ）中输入字符（-）。A、名称栏B、标题栏C、索引栏D、显示区参考答案：B12.(4分)Visual Basic中变量依据其作用域不同可以分为过程级变量（局部变量）、模块级变量和全局变量3类。模块级变量包括窗体级模块变量和标准模块级变量。窗体模块变量的作用域是( )。A、整个工程中所有的模块和所有的过程B、窗体内的所有过程C、其所在的过程D、模块内的所有过程参考答案：B13.(4分)执行语句Open C：Stud.txt For Input As #2后，系统（ ）。A、将内存数据存放在C盘当前文件夹下名为Stud.txt的文件中B、某个磁盘文件的内容写入C盘当前文件夹下名C、打开C盘当前文件夹下名为Stud.txt的文件，用来读取文件内容D、在C盘当前文件夹下建立名为Stud. txt的顺序文件参考答案：C14.(4分)数组的类型可以是基本数据类型，也可以是用户自定义的记录类型。如果省略类型说明，数组会被设置为默认的 ( ) 。A、字符串型B、字符型C、变体型D、整型参考答案：C15.(4分)RGB函数通过红、绿、蓝三基色混合产生某种颜色，若使用三个滚动条分别输入三种基色，为保证输入数值有效，则应设置滚动条的（ ）属性。A、Max和MinB、Smallchange和 LargeChC、Scroll和ChangeD、Value参考答案：A程序填空题(共3题,共30分)16.(10分)有以下3个数据表：学生表：student_info(student_id,student_name,student_sex,student_class)，分别表示学号、姓名、性别、班级，各字段数据类型都是文本。课程表：course_info(course_ID ,course_name ,course_credit)，分别表示课程号、课程名、学分，课程号、课程名为文本类型，学分为数字类型。成绩表：mark_info(student_ID, course_ID,mark)，分别表示学号、课程号、成绩，其中学号、课程号为文本类型，mark为数字类型。写出SQL语句：修改学号为“95020”，课程号为“A001”的成绩为85。( )A、Update mark_info set mark=85 where student_ID =95020 or course_ID =A001B、Update mark_info set mark=85C、Update mark_info set mark=85 where student_ID =95020 and course_ID =A001D、Update mark_info set mark=85 where student_ID =95020 and course_ID =A001参考答案：C17.(10分)填空如下程序，使用ADO对象中的Connection对象连接SQL Server数据库。Public ADOcn As ConnectionPublic Sub Main() Dim strSqlServer As String strSqlServer=Provider=SQLOLEDB;Server=(local);User ID=sa;Password=sa; Database=XS If ADOcn Is Nothing Then Set ADOcn = New Connection （ ） End IfEnd SubA、Set ADOcn = New ConnectionB、ADOcn.Open strSqlServerC、ADOcn.OpenD、ADOcn strSqlServer参考答案：B18.(10分)填空如下程序，实现通信录查询功能。设“查找”按钮的名称定义为cmdFindname，查找输入名称和结果文本框的名称分别定义为txtName和txtCount，记录条数标签的名称定义为lblCount。Type Lxr intBh As Integer 编号 strXm As String * 8 姓名 strDh As String * 11 电话 strDz As String * 30 地址End TypePublic user As LxrPrivate Sub cmdFindname_Click() Dim i As Integer, intCount As Integer, intRecordNum As Integer Dim strComp1 As String, strComp2 As String txtCount.Text = 编号 姓名 电话 地址 + vbCrLf intCount = 0 Open d:txl.txt For Random As #1 Len = Len(user) （ ) For i = 1 To intRecordNum Get #1, i, user strComp1 = Trim(txtName.Text) strComp2 = Trim(Replace(user.strXm, Chr(0), ) 比较输入的姓名和文本中的姓名是否一致 If StrComp(strComp1, strComp2) = 0 Then intCount = intCount + 1 Get #1, i, user msg = Str(user.intBh) + + user.strXm + user.strDh + user.strDz msg = Replace(msg, Chr(0), ) txtCount.Text = txtCount.Text + msg + Chr(13) + Chr(10) End If Next i Close #1 lblCount.Caption = 一共找到 + Str(intCount) + 条记录 If intCount = 0 Then MsgBox 没有该记录, vbInformation, 提示 End IfEnd SubA、intRecordNum =Len(user)/ LOF(1)B、intRecordNum = LOF(1) / Len(user)C、intRecordNum = LOF(1) / Len(1)D、intRecordNum = LOF(user) / Len(user)参考答案：B程序阅读题(共1题,共10分)19.(10分)阅读以下程序，写出其功能。Public Function Avg_mark(MarkArray() As Single) As Single Dim sngSum As Single, i As Integer , n As Integer sngSum = 0 n = UBound(MarkArray) For i = 0 To n sngSum = sngSum + MarkArray(i) Next i Avg_mark = sngSum / n End FunctionA、求数组元素的平均值函数。B、求数组元素的最大值函数。C、求数组元素的和函数。D、求数组元素个数的函数。参考答案：A