Visual Basic程序设计#-0001答案.doc
(193.5 KB, 下载次数: 22, 售价: 3.00 元)
Visual Basic程序设计#-0001 试卷总分：100 测试时间:-- 单项选择题 |程序填空题 |程序阅读题 1. 对目录列表框来说，当( )属性值改变时，将引发Change事件。 Path Drive Caption Text 2. 程序运行时，驱动器列表框下列（ ）属性能返回磁盘驱动器的名称。 Drive DriveName Chgdrive Drives 3. Visual Basic中设置断点的按键是F9，逐语句调试的语句是( )。 F1 F9 F8 F7 4. 某计时器控件的interval属性为0时，表示（）。 计时器关闭计时 Timer事件的间隔时间为0秒 Timer事件的间隔时间为0毫秒 计时器启动计时 5. 如果在图片框上使用绘图方法绘制一个圆，则图片框的（ ）属性决定了该圆的颜色。 BackColor ForeColor FillColor DrawStyle 6. 在Visual Basic中，数组默认的下标下界是( ) 。 0 1 -1 不确定 7. 在Visual Basic中，一般（ ）属性用来设置字体的颜色。 FontColor ForeColor BackColor ShowColor 8. Visual Basic中变量依据其作用域不同可以分为过程级变量（局部变量）、模块级变量和全局变量3类。过程级变量就是指在事件过程或通用过程内定义的变量，它的作用域就是( )。 整个工程中所有的模块和所有的过程 窗体内的所有过程 其所在的过程 模块内的所有过程 9. 在Visual Basic中，参数通过 ( )两种方式传送。 按值传递和按空间传递 按值传递和按地址传递 按类型传递和按地址传递 按次序传递和按数量传递 10. 在Windows MediaPlayer控件中，决定播放文件是否全屏的属性是（ ）。 FullScreen Full Screen stretchToFit 11. 在设计菜单时，为了创建分隔栏，要在（ ）中输入字符（-）。 名称栏 标题栏 索引栏 显示区 12. Visual Basic中变量依据其作用域不同可以分为过程级变量（局部变量）、模块级变量和全局变量3类。模块级变量包括窗体级模块变量和标准模块级变量。窗体模块变量的作用域是( )。 整个工程中所有的模块和所有的过程 窗体内的所有过程 其所在的过程 模块内的所有过程 13. 执行语句Open"C：Stud.txt"For Input As #2后，系统（ ）。 将内存数据存放在C盘当前文件夹下名为Stud.txt的文件中 某个磁盘文件的内容写入C盘当前文件夹下名 打开C盘当前文件夹下名为Stud.txt的文件，用来读取文件内容 在C盘当前文件夹下建立名为Stud. txt的顺序文件 14. 数组的类型可以是基本数据类型，也可以是用户自定义的记录类型。如果省略类型说明，数组会被设置为默认的 ( ) 。 字符串型 字符型 变体型 整型 15. RGB函数通过红、绿、蓝三基色混合产生某种颜色，若使用三个滚动条分别输入三种基色，为保证输入数值有效，则应设置滚动条的（）属性。 Max和Min Smallchange和 LargeCh Scroll和Change Value 16. 有以下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。 ( ) Update mark_info set mark=85 wherestudent_ID ='95020' or course_ID ='A001' Update mark_info set mark=85 Update mark_info set mark=85 wherestudent_ID ='95020' and course_ID ='A001' Update mark_info set mark=85 wherestudent_ID =95020 and course_ID =A001 17. 填空如下程序，使用ADO对象中的Connection对象连接SQL Server数据库。 Public ADOcn As Connection Public Sub Main() Dim strSqlServer As String strSqlServer="  rovider=SQLOLEDB;Server=(local);UserID=sa assword=sa; Database=XS" If ADOcn Is Nothing Then Set ADOcn = New Connection （ ） End If End Sub Set ADOcn = New Connection ADOcn.Open strSqlServer ADOcn.Open ADOcn strSqlServer 18. 填空如下程序，实现通信录查询功能。设“查找”按钮的名称定义为cmdFindname，查找输入名称和结果文本框的名称分别定义为txtName和txtCount，记录条数标签的名称定义为lblCount。 Type Lxr intBh As Integer '编号 strXm As String * 8 '姓名 strDh As String * 11 '电话 strDz As String * 30 '地址 End Type Public user As Lxr Private 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 If End Sub intRecordNum =Len(user)/ LOF(1) intRecordNum = LOF(1) / Len(user) intRecordNum = LOF(1) / Len(1) intRecordNum = LOF(user) / Len(user) 19. 阅读以下程序，写出其功能。 Public Function Avg_mark(MarkArray() AsSingle) 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 Function 求数组元素的平均值函数。 求数组元素的最大值函数。 求数组元素的和函数。 求数组元素个数的函数。
| 
发表于 2020-3-30 19:59:45
