VB语言程序设计B(2007-6)
Visual Basic 6.0 程序设计VB07章
PopupMenu方法的语法格式为： 对象名.PopupMenu 菜单名，flag，X，Y，boldcommand
7.1
菜单
弹出式菜单
表7-2 PopupMenu方法中flag参数的位置常数的取值及其含义 取 值 常 量 含 义
0
VbPopupMenuLeft 设置 X 所定义的位置为该弹出式菜单的左 Align 边界，该值为默认值
7.1
菜单
菜单编辑器简介
属性设置区
有效（E）：菜单项的Enabled属性。用于设置是否让菜单项对事件是 否做出响应，无效时菜单项呈灰色。 可见（V）：菜单项的Visible属性。用于设置菜单项是否显示在菜单 上。 显示窗口列表（W）：用于设置在多文档界面（MDI）的应用程序，确 定菜单控件是否包含一个已打开的各个文档的列表。
7.1
菜单
菜单编辑器简介
编辑功能区
左箭头：单击该按钮可以将菜单列表中选定的菜单项向左移动一个子菜单 等级，即成为上一级菜单。 右箭头：单击该按钮可以将菜单列表中选定的菜单标题向右移动一个子菜 单等级，即成为下一级菜单。 上箭头：单击该按钮可以将菜单列表中选定的菜单标题在同级菜单内向上 移动一个显示位置。 下箭头：单击该按钮可将菜单列表中选定的菜单标题在同级菜单内向下移 动一个显示位置。 下一个：开始一个新的菜单项。 插入：在菜单项列表的当前选定菜单项的上方插入一行。 删除：删除当前选定的菜单项。
7.1
菜单
菜单简介
在实际应用中，菜单可分为两种基本类型：下拉式菜单和弹出式菜 单。
下拉式菜单是由一个主菜单及其所属的若干个子菜单组成；弹出式菜 单是用户在某个对象上单击右键时所弹出的菜单。无论哪种菜单，菜单中 的所有菜单项从本质上来讲都是与命令按钮类似的控件，也有属性、事件 和方法。
VB语言程序设计教程-2024鲜版
数据库概念
数据库是一种存储、管理和检索数据的系统，它允许用户定义、创建、维护和控制数据的访问。
23
2024/3/27
01
02
03
04
ADO对象模型
ADO（ActiveX Data Objects）是一种用于访问数据库的对象模型，包括Connection、Command、Recordset等对象。
连接数据库
查询数据
根据条件构建SQL更新语句，通过Command对象执行更新操作，并检查受影响的记录数。
更新数据
构建SQL插入语句，通过Command对象执行插入操作，并处理可能出现的异常情况。
插入数据
构建SQL删除语句，通过Command对象执行删除操作，并确认删除结果。
删除数据
01
03
02
04
25
2024/3/27
列表框（ListBox）
用于显示一列数据供用户选择，支持单选或多选。
组合框（ComboBo…
结合了文本框和列表框的功能，用户可以选择列表中的数据或输入自定义内容。
03
04
05
19
2024/3/27
A
B
C
D
使用分组框（GroupBox）或面板（Panel）对控件进行分组，提高界面的层次感。
布局合理：根据界面功能和内容合理安排控件的位置和大小，保持界面整洁有序。
适当使用图标、按钮样式等增加界面的趣味性。
利用背景图片、渐变色等美化界面，提升视觉效果。
202024/3/27 Nhomakorabea开发一个自定义的日期选择器控件，方便用户在界面上选择日期。
实现一个自定义的图表控件，用于在界面上展示数据可视化效果。
《VB程序设计》课程标准
《VB程序设计》课程标准（课程代码：9802）制订人：审核人：审定：1、课程定位和课程设计1.1课程性质与作用《Visual Basic程序设计》是高职信息管理专业的基础课程，是《计算机应用基础》、《C语言》课程的后续课程。
通过本课程的学习，能使学生掌握程序设计的基本思想与方法，掌握结构化程序设计的内涵，理解对象、属性、事件和方法等重要概念，掌握Windows应用程序设计的基本方法，为通过全国计算机等级考试（二级VB）和学生毕业后从事相关专业职业岗位工作具备基本计算机应用能力打下坚实的基础。
课程类型：选修课教学时间安排：第4学期，共44学时，2学分1.2课程设计的理念该课程总体设计理念是，关注每个学生的情感，激发他们学习VB的兴趣，帮助他们建立学习的成就感和自信心，使他们在学习过程中发展计算机综合应用能力，提高人文素养，增强实践能力，培养创新精神。
加强学生的计算机应用意识，培养学生计算机综合应用能力。
将课程目标设定为三个级别，并以学生“能够做某事”具体描述各级别的要求，这种设计旨在体现学生能力发展循序渐进的过程和后续计算机相关课程要求的有机衔接。
本课程在目标设定、教学过程、课程评价和教学资源的开发等方面都突出以学生为主体的思想。
课程实施应成为学生在教师指导下构建知识、提高技能、磨砺意志、活跃思维、展现个性、发展心智和拓展视野的过程。
1.3课程设计思路（1）本课程的设计总体要求是：以就业为向导，以能力为本位，以职业实践为主线，以项目课程为主体，以计算机二级资格考试为考核依据，以务实基础、适应岗位为目标，尽可能形成模块化的专业课程体系。
（2）本课程以“培养用VB编写简单数据库的能力”为基本目标。
依据各学习项目的内容总量以及在该门课程中的地位分配各学习项目的课时数。
（3）具体学习项目的选择和编排以学习单元为基础，基本依据是：一是按照“认知VB界面、掌握语言基础、理解各种算法结构和语句、运用数组和过程解决复杂的问题、掌握程序出错后的调试、数据库编写能力的培养”的逻辑顺序。
vb07( 在程序中使用通用过程)
7.4 自定义Sub过程的参数传递
•调用语句的作用是将实参的值传递给形参 •实参可以是变量名、数组元素、常量、函数或表达式。 • 参数的传递方式分为两种：
按址传递（ByRef）：形参与实参具有完全相同的值 按值传递(ByVal)：只将实参的值传给形参，而形参的值不影响实参。 由定义过程时声明：按哪一种传递方式由声明语句来声明，默认情况下 为按址传递， 。 如定义语句： Sub s_test(ByVal a1% , ByRef a2%) a1：按值传递，a2：按址传递。
Sub过程引例1
编程计算(1+1/2+1/3+…+1/x) + (1+1/2+1/3+…+1/y)+(1+1/2+1/3+…+1/z) 的值 Sub s_sum(sa!, a!) sa = 0 For i = 1 To a sa = sa + 1 / i Next End Sub
不使用通用过程:
Dim sx !, sy!, sz! Dim x!, y !, z! Dim s ! x =Val( InputBox("请输入x的值")) y =Val( InputBox("请输入y的值")) z =Val( InputBox("请输入z的值")) For i = 1 To x sx = sx + 1 / i Next For i = 1 To y sy = sy + 1 / i Next For i = 1 To z sz = sz + 1 / i Next s = sx + sy + sz
勿以恶小而为之，勿以善小而不为。惟贤惟德， 能服于人。
2024年度-《VB程序设计教程》PPT课件(全)
If...Then...Else语句
03
14
控制结构
Select Case语句
1
循环结构
2
For...Next循环
3
15
控制结构
Do...Loop循环 While...Wend循环
16Leabharlann 03VB界面设计17
窗体设计
窗体的类型与属性
介绍VB中不同类型的窗体，如标准窗体、MDI窗体等，以及窗 体的常用属性，如名称、标题、大小、位置等。
跨平台支持
支持跨平台开发，可运 行在Windows、Linux、Mac
等操作系统上。
5
VB的应用领域
桌面应用程序开发
利用VB可以快速开发Windows桌面应用程 序。
数据库应用开发
VB提供强大的数据库访问功能，可用于开发 数据库应用程序。
Web应用程序开发
通过可以开发 Web应用程 序。
运行时错误
根据错误提示信息定位问题所在，检查相关变量的值、函数调用等 ，修复逻辑错误或资源访问问题。
逻辑错误
仔细分析算法逻辑和程序流程，通过添加调试输出或日志记录来帮 助理解问题所在，并进行相应的逻辑调整。
35
程序优化策略探讨
代码优化
消除冗余代码、减少不必要的变量和对象创 建、优化循环结构等，提高代码执行效率。
多媒体应用开发
利用VB可以开发多媒体应用程序，如音频、 视频处理等。
6
02
VB编程基础
7
数据类型与变量
数值型
Integer、Long、Single、Double等
字符串型
String
8
数据类型与变量
布尔型
Boolean
《VB程序设计》课程实验教学综述
《VB程序设计》课程实验教学综述摘要:本文结合案例对VB实验教学的目标、内容、实验教学策略、实验教学评价等方面进行了探讨,分析了VB语言程序设计实验教学中存在的问题,提出了改进措施。
关键词:VB程序设计实验教学实验课程体系《VB 程序设计》课程是大学计算机基础教学中第一门系统讲授程序设计的课程。
Visual Basic语言是事件驱动的、面向对象的可视化程序设计语言,简单易学[1],能很快被初学者接受。
课程主要讲授程序设计的基本知识和基本的程序设计方法,目的是培养学生利用可视化程序设计语言解决实际问题的技能。
《VB 程序设计》实验教学作为理论教学的延伸,不仅可以帮助学生巩固课堂理论教学内容,还可以使学生熟悉程序调试技巧和程序设计的一般原则。
1 VB简介Visual Basic是Microsoft公司开发的包含协助开发环境的事件驱动、面向对象的可视化程序设计语言,为用户提供了友好的设计界面。
微软公司把许多新的数据访问功能加到VB中,3.0版以后的VB具有数据库连接和数据处理功能。
用户只需要根据需求将所需的对象直接添加到窗体上,而不必为这些对象的创建去编写繁杂的代码,用户所需要编写的代码只是这些对象要实现的功能。
Visual Basic将Windows 编程的复杂性“封装”起来,能够高效率地开发一些应用软件。
目前课堂教学中使用的集成环境是Visual Basic 6.0。
2 《VB 程序设计》实验课程体系设计2.1 实验课程目标《VB 程序设计》课程是大学计算机基础教学的必修课程,主要讲授程序设计的基本知识和基本的程序设计方法。
实验教学是实现课程目标的重要环节,实验教学质量的好坏直接影响课程的整体教学质量。
VB的实验教学可以加深学生对课堂教学内容的理解,建立与程序设计相关的各种基本概念,理解程序设计的步骤及各阶段之间的关系,掌握运用VB程序设计语言编程的基本方法,包括对如何分析问题、如何进行算法设计、如何编写程序代码以及如何对代码进行调试等基本功能[2]。
VB06
VB基础06：对象编程在 Visual Basic中创建应用程序之际，也就是和对象打交道之时了。
可以使用 Visual Basic 提供的对象—比如控件、窗体和数据访问对象。
也可以在一个 Visual Basic 应用程序内部控制另一个应用程序对象。
甚至还可建立自己的对象，定义它们的属性和方法。
以下主题将详细讨论对象：对象是什么介绍对象的基本概念。
用对象能做什么讨论应用程序中使用对象的几种方法。
使用对象初步介绍对象的属性和方法。
对象之间的关系讨论对象的层次、集合和容器。
创建对象讨论在运行时如何创建和使用对象。
对象是什么对象是代码和数据的组合，可以作为一个单位来处理。
对象可以是应用程序的一部分，比如可以是控件或窗体。
整个应用程序也是一个对象。
下表列出了在 Visual Basic 中可能用到的几种类型的对象：示例描述命令按钮窗体上的控件，象命令按钮和框架，它们都是对象。
窗体 Visual Basic 工程中的每一个窗体都是独立的对象。
数据库数据库是对象，并且还包含其他对象，如字段、索引等。
图表 Microsoft Excel 中的图表是对象。
对象从何而来Visual Basic 中的每个对象都是用类定义的。
用饼干模子和饼干之间的关系作比，就会明白对象和它的类之间的关系。
饼干模子是类。
它确定了每块饼干的特征，比如大小和形状。
用类创建对象。
对象就是饼干。
下面再用两个例子进一步说明 Visual Basic 中类与对象之间的关系。
在 Visual Basic 的“工具箱”上，控件代表类。
直到在窗体上画出这些被称作控件的对象为止，它们实际上并不存在。
在创建控件之时也就是在复制控件类，或建立控件类的实例。
这个类实例就是应用程序中引用的对象。
在设计时操作的窗体是类。
在运行时，Visual Basic 建立窗体的类实例。
“属性”窗口显示 Visual Basic 应用程序中的对象的类和 Name 属性。
把对象看作是类的原原本本的复制品，从而建立所有对象。
浅谈《VB语言程序设计》课程的教学改革与实践
ｂ ｌｔ ａ ｅｏ ｔｉｅ ｅ ｒ ａ ｌ ｅｕｔＳ ｓｔ ｃ ｉｖ ｄ ｃ ｔ ａ ｕｐｏｅ ｏａ ｐ ｙｔｅｒ ｎ ｗ ｅ ｇ ． ａ ｉｉ ｒ ｂａｎ ｄｒｍａｋ ｂｅｒｓ ｌ，Ｏａ ｏ ａｈ ｅ ｅｔｅｅ ｕ ａｉｎ ｌｐ ｒ ｓ ｓｔ ｐ ｌ ｈ ｉ ｋ ｏ ｌｄ ｅ ｙ ｈ ｏ
◇高教 论述◇
科技 曩向导
２１ 年第 １期 ０２ ４
浅谈《 Ｂ语言程序设计》 Ｖ 课程的教学改革与实践
汪 莉 （ 江 大 学 工 程技 术 学 院 湖北 长
荆州
４４２ ） ３ ０ ０
【 要 】Ｖ 摘 ＜ Ｂ语言程序设计》 是一 门实践性很 强的课 程。 传统的教学方法和手段 已不能适应发展的需要 ． 本文以该课程教学 中存在的 问题 为 出 点， 发 结合 本校 学生的实际情 况， 出改革措施 。 提 实践证明 ， 改进 了教 学方 法后 ， 在培养 学生的动手能力 ， 思维能 力， 以及创新能力等方面均 取得 了显 著的成效 ． 而达到 学以致 用的教 学 目的 从 【 关键词 】Ｂ语言； 序设计； 学改革 Ｖ 程 教
（ ｆｒ ｔ ｎｄ ｐ ｒｍｅ ｔｎＹａ ｇｚ ｎｖｒｉ ｏｌｇ ｆＴ ｃ ｎ ｌｇ Ｉ ｏｍａｉ ｅ ａ ｔ ｎ ｎ ｔｅＵ ｉｅｓ ｙＣ ｌ ｅｏ ｅｈ ｏｏ ｙ＆Ｅｎ ｉｅｒ ｇ Ｈｕ ｅ Ｊｎ ｚ ｏ ４ ４ ２ ） ｎ ｏ ｉ ｔ ｅ ｇｎ ｅｉ ｎ ｂ ｉ ｉｇｈ ｕ ３ ０ ０
Байду номын сангаас
２课 程教 学改革的方法和策略 ．
针对传统 Ｖ Ｂ语言教学中 出现的种种问题 ．本人 总结讲 授 Ｖ Ｂ语 言 的教学经验 ， 同时借鉴众 多教师 的教 学改革实践经 验 ． 通过 以下 几 个方面来提高本课程的教学效果 ： ２１激发学生的学习兴趣 ． 兴趣是最好 的老师 ， 要使学 生学好 ｖ Ｂ语言 ． 必须让 他们对编 程 产生兴趣 。 在教学实践 中， 应根据学生 的认知程度和学习特点 。 合理安 排和调整授课 内容。在学习之初 ， 教师应设法充分调动学生 的学习兴 １课程教学中存在的问题 ． 特别是第一堂课 的教学尤为重要。教师要精心设计第一节 课的教 该课 程 中涉及 的概念多而杂 。 数据类 型及 表达式 丰富 ． 语法结构 趣 。 复杂 ， 对于初学者来说是－ ；较难 的课程 。 － ３ 在传统 的程序设计教学 中． 学内容 ， 做到先人为主 。 学生的学习兴趣 。 引起 我国对于大 学生 的认证考试 有很多 ， 习该课程后 ． 学 我们鼓励学 采用 的是“ 以教为主” 的讲授教学法 。教学的 内容 以单 向传 输为主 ． 教 师灌输知识 ， 学生被动接受知识 。 由于教学环境 的改进 ． 目前大多数 的 生参加全 国计算 机等级 考试 二级考试 ＣＢ语 言、 Ｖ 或参加 全国计算机 水 程序设计课程都是在多媒体教室上课 ．课堂 的信息 量一般都 比较大 ． 平和资格考试初级程序员或程序员级的考试 ． 拿到计算机专业 资格 证 提高 了学生走 向社会 的市场竞争能力 ． 同时也能极 大限度地激 发 连续高强度 听课 ， 导致学生注意力下降 ， 课堂显得枯燥 乏味 ， 学生提 出 书 ， 问题 、 分析问题和解决 问题 的能力都不能得到很好地培养 。 学生学习的积极性 ２２强化 实践教 学环节 ． 目 ， Ｖ 前 在（ Ｂ语言 程序设计》 程教学 中存 在着 以下几方 面 的问 课 程序设计类课程的实践性很强 ． 生只有通过大量上机 的实践 ． 学 题： １１没有 充分调动 学生学习的积极性 ． 才能真正掌握语 言知识 ． 养程序设计 的能力 ． 步理 解和掌握程 序 培 逐 在实践教学中根据学生的掌握情 况进行 分层次教 在课程教学 中． 教师往往会在第一次课上 向学 生说 明该课程 的性 设计的思想和方法。 学有余力的 同学可 以进行 质和学习的 目的及用途 。 但是 ， 随着教学 的进行 ， 断出现的语法 规则 学。基础薄弱的同学可注重基 础实训项 目． 不 从 及大 量琐碎 的知识点， 让学生感到学 习内容 的枯燥 乏味 。 加之 ， 缺少有 大型程序 的调试 和验证 ， 而在教学 中照顾不 同层次的学生 。 在学期末组织为期两周 的 Ｖ Ｂ语言课程设计。 将学生按指定人数分 效 的实践环 节， 致使学生听课没有兴趣 ， 缺乏主动性 。 成小组 ， 要求学 生在教 师的指 导下 ， 开发一个 比较完 整 、 具有一定的实 １ ． ２教学方 法陈旧 综合性的应用程序。从 问题的提出 、 的论证 、 方案 分析 、 设计与实 教师讲 授该课程 时一般是介绍 基本语句 ， 语法要点 ， 然后是讲解 用性 、 到最终问题的解决 ， 让学生积极的参与 ， 这样有利于学生全面 了解软 例题 。 生在前 几次课 还可 以较好地 领会 与掌握 。 学 随着教学 的深入 ， 概 施 ， 同时也是对自身解决实际问题能力的 很好培养。 念 的增多 ． 生愈来愈感觉 Ｖ 学 Ｂ语言难 以掌握 ， 对其产 生“ 而生畏 ” 件开发的方法与过程， 望
Visual Basic程序设计VB第6章电子讲稿
6.1 数组应用案例
For i = 1 To 9 For j = i + 1 To 10 If a(i) > a(j) Then t = a(i): a(i) = a(j): a(j) = t '交换位置 End If Next j Next i Print "排序结果：" For j = 1 To 10 Print a(j); Next j End Sub 上述程序代码中，中间程序段“For i = 1 To 9”~“Next i”(共7 个程序行)用于实现数据的排序。也可以把这个程序段改写为
6.1 数组应用案例
a(1, 1) = 69: a(1, 2) = a(2, 1) = 94: a(2, 2) = a(3, 1) = 57: a(3, 2) = a(4, 1) = 98: a(4, 2) = a(5, 1) = 73: a(5, 2) = Show Print "学生", "平均分" Print String(20, "-") '输出20个减号“-” For r = 1 To 5 s = 0 累加前清0 For c = 1 To 3 s = s + a(r, c) '累加同一行数据 Next c 89: 80: 62: 94: 76: a(1, a(2, a(3, a(4, a(5, 3) 3) 3) 3) 3) = = = = = 74 90 73 90 63
'在模块级声明段中声明 'score用做数组变量名
ቤተ መጻሕፍቲ ባይዱ
Label1.Caption = "单击“查找”按钮开始查找最高分和最低分" score = Array(89, 96, 81, 67, 79, 90, 63, 85, 95, 83) End Sub
VB电子教材07
第7章文件通过前几章的学习，使我们了解，利用VB可以编写一些用于科学计算、图形处理等方面的程序。
不仅如此，VB还广泛地应用于编制如人事、财务、生产、教学等各方面的管理程序，在这类应用中，通常需要处理大量不同类型的数据信息，而这些数据信息常常需要独立存储在某种介质上（如磁盘等），以便需要时通过程序来加工处理，这种独立存储的数据集合就称为文件。
因此，掌握文件的概念及其使用方法是VB程序设计的重要内容之一。
7.1 与文件操作有关的控件在Windows应用程序中打开文件或保存文件时，通常需要打开一个对话框，用于选择文件所在的驱动器（盘）、文件夹（目录）、文件名。
在VB中，使用盘驱动器列表框（DriveListBox）、目录路径列表框（DirListBox）以及文件列表框（FileListBox）这3种控件的组合，可以创建类似Windows资源管理器的文件操作对话框，用于选择文件。
7.1.1 盘驱动器列表框控件盘驱动器列表框控件用于显示驱动器列表，工具箱中该控件图标为。
该控件缺省的名称为：Drive1、Drive2、……⒈盘驱动器列表框控件常用属性⑴Drive属性（字符串类型）用来设置当前驱动器或返回所选择的驱动器名。
Drive属性只能在程序运行时赋值，而不能通过属性窗口设置。
为驱动器列表框的Drive属性赋值的语句格式为：<盘驱动器列表框名>.Drive[=驱动器名]格式中的“驱动器名”为指定的驱动器，也就是说使该驱动器成为当前驱动器；如果省略，则不改变当前驱动器。
如果所指定的驱动器在系统中不存在，则产生错误。
程序运行时若选择驱动器，则Drive属性值改写为所选择的驱动器名。
如运行时单击驱动器列表框控件drive1中D:盘图标，则drive1.drive的值为"d:"。
值得注意的是：盘驱动器列表框中显示的驱动器名都是由系统自动生成的，用户只能通过列表框选择使用，不可以对Drive控件使用AddItem、RemoveItem等方法添加或删除列表项。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
武汉理工大学考试试题（B卷）06一、填空题（每空2分，共20分）1．Left(“Whuhan”，3)的值为。
2. 表达式Ucase(Mid(“Homework”,3,2))的值是。
3. 由Array函数建立的数组名字必须是类型。
4．代数式|a-b|>6的Visual Basic表达式为。
5. 扩展名为.BAS 的文件称为。
6. 声明符号常量需使用语句。
7. 通用过程与事件过程不同的是。
8. 要使一个命令按钮成为图形命令按钮，则应设置其属性值。
9. 在VB中设置属性值有2种方法，分别是和。
二、单项选择题（共20题，每题1分，共20分）1．已知A$=”12345678”,则表达式Val(Left(A$,4)+Mid(A$,4,2))的值为。
A. 123445B. 123456C. 6D. 82．下面正确的赋值语句是。
A. y=πr2B. 3y=xC. x+y=30D. y=x+303．赋值语句a=123+MID(“123456”,3,2)执行后，a变量中的值是。
A. 123B. 157C. “12334”D. 12334 4．赋值语句a=123 & MID(“123456”,3,2)执行后，a变量中的值是。
A. 123B. 157C. “12334”D. 12334 5．下面程序段求2个数中的最大数，不正确的是。
A. Max=xB. If y>=x Then Max=yIf y>x Then Max=y Max=xC. Max=IIf(x>y,x,y)D. If x>y Then Max=x Else Max=y6．在运行时，系统自动执行启动窗体的事件过程。
A. UnLoadB. LoadC. GotFocusD. Click7．若要使标签控件显示时不覆盖其背景内容，要对属性进行设置。
A. BorderStyleB. ForeColorC. BackStyleD. BackColor 8. 当文本框ScrollBars属性值设置为1（有水平滚动条），却没有效果，原因是。
A. 文本框的MultiLine属性为FalseB. 文本框中没有内容C. 文本框的MultiLine属性为TrueD. 文本框的Locked属性为True9．表达式16/4-2^5*8/4 Mod 5\2的值为。
A. 20B. 14C. 4D. 2 10．数学关系3≤x<10表示成正确的VB表达式为。
A. 3<=x<10B. x>=3 OR x<10C. x>=3 AND <10D. x>=3 AND x<1011．下面程序段:Dim xIf x Then Print x Else Print x+2运行后的结果是。
A. -2B. 2C. 0D. 显示出错信息12．下列循环能正常结束的是。
A. I=6B. I=5Do DoI=I-2 I=I+1Loop Until I=1 Loop Until I<0C. I=1D. I=10Do DoI=I+2 I=I+1Loop Until I=10 Loop Until I>013．列表框中的列表内容是通过属性来设置的。
A. ListB. ColumnsC. TextD. Index 14．以下程序段的执行结果是。
Dim A(5)For I=1 To 5A(I)=I*INext IPrint A(I-1)A. 0B. 5C. 25D. 1615．以下程序输出结果是。
Dim aa=Array(1,2,3,4,5,6,7)For i=Lbound(a) To Ubound(a)a(i)=a(i)*a(i)Next iPrint a(i-1)A. 49B. 不确定C. 0D. 程序出错16．用于从字符串右边截取字符的函数是。
A. Ltrim( )B. Trim( )C. Left( )D. Right( ) 17．数学式子sin30°写成Visual Basic表达式是。
A. sin30B. sin(30)C. sin(30*3.14/180)D. sin(30°)18．若要清除列表框的内容，可使用方法来实现。
A. ClearB. RemoveC. AddD. AddItem19．A=1,B=190,则INT(（B-A+1）*RND+A)的结果是介于之间的数。
A. 0～190B. 1～180C. 1～190D. 0～19920．若要向列表框新增列表项，则可使用的方法是。
A. AddB. AddItemC. ClearD. Remove三、阅读程序，填写结果（共4题，每题5分，共20分）1．一个窗体单击事件过程如下：Private Sub Form_Click()Dim n As Integer, x As Stringx = ""n = Val(Text1.Text)For i = 1 To 3n = n \ 2x = x + Chr(Asc("A") + n)Next iPrint xEnd Sub试问：如果Text1内已输入8，当单击窗体后，输出为。
2．一个窗体单击事件过程如下：Private Sub Form_Click()x = Int(Rnd) + 3If x * x > 8 Then y = x * x + 1If x * x = 9 Then y = x * x * xIf x * x < 8 Then y = x * x - 3Print yEnd Sub试问：当单击窗体后，输出为。
3．一个窗体单击事件过程如下：Private Sub Form_Click()Dim a As Integer, b As Integer, c As Integer a = 10: b = 6c = a * bIf a > b Thena = a - bElseb = b - aEnd IfPrint a, b, c / bEnd Sub试问：当单击窗体后，输出为。
(4 6 10)7．一个窗体单击事件过程如下：Private Sub Form_Click()Dim Score As IntegerScore = Val(Text1.Text)Print "该学生成绩："Select Case ScoreCase 0 To 59Print "不及格"Case 60 To 69Print "及格"Case 70 To 79Print "中"Case 80 To 89Print "良"Case 90 To 100Print "优"Case ElsePrint "成绩出错"End SelectEnd Sub试问：如果Text1内已输入105，当单击窗体后，输出为。
四、编程题（共4题，每题10分，共40分）1．单击某个命令按钮输出3～100之间的所有奇数、奇数之和。
将奇数显示于文本框Text1中，奇数之和显示于文本框Text2中。
2．输入x,计算y 的值1+4x (x≥0)y=sin(x+3) (x<0)3．编写打印下列图案的程序。
4．编写求解一元二次方程02=++c bx x a 的实数根（假设0a ≠ ）的程序，程序界面自己设计。
武汉理工大学教务处试题标准答案及评分标准用纸课程名称计算机技术基础VB （ B 卷） 一、填空题（每空2分，共20分）1．Whu 2．ME 3．Variant 4．Abs(a-b)>6 5．标准模块文件 6．Const7．与对象无关 8．Style 9．属性窗口直接设置 程序代码进行设置二、单项选择题（共20题，每题1分，共20分）ADBCD BCACD BDACA DCACB三、阅读程序，填写结果（共4题，每题5分，共20分）1. (ECB)2. (27)3. (4 6 10)4. 该学生成绩：成绩出错四、编程题（共4题，每题8分，共40分）每小题评分要点：程序结构正确 （4分） 程序语句基本正确 （2分）3.Private Sub Form_Click() For i = 1 To 5Print Tab(5 - i + 1); For j = 1 To 5 Print "*"; Next j Print Next i End Sub4.Private Sub Command1_Click() a=Val(Text1.Text) b=Val(Text2.Text) c=Val(Text3.Text) d=b*b-4*a*c if d>0 thenx1=(-b+Sqr(d))/(2*a) x2=(-b-Sqr(d))/(2*a) print x1,x2 elseif d=0 x=-b/(2*a) print x Elseprint “无实数根！” End If End Sub1. Private Sub Command1_Click() s = 0For i = 3 To 100 Step 2Text1.Text = Text1.Text & i & " " s = s + i Next i2.Private Sub Form_Click() x = V al(InputBox("X=")) If x >= 0 Then y = 1 + 4 * x Elsey = Sin(x + 3) End If Print y End Sub。