为命令按钮编写事件驱动程序

VB书后习题

1．选择题（1）与传统的程序设计语言相比，VB最突出的特点是（ C ）。

A．结构化程序设计B．程序开发环境C．事件驱动编程机制D．程序调试技术（2）在正确安装VB 6.0后，可以通过多种方式启动VB，以下方式中，不能启动VB的是（ C ）。

A．通过“开始”菜单中的“程序”命令B．通过“我的电脑”找到vb6.exe，双击该文件名C．通过“开始”菜单中的“运行”命令D．进入DOS方式，执行vb6.exe文件（3）为了用键盘打开菜单和执行菜单命令，第一步应该按的键是（ A ）。

A．功能键F10或Alt B．Shift+功能键F4C．Ctrl或功能键F8 D．Ctrl+Alt（4）VB 6.0集成环境的主窗口中不包括（ C ）。

A．标题栏B．菜单栏C．状态栏D．工具栏（5）用标准工具栏中的工具按钮不能执行的操作是（ B ）。

A．添加工程B．打印源程序C．运行程序D．打开工程（6）VB窗体设计器的主要功能是（ A ）。

A．建立用户界面B．编写源程序代码C．画图D．显示文字1．选择题（1）下面4个选项中，不是窗体属性的是（A）。

A．Unload B．BorderStyle C．MinButton D．Caption（2）确定一个窗体或控件大小的属性是（A）。

A．Width和Height B．Width或HeightC．Top和Left D．Top或Left（3）当窗体最小化时缩小为一个图标，设置这个图标的属性是（B）。

A．MouseIcon B．Icon C．Picture D．MousePointer（4）为了取消窗体的最大化功能，需要把它的一个属性设置为False，这个属性是（D）。

A．ControlBox B．MinButton C．Enabled D．MaxButton（5）设计窗体时双击窗体的任何位置，将打开（B）。

A．窗口设计器B．代码窗口C．工具箱窗口D．属性窗口（6）为了使文本框同时具有水平和垂直滚动条，应该先把MultiLine属性设置为True，然后再把ScrollBars属性设置为（D）。

国家二级VB机试选择题-试卷5_真题-无答案

国家二级VB机试（选择题）-试卷5(总分80,考试时间90分钟)1. 选择题1. 下列叙述中正确的是()。

A. 有一个以上根结点的数据结构不一定是非线性结构B. 只有一个根结点的数据结构不一定是线性结构C. 循环链表是非线性结构D. 双向链表是非线性结构2. 下列叙述中正确的是()。

A. 算法就是程序B. 设计算法时只需要考虑数据结构的设计C. 设计算法时只需要考虑结果的可靠性D. 以上三种说法都不对3. 一棵二叉树共有25个结点，其中5个是叶子结点，则度为1的结点数为()。

A. 16B. 10C. 6D. 44. 在下列模式中，能够给出数据库物理存储结构与物理存取方法的是()。

A. 外模式B. 内模式C. 概念模式D. 逻辑模式5. 软件生命周期是指()。

A. 软件产品从提出、实现、使用维护到停止使用退役的过程B. 软件从需求分析、设计、实现到测试完成的过程C. 软件的开发过程D. 软件的运行维护过程6. 面向对象方法中，继承是指()。

A. 一组对象所具有的相似性质B. 一个对象具有另一个对象的性质C. 各对象之间的共同性质D. 类之间共享属性和操作的机制7. 负责数据库中查询操作的数据库语言是()。

A. 数据定义语言B. 数据管理语言C. 数据操纵语言D. 数据控制语言8. 一个教师可讲授多门课程，一门课程可由多个教师讲授。

则实体教师和课程间的联系是()。

A. 1∶1联系B. 1∶m联系C. m∶1联系D. m∶n联系9. 有三个关系R，S和T如下：则由关系R和S得到关系T的操作是()。

A. 自然连接B. 交C. 投影D. 并10. 下列选项中属于面向对象设计方法主要特征的是()。

A. 继承B. 自顶向下C. 模块化D. 逐步求精11. 以下变量名中合法的是()。

A. x－2B. 12abcC. sum_totalD. print12. 已知a＝6，b＝15，c＝23，则语句Print Sgn(a＋b Mod 6－c\a)& a＋b 的输出结果为()。

九年级(下)信息技术导学案-01

盐池县第三中学九年级（下）信息技术学科导学案编号01
盐池县第三中学九年级（下）信息技术学科导学案编号02
盐池县第三中学九年级（下）信息技术学科导学案编号03 让学生结合P8“做一做”将自己的程序进行保存。

强调注意保存在自己的练习文件夹中，且要保存“窗体文件”和“工程文件”两个文件。

重点阅读P10“小博士”的相关内容，了解窗体文件和工程文件及第6步：认识窗体文件和工程文件的图标。

盐池县第三中学九年级（下）信息技术学科导学案编号06
盐池县第三中学九年级（下）信息技术学科导学案编号07
盐池县第三中学九年级（下）信息技术学科导学案编号08。

VisualBasic开发应用程序的一般步骤

Visual Basic 开发应用程序的一般步骤Visual Basic的最大特点是以最快的速度和效率开发具有良好用户界面的应用程序。

如上所述，Visual Basic的对象已经被抽象为窗体和控件，因而大大简化了程序设计的过程。

一般来说，利用Visual Basic开发程序时，需要三个步骤：建立可视化用户界面；设置可视化界面属性；编写事件驱动的代码；保存和运行程序。

（1）建立用户界面用户界面由对象，即窗体和控件组成，所有的控件都放在窗体上（一个窗体最多可容纳255个控件），程序中的所有信息都要通过窗体显示出来，它是应用程序的最终用户界面。

在应用程序中要用到哪些控件，就在窗体建立相应的控件。

程序运行后，将在屏幕上显示由窗体和控件组成的用户界面。

（2）设置窗体和控件的属性建立界面后，就可以设置窗体和每个控件的属性。

在实际的应用程序设计中，建立界面和设置属性可以同时进行，每画完一个控件，接着就设置该控件的属性。

也可以在所有的对象都建立完成后，再统一设置对象的属性。

具体方法依个人习惯而定。

（3）编写程序代码Visual Basic采用事件驱动编程机制，因此大部分程序都是针对窗体中各个控件所能支持的方法或事件编写的，这样的程序称为事件过程。

例如，命令按钮可以接受鼠标事件，如果单击该按钮，鼠标事件就调用相应的事件过程来做出响应。

多数情况下，特别是小型应用程序，所编写的程序通常都由事件过程组成，即针对控件或窗体的事件编写代码。

(4)保存和运行程序在Visual Basic中，应用程序是以工程文件的形式保存在磁盘上的。

选择相应的磁盘路径保存应用程序。

运行程序则有解释和编译两种模式，编译模式需要生成相应的可执行文件，需要时，调用即可，是脱离了Visual Basic环境的；而解释模式，则必须在Visual Basic环境下打开该工程，而后单击“启动”按钮或者选择“运行”菜单中的“启动”命令。

国家二级VB机试模拟试卷162_真题-无答案

国家二级（VB）机试模拟试卷162(总分86,考试时间90分钟)1. 选择题1. 下列关于栈和队列的描述中，正确的是( )。

A. 栈是先进先出B. 队列是先进后出C. 队列允许在队头删除元素D. 栈在栈顶删除元素2. 已知二叉树后序遍历序列是CDABE，中序遍历序列是CADEB，它的前序遍历序列是( )。

A. ABCDEB. ECABDC. EACDBD. CDEAB3. 在数据流图中，带有箭头的线段表示的是( )。

A. 控制流B. 数据流C. 模块调用D. 事件驱动4. 结构化程序设计的3种结构是( )。

A. 顺序结构，分支结构，跳转结构B. 顺序结构，选择结构，循环结构C. 分支结构，选择结构，循环结构D. 分支结构，跳转结构，循环结构5. 下列方法中，不属于软件调试方法的是( )。

A. 回溯法B. 强行排错法C. 集成测试法D. 原因排除法6. 下列选项中，不属于模块间耦合的是( )。

A. 内容耦合B. 异构耦合C. 控制耦合D. 数据耦合7. 下列特征中不是面向对象方法的主要特征的是( )。

A. 多态性B. 标识惟一性C. 封装性D. 耦合性8. 在数据库设计中，将E-R图转换成关系数据模型的过程属于( )。

A. 需求分析阶段B. 概念设计阶段C. 逻辑设计阶段D. 物理设计阶段9. 在一棵二叉树上，第5层的结点数最多是( )。

A. 8B. 9C. 15D. 1610. 下列有关数据库的描述，正确的是( )。

A. 数据库设计是指设计数据库管理系统B. 数据库技术的根本目标是要解决数据共享的问题C. 数据库是一个独立的系统，不需要操作系统的支持D. 数据库系统中，数据的物理结构必须与逻辑结构一致11. VissualBasic6．0集成环境的主窗口中不包括( )。

A. 标题栏B. 菜单栏C. 状态栏D. 工具栏12. 在正确安装Visual Basic6．0后，可以通过多种方式启动Visual Basic6．0。

东大14秋学期《可视化程序设计(VB)》在线作业1答案

可视化程序设计（VB） 14秋学期《可视化程序设计(VB)》在线作业1一,单选题1. 在窗体上画一个名称为Drive1的驱动器列表框，一个名称为Dir1的目录列表框。

当改变当前驱动器时，目录列表框应该与之同步改变。

设置两个控件同步的命令放在一个事件过程中，这个事件过程是（）。

A. Drive1_ChangeB. Drive1_ClickC. Dir1_ClickD. Dir1_Change?正确答案：A2. 下面程序段运行后，变量Value的值为（）。

x=20 IF x>=10 Then Value =5*x Else Value =4*xA. 100B. 80C. 90D. 70?正确答案：A3. 表达式Abs(-3.6)*sqr(100)的值是（）。

A. -360B. 360C. -36D. 36?正确答案：D4. 设有以下循环结构 Do 循环体 Loop While <条件> 则以下叙述中错误的是（）。

A. 若条件"是一个为0的常数，则一次也不执行循环体"B. "条件"可以是关系表达式、逻辑表达式或常数"C. 循环体中可以使用Exit Do语句D. "如果"条件"总是为True，则不停地执行循环体"?正确答案：A5. 在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程： Option Base 0 Private Sub Command1_Click() Dim city As Variant city = Array("北京", "上海", "天津", "沈阳") Print city(1) End Sub程序运行后，如果单击命令按钮，则在窗体上显示的内容是（）。

A. 空白B. 错误提示C. 北京D. 上海?正确答案：D6. 目录列表框的Path属性的作用是（）。

VB选择判断题题库&答案

VB选择判断题题库&答案第一章1．工程资源管理器窗口中包含的文件类型有种A、2B、3C、4D、52．VB 集成的主窗口中不包括A．属性窗口 B ．标题栏 C ．菜单栏D．工具栏３．与传统的程序设计语言相比，VB 最突出的特点是A．结构化程序设计Ｂ．程序开发环境C．程序调试技术 D．事件驱动编程机制４．启动VB 进入编程环境后，下列叙述中错误的是A．工具箱中只有内部控件B．窗口中会自动建立名为FORM1 的窗体C．属性窗口一定会同时打开D．只要存盘就会生成一个工程文件５．下列关于属性设置的叙述错误的是A．控件具有什么属性是VB 预先设计好的，用户不能改变B．控件具有什么属性是VB 预先设计好的，用户可以改变C．控件的属性既可以在属性窗口中设置，也可以用程序代码设置D．控件的属性在属性窗口中设置后，还可以用程序代码为其设置新值６．应用程序设计完成后，应将程序文件保存，保存的文件是A．只保存窗体文件即可B．只保存工程文件即可，C．先保存工程文件，之后再保存窗体文件Ｄ．先保存窗体文件，之后再保存工程文件。

７．启动VB 后，就意味着要建立一个新的A．窗体 B ．程序 C ．工程 D ．文件８．下面不能打开属性窗口的操作是A．执行“视图”菜单中的“属性窗口”命令B．单击工具栏上的“属性窗口”按钮C．按ctrl+T 快捷键D．按F4 键。

９．在正确安装后，可以通过多种方式启动VB, 以下方式不能启动VB A．通过“开始”菜单中的“程序”命令B．通过“我的电脑”找到,双击该文件名C．通过“开始”菜单中的“运行”命令D．进入DOS 方式，执行文件10．VB 集成环境的大部分窗口都可以从主菜单项的下拉菜单找到相应的打开命令A．编辑B．视图 C ．格式 D ．调试 11．下列方法不是中打开工程的方法A．按CTRL+O 组合键B．执行“文件”菜单中的“打开工程”命令C．按ALT+O 组合键D．单击标准工具栏上的“打开工程”按钮 12．下列叙述中正确的是A．VB 与BASIC 没有什么不同 B ．VB 与BASIC 的编程机制不同C．VB 是过程设计语言 D ．VB 与BASIC 之间没有什么联系。

PB复习纲要2

PB 复习纲要(2)编写程序：要求：绘出界面，标出所用的各个对象（或控件）的名称，写出事件驱动程序。

1. 使用命令按钮、静态文本框、单行文本编辑框等控件实现简单的计算功能；2. 使用命令按钮、静态文本框、单行文本编辑框等控件完成软件的登录程序，要求在用户名和用户口令均正确时进入系统主窗口（或给出欢迎窗口）； 3. 使用单选框等控件实现实现对文本框中的文字进行字体的设置； 4. 使用复选框等控件实现实现对文本框中的文字进行字形的设置；5. 综合使用单选框、复选框、组框（frame ）等控件实现对文本框中的文字进行字体、字号、字型、字体颜色的设置；6. 使用数据窗口对象和数据窗口控件实现显示数据库中的某些信息；7. 编写一个简单的学生基本信息管理系统。

学生基本信息管理系统: 步骤：1. 在Access 中创建数据库xsgl.mdb ；2. 在数据库xsgl.mdb 中创建表xsxxb （学生信息表），表结构如右边表格，并建立主关键字段； 3. 启动PB ，在D 盘下创建应用库（xsgl ）和应用对象（app_xsgl ）； 4. 创建用户登录窗口（w_dl ），并编写相应程序代码； 5. 在“configure ODBC ”画板中创建数据库xsgl.mdb的数据源xsgl ；6. 在“DB frofile ”画板中连接数据库xsgl ；7. 创建学生信息管理窗口（w_xsgl ）并编写相应程序代码；学生信息管理窗口1. 使用数据库xsgl.mdb 中的表xsxxb 中的所有字段创建数据窗口对象d_xsgl ；2. 创建窗口w_xsgl ，在窗口上绘制一个数据窗口控件dw_1，把d_xsgl 关联到dw_1上；3. 窗口w_xsgl 上绘制四个命令按钮，其文本显示分别为：“增加”、“删除”、“保存”、“关闭”； 4. 编写事件驱动程序：● 应用的open 事件（数据库连接的初始化设置，打开启动窗口）；●应用的close 事件（断开数据库的连接）；SQLCA.DBMS = "ODBC"SQLCA.DBParm = "Connectstring='DSN=xsgl'" connect ; open(w_xsgl)● 窗口的open 事件（检索出数据窗口中的数据）；● “增加”按钮的clicked 事件： ● “删除”按钮的clicked 事件：● “保存”按钮的clicked 事件： ● “关闭”按钮的clicked 事件：dw_1.settransobject(sqlca)dw_1.retrieve()dw_1.insertrow(0)dw_1.deleterow(0)dw_1.update()close(parent)。

VB程序设计课后习题答案

VB课后习题解答第一、二章：1、简述VB6.0的主要特点答：方便、直观的可视化设计工具；面向对象程序设计方法；事件驱动的编程机制；易学易用的应用程序集成开发环境；结构化程序设计语言；完备的联机帮助功能；强大的多媒体、数据库和网络功能。

2、当正常安装VB6.0后，误把Windows子目录删除。

当重新安装Windows后，是否需要再次安装VB6.0？答：要重新安装的。

因为安装VB6.0时，有些VB程序被系统自动安装在Windows目录下，所以一旦删除Windows子目录，就必须重新安装VB6.0。

3、Visual Basic 6.0分为学习版、专业版和企业版，如何知道所安装的是哪个版本？答：在VB6.0的启动界面上，能显示对应的版本。

4、叙述建立一个完整应用程序的过程答：首先建立用户界面的控件对象（简称控件）；然后对控件属性进行设置；再对控件事件过程及编程；保存应用程序；程序调试和运行。

5、Visual Basic 6.0有多种类型窗口，若要在设计时看到代码窗口，应怎样操作？答：选择“视图”—>“代码窗口”命令或单击“工程资源管理器”窗口中的“查看代码”按钮。

6、当建立好一个简单的应用程序后，假定该工程仅有一个窗体模块。

试问该工程涉及多少个要保存的文件？若要保存该工程的所有文件，应先保存什么文件？再保存什么文件？若不这样做，系统会出现什么信息？答：涉及两个文件要保存。

先保存窗体文件（.frm），再保存工程文件（.vbp）。

若先保存工程文件，系统也会先弹出“文件另存为”对话框，要求先保存窗体文件。

7、保存文件时，若不改变目录名，则系统默认的目录是什么？答：系统默认的目录是VB988、安装Visual Basic 6.0后，帮助系统是否也已安装？答：没有。

VB6.0的帮助系统在两张光盘上，即MSDN Library，其中还包含了VC、VFP等其他语言的帮助系统。

9、如何使用Visual Basic 6.0的帮助系统？答：最方便的方法是选定要帮助的内容，然后按F1功能键，这时系统打开MSDN Library查阅器，直接显示与选定内容有关的帮助信息。

VB课后作业

1.VB最突出的特点是：事件驱动编程机制。

2.VB集成环境的主窗口不包括状态栏。

3.f4激活属性窗口。

属性窗口的4各部分：对象框属性显示方式、属性列表、属性解释。

4.ctrl+F4,关闭窗口5.控件有3类：标准控件，activeX控件，可插入对象。

6.F7——打开代码窗口7.VB开发程序的三步：建立可视用户界面、设置可视界面特性、编写事件驱动代码。

8.控件和窗体的NAME属性是只读属性。

9.代码窗口：左栏：对象，右栏：过程。

10.VB的3个模块为：窗体，标准，类。

11.在窗体上画一个文本框和两个命令按钮，并把两个命令按钮的标题分别设置为“隐藏文本框”和“显示文本框”。

当单击第一个命令按钮时，文本框消失；当单击第二个命令按钮时，文本框重现。

并在文本框中显示“VB程序设计”（字体大小为16）。

答：command1 clickText1.visiable=falseCommand2 clickText2.visiable=true.Text2.fontsize=16Text2.text=”VB程序设计”12.VB中变量名只能以字母开始。

13.or and 取负。

14.Unicode与ANSI的转换函数是：strconv。

Unicode方式，西文，中文都为1个字符，占2个字节。

15.28°=（28/180）*3.1416.任何函数的参数，都要用括号括起。

17.表达式中不可以出现pai，用3.14表示18.乘号要用*代表19.平方：20.数字乘以字母，之间也得加*21.ln2：用（log(2)/log(e)）表示。

22.mid函数，参数是从第几个开始后的几个。

23.VB中字符串要用引号括起来，日期/时间要用井号括起来。

24.优先级：* / \25.print sgn(-6^2)+abs(-6^2)+int(-6^2) →-126.负号与平方一起时：先平方，再负号。

27.format（）。

#不需添0，而0需要添。

VB程序设计课后习题答案

VB程序设计课后习题答案VB课后习题解答第一、二章：1、简述VB6.0的主要特点答：方便、直观的可视化设计工具；面向对象程序设计方法；事件驱动的编程机制；易学易用的应用程序集成开发环境；结构化程序设计语言；完备的联机帮助功能；强大的多媒体、数据库和网络功能。

2、当正常安装VB6.0后，误把Window子目录删除。

当重新安装Window后，是否需要再次安装VB6.0？答：要重新安装的。

因为安装VB6.0时，有些VB程序被系统自动安装在Window目录下，所以一旦删除Window子目录，就必须重新安装VB6.0。

3、ViualBaic6.0分为学习版、专业版和企业版，如何知道所安装的是哪个版本？答：在VB6.0的启动界面上，能显示对应的版本。

4、叙述建立一个完整应用程序的过程答：首先建立用户界面的控件对象（简称控件）；然后对控件属性进行设置；再对控件事件过程及编程；保存应用程序；程序调试和运行。

5、ViualBaic6.0有多种类型窗口，若要在设计时看到代码窗口，应怎样操作？答：选择“视图”—>“代码窗口”命令或单击“工程资源管理器”窗口中的“查看代码”按钮。

6、当建立好一个简单的应用程序后，假定该工程仅有一个窗体模块。

试问该工程涉及多少个要保存的文件？若要保存该工程的所有文件，应先保存什么文件？再保存什么文件？若不这样做，系统会出现什么信息？答：涉及两个文件要保存。

先保存窗体文件（.frm），再保存工程文件（.vbp）。

若先保存工程文件，系统也会先弹出“文件另存为”对话框，要求先保存窗体文件。

7、保存文件时，若不改变目录名，则系统默认的目录是什么？答：系统默认的目录是VB988、安装ViualBaic6.0后，帮助系统是否也已安装？答：没有。

VB6.0的帮助系统在两张光盘上，即MSDNLibrary，其中还包含了VC、VFP等其他语言的帮助系统。

9、如何使用ViualBaic6.0的帮助系统？答：最方便的方法是选定要帮助的内容，然后按F1功能键，这时系统打开MSDNLibrary查阅器，直接显示与选定内容有关的帮助信息。

第一章VB1答案

第一章一选择题1 Visual Basic采用了()的编程机制(A) 面向过程（B）面向对象（C）事件驱动（D）可视化2 以下不属于Visual Basic 版本的是（）（A）学习版（B）企业版（C）专业版（D）工程版3 Visual Basic从（）版本开始推出中文版（A）2.0 （B）3.0 （C）4.0 （D）5.04 Visual Basic6.0是一个（）位应用程序的开发工具（A）8 （B）16 （C）32 （D）645 退出Visual Basic集成开发环境的快捷键是（）（A）Ctrl+Q （B）Alt+Q （C）Alt+A （D）Ctrl+A6 Visual Basic集成开发环境由种工作状态，不属于3种工作状态之一的是（）（A）设计状态（B）运行状态（C）中断状态（D）编写代码状态7 在Visual Basic集成开发环境下不能激活属性窗口的操作是（）(A) 在执行“工程”菜单中的“属性窗口”菜单命令(B)执行“视图”菜单中的“属性窗体”菜单命令(C)在对象上右击，从弹出的快捷菜单中选择“属性窗口”菜单命令(D) 按下快捷键F48 在设计阶段，当双击窗体设计器中窗体上的某个控件时，所打开的窗口是（）（A）工具箱窗口（B）属性窗口（C）工程资源管理器窗口（D）代码编辑窗口9 当新建一个工程并启动Visual Basic后，工具箱中的控件是（）（A）内部控件（B）ActiveX控件（C）内部控件和ActiveX控件（D）内部控件或ActiveX控件10 下列可以打开立即窗口的操作的是（）（A）Ctrl+R （B）Ctrl+C （C）Ctrl+O （D）Ctrl+G11 在新建一个“标准EXE”工程后,不在工具箱中出现的控件是（）（A）通用对话框（B）列表框（C）文本框（D）命令按钮12 如果要向工具箱中加入ActiveX控件，可以执行“工程”菜单中的（）命令（A）引用（B）部件（C）工程属性（D）添加窗体13 Visual Basic规定窗体文件的扩展名是（）（A）.fom （B）.vbp （C）.bas （D）.frm14 Visual Basic规定标准模块文件的扩展名是（）（A）.frm （B）.vbp （C）.bas （D）.vbg15 下列不能打开工具箱窗口的操作是（）(A) 按下F8快捷键(B)按下Alt键不放开，先按下V键再按下X键(C)执行“视图”菜单中的“工具箱”菜单命令按钮(D)单击“工具箱”上的“工具箱”按钮16 以下可以产生工程组文件（.vbg）的情况是（）（A）当一个程序中包含了两个以上的窗体时（B）当一个程序中包含了两个以上的标准模块时(C) 当一个程序中包含了两个以上的工程时(D)当一个程序中包含了两个以上的类模块时。

VB题库(带答案)

VB题库(带答案)VB练习题1.下面哪一个叙述为正确的？D（A）VB的编程非常简单，只要将窗体上的控件设置好，再将控件的属性按要求设置即可完成程序的编制。

（B）VB的特点中的可视化编程是指随时可使用打印预览看一下效果。

（C）VB的特点中的事件驱动机制是系统已经编制好的一些针对控件的程序，可以直接调用。

（D）VB系统提供了数据库管理功能。

2.下面哪一个叙述为错误的？D（A）VB的编程非常简单，因为系统提供了很多编制好的控件，可直接放到界面上使用。

（B）VB是面向对象的程序设计，并且具有结构化的程序设计语言。

（C）VB的特点中的事件驱动机制是系统可以感知一些动作，当该动作产生时自动去执行对应的事件过程。

（D）VB系统没有提供数据库管理功能。

3.下面哪一个叙述为正确的？B（A）VB源程序有工程文件、窗体文件、模块文件等，工程文件包含所有的文件，源程序备份只需要备份工程文件即可。

（B）VB源程序有工程文件、窗体文件、模块文件等，工程文件包含所有的文件，源程序备份需要备份所有相关文件。

（C）VB源程序有工程文件、窗体文件、模块文件等，源程序备份只需要备份窗体文件和模块文件即可。

（D）VB源程序如果有多个窗体文件，没有模块文件，源程序备份只需要备份窗体文件即可。

4.VB窗体设计器的主要功能是：A（A）建立用户界面（B）编写程序代码（C）画出图形控件（D）显示标准控件5下面哪一个叙述为正确的？A（A）在安装有VB系统程序的计算机上，修改一个以前编制的VB源程序，只需要双击工程文件即可。

（B）在安装有VB系统程序的计算机上，修改一个以前编制的VB源程序，只需要双击窗体文件即可。

（C）在安装有VB系统程序的计算机上，修改一个以前编制的VB源程序，只需要双击模块文件即可。

（D）在安装有VB系统程序的计算机上，修改一个以前编制的VB源程序，双击源程序中的任何文件都不能打开源程序。

6.什么是对象？A（A）对象是具有特殊属性和行为方式的实体。

二级VISUALBASIC笔试-394_真题-无答案

二级VISUAL BASIC笔试-394(总分104,考试时间90分钟)一、选择题下列各题A、B、C、D四个选项中，只有一个选项是正确的1. 下面叙述中正确的是( )。

A. SW函数只能用于Print方法中B. Space函数既可以用于Print方法中，也能用于表达式C. Spc函数与Space函数均生成空格，没有区别D. 以上说法均不对2. 设有如下语句：Dim a，b As Integer c="VisualBasic" d=#7/20/2005# 以下关于这段代码的叙述中，错误的是( )。

A. a被定义为Integer类型变量B. b被定义为Integer类型变量C. c中的数据是字符串D. d中的数据是日期类型3. 在VisualBasic中，要使标签的标题居中显示，则将其Alignment属性设置为( )。

A. 0B. 2C. 1D. 34. 下面程序运行后的结果是( )。

Private Sub Form_Click() Dim s As Integer，k As Integer,i As Integer，n As Integer s=1 fori=1 to 3 forj=i to 3 for k=j to istep-1 s=s*k nextk,J,i print s End SubA. 6B. 72C. 144D. 4325. 当对命令按钮的Picture属性装入.bmp图形文件后，命令按钮上并没有显示所需的图形，原因是没有对某个属性设置为1，该属性是( )。

A. MousePictureB. StyleC. DownPictureD. DisabledPicture6. 任何控件都具有( )属性。

A. TextB. CaptionC. NameD. ForeCol0r7. 在窗体上画一个名称为Text1的文本框和一个名称为Commandl的命令按钮，然后编写如下事件过程：Private Sub Commandl_Click() Dimarrayl(10,10)As Integer Dimi As Integer,j As Integer Fori=1 To 3 Forj=2 To 4 arrayl(i,j)=i+j Nextj Nexti Text1.Text=array1(2，3)+array1(3，4) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是( )。

二级VISUALBASIC笔试320_真题-无答案

二级VISUAL BASIC笔试320(总分90,考试时间90分钟)一、选择题下列各题A、B、C、D四个选项中，只有一个选项是正确的。

1. 以下关于变量作用域的叙述中，正确的是______。

A. 窗体中凡被声明为Private的变量只能在某个指定的过程中使用B. 全局变量必须在标准模块中声明C. 模块级变量只能用private关键字声明D. Static类型变量的作用域是它所在的窗体或模块文件2. 以下叙述中错误的是______。

A. 一个工程中可以包含多个窗体文件B. 在一个窗体文件中用Private定义的通用过程可以被其他窗体调用C. 在设计Visual Basic程序时，窗体、标准模块、类模块等需要分别保存为不同类型的磁盘文件D. 全局变量必须在标准模块中进行定义3. 设有语句：X=InputBox("输入数值"，"0"，"示例") 程序运行后，如果从键盘上输人数值10并按回车键，则下列叙述中正确的是______。

A. 变量x的值是数值10B. 在InputBox对话框标题栏中显示的是“示例”C. 0是默认值D. 变量x的值是字符串“10”4. 软件中子类部件对父类部件属性的延续性指软件的______。

A. 独立性B. 共享性C. 多态性D. 继承性5. 窗体上画一个名称为Command1的命令按钮，然后编写如下程序：Optlon Base 1 Prlvete Sub Command1_Click() Dim s As Variant a=Array(1, 2, 3, 4, 5) Sum=0 For i=1 To 5 Sum=Sum_a(i) Next i X=Sum/5 For i=1 To 5 If a(i)＞x Then Print a(i); Next i End Sub 程序运行后，单击命令按钮，在窗体上显示的内容是______。

VB习题集(1)(1)

一、单项选择题1、以下说法错误的是_____C____。

A. Visual Basic是一种可视化编程工具B. Visual Basic是结构化程序设计语言C. Visual Basic是面向过程的编程语言D. Visual Basic采用事件驱动编程机制2、窗体和控件的描述及其属性的设置保存在_____B____文件中。

A. 工程B. 窗体C. 窗体二进制数据D. 标准模块3、假定一个Visual Basic应用程序由一个窗体模块和一个标准模块构成。

为了保存该应用程序，以下正确的操作是____B_____。

A. 只保存窗体模块文件B. 分别保存窗体模块、标准模块和工程文件C. 只保存窗体模块和标准模块文件D. 只保存工程文件4、以下叙述中错误的是____C_____。

A．在Visual Basic的窗体中，一个命令按钮是一个对象B．事件是能够被对象识别的状态变化或动作C. 事件都是由用户的键盘操作或鼠标操作触发的D. 不同的对象可以具有相同的方法5、以下叙述中，错误的是____C_____。

A. 一个Visual Basic应用程序可以含有多个标准模块文件B. 一个Visual Basic工程可以含有多个窗体文件C. 标准模块文件可以属于某个指定的窗体文件D. 标准模块文件的扩展名为.bas6、Visual Basic的窗体设计器主要是用来____A_____。

A. 建立用户界面B. 添加图形、图像、数据等控件C. 编写程序源代码D. 设计窗体的布局7、Visual Basic是一种结构化高级程序设计语言，它采用的是_____C____驱动方式。

A.键盘B.鼠标C.事件D.函数8、Visual Basic是一种面向对象的程序设计语言，构成对象的三要素是____A_____。

A.属性、事件、方法B.控件、属性、事件C.窗体、控件、过程D.窗体、控件、模块9、Visual Basic主要用于_____D____。

vb程序设计书习题和参考答案

a = "abcd"
b = "cdef"
e = Right(a, 3)
f = Mid(b, 2, 3)
If e < f Then Print e + f Else Print f + e
End Sub
程序3.请写出单击窗体后，窗体上的显示结果。
Private Sub Form_Click()
Dim i As Integer, j As Integer
2．用Dim c(2 to 5) As Integer语句定义的数组占用个字节的内存空间。
A、4 B、8 C、6 D、10
3．以下是VB合法的数组元素。
A、x9 B、x[9] C、x(9) D、x{9}
4．设有数组声明语句：Dim a(2,3 to 4) As Integer
以上语句所定义的数组a为维数组，共有个元素，第一维下标从到，第二维下标从到。
6.窗体模块的文件扩展名是
A、.exe B、.bas C、.frx D、frm
7
A、FontName B、FontSize C、FontBold D、FontItalic
8.设置窗体的字号用
A、FontName B、FontSize C、FontBold D、FontItalic
2．编程，输入x值，按下式计算并输出y值。
3．计算下式的和，变量x与n的数值用输入对话框输入。
4．用近似公式求自然对数的底数e的值，直到前后两项之差小于10-4为止。
习题四
一、选择题
1．窗体通用部分的语句“Option Base1”，决定本窗体中数组下标界。
A、下界必须为1 B、缺省的下界为1 C、下界必须为0 D、缺省的下界为0

Vb复习考题3

第一卷客观题第一题：是非题（共10分，每项1分）1. 函数调用时，实际参数与形式参数在数量必须完全一致。

AA.对B.错2. 标签控件即可以用来显示用户不能编辑和修改的文本，也可以用来编辑和修改文本。

BA.对B.错3. Timer是时钟控件的唯一事件。

AA.对B.错4. 用Dim语句声明变量时，VB系统不仅为变量分配相应数据类型的内在空间，而且还为变量赋所需的初值。

BA.对B.错5. 在VB系统中，没有用Dim语句声明的变量不能使用，因为它没有数据类型。

BA.对B.错6. 菜单项的快捷键不能任意设置。

AA.对B.错7. VB中的“消息”是指由一个应用程序传递到另一个应用程序的信息包。

AA.对B.错8. 每个菜单项都是一个控件，与其他控件一样也有自己的属性和事件。

AA.对B.错9. 菜单选项“Enabled”属性与“Visible”属性是相同的。

BA.对B.错10. VB6.0只能运行在Windows 2000下，不能运行在Windows 98下。

BA.对B.错第二题、单选题（共45分，每项1.5分）11. 在VB中，变量的默认类型是__C____。

A.IntegerB.DoubleC.VariantD.Currency12. 在顺序文件中__D____。

A.文件中按每条记录的记录号从小到大排序B.文件中按每条记录的长度从小到大排序C.文件中按记录的某关键数据项的从小到大的顺序D.记录是按写入的先后顺序存放的，读出也是按写入的先后顺序读出13. 利用菜单编辑器设计菜单时，如果要在菜单中加入一个分隔符，菜单分隔符的标题必须设置为__B____。

A.+B.-C.*D./14. 在Visual Basic中，最简单的数据类型包括__A____。

A.整型、实型、布尔型、字符型B.整型、实型、字符型C.整型、实型、逻辑型D.实型、逻辑型、字符型15. 使用驱动器列表框的___B___属性可以返回或设置磁盘驱动器的名称。

VB教材习题解答(部分)20090318更新第1-9章

第1章 Visual Basic6.0概述1．简述Visual Basic 6.0的安装过程。

2．简述Visual Basic 的功能特点。

3．Visual Basic 6.0 包括几个版本？它们之间有何差别？4. Visual Basic是一种面向对象的可视化程序设计语言，它采用的编程机制是什么？答：采用的是事件驱动的编程机制。

5．如何打开或关闭窗体窗口、代码窗口？补充1：Visual Basic视图菜单中包括哪些主要内容？其快捷键是什么？答：代码窗口、对象窗口（Shift+F7）、对象浏览器（F2）、立即窗口（Ctrl+G）、工程资源管理器（Ctrl+R）、属性窗口（F4）、窗体布局窗口、工具箱、工具栏（编辑、标准、窗体编辑器）等。

补充2.写出标准工具栏中下列按钮的名称（自左至右）。

答：左边组：添加Standard EXE 工程、添加窗体、菜单编辑器、打开工程、保存工程；右边组：工程资源管理器、属性窗口、窗体布局窗口、对象浏览器、工具箱、数据视图窗口、Visual Component Manager。

第2章 Visual Basic 程序设计概述1．如何在当前窗体中创建和删除一个对象？举例说明。

2．什么是对象的属性、事件和方法，它们对设计VB程序有什么作用？3．如何设置对象的属性？举例说明。

答：方法一：设计阶段表静态修改，例如，在标签Label1的属性窗口中找到Caption 属性，将其缺省值Label1修改为“姓名”；方法二：程序中代码修改，例如，Label1.Caption="姓名"。

值得注意的是：名称（name）属性，只能表态修改，不能用代码修改。

还有一些也有这样的属性。

4．建立一个对象后，每个属性都有一个默认值，Name属性和Caption属性的默认值相同，它们有什么区别？能否用代码修改Name属性？答：Name属性在程序中对象的唯一标识，不能用代码修改；Caption属性用于显示对象的标题文字，可以在程序中用代码修改。

PB9应用开发步骤

《PowerBuilder 9.0 数据库应用程序开发》㈠新建工作空间①【开始】→【程序】→ <Sybase> →启动【PowerBuilder9.0】②【文件】→ <new> →[Workspace]选项卡→【Workspace】图标→【OK】③设置路径[C:\temp] →输入文件名:student →【保存】㈡创建目标和应用对象①【new】按钮→[Target]选项卡→【Application】图标→【OK】②输入应用程序名:Student →设置“Library”路径[C:\temp] →【保存】→【Finish】㈢建立数据库 newdb，并自动连接数据库①启动【PowerBuilder9.0】②【Database】按钮→展开<ODB ODBC> →展开<Utilities> →双击<Create ASA Database>④User ID:DBA → Password: sql → Database Name:C:\temp\newdb.db→【OK】㈣在数据库中建立数据表(S、C、SC)和视图①建立数据表(S、C、SC)【Database】按钮→右击【Tables】文件夹→选择<New Table> →→定义表的字段(...) →单击【Exit】→【是】存盘→→输入表名(S、C、SC) →【OK】②为数据表(S、C、SC)指定主键展开【Tables】→右击表名(S) →左击<Add to Layout> →→右击表的标题栏→ <New> →<Primary Key> →选择“Column”:中主键字段(sno) →【Exit】→【是】③为数据表指定外键(sno 和 cno)●右击表SC的标题栏→ <New> →<Foreign Key> →<General>选项卡→→输入Foreign Key:aaaa →选择“Columns：”右边<sno>字段作外键●单击<Primary Key>选项卡→选择<Table:>(下拉表)中的<S>作参照表→【Exit】→【是】(保存)●同样，为表 SC指定另一个外键 cno （参照表为 C）④在表中输入数据●右击表S →选择<Edit Data> →选择 <Grid>●右击输入窗口→选择<Insert Row> →输入记录数据●为表SC输入数据●为表C输入数据⑤创建视图●右击数据库newdb下<Views>文件夹→选择<New View>●同时选择表 <S>和<SC> →【Open】●选择<Group>选项卡→在表S中选择 sno 和 sname →→将字段<s.sno>和<s.snane>拖至右边窗口●选择<Compute>选项卡→输入聚合操作: avg(score)→起别名:avg_score●选择<Syntax>选项卡→核对语句:CREATE VIEW …GROUP BY …●单击菜单行【Exit】→【是】(保存) →输入视图名:S_SC →【Create】㈤创建数据窗口(d_s, d_sc, d_c, d_s_sc, d_s_sc_c )① (PowerBar)【New】→[DataWindow]选项卡→【Grid】图标→【OK】②选择【Quick Select】数据源→【Next】③选择表<S> →【Add All】→【OK】④选择默认字体和颜色→【Next】→【Finish】⑤【Exit】→【是】→命名:d_s →【OK】⑥为d_sc, d_c, d_s_sc, d_s_sc_c创建数据窗口⑦创建d_s_sc_c数据窗口：... 选择【Quick Select】数据源→【Next】→选择S、C、SC三个表→【Open】→选择sno、sname、cno、cname、tname字段→【Exit】→（字体）【Next】→【Finish】→【Exit】→→【是】→命名：d_s_sc_c㈥创建应用程序用户界面窗口(w_main,w_manipulation,w_course_query,. . .)⑴创建主窗口 w_main① (PowerBar)【New】→[PB Object]选项卡→【Window】图标→【OK】②右击工具栏→分别打开<PainterBar1>、<PainterBar2>、<PainterBar3>画板工具栏③单击<PainterBar1>中下拉按钮→(展开控件窗口)④选择静态文本框控件【A】→单击主窗口→调整文本框位置和大小→→在文本框属性窗口输入Text:<学生选课系统> →设置字体和颜色⑤选择命令按钮控件【OK】→单击主窗口→调整命令按钮位置和大小→→在命令按钮属性窗口输入Text:<数据操作> →设置字体大小→分别创建其它控件. . .⑥单击主菜单行退出按钮【Exit】→选【是】→输入窗口对象名:w_main→【OK】⑵创建“数据操作”窗口 w_manipulation①创建一个静态文本框控件：<请输入数据：>②创建一个单行编辑框控件: (输入数据)③创建三个数据窗口控件: <学生表>、 <选课表>、 <课程表>④创建 8个命令按钮控件: [BROWSE] 、 [INSERT_SC] 、 [DELETE_SC] [UPDATE_SC] 、 [RESET] 、[QUERY_SNO] 、 [OK] 、 [EXIT]⑤为窗口命名：w_ manipulation⑥→【OK】⑶创建“课程查询”窗口 w_course_query①创建2个静态文本框控件：<请输入数据：>、<查询字段:>②创建1个单行编辑框控件: (输入数据)③创建1个下拉式列表框控件: (选择查询字段)④创建1个数据窗口控件: <课程表>⑤创建 2个命令按钮控件: [查询] 、 [返回主窗口]⑥创建含2个单选按钮的分组框: <查询方式>⑦为窗口命名：w_ course_query →【OK】⑷创建“学生选课”窗口 w_select_course⑸创建“课程更新”窗口 w_course_update⑹创建“查询学生平均成绩”窗口 w_query_s_avg㈦编写脚本（事件驱动程序）⒈启动应用程序(student.pbl)的open事件脚本【操作步骤】① (PowerBar)【Open】按钮 (打开<Open>对话框)②选择“Objects of Type :” 为 [Application]③选择“Objects Name :” 为 [Student]④单击【OK】 (打开应用程序“Open”事件编辑窗口)⑤在编辑窗口输入如下“脚本” ：SQLCA.DBMS = “ODBC“ // 数据库厂商名称SQLCA.AutoCommit = False // 定义程序为手工提交事务SQLCA.DBParm = "Connectstring='DSN=newdb_01'"connect; // 连接数据源newdb_01open(w_main) // 打开主窗口⒉在主窗口为各个控件编写驱动程序(1) 命令按钮【数据操作】的 clicked 事件【操作步骤】①展开【student.pbl】→双击【w_main】 (打开主窗口)②单击【数据操作】按钮③单击 [Event List] 选项卡→双击 <clicked( )>④在“script for clicked”(单击脚本)编辑窗口输入如下语句：open(w_manipulation) // 打开“数据操作窗口”close(parent) // 关闭主窗口⑤单击【保存】按钮(2) 命令按钮【课程查询】的 clicked 事件【操作步骤】①展开【student.pbl】→双击【w_main】 (打开主窗口)②单击【课程查询】按钮③单击 [Event List] 选项卡→双击 <clicked( )>④在“script for clicked”(单击脚本)编辑窗口输入如下语句：open(w_course_query) // 打开“课程查询”窗口close(parent) // 关闭主窗口⑤单击【保存】按钮(3) 命令按钮【学生选课】的 clicked 事件【操作步骤】①展开【student.pbl】→双击【w_main】 (打开主窗口)②单击【学生选课】按钮③单击 [Event List] 选项卡→双击 <clicked( )>④在“script for clicked”(单击脚本)编辑窗口输入如下语句：open(w_select_course) // 打开“学生选课”窗口close(parent) // 关闭主窗口⑤单击【保存】按钮(4) 命令按钮【课程更新】的 clicked 事件【操作步骤】①展开【student.pbl】→双击【w_main】 (打开主窗口)②单击【课程更新】按钮③单击 [Event List] 选项卡→双击 <clicked( )>④在“script for clicked”(单击脚本)编辑窗口输入如下语句：open(w_course_update) // 打开“课程更新”窗口close(parent) // 关闭主窗口⑤单击【保存】按钮(5) 命令按钮【查询学生平均成绩】的 clicked 事件【操作步骤】①展开【student.pbl】→双击【w_main】 (打开主窗口)②单击【平均成绩】按钮③单击 [Event List] 选项卡→双击 <clicked( )>④在“script for clicked”(单击脚本)编辑窗口输入如下语句：open(w_query_s_avg) // 打开“查询学生平均成绩”窗口close(parent) // 关闭主窗口⑤单击【保存】按钮(6) 命令按钮【退出】的 clicked 事件【操作步骤】①展开【student.pbl】→双击【w_main】 (打开主窗口)②单击【退出】按钮③单击 [Event List] 选项卡→双击 <clicked( )>④在“script for clicked”(单击脚本)编辑窗口输入如下语句：close(parent) // 关闭主窗口⑤单击【保存】按钮⒊在“数据操作”窗口为各个控件编写驱动程序(脚本)(1) 在窗口的Open事件中编写脚本【操作步骤】①展开【student.pbl】②双击【 w_manipulation 】窗口图标 (打开“数据操作” 窗口)③单击 [Open] 选项卡④在“script for open”(打开脚本)编辑窗口输入如下语句：dw_1.settransobject(sqlca) // 为控件dw_1设置通讯区域 sqlcadw_2.settransobject(sqlca) // 为控件dw_2设置通讯区域 sqlcadw_3.settransobject(sqlca) // 为控件dw_3设置通讯区域 sqlcashl_1.setfocus() // 将焦点设置到控件 sle_1⑤单击【保存】按钮(2) 命令按钮【BROWSE】的 clicked 事件【操作步骤】①展开【student.pbl】→双击【 w_manipulation】②单击【BROWSE】按钮③单击 [Event List] 选项卡→双击 <clicked( )>④在“script for clicked”(单击脚本)编辑窗口输入如下语句：dw_1.retrieve() // 从数据库的S表中检索全部数据dw_2.retrieve() // 从数据库的SC表中检索全部数据dw_3.retrieve() // 从数据库的C表中检索全部数据⑤单击【保存】按钮(3) 命令按钮【RESET】的 clicked 事件【操作步骤】①展开【student.pbl】→双击【 w_manipulation】②单击【RESET】按钮③单击 [Event List] 选项卡→双击 <clicked( )>④在“script for clicked”(单击脚本)编辑窗口输入如下语句：string query , sqldw_1.reset()dw_2.reset()dw_3.reset()query = ""dw_1.setfilter(query)dw_1.filter()dw_2.setfilter(query)dw_2.filter()sql = "select * from c"dw_3.setsqlselect(sql)dw_3.setfilter(query)dw_3.filter()shl_1.text=""shl_1.setfocus()⑤单击【保存】按钮(4) 命令按钮【INSERT_SC】的 clicked 事件【操作步骤】①展开【student.pbl】→双击【 w_manipulation】②单击【 INSERT_SC 】按钮③单击 [Event List] 选项卡→双击 <clicked( )>④在“script for clicked”(单击脚本)编辑窗口输入如下语句：dw_2.insertrow(0)dw_2.scrolltorow(dw_2.rowcount())dw_2.setfocus()⑤单击【保存】按钮(5) 命令按钮【DELETE_SC】的 clicked 事件【操作步骤】①展开【student.pbl】→双击【 w_manipulation】②单击【 DELETE_SC 】按钮③单击 [Event List] 选项卡→双击 <clicked( )>④在“script for clicked”(单击脚本)编辑窗口输入如下语句：dw_2.deleterow(0) // 从SC表中删除当前行:deleterow()⑤单击【保存】按钮(6) 命令按钮【UPDATE_SC】的 clicked 事件 p.243【操作步骤】①展开【student.pbl】→双击【 w_manipulation】②单击【 UPDATE_SC 】按钮③单击 [Event List] 选项卡→双击 <clicked( )>④在“script for clicked” (单击脚本) 编辑窗口输入如下语句：int g1, g2g1 = integer(shl_1.text)g2 = dw_2.GetItemNumber(dw_2.GetRow(), 3)dw_2.SetItem(dw_2.GetRow(), 3, g2+g1)⑤单击【保存】按钮(7) 命令按钮【OK】的 clicked 事件 p.243【操作步骤】①展开【student.pbl】→双击【 w_manipulation】②单击【 OK 】按钮③单击 [Event List] 选项卡→双击 <clicked( )>④在“script for clicked” (单击脚本) 编辑窗口输入如下语句：if dw_2.update() = 1 thencommit;elserollback;end if⑤单击【保存】按钮(8) 命令按钮【QUERY_SNO】的 clicked 事件 p.243【操作步骤】①展开【student.pbl】→双击【 w_manipulation】②单击【 QUERY_SNO 】按钮③单击 [Event List] 选项卡→双击 <clicked( )>④在“script for clicked” (单击脚本) 编辑窗口输入如下语句：string query, sqlquery = "sno='"+shl_1.text+"'"dw_1.setfilter(query)dw_1.filter()dw_1.retrieve()dw_2.setfilter(query)dw_2.filter()dw_2.retrieve()sql = "select c.* from sc, c where o=o andsc.sno='"+shl_1.text+"'"dw_3.setsqlselect(sql)dw_3.retrieve()shl_1.setfocus()⑤单击【保存】按钮(9) 命令按钮【EXIT】的 clicked 事件 p.243【操作步骤】①展开【student.pbl】→双击【 w_manipulation】②单击【 EXIT 】按钮③单击 [Event List] 选项卡→双击 <clicked( )>④在“script for clicked” (单击脚本) 编辑窗口输入如下语句：open(w_main)close(parent)⑤单击【保存】按钮⒋在“课程查询”窗口为各个控件编写驱动程序(脚本)(1) 在窗口的Open事件中编写脚本【操作步骤】①展开【student.pbl】②双击【 w_course_query 】窗口图标 (打开“课程查询” 窗口)③单击 [Open] 选项卡④在“script for open”(打开脚本)编辑窗口输入如下语句：dw_1.settransobject(sqlca)dw_1.retrieve()⑤单击【保存】按钮(2) 命令按钮【查询】的 clicked 事件【操作步骤】①展开【student.pbl】→双击【 w_course_query】②单击【查询】按钮③单击 [Event List] 选项卡→双击 <clicked( )>④在“script for clicked”(单击脚本)编辑窗口输入如下语句：dw_1.setfilter("")if rb_1.checked = true thenchoose case ddlb_1.textcase "课程号"dw_1.setfilter("cno='"+shl_1.text+"'")case "课程名"dw_1.setfilter("cname='"+shl_1.text+"'")case "教师名"dw_1.setfilter("tname='"+shl_1.text+"'")end chooseelsechoose case ddlb_1.textcase "课程号"dw_1.setfilter("cno like" + "'%" +shl_1.text+"%'") case "课程名"dw_1.setfilter("cname like" + "'%" +shl_1.text+"%'") case "教师名"dw_1.setfilter("tname like" + "'%" +shl_1.text+"%'") end chooseend ifdw_1.retrieve()shl_1.setfocus()⑤单击【保存】按钮(3) 命令按钮【返回主窗口】的 clicked 事件p.243【操作步骤】①展开【student.pbl】→双击【 w_ w_course_query】②单击【返回主窗口】按钮③单击 [Event List] 选项卡→双击 <clicked( )>④在“script for clicked” (单击脚本) 编辑窗口输入如下语句：open(w_main)close(parent)⑤单击【保存】按钮⒌在“学生选课”窗口为各个控件编写驱动程序(脚本)(1) 在窗口的Open事件中编写脚本p.245【操作步骤】①展开【student.pbl】②双击【 w_select_course 】窗口图标 (打开“学生选课” 窗口)③单击 [Open] 选项卡④在“script for open”(打开脚本)编辑窗口输入如下语句：dw_1.settransobject(sqlca)dw_1.setfilter("")dw_1.retrieve()int numnum = dw_1.rowcount()st_4.text = string(num)shl_1.setfocus()⑤单击【保存】按钮(2) 命令按钮【按学号查询】的 clicked 事件【操作步骤】①展开【student.pbl】→双击【 w_select_course】②单击【按学号查询】按钮③单击 [Event List] 选项卡→双击 <clicked( )>④在“script for clicked”(单击脚本)编辑窗口输入如下语句：if shl_1.text = "" thendw_1.setfilter("")elsedw_1.setfilter("s_sno='"+shl_1.text+"'")end ifdw_1.retrieve()int numnum = dw_1.rowcount()st_4.text = string(num)shl_1.setfocus()⑤单击【保存】按钮(3) 命令按钮【选课】的 clicked 事件【操作步骤】①展开【student.pbl】→双击【 w_select_course】②单击【选课】按钮③单击 [Event List] 选项卡→双击 <clicked( )>④在“script for clicked”(单击脚本)编辑窗口输入如下语句：if shl_1.text="" or shl_2.text="" thenmessagebox("提示！","输入框不能为空！",exclamation!, ok!, 2) elsestring cnoselect cno into:cno from sc where sno=:shl_1.text and cno=:shl_2.text;if cno=shl_2.text thenmessagebox("提示！","你已经选过该课程！",exclamation!, ok!, 2) elseint numberselect count(*) into: number from c where cno=:shl_2.text;if number=0 thenmessagebox("提示！","该课程不存在！",exclamation!, ok!, 2)elseinsert into sc(sno,cno,score)value(:shl_1.text, : shl_2.text, null);end ifend ifend ifshl_2.setfocus()⑤单击【保存】按钮(4) 命令按钮【退课】的 clicked 事件【操作步骤】①展开【student.pbl】→双击【 w_select_course】②单击【退课】按钮③单击 [Event List] 选项卡→双击 <clicked( )>④在“script for clicked”(单击脚本)编辑窗口输入如下语句：if shl_1.text="" or shl_2.text="" thenmessagebox("提示！","输入框不能为空！",exclamation!, ok!, 2) elseint numberselect count(*) into: number from sc where sno=:shl_1.textand cno=:shl_2.text;if number=0 thenmessagebox("提示！","你未选修过该课程！",exclamation!, ok!, 2)elsedelete from sc where sno=:shl_1.text and cno=:shl_2.text;end ifend ifshl_2.setfocus()⑤单击【保存】按钮(5) 命令按钮【更新选课表】的 clicked 事件【操作步骤】①展开【student.pbl】→双击【 w_select_course】②单击【更新选课表】按钮③单击 [Event List] 选项卡→双击 <clicked( )>④在“script for clicked”(单击脚本)编辑窗口输入如下语句：dw_1.setfilter("s_sno='"+shl_1.text+"'")dw_1.retrieve()int numnum = dw_1.rowcount()st_4.text = string(num)shl_2.setfocus()⑤单击【保存】按钮(6) 命令按钮【返回主窗口】的 clicked 事件 p.243【操作步骤】①展开【student.pbl】→双击【 w_select_course】②单击【返回主窗口】按钮③单击 [Event List] 选项卡→双击 <clicked( )>④在“script for clicked” (单击脚本) 编辑窗口输入如下语句：open(w_main)close(parent)⑤单击【保存】按钮⒍在“课程更新”窗口为各个控件编写驱动程序(脚本) ppt.94(1) 在窗口的Open事件中编写脚本p.245【操作步骤】①展开【student.pbl】②双击【 w_course_update 】窗口图标 (打开“课程更新” 窗口)③单击 [Open] 选项卡④在“script for open”(打开脚本)编辑窗口输入如下语句：int numberdw_1.settransobject(sqlca)dw_1.retrieve()number = dw_1.retrieve()st_1.text = string(number)⑤单击【保存】按钮(2) 命令按钮【新增课程】的 clicked 事件【操作步骤】①展开【student.pbl】→双击【 w_course_update】②单击【新增课程】按钮③单击 [Event List] 选项卡→双击 <clicked( )>④在“script for clicked”(单击脚本)编辑窗口输入如下语句：dw_1.insertrow(0)dw_1.scrolltorow(dw_1.rowcount())dw_1.setfocus()cb_1.enabled = false⑤单击【保存】按钮(3) 命令按钮【保存课程】的 clicked 事件【操作步骤】①展开【student.pbl】→双击【 w_course_update】②单击【保存课程】按钮③单击 [Event List] 选项卡→双击 <clicked( )>④在“script for clicked”(单击脚本)编辑窗口输入如下语句：int numberstring cno, strnumber = dw_1.getrow()cno = dw_1.getitemstring(number,"cno")select cno into:str from c where cno=:cno;if cno=str and cb_1.enabled = false thenmessagebox("提示！","不能增加，此课程已存在！") elsedw_1.update()number = dw_1.retrieve()st_1.text = string(number)cb_1.enabled = trueend if⑤单击【保存】按钮(4) 命令按钮【删除课程】的 clicked 事件【操作步骤】①展开【student.pbl】→双击【 w_course_update】②单击【删除课程】按钮③单击 [Event List] 选项卡→双击 <clicked( )>④在“script for clicked”(单击脚本)编辑窗口输入如下语句：int numberstring cno, strnumber = dw_1.getrow()cno = dw_1.getitemstring(number,"cno")select distinct cno into:str from sc where cno=:cno;if cno=str thenmessagebox("提示！","不能删除，此课程已有学生选修！") elsedw_1.deleterow(number)dw_1.update()number = dw_1.retrieve()st_1.text = string(number)end if⑤单击【保存】按钮(5) 命令按钮【返回主窗口】的 clicked 事件 p.248【操作步骤】①展开【student.pbl】→双击【 w_course_update】②单击【返回主窗口】按钮③单击 [Event List] 选项卡→双击 <clicked( )>④在“script for clicked” (单击脚本) 编辑窗口输入如下语句：open(w_main)close(parent)⑤单击【保存】按钮⒎在“查询学生平均成绩”窗口为各个控件编写驱动程序(脚本) ppt.101(1) 在窗口的Open事件中编写脚本p.248【操作步骤】①展开【student.pbl】②双击【 w_query_s_avg】窗口图标 (打开窗口)③单击 [Open] 选项卡④在“script for open”(打开脚本)编辑窗口输入如下语句：dw_1.settransobject(sqlca)dw_1.retrieve()⑤单击【保存】按钮(2) 命令按钮【查询】的 clicked 事件【操作步骤】①展开【student.pbl】→双击【 w_query_s_avg】②单击【查询】按钮③单击 [Event List] 选项卡→双击 <clicked( )>④在“script for clicked”(单击脚本)编辑窗口输入如下语句：dw_1.setfilter("")if rb_1.checked = true thenchoose case ddlb_1.textcase "学号"dw_1.setfilter("sno='"+shl_1.text+"'")case "姓名"dw_1.setfilter("sname='"+shl_1.text+"'")end chooseelsechoose case ddlb_1.textcase "学号"dw_1.setfilter("sno like"+ "'%" + shl_1.text+"%'") case "姓名"dw_1.setfilter("sname like"+ "'%" + shl_1.text+"%'") end chooseend ifdw_1.retrieve()shl_1.setfocus()⑤单击【保存】按钮(3) 命令按钮【返回主窗口】的 clicked 事件 p.249【操作步骤】①展开【student.pbl】→双击【 w_query_s_avg】②单击【返回主窗口】按钮③单击 [Event List] 选项卡→双击 <clicked( )>④在“script for clicked” (单击脚本) 编辑窗口输入如下语句：open(w_main)close(parent)⑤单击【保存】按钮㈧运行应用程序单击PowerBar【Run】按钮→（显示应用程序主界面）→选择功能按钮********* Finished *********。