Visual Basic程序设计期末综合练习

1 VisualVisual BasicBasic 程序设计期末综合练习程序设计期末综合练习 一 单项选择题一 单项选择题 1 Visual Basic 应用程序处于运行模式时 这时 A 既不能设计界面 也不能编写代码B 可以编辑代码 不能设计界面 C 可以设计界面 不能编辑代码D 既能设计界面 也能编写代码 2 下列选项中 属于 VisualBasic 程序设计方法的是 A 面向对象 顺序驱动B 面向对象 事件驱动 C 面向过程 事件驱动D 面向过程 顺序驱动 3 在界面设计时 双击窗体中的对象后 VisualBasic 将显示的窗口是 A 立即窗口B 属性窗口 C 代码窗口D 工程资源管理器窗口 4 后缀为 cls 的文件表示 VB 的 A 窗体文件B 类模块文件 C 工程文件D 标准类模块文件 5 要在窗体 Form1 内显示 myfrm 使用的语句是 A Form caption myfrm B Form1 caption myfrm C Form1 print myfrm D Form print myfrm 6 将定时器的时间间隔设置为 1 秒 则定时器的 Interval 属性值应设为 A 1B 100 C 1000D 10 7 用于把字符串型数据转换为数值型数据的函数是 A ValB StrC AscD Chr 8 表达式 8 13 Mod 2 4 3 A 8B 16C 10D 12 9 下列图形中用 Shape 控件不能绘制的有 A 矩形B 三角形 C 正方形D 椭圆 10 如果要改变窗体的标题 则需要设置的属性是 A CaptionB NameC BackColorD BorderStyle 11 下列赋值语句正确的是 A B C AB A B C C B AD 5 A B 12 设 a Visual Basic 下面使 b Basic 的语句是 A b left a 8 12 B b mid a 8 5 C b right a 5 5 D b left a 8 5 13 键盘事件的执行顺序是 A KeyPress KeyDown KeyUp B KeyDown KeyPress KeyUp C KeyUp KeyDown KeyPress 2 D KeyUp KeyPress KeyDown 14 如果准备向随机文件中写入数据 正确的语句是 A Write 1 recB Print 1 rec C Get 1 recD Put 1 rec 15 Winsock 控件的 LocalIP 属性的作用是 A 仅返回所用端口B 返回本地计算机的名称 C 返回或设置所用端口D 返回本地计算机的 IP 地址 16 要以读方式打开 D 盘的一个顺序文件 Test doc 应使用的语句是 A Open Test doc For OutputAs 1 B Open D Test doc For InputAs 1 C Open D Test doc For OutputAs 1 D Open Test doc For InputAs 1 15 Winsock 控件的 LocalIP 属性的作用是 A 仅返回所用端口B 返回本地计算机的名称 C 返回或设置所用端口D 返回本地计算机的 IP 地址 18 修改控件属性 一般可以使用属性窗口 也可以通过 为属性赋值 A 命令B 对象C 方法D 代码 19 要在命令按纽上显示图形 应首先设置的属性是 A EnabledB Style C CaptionD Icon 20 Dim Abc 5 所定义的数组元素个数是 A 5B 6C 4D 10 21 在 VB 应用程序中 进行逐语句调试的按键是 A F9 键B Ctrl F9 键 C F8 键D Ctrl F8 键 22 在窗体上画三个单选按纽 组成 Command1 的命令按纽 用于标识各个控件数组 元素的参数是 A TagB IndexC ListIndexD Name 23 目录列表框的 Path 属性的作用是 A 显示当前驱动器或指定驱动器上的路径 B 显示当前驱动器或指定驱动器上的某目录下的文件名 C 显示根目录下的文件名 D 只显示当前路径下的文件 24 当 Winsock 控件处于关闭状态时 其 State 属性的值是 A 1B 0 C 2D 3 25 执行指令 Line 200 200 step 500 500 后 CurrentX A 500B 200 C 300D 700 26 不属于 VB 数据库引擎的是 3 A ODBCB BDE C Jet 引擎D OLE DB 27 数学关系 8 x 30 表示成正确的 VB 表达式为 A 8 x 30B 8 x AND 30 C 8 x AND x 30D 8 x OR xb and Not c a Or c b And c a b 的值是 9 日期表达式 2 24 02 2 12 02 的值为 10 为了在运行时把当前路径下的图形文件 picturefile jpg 装入图片框 Picture1 所 使用的语句为 5 11 数 学 表 达 式 cox2x 22 2 1 yx 写 成 等 价 的 Visual Basic 表 达 式 为 12 设某个程序中要用到一个二维数组 要求数组名为 A 类型为字符串类型 第一维 下标从0到5 第二维下标从 2到5 则相应的数组声明语句为 13 Visual Basic 一般用 4 种类型的文件保存 分别是扩展名为的窗体文 件 扩展名为的标准模块文件 扩展名为的类模块文件和扩展名为 的工程文件 14 Visual Basic 程序开发有三种模式 即模式 模式和 模式 15 Visual Basic 中变量依据其作用域不同可以分为过程级变量 局部变量 窗体级 变量和全局变量 3 类 过程级变量是指在过程内部声明的变量 其作用域是 窗体级变量是指在窗体或模块的代码声明段用 Dim 或 Private 声明的变量 其作用域 是 全局变量在整个应用程序中有效 其作用域是 16 在 Visual Basic 的转换函数中将数值转换为字符串的函数是 将数字字 符 串 转 换 为 数 值 的 函 数 是 将 字 符 转 换 为 相 应 的 ASCII 码 的 函 数 是 17 公共对话框 控件提供了几种不同类型的对话框 可以通过属性或相 应的方法确定对话框的类型 公共对话框 Name 属性的默认名称 18 将图片框 PictureBox 的 AutoSize 属性设置成时 图片框能自动调整大 小 以适应其中的图片 19 若已建立了 Form1 和 Form2 两个窗体 默认启动窗体为 Form1 通过 菜单菜单项 可将启动窗体设置为 Form2 在程序中若要显示 Form1 窗体 则 执行语句 20 若窗体 Form1 左上角坐标为 0 600 右下角的坐标为 800 200 则 X 轴的 正向向 Y 轴的正向向 21 Left abcd 2 函数的返回值是 Right abcd 2 函数的返回值是 22 Vb 应用程序与数据库进行通信的主要机制称为 23 Winsock 控件主要用来编制或协议的通话程序 24 假设 ADOcn 为一个 Connection 对象 那么在 VB 程序中声明 ADOcn 的语句是 25 在 VB 中 将 Foxpro 称为 Access 称为 SQL Server 称 为 26 常用的 VB 网络编程控件主要有 三 种 27 以 500 500 为圆心 以 300 为半径 用 ForeColor 颜色绘制一个圆形 其实现的代码 是 28 按文件的存取方式 可将文件分为顺序文件 和 29 有变量定义语句 Dim Str1 Str2 As String 10 其中 Str1 变量的类型应 为 其中 Str2 变量的类型应为 30 Visual Basic 提供的常见鼠标事件中 鼠标按下所引发的事件为 鼠标按下后松开时引发的事件为 移动鼠标光标所引发的事件 为 6 三 阅读程序题三 阅读程序题 阅读下列程序并写出程序运行结果阅读下列程序并写出程序运行结果 1 Private Sub Form Click Dim s As Long f As Long n As Integer i As Integer n 3 For i 1 To n f f i s s f Next Print s s End Sub 写出程序运行时单击窗体后 窗体 Form1 上的输出结果 2 Private Sub Command1 Click x 0 Do While x 100 x x 2 x 4 n n 1 Loop Text1 Text Str n Text2 Text Str x Text3 Text Val Text1 Text Val Text2 Text End Sub 文件框 Text3 的结果是 3 Private Sub Command1 Click Dim Sum1 As Integer Sum2 As Integer Sum1 0 Sum2 1 For I 1 To 4 For J 1 To I Sum2 Sum2 J Next J Sum1 Sum1 Sum2 Next I Print Sum1 End Sub 写出程序运行时单击命令按纽后 窗体上的输出结果 4 Private Sub Command1 Click 7 Dim x As Integer Static s As Integer x Val InputBox 请输入一个正整数 If x 3 Then a a 4 Else a a 1 End If Next i Print i a End Sub 写出程序运行时单击窗体后 Form1 上的输出结果 10 Sub Change ByVal x As Integer ByVal y As Integer Dim t As Integer t x x y y t Print x y End sub 9 Private Sub Form Click Dim a As Integer b As Integer a 3 b 4 Change a b Printa b End Sub 写出程序运行时单击窗体后 Form1 上的输出结果 11 Private Sub Form Click Static SumAs Integer I 1 While i 3 Sum Sum I I I 1 Wend Print Sum End Sub 点击两次后 Sum 的值应该是 四 四 完善程序题完善程序题 1 列表框应用程序 要求从文本框中输入课程名称 然后按 添加 按钮 把姓名添 加到列表框中 当选择列表框中某一项后 按 删除 按钮 则从列表框中删除该项 当 选择列表框中某一项后 按 修改 按钮 把列表框中选取的项送往文本框且 修改 按 钮变为 修改确认 在文本框的内容修改好后 按 修改确认 按钮 再把文本框中修改 后的信息送到列表框且 修改确认 按钮变为 修改 程序运行结果如图 1 所示 图 1 程序如下 请补充完整 List1 Command3 Command2 Command1 Text1 10 Private Sub Form Load List1 AddItem 北京 上海 List1 AddItem 北京 广州 List1 AddItem 北京 四川 List1 AddItem 北京 西安 List1 AddItem 北京 哈尔滨 List1 AddItem 北京 沈阳 List1 AddItem 北京 长春 End Sub Private Sub Command1 Click If Text1 Text Then 1 将文本框中的内容加到列表框 中 Text1 Text 2 MsgBox 请在文本框中输入信息 End If End Sub Private Sub Command2 Click 3 删除选定的项目 End Sub Private Sub Command3 Click If Command3 Caption 4 Then Text1 Text 5 Text1 SetFocus Command1 Enabled False Command2 Enabled 6 Command3 Caption 修改确认 Else List1 List List1 ListIndex Text1 Text Command1 Enabled True Command2 Enabled True Text1 Text 7 Command3 Caption 修改 End If End Sub 2 已知 SQL Server 数据库管理系统中存在名称为 学生 的数据库 其中的 students 数据表的结构及初始记录如表 1 所示 要求使用 ADO 对象和 MSFlexGrid 控件设计数据库列 表显示程序 程序的设计界面和运行结果如图 2 图 3 所示 表 1 学号姓名专业 11 2004001张红软件专业 2004003李强会计专业 2004002王丽软件专业 图 2 图 3 程序如下 请补充完整 声明对象变量 ADOcn 用于创建与数据库的连接 Private ADOcn As Connection ReadFromTable 过程 Private Sub ReadFromTable Dim strtmp As String DimADOrs As 1 ADOrs ActiveConnection ADOcn ADOrs Open 2 MSFlexGrid1 Clear 12 MSFlexGrid1 Rows 0 MSFlexGrid1 Cols 3 strtmp 学号 vbTab 姓名 vbTab 专业 MSFlexGrid1 AddItem strtmp Do While Not ADOrs EOF strtmp ADOrs 学号 vbTab ADOrs 姓名 vbTab ADOrs 专业 MSFlexGrid1 AddItem strtmp 3 Loop MSFlexGrid1 FixedCols 0 MSFlexGrid1 FixedRows 1 End Sub Private Sub Form Load 定义数据库连接字符串 Dim strDBAs String 用于连接 SQL Server 数据库 其中 Server 为服务器名称 User ID 为登录账号 Password 为登录口令 Database 为具体的数据库名 strDB Provider SQLOLEDB LSF User ID sa Password Database 学生 如果还没有建立与数据库的连接 则用以下代码创建 IfADOcn Is Nothing Then Set ADOcn 4 ADOcn Open 5 连接 SQL Server 数据库 End If ReadFromTable 调用过程显示 students 表中的记录 End Sub Private Sub Command1 Click Unload Me End Sub 3 创建一个绘图程序 当程序运行时 单击 绘图 按钮 在窗体的 Picture 控件上画 出 即 3 14 3 14 区间的余弦曲线 要求将图片框的坐标系定义为左上角为 4 2 右下角为 4 2 并在图片框中画出坐标的 x 轴和 y 轴 程序运行界面如图 4 所示 13 图 4 Private Sub Command1 Click 1 定义窗体坐标 Picture1 Line 4 0 4 0 画 x 轴 2 画 y 轴 Picture1 CurrentX 0 2 Picture1 CurrentY 0 1 Picture1 Print 0 标记原点 Picture1 CurrentX 3 2 Picture1 CurrentY 0 1 Picture1 Print 3 标记 Picture1 CurrentX 3 3 Picture1 CurrentY 0 1 Picture1 Print Picture1 CurrentX 0 2 Picture1 CurrentY 0 9 Picture1 Print 1 标记 1 Picture1 CurrentX 0 2 Picture1 CurrentY 0 8 Picture1 Print 1 标记 1 For i 4 5 Next i End Sub Private Sub Command2 Click End End Sub 14 4 以厘米为单位 以窗体的中心点为坐标原点 以窗体的宽度与高度绘制坐标轴 并以 窗体宽度与高度中最小值的 1 3 为半径画一蓝色实心圆 程序运行界面如图 5 所示 图 5 程序代码如下 请补充完整 Private Sub Form Click Dim r As Integer ScaleMode 1 Scale Form1 ScaleWidth 2 Form1 ScaleHeight 2 Form1 Scale Width 2 Form1 ScaleHeight 2 Line Form1 ScaleWidth 2 0 Form1 ScaleWidth 2 0 画 x 轴 2 画 y 轴 3 Print 0 标记坐标原点 If Form1 ScaleWidth Form1 ScaleHeight Then 4 Else r Form1 ScaleWidth 5 FillStyle 6 FillColor RGB 0 0 255 7 End Sub 五 编写程序题五 编写程序题 1 请根据下列描述编写购物优惠程序 某商场为了加速促成商品流通 采用购物打折的优惠办法 每位顾客一次购物 1 在 100 元以上者 按九五折优惠 2 在 200 元以上者 按九折优惠 在窗体上添加两个文本框和一个命令按钮 要求在 Text1 中输入购物商品总金额 单击 命令按钮 在 Text2 中输出优惠价 程序运行结果如图 1 所示 程序运行界面如图 6 所示 15 图 6 2 在窗体上建立一个驱动器列表框 目录列表框 文件列表框 图片框 文本框 要求 程序运行后 驱动器列表框 Drive1 的默认驱动器设置为 D 盘 选择 File1 中所列的图片文件 bmp gif 和 jpg 则相应的图片显示在图片框 Picture1 中 文件的路径显示在文本框中 程序运行结果如图 7 所示 图 7 3 使用顺序文件读写方式编写一个简单的记事本应用程序 其运行界面如图 8 所示 基 本逻辑是 假设在以 D 盘的根目录下有一个名为 exam txt 的文本文件 当点击 打开 按钮 Command1 时 程序将 exam Txt 文件中的内容显示在文本框 Text1 中 当点击 新建 按钮 Command2 时 清空 Text1 中的内容 用户可以在 Text1 中进行编辑操作 当点击 保存 按钮 Command3 时 将Text1中的内容保存在exam txt文件中 当点击 退出 按钮 Command4 时关闭本窗体 16 图 8 答答 案案 一 单项选择题一 单项选择题 1 A2 B3 C4 B5 C6 C7 A8 B9 B10 A11 B 12 B13 B14 D15 D16 B17 B18 D19 B20 B21 C 22 B23 A24 B25 D26 B27 C28 A29 A30 A31 B 32 D33 D34 D35 B36 B37 B38 C39 C40 B41 B 42 A43 C44 C45 B 二 填空题 每空二 填空题 每空 1 1 分 共分 共 1515 分 分 1 LabelTextBox 2 10 1 2 cos 50 3 14 180 或者Sqr 10 cos 50 3 14 180 3 8 4 Kill C TEMP tmp 5 逻辑错误 6 400520 7 Execute 8 True 9 12 10 Picture1 Picture LoadPrcture picturefile jpg 11 Sin x 2 Sqr x 2 y 2 2 12 DimA 0To5 2To5 As String 13 frm bas cls vbp 14 设计运行中断 15 所在的过程整个模块或窗体整个工程中所有的模块和所有的过程 16 Str x Val x Asc x 17 ActionCommonDialogx 18 Ture 17 19 工程工程属性Form1 Show 20 右上 21 abcd 22 数据引擎 23 TCP IPUDP 24 DimADOcn As Connection 25 外部数据库本地数据库远程数据库 26 WinsockInternet TransferWebBrowser 27 Circle 500 500 300 28 随机文件二进制文件 29 变体型字符串型 30 MouseDown 事件MouseUp 事件MouseMove 事件 三 阅读程序题三 阅读程序题 每小题 每小题 5 5 分 共分 共 2020 分 分 1 s 10 2 122 3 303 4 s 6 s 30 s 120 5 12 6 6 7 x 4 x 5 8 A 1 B 1 A 2 B 1 9 715 10 43 34 11 18 6 12 四 完善程序题 每题四 完善程序题 每题 1010 分 共分 共 2020 分 分 1 1 List1 AddItem Text1 Text 2 Else 3 List1 RemoveItem List1 ListIndex 4 修改 5 List1 Text 6 False 7 2 1 New Recordset 2 select from students order by 学号 3 ADOrs MoveNext 4 New Connection 5 strDB 3 1 Picture1 Scale 4 2 4 2 2 Picture1 Line 0 2 0 2 3 4 3 141 To 3 141 Step 0 001 5 Picture1 PSet i