vb05
基于VB2005的二十一点游戏设计
是 ．Ｅ Ｎ Ｔ运 行库 ．该运 行 库 是一 种 程 序 ．执 行 Ｖ ｓａ 超 过 ２ ｉ ｌ ｕ １点 ， 家就 输 了— — 叫爆 掉（ ｕｔ， 玩 Ｂ ｓ 游戏 也 就结 ） Ｂ ｓ ｏ ５以及 用针 对 ，Ｅ ａｉ ２ ｏ ｃ Ｎ Ｔ运 行 库 的其 他 语 言 编写 束 了。假 如玩 家没爆 掉 ． 又决 定不 再要 牌 了 ， 时庄 家 这 的程亭 这使 得用 Ｖ ｓａ ａｉ ｉ ｌ Ｂｓ ｕ ｃ编写 的程 序 不仅 可 以 就把他 的那 张 暗牌 打开来 。 家根 据 自己 的情 况 拿牌 ． 庄 在计 算 机上运 行 ． 可 以在 其他设 备 上运 行 ， 如手机 般到 ｉ 还 例 ７点或 １ ７点 以上不再 拿牌 ． 也有 可 能 ｌ 但 ５到
１ 设 计 背景与 意义 、
（ 暗 牌） 大 家手 中扑 克 点数 的计 算 是 ： Ｑ、 叫 。 Ｋ、 Ｊ和 ｌ Ｏ
在 ２ ｏ世 纪 ６ ｏ年代 初期 ．达特 茅斯 学 院 的两位 数 牌 都 算 作 ｌ Ｏ点 。 Ａ 牌 既 可算 作 ｌ点 也 可 算 作 ｌ ｌ
学 教授 为 了使 他 们 的学 生 可 以使 用简 单 易 学 的语 言 点 。 由玩家 自己决定 。其 余所 有 ２至 ９牌 均按 其 原 面 来 处理 复 杂 的程 序设 计 项 目， 开发 了 Ｂ ＳＣ语 言 。 随 值 计算 。 先玩 家开 始要牌 ． ＡＩ 首 如果玩 家 拿到 的前 两张 牌 着 Ｂ ＳＣ 日益 改 进 ． 以 进行 结构 化 程 序 设 计 ＋ 而 是一 张 Ａ 和一 张 ｌ ＡＩ 可 从 Ｏ点牌 ， 拥 有 黑杰 克 （ ｌ ｋａ ｋ： 就 Ｂａ ｊｃ ） ｃ
列管式换热器工艺流程图二
〖复习〗
按结构不同换热器分哪几种？ 【答案】
板式换热器、管式换热器、螺旋板式换热器、管板式换热器等。
〖新课导入〗
换热主要是冷、热液体在壳程（容器）、管程（管 道）流动，通过换热管壁进行温度的传递过程。换 热单元主要控制换热后冷、热流体输出时温度，同 时为满足生产需求，流量又必须保证。因此换热的 设备、阀门都类似于流体输送单元。
一、列管式换热器工艺流程图
1_5_8_1列管式换热器工艺流程物流进料泵 P102A/B：热物流进料泵
2、换热器 E101：列管式换热器
三、各类阀门
位号 VB01 P101A泵前阀
说明
位号 VD01
说明 FV101的旁路阀
VB03
VB04 VB05 VB06 VB07 VB08 VB09 VB10 VB11 TV101A
P101A泵出口阀
FIC101的前阀 FIC101的后阀 TV101A的前阀 TV101A的后阀 TV101B的前阀 TV101B的后阀 P102A泵的前阀 P102A泵的出口阀 热物流流量调节阀
VB 集成开发环境
在VB中，变量必须先声明后使用，声明时需指定变量名和 数据类型，如`Dim x As Integer`。
变量作用域
根据变量声明的位置和方式，变量的作用域可以是局部的 （过程级或块级）或全局的（模块级或公共级）。
运算符和表达式应用
01
运算符
VB提供丰富的运算符，包括算术运算符（+、-、*、/等）、比较运算
文件操作（读写、修改、删除）
要点一
文件读写
在VB中，可以使用`Open`语句打开 文件，并使用`Input`或`Output`模式 进行读写操作。可以使用`Line Input`或`Print #`语句读取或写入文 件内容。读写完成后，需要使用 `Close`语句关闭文件。
要点二
文件修改
修改文件内容时，可以先打开文件并 读取原有内容，然后对内容进行修改 后再写回文件。也可以使用文件系统 对象（如`FSO`）提供的方法对文件 进行复制、移动或重命名等操作。
物联网与嵌入式系统
随着移动设备和云计算的普及 ，未来的VB集成开发环境可能 会更加注重跨平台支持，使得 开发者能够更加方便地开发出 适用于不同平台和设备的应用 程序。
人工智能和机器学习技术的不 断发展将为VB集成开发环境带 来更多的智能化功能，例如代 码自动补全、错误自动检测与 修复、智能提示等，提高开发 效率和质量。
详细讲解了VB编程语言的基础语法、数据类型、 控制结构、过程与函数等，通过实例演示了如何 编写简单的VB程序。
VB数据库编程
讲解了如何使用VB进行数据库编对象模型进行数据库操作。
未来发展趋势预测
跨平台支持
人工智能与机器学习
云计算与微服务
ERA
过程和函数定义调用方法
05 一起学VB教程——对话框InputBox和MsgBox
对话框InputBox和MsgBox“大家好，从本节课程开始，我们一起来学习VB中各种对话框的使用。
”本节课程呢，我们一起来学习InputBox和MsgBox对话框。
这两个对话框在VB中非常的重要，使用频次很高，熟练的掌握它们，可以为编程带来更高的效率。
01—输入对话框InputBoxInputBox 函数作用:在一对话框来中显示提示，等待用户输入正文或按下按钮，并返回包含文本框内容的String。
语法:InputBox(prompt[, title] [, default] [, xpos] [, ypos] [, helpfile, context])参数:参数中，我们一般只需要使用前面三个Prompt、Title、Default。
Prompt表示对话框中的提示文本，用来提示用户需要输入什么。
Title是对话框的标题Default是对话框中的默认值。
举例1：运行效果如下：以上例子，虽然正确的使用了InputBox，但是并没有接收用户输入的数据。
因此实际上这样的用法通常是没有意义的。
举例2：运行效果如下：这个例子中，我用了一个变量age来接收InputBox函数的返回值，获得了用户输入的数据。
细心的读者可能会发现，例1和例2中，InputBox函数的用法有一点区别。
例子中InputBox中的参数，并没有用括号，而例2中却使用了括号。
其实，这是因为例1中没有使用变量接收InputBox函数的返回值，所以不需要使用括号，这一点我们在函数Function课程中已经讲过了。
相反例2使用了变量接收函数返回值，因此需要括号将参数给括起来。
另一点，需要注意的是，InputBox函数的返回值的数据类型是String字符串类型。
因此，如果需要使用其进行计算，则一定要记得用val来转换数据类型为数值型。
如果用户单击了“取消”按钮，则会返回一个长度为0的空字符串""。
InputBox举例错误案例：运行程序，分别输入1和2，发现输出的结果是12，如下图所示：这个例子中，1+2=12，很明显是不正确的，其错误的原因就是数据类型不正确。
vb教案全套完整版
能够独立开发简单的 Windows应用程序，如 计算器、记事本等。
具备一定的程序调试和 错误处理能力，能够解 决常见的编程问题。
课程安排与时间
基础篇主要介绍VB语言的基础知识 和基本控件的使用，包括变量、数 据类型、运算符、控制结构、窗体、 标签、文本框等。
实战篇将通过多个综合实验，让学 生综合运用所学知识，开发出具有 一定实用价值的Windows应用程序。
深入学习Visual Basic高级特性
鼓励学生继续探索Visual Basic的高级特性，如面向对象编程、多线 程编程等，提升编程能力。
拓展学习其他编程语言
建议学生尝试学习其他编程语言，如C#、Java等，拓宽编程视野，增 强跨平台开发能力。
实践项目经验积累
鼓励学生积极参与实际项目开发，将所学知识应用于实践中，提升解 决问题能力和团队协作能力。
客户端编程
介绍如何使用VB和Winsock控件编写客户端程序，包括连接服务 器、发送和接收数据等。
实例演示和代码分析
通过实例演示服务器端和客户端的通信过程，并对代码进行详细分 析和讲解。
08
课程总结与展望
课程重点内容回顾
01 Visual Basi…
02 程序控制结构
03 数组与集合
04 过程与函数
控件使用与事件处理
控件类型选择
根据需求选择合适的控件类型， 如文本框（TextBox）、按钮
（Button）、标签（Label）等。
控件属性设置
通过属性窗口设置控件的名称、 标题、位置、大小、颜色等属性。
控件事件处理
编写控件事件处理程序，如单击 事件（Click）、双击事件 （DblClick）等。
选择结构程序设计
2024年计算机VB教学计划
04
教学评价与反馈
课堂表现及作业完成情况评价
课堂参与度
考察学生在课堂上的积极 程度，是否主动回答问题 、参与讨论等。
作业提交情况
记录学生作业提交是否及 时，有无拖延现象。
作业质量
评价学生完成作业的认真 程度、正确率以及创新性 。
上机实践及项目完成情况评价
01
02
03
上机操作能力
评估学生在上机实践中的 操作熟练度、准确性。
教学资源与支持
教材及参考书目推荐
《Visual Basic程序设计教程》
作为主教材，系统介绍VB编程基础知识和实践技能。
《Visual Basic实例教程》
通过实例讲解VB编程技巧，适合初学者进阶学习。
《Visual Basic程序设计与应用》
涵盖VB编程的各个方面，包括界面设计、数据库应用等，适合作为参考书目。
培养学生的团队意识和协作精神 ，为将来的职业发展打下坚实的
基础。
鼓励创新思维和拓展视野
引入新技术和新应用 ，让学生了解VB编 程语言的前沿动态和 发展趋势。
提供拓展学习资源和 平台，支持学生自主 学习和探究，拓展知 识视野。
鼓励学生尝试不同的 编程思路和方法，培 养创新思维和创新能 力。
THANKS
菜单与对话框设计
学习菜单和对话框的设计方法，掌握 如何为应用程序添加菜单和对话框。
文件操作与数据库应用模块
文件操作基础
了解文件的概念及分 类，掌握文件的打开 、关闭、读写等基本
操作。
文件系统控件
学习文件系统控件（ 如驱动器列表框、目 录列表框、文件列表 框等）的使用方法。
数据库基础
了解数据库的概念及 结构，熟悉常用的数 据库管理系统（如
vb2005 访问金蝶eas 8.2 凭证功能源代码大全
.settlementNumber = "" '结算方式：
.settlementType = "" '结算号：
.cussent = 0 '核销/挂账：默认为0， 格式：
Me.WSContext = Proxy.login("ff", "947926", "eas", "QK17", "L2", 0)
Debug.Print(Me.WSContext.sessionId)
'Me.myEASsrv.MethodName = "getOrg"
Try
Dim vouchers As WSGLWebServiceFacade.WSWSVoucher() = Me.GetVouchers
myEASsrv.MethodName = ""
Dim result As String() = myEASsrv.importVoucher(vouchers, 1, 1, 0)
.accountNumber = "1001" '科目：分录行科目编码，必须在EAS中有
.currencyNumber = "BB01" '币种：分录行币别编码，必须在EAS中有
.localRate = 1 '汇率：本位币汇率：没有时默认为1 格式：1.01
Dim v As New WSGLWebServiceFacade.WSWSVoucher
With v
DCS操作步骤
离心泵冷态开车打开LIC101调节阀向罐V101充液待罐V101液位大于5%后,打开PV101A对罐V101充压罐V101液位控制在50%左右时LIC101投自动罐V101液位控制 LIC101 设定值50%罐V101压力控制在5ATM左右时，PIC101投自动罐V101压力控制 PIC101 设定值 5 atm启动A泵: 待罐V101压力达到正常后,打开P101A泵前阀VD01打开排气阀VD03排放不凝气待泵内不凝气体排尽后,关闭VD03启动P101A泵待PI102指示压力比PI101大2.0倍后,打开泵出口阀VD04启动B泵: 待罐V101压力达到正常后,打开P101B泵前阀VD05打开排气阀VD07排放不凝气待泵内不凝气体排尽后,关闭VD07启动P101B泵待PI104指示压力比PI103大2.0倍后,打开泵出口阀VD08打开FIC101阀的前阀VB03打开FIC101阀的后阀VB04打开调节阀FIC101调节FIC101阀,使流量控制20000KG/H时投自动离心泵正常停车LIC101置手动关闭LIC101调节阀,停V101罐进料FIC101置手动逐渐缓慢开大阀门FV101，增大出口流量待液位小于10%时，关闭P101A泵的后阀停P101A泵关闭泵P101A前阀VD01关闭FIC101调节阀关闭FIC101调节阀前阀关闭FIC101调节阀后阀打开泵前泄液阀VD02观察P101A泵泄液阀VD02的出口,当不再有液体泄出时，显示标志变红色关闭P101A泵泄液阀VD02待V101罐液位低于10%后,打开罐泄液阀VD10待V101罐液位小于5%时，打开PIC101泄压观察V101罐泄液阀VD10的出口，当不再有液体泄出时，显示标志变红色待罐V101液体排净后，关闭泄液阀VD10压缩机冷态开车启动公用工程油路开车盘车当XN301显示压缩机转速升到199r/min时，停盘车开启暖机打开阀门VD05,EA305冷却水投用打开低压甲烷原料阀VD11手动调节PIC303，打开PV303放火炬逐渐打开FA311入口阀VD01开透平低压蒸气出口阀VD10缓慢打开中压蒸气入口阀HC3011按紧急停车按钮XN301显示压缩机转速下降为0后，HC3011关闭为0关闭低压蒸气出口阀VD10等待半分钟后，按压缩机复位按钮重新手动升速,开透平低压蒸气出口阀VD10打开HC3011，使压缩机转速缓慢升至1000r/min将调速开关切换至PIC304方向调大PRC304输出值，使阀PV304B缓慢关闭缓慢打开GB301出口阀SV310的旁通阀VD13，使压缩机压力在3-5atm范围内当PI301压力指示值为3.03atm时，关旁路阀VD13打开VD06去燃料系统阀同时相应关闭PIC303放火炬阀逐步开大阀PV304A，使升速，当转速达到4480r/min后，将PRC304投自动PRC304设定295mmH2O将PIC303投自动PIC303设定0.1atm联锁投用压缩机正常停车确认联锁已被摘除将PRC304投手动逐渐减小PRC304的输出值，使PV304A关闭缓慢打开PV304B将PIC303投手动调大PIC303的输出值，打开PV303阀放火炬开启安全阀旁路阀VD13关闭去燃料系统阀VD06将HC3011开度置为100.0%将调速开关切换至HC3011方向缓慢关闭HC3011按紧急停车按钮，降低压缩机转速为0压缩机转速降低为0关透平蒸气出口阀VD10关FA311进口阀VD01用PIC303关放火炬阀PV303关FA311进口阀VD11关换热器冷却水阀VD05列管换热器冷态开车E101壳程排气VD03(开度约50%)打开 P101A泵的前阀VB01启动泵P101A待泵出口压力达到4.5atm以上后,打开P101A泵的出口阀VB03打开FIC101的前阀VB04打开FIC101的后阀VB05打开FIC101观察壳程排气阀VD03的出口，当有液体溢出时（VD03旁边标志变绿），标志着壳程已无不凝性气体，关闭壳程排气阀VD03，壳程排气完毕。
VB菜单、工具栏、菜单栏设计
03 提供足够的自定义选项，以满足不同用户的个性 化需求。
优化界面布局和交互方式
01
合理安排界面元素的位置和大小，使其符合用户的视觉习惯。
02
简化操作流程，减少不必要的步骤和点击次数。
提供清晰的视觉反馈，如按钮点击效果、动态加载指示等，以
03
03
菜单栏设计
菜单栏的布局
水平布局
将菜单项水平排列，适合于较长的菜单项名称。
垂直布局
将菜单项垂直排列，适合于较短的菜单项名称。
分组布局
将相关联的菜单项分组，便于用户快速找到所需功能。
菜单栏的设计原则
简洁明了
菜单项名称应简短、清晰，避免使用过于专 业的术语。
层次分明
菜单项应按照功能分类，形成清晰的层次结 构。
VB菜单、工具栏、菜 单栏设计
目录
• VB菜单设计 • 工具栏设计 • 菜单栏设计 • VB界面设计中的注意事项 • VB界面设计实例分析
01
VB菜单设计
菜单的类型
下拉菜单
下拉菜单是常见的菜单类型，用户点击菜单 项后，会弹出下拉列表供用户选择。
弹出菜单
弹出菜单通常在用户右键点击时出现，提供 一些常用的功能或操作。
02
工具栏设计
工具栏的种类
主工具栏
包含常用命令的综合性工具栏，方便 用户快速访问常用功能。
自定义工具栏
用户可以根据自己的需求创建自定义 工具栏，添加或删除按钮，以适应特 定工作流程。
浮动工具栏
可移动到屏幕任意位置的工具栏，方 便用户在不同区域使用。
停靠工具栏
可以自动停靠在窗体边缘的工具栏， 便于用户快速访问常用命令。
Visual Basic
VB的组件既可以拥有用户界面，也可以没有。这样一来服务器端程序就可以处理增加的模块。
VB使用参数计算的方法来进行垃圾收集，这个方法中包含有大量的对象，提供基本的面向对象支持。
属性（Property）
属性是指用于描述对象的名称、位置、颜色、字体等特征的一些指标。可以通过属性改变对象的特性。
对象（Object）
Visual 具有“面向对象”的特性，Visual 应用种程序的基本单元是对象，用 Visual 编程就是用“对象”组装程序。这种“面向对象”的编程方法与传统的全部用代码编制程序的 方法有很大区别，就像用集成电路芯片组装电视机和用三极管，二极管组装电视机的区别一样。显然，“面向对 象”的编程方法比传统的编程方法更简单，更方便，并且编写出的程序也更加稳定。因此，“对象”可以被看做 Visual 程序设计的核心。
Visual Basic(vb)是新一代的 VB语言，并不只是 VB 6.0的简单升级，vb与 VB (泛指 VB 6.0之前的版本) 之间有非常大的区别。其新特性主要表现在以下几方面：
1．vb完全集成到 Visual Studio集成开发环境中，在这种集成开发环境与 VB在若干方面有差异。主要体 现在窗体的布局以及菜单等方面都有所不同。
结构化的程序设计语言：Visual Basic 6.0具有丰富的数据类型和众多的内部函数。其采用模块化和结构化 程序设计语言，结构清晰，语法简单，容易学习。
强大的数据库功能：Visual Basic 6.
语言基础
注释方式 特征衡量
对象与类 相关控件
《vb程序设计》ppt课件
2024/1/24
03
端口和套接字
网络通信通过端口和套接字实现，端口是应用程序与网络通信的接口，
套接字则是端口之间的连接。
31
Winsock控件在VB中的应用
Winsock控件介绍
Winsock控件是VB中用于网络通信的控件，提供了一套简单易用的API接口，可以实现 TCP和UDP协议的通信。
建立TCP连接
38
案例一：计算器程序设计
需求分析
确定计算器的功能需求，如加减 乘除、求平方、求倒数等。
界面设计
使用VB的窗体设计器设计计算 器的界面，包括按钮、文本框等
控件。
2024/1/24
代码实现
编写事件处理程序，实现计算器 的各项功能。
测试与调试
对计算器程序进行测试，确保各 项功能正常运行，无错误。
39
案例二：学生信息管理系统开发
29
06
网络编程技术
2024/1/24
30
网络通信原理简介
01
客户端/服务器模型
网络通信通常采用客户端/服务器模型，客户端发送请求，服务器响应
请求并返回数据。
02
TCP/IP协议
TCP/IP协议是网络通信的基础，包括传输控制协议（TCP）和网络协议
（IP），提供可靠的、面向连接的和无连接的数据传输服务。
03
VB界面设计
2024/1/24
18
窗体设计
2024/1/24
窗体类型与属性
介绍VB中不同类型的窗体，如标准窗体、MDI窗体等，以及窗体的常用属性，如名称、标题、大 小、位置等。
窗体事件
阐述窗体的事件，如加载事件、卸载事件、大小改变事件等，并解释如何编写事件处理程序。
vb开发环境简介课件
06
vb开发环境的案例和应用展示
案例一：简单的桌面应用程序开发
总结词
VB开发环境在简单的桌面应用程序开发中 表现出色，具有高效、易用和灵活的特点。
详细描述
VB开发环境提供了图形化的用户界面设计 工具，允许开发者通过拖放组件来创建用户 界面，大大降低了开发难度。此外，VB还 提供了丰富的控件库和功能强大的事件处理 机制，使得开发者可以快速开发出高质量的 桌面应用程序。
强大的事件驱动编程模型
事件驱动编程
Visual Basic采用事件驱动编程模型，可以通过定义事件处理程序 来响应用户的操作，实现交互式编程。
事件处理程序
事件处理程序是定义在特定对象上的方法，可以用来处理特定事件 ，如按钮点击、鼠标移动等。
事件参数
事件处理程序可以接受事件参数，用来传递事件相关的信息，如事 件类型、触发事件的控件等。
vb开发环境简介课件
汇报人： 日期:
目录
• vb开发环境概述 • vb开发环境的核心组件 • vb开发环境的使用流程 • vb开发环境的常用工具和技术 • vb开发环境的高级功能和特性 • vb开发环境的案例和应用展示
01
vb开发环境概述
b开发环境的定义
Visual Basic（简称VB）是一种可视 化编程语言，它提供了一个集成开发 环境（IDE），用于开发Windows应 用程序和Web应用程序。
运行程序
运行可执行文件
在vb开发环境中，运行可执行文件 以测试程序的功能和性能。
测试程序
在运行过程中，对程序进行测试，包 括功能测试、性能测试、兼容性测试 等。
调试程序
调试错误
在程序运行过程中，可能会遇到错误或异常情况。需要使用调试工具来查找和 修复错误。
用VB设计PCS-05型程控直流恒流电源控制软件
软 件 界 面 图
Ｐ ｂｉ ｕ ｌ ｃＸ１ ，Ｘ３Ａｓ Ｌ ｇ ｏｎ Ｐ ｂ ｉ Ｘ２ ｕ ｌ ，Ｘ４ Ａｓ Ｌ ｎ ｃ ｏ ｇ
内 ，Ｇ Ｉ ＰＢ系统仍将在 实际应 用中 ，特 别是 中 、低速 范围 内的
号 ，但手动进行输出 电流调节时往往 比较麻烦 ，还 可能造 成输 出 波动 。为 了解 决 手 动操 作 仪 表所 造 成 的 不便 ，本 文 基 于
Ｇ Ｉ 线 技 术 ，利 用 Ｖｓａ Ｂ ｓ ． ＰＢ总 ｉ ｌ ａｉ ６０设 计 了一 种 便 于 操 作 的 ｕ ｃ Ｐ Ｓ ５型程 控 直 流恒 流 电源 控 制 软 件 。 Ｃ 一０
维普资讯
．
・
Ｅ Ｅ Ｄ ＤＳ Ｓ Ｅ Ｒ Ｄ ■Ｂ Ｄ Ｅ Ｙ Ｔ ＭＰ Ｏ 删
ＭＮ ｉＤ……………………… …………………………………… ……………。 ．
用 ＶＢ 设 计 ＰＣＳ一０ ５型 程 控 直 流 恒 流 电 源 控 制 软 ｌ－ ｑ
李 欣 姚 英 王淑芬 桑 宝晶
Ｅｎ ｄＩ ｆ ｅ ｌ Ｃｏ ｂ Ｌ ｓ ｌ ｄ ｘ ＝ ２ Ｔｈ ｎ ｆ ｍ ｏ１ ｉｔｎ ｅ
ｌ ＝ ２ １
系 统 输 出 置 ０ 选 择 正 向 输 出 ， 出 电压 限 置 为 １ ７ ５ ． 输 ．Ｖ ２
Ｕ＝０
Ｖ ＝ １
Ｅ ｄＩ ｎ ｆ ｔ ｈｎ ｌ Ｃｏ ｂ Ｌ ｓ Ｉ ｄ ｘ ＝ ３ Ｔ ｅ ｆ ｍ ｏ１ ｉ ｎ ｅ Ｉ ＝３ １ Ｅ ｄＩ ｎ ｆ ｈ ｎ ｌ ｏ ｂ Ｌｓ Ｉｄ ｘ ： ４ Ｔ ｅ ｆ Ｃ ｍ ｏ１ ｉｔｎ ｅ Ｉ ＝４ １ Ｅ ｄＩ ｎ ｆ ｈ ｎ Ｉ ｏ ｂ １ Ｌｓ ｌｄ ｘ ＝ ５ Ｔ ｅ ｆ Ｃ ｍ ｏ ｉｔｎ ｅ Ｉ ＝５ １ Ｅ ｄＩ ｎ ｆ Ｅ ｄＳ ｂ ｎ ｕ
DCS技能取证实操
换热器1、列管换热器冷态开车：VD03(开度约50%)-，开VB01，启动泵P101A，待泵出口压力达到4.5atm以上后,打开P101A泵的出口阀VB03，打开FIC101的前阀VB04，打开FIC101的后阀VB05，打开FIC101观察壳程排气阀VD03的出口，当有液体溢出时（VD03旁边标志变绿），标志着壳程已无不凝性气体，关闭壳程排气阀VD03，壳程排气完毕。
打开冷物流出口阀VD04，开度约50%手动调节FV101，使FIC101指示值稳定到12000kg/hFIC101投自动FIC101 设定值12000开E101管程排气阀VD06（50%）打开P102泵的前阀VB11启动P102A泵打开P102泵的出口阀VB10打开TV101A的前阀VB06打开TV101A的后阀VB07打开TV101B的前阀VB08打开TV101B的后阀VB09观察E101管程排汽阀VD06的出口，当有液体溢出时（VD06旁边标志变绿），标志着管程已无不凝性气体，此时关管程排气阀VD06，E101管程排气完毕。
打开E101热物流出口阀VD07 手动控制调节器TIC101输出值，逐渐打开调节阀TV101A至开度为50%调节TIC101的输出值，使热物流温度分别稳定在177度左右，然后将TIC101投自动2、列管换热器正常停车：关闭P102泵的出口阀(VB10)停P102A泵关闭P102泵入口阀(VB11)TIC101改为手动关闭TV101A关闭TV101A的前阀(VB06)关闭TV101A后阀(VB07)关闭TV101B的前阀(VB08)关闭TV101B的后阀(VB09)关闭E101热物流出口阀(VD07)关闭P101泵的出口阀(VB03)停P101A泵关闭P101泵入口阀(VB01)FIC101改手动关闭FIC101的前阀(VB04)关闭FIC101的后阀(VB05)关闭FV101关闭E101冷物流出口阀(VD04)打开泄液阀VD05待管程液体排尽后，关闭泄液阀VD05打开泄液阀VD02待壳程液体排尽后，关闭泄液阀VD02一、离心泵冷态开车：罐V101的操作：1、LV101.OP>0 打开LIC101调节阀向罐V101充液2、PV101A.PV>0.5 待罐V101液位大于5%后,打开PV101A对罐V101充压3、LIC101.MODE=1 罐V101液位控制在50%左右时LIC101投自动4、LIC101.SP=50 罐V101液位控制LIC101 设定值50%5、PIC101.MODE=1 罐V101压力控制在5A TM左右时，PIC101投自动6、PIC101.SP=5 罐V101压力控制PIC101 设定值 5 atm7、LI101.PV=50V101罐液位启动A或B泵：1、启动A泵: 待罐V101压力达到正常后,打开P101A泵前阀VD012、打开排气阀VD03排放不凝气3、待泵内不凝气体排尽后,关闭VD034、启动P101A泵5、待PI102指示压力比PI101大 2.0倍后,打开泵出口阀VD046、P101A泵入口压力7、V101罐液位8、V101罐压出料：1、打开FIC101阀的前阀VB032、打开FIC101阀的后阀VB043、打开调节阀FIC1014、调节FIC101阀,使流量控制20000KG/H时投自动5、V101罐液位6、P101A泵入口压力7、P101A泵出口压力8、V101罐压9、出口流量二、离心泵正常操作：质量评分1、V101罐液位LIC101稳定在50%2、V101罐压PIC101稳定在5atm3、P101A泵入口压力PI101稳定在4atm4、P101A泵出口压力PI102稳定在12 atm5、P101出口流量FI101稳定在20000kg/h三、离心泵正常停车：V101罐停进料：1、LIC101.MODE=0LIC101置手动2、LV101.OP=0关闭LIC101调节阀,停V101罐进料停泵P101A：1、FIC101.MODE=0FIC101置手动2、FV101.OP>53 逐渐缓慢开大阀门FV101，增大出口流量3、FI101.PV=20000 注意防止FI101值超出高限：30000 4、VD04.OP=0 待液位小于10%时，关闭P101A泵的后阀5、P101-A.PV=0 停P101A泵6、VD01.OP=0 关闭泵P101A前阀VD017、FV101.OP=0 关闭FIC101调节阀8、VB03.OP=0 关闭FIC101调节阀前阀9、VB04OP=0 关闭FIC101调节阀后阀泵P101A泄液：1、VD02.OP=1 打开泵前泄液阀VD022、VB09.PV=0 观察P101A泵泄液阀VD02的出口,当不再有液体泄出时，显示标志变为红色3、VD02.op=0 关闭P101A泵泄液阀VD02V101罐泄压、泄液：1、VD10.op=1 待V101罐液位低于10%后,打开罐泄液阀VD102、Pv101B。
200504VB编程规范(1.2版)
Visual Basic开发规范1.2版1 说明此文档定义了使用Visual Basic进行软件开发时要遵循的规范，参考了多篇文章，并通过实践的总结得到的。
遵守此开发规范能提高编程的可靠性和易读性、使代码便于维护和修改。
2 规范2.1 命名规范在命名时（包括窗体、控件、变量、数组等），要使用有意义的名称，不要使用简单的字符，尽量使用有意义的英语单词命名。
如果有几个连续的英文单词，则每个英文单词的首字母大写，单词间没有下划线。
使用匈牙利标记法进行命名，即使用3字符的前缀来表示数据类型和控件类型。
2.2 注释规范注释是用文字说明代码的作用。
要明确指出代码的目的、编写思路和算法。
使代码的阅读者注意到代码中的要点，方便之后的修改和维护。
注释量应达到总代码量的1/4~1/3。
2.3 编程格式目的是为了使阅读源代码时比较容易。
2.3.1 不要将多个语句放在一行上，每个语句独占一行。
2.3.2 一行太长时使用行接续符（“_”）一行上的字符不要超过90个。
（不用左右滚动就可以看到）不要试图使后续行右对齐。
使用行接续符分割比较复杂的运算表达式。
2.3.3 缩进表示层次结构在IF…Else…EndIF, Do…Loop, Do…while, Select Case…End Select, With…End With, Type, enum等语句结构中使用缩进。
2.3.4 适当使用空白行分隔程序2.4 变量、数组的规范2.4.1 使用规范要求所有变量都要先定义后使用，即在程序前加上“Option Explicit”，定义时要说明数据的类型。
数组的命名：在数据类型前加一个a表示，例如astrEmployees，G_audtPoints。
2.4.3 变量的注释对变量意义的说明，可以在变量定义上方的一行注释，也可以在定义的同一行中注释。
对于全局变量、模块或窗体的局部变量，必须要有注释说明变量的作用，最好说明引用变量的主要过程。
vb6.0高清教程系列 第05章 数组(共九章)
5.1 概 述
数组的概念：数组并不是一种数据类型，而 是一组相同类型数据的集合。用一个统一的名字 （ 数组名） 代表逻辑上相关的一批数据，每个元 素用下标变量来区分；下标变量代表元素在数组 中的位置。
其表示形式： A(1)，A(10) X(1,1), Y(0,0,0), X1(1,10), Y(1,2,5) X(2,10)
例5.1
5.2.4 一维数组的应用
一、分类统计
例5.2 在 例 5.1中 如 果 还 要 统 计 0~9， 10~19， 20~20， …. 80~89，90~99分数段及100分的学生人。 则可另用数组bn来存各分数段的人数，并用bn(0)存 0~9分的人数，bn(1)存10~19分的人数，…bn(9)存90~99 分的人数，bn(10)存100分的人数。
5.2.3 一维数组的基本操作
1. 可通过循环给数组元素的初值 For i = 1 To 10 A(i)=1 Next i 'A数组的每个元素值为1
2. 数组的输入 For i = 1 To 4 For j = 1 To 5 sc(i, j) = InputBox("输入sc(" &i & "," & j & ") 的值") Next j Next I
1．选择法排序
算法思想： 1）对有n个数的序列（存 放在数组a(n)中），从中选 出最小（升序）或最大（降 序） 的数， 与第1个数交换 位置； 2） 除第1 个数外， 其余 n-1个 数 中 选 最 小 或 最 大的 数，与第2个数交换位置； 3）依次类推，选择了n-1 次后，这个数列已按升序排 列。
3．Split函数 使用格式： Split(<字符串表达式> [,<分隔符>]) 说明： 使用Split函数可从一个字符串中，以某个指定符号为分隔 符，分离若干个子字符串，建立一个下标从零开始的一维数 组。 补充例： 使用文件框，通过编程实现大量数据的输入 输入一系列的数据，存放在数组中。对输入的数据允许 修改和自动识别非数字数据。 分析： 利用文本框实现大量数字串的输入和编辑的功能； 通过编程将输入的数字串以逗号为分界符分离出各项数据； 对非数字： 数组名(下标1，下标2)
基于VB 2005与Access 2003平台下的营造林核查系统开发
ｅｔ ｍｎｓ ａｉ ， ｈｎ ｓａ４ ０ ４ Ｃ ｉａ ｓｙＡｄ ｉｉｒｔ ｎ Ｃ ａｇｈ ０ １ ， ｈｎ ） ｒ ｔ ｏ Ａｂｓｙ ｃ ：Ａｃ ｏｄ ｎ ｏ ｔ ｅ ａ ｔ ａ ｅ ｄ ｆａ ｏ ｅ ｔｔ ｎ ｖ ｒｆｃ ｔ ｎ，ｎ ｔ ｓ ｐ ｐ ｒ ｉ ｅ ｐ ｔａｅ ｈ ｄ ａ ｎ ｔａ ｔ ｃ ｒ ｉ ｇｔ ｈ ｃｕ ｌｎ ｅ ｓｏ ｆ ｒｓａｉ ｅｉ ａｉ ｉ ｈｉ ａ ｅ ，ｔ ｘ ａｉｔｄ ｔｅ ｉｅ ａ ｄ ｏ ｉ ｏ ｓ ｆ ｎ ｔｏ ｓｏ ｆｏ ｅｔｔ ｙ ｔ ｍ ｅ ｉｎ ｉ ｅａｌ ａ ｄ ｈ ｗ ｔ ｅ ｅｏ ｈ ｏ ｅｔｔｏｎ ｖ ｒ ｃ ｔｏ ｙ ｔｍ ｉｈ ｕ ｃｉｎ ｆａｆｒ ｓａｅ ｓ ｓｅ ｄ ｓｇ ｎ ｄ ｔｉ， ｎ ｏ ｏ ｄ ｖ ｌｐ ｔ ｅ ａ ｒ ｓａｉｉ ｅ ｉ ａ ｉｎ ｓ ｓｅ ｗｈｃ ｆ ｉ ｆ ｂ ｅ ｎ ｖｓ ａ ａ ｉ ０ ５ ａ ｄ Ａｃ ｅ ｓ２ ０ ｌｔｏｍ ． ｓ ａ ｄ ｏ ｉｕ ｌｂ ｓｃ２ ０ ｎ ｃ ｓ ０ ３ ｐａｆｒ
黄 发 赵 ， 平
（ ． 西林 业勘 测设计院 ， １广 南宁 ５ ０ １ ； ． ３ ０ １ ２ 国家林业局 中南林业调查规划设计 院， 长沙 ４０ １ ） １０ ４ 摘 要 ： 根据 营造林核 查 工作 的 实 际需要 ， 阐述 营造林 核 查 系统 设计 的 思路 、 功能 ， 建基 于 Ｖｓａ 构 ｉ ｌ ｕ
１２ 数据 库平 台 的选择 ．
当前 的数据 平台主要有 Ｏａｌ Ｓ ＬＳｒｅ、 ｃｅｓ ｒ ｅ Ｑ ｅ ｒＡ ｃｓ ｃ、 ｖ 和 Ｖｓａ Ｆｘ ｒ ， 中 Ａ ｃｓ 数 据库 是微 软公 司主 打 ｉ ｌ ｏＰｏ 其 ｕ ｃｅｓ
办公 软件 Ｍ ｃ ｓｆ Ｏｆ ｅ中一个 极 为 重要 的组 成 部 ｉ ｏｏ ｆｃ ｒ ｔ ｉ
Bently Nevada vb5移动数据收集器说明书
DescriptionThe vb5Portable Data Collector instrument is a portablesingle channel vibration data collector.It is ergonomicallydesigned and lightweight for all day comfort.You can use thisdevice for on-route as well as off-route data collection.The vb5Portable Data Collector provides recordings with upto6,400lines of resolution and up to40kHz F max.Ourpatented adaptive settling algorithm and6Pack recordingsystem offer quick,one-step data recording.The data collector has plenty of storage and long battery life,and is backed by a five year warranty.The vb5Portable Data Collector is one of Bently Nevadahardware monitoring assets that work with System1software.The vb5Portable Data Collector offers the followingfeatures:l Single channel recordingsl6,400lines FFT resolutionl Supports40kHz F maxl1GB memoryl≥95dB dynamic rangel Spectrum and waveform recordingsl Demodulation for early detection of rotating machineryproblems such as bearing faultsl Unique6Pack recording systeml Cable test model Option to add flex features such as balancing andRemote Commsl Upgradable Proflash system and free firmware updatesfor5yearsl Five-year warranty on the instrumenthardware vb5Portable Data CollectorDatasheetBently Nevada Machinery Condition Monitoring111M6572Rev.HSpecifications SensorsSensor Input One channel CompatibleSensor TypesAccelerometerAC Coupled Range 16V peak-peak Allows for±8 V sensor output swing(±80 g)Connectors1x BNC(CH1)Safety feature: Break-freeinline connector Analog toDigitalConversion24-bit ADCSensor Excitation Current 0mA or2.2mA (configurable),24V maximum2.2mA required power for IEPE/ICP type accelerometerSensor Detection Warns if short circuit or not connectedTachometer Sensor(Optional) Sensor Type Laser sensor with reflectivetape Sensor triggers onbeam reflectionLaser Sensor Range 10cm to2m nominal Rangedepends on size of reflectivetapeTachometer InputSupportedSensor TypesLaser Tach,Contact,TTLPulse Instrument hasoptically isolated inputPower Supplyto Sensor5V,50mATTL PulseRating 3.5V(4mA)min28V(5mA)max Off-state0.8VSpeed Range10RPM to300,000RPM(0.2Hzto5kHz)Pulse width at least0.1msAccuracy±0.1%Parameter IndicationMaximumLevels(peak)>1000g(10,000m/s2)>1000in/sec(25,000mm/s)>20in(500mm)Effective limit is sensorsensitivity and outputvoltageDynamicSignal Range>95dBtypical at400line resolutionHarmonicDistortionLess than-70dB typicalOther distortions and noiseare lowerUnits g or m/s2or adB in/s ormm/s or vdB mil or mm orµm0-peak,peak-peak or RMSAuto-scale by1000x whenrequiredUS and SI options for ampsand voltsMagnitude andCursorsOverall RMS value WaveformTrue pk-pk Dual cursorsHarmonicsDigital readouts on chartBase Accuracy±1%of readingsapproximately0.1dB%of readingHigh Frequency Attenuation ≤0.1dB100Hz to10kHz≤3dB >10kHz to40kHz Attenuation tolerances are in addition to base accuracy.AC Coupling Attenuation ≤0.1dB10Hz to<100Hz≤3dB1 Hz to<10HzAttenuation Due to Integration ≤0.1dB1Hz to<100Hz≤1.5dB 0.2Hz to<1HzValues apply to single integration.(Acceleration to velocity)Double the values for double integration(Acceleration to displacement)Spectrum DisplayF max Ranges25,50,100,125,150,200,300,400,500,600,800,1000,1200,1600,2000,2500,3000,4000,5000,6000,8000,10,000,15,000,20,000,30,000,40,000Hz Or equivalent CPM valuesOr orders-based from1X to999XF min Possible Range 0to F max Instrument zeroes all spectral lines below F minResolution400,800,1600,3200,6400linesFrequency Scale Hz,CPM,Orders Linear scale with zoomingAmplitude Scale Acceleration,velocity, displacement Linear or log scales,auto or manual scalingWindow Shapes Hanning RectangularOverlap(0,12.5,25,37.5,50,62.5,75,87.5)%Depends on F max andnumber of linesNumber ofAverages1,2,4,8,16,32,64,128Increases sampling timeproportionallyAveragingTypesLinear,exponential,peakholdDemodulationBandwidths23bandwidth options From125Hz to1250Hz Up to16kHzto20kHz6Pack Up to40kHz&3200lines(1channel)Spectrum andwaveform for low-frequency,high-frequency anddemodulationWaveform DisplayNumber ofSamples1024,2048,4096,8192,16,384Time Scale10ms to256seconds ororders based from1to999revsLogging and AnalysisOutputFormatsInstrument screen,transferto System1,XMLData Storage Dual1GB non-volatile flashmemories Database mirrorcopy on second flashmemoryData StorageStructureFolders/machines/points/locations/routesNo limits are applied50character namesMax Folder Size10,000measurementlocationsDisplay and Communication Display Graphic Grayscale LCD LEDBacklightResolution and Size 480x320(HVGA),5.5”(140 mm)Readable in direct sunlightSupported Languages English,Chinese,French, German,Japanese, Portuguese,Russian and SpanishCommunication with PC USB or EthernetUse PROFLASH to upgrade instrument firmwareUSB Host Port USB2.0,supplying5V,250mA Save folders to USBflash driveBattery and ChargerBattery Type Custom Lithium Ion pack,7.4V,5 AhOperating Time 10hours Backlight on—60 second timeoutCharger Type Internal charging,automatic control External power pack12V DC,3A outputCharge Rate 3A nominal3hours for complete chargeMechanicalSize9.9"W x5.8"L x2.4"H(252x148x60mm)Weight 2.7lb(1.2kg)Includingbattery and strap Environmental LimitsOperatingTemperature14°F to122°F(-10to50°C)StorageTemperatureand Humidity-4°F to140°F(-20to60°C),95%RHUp to95F(35C),85%RH ifstorage exceeds1month Ruggedness IP65sealed4’(1.2m)droponto concrete Procedure:26drops following MIL-STD-810F-516.5-IVCompliance and CertificationsFCCThis device complies with part15of theFCC Rules.Operation is subject to thefollowing two conditions:l This device may not cause harmfulinterference.l This device must accept anyinterference received,includinginterference that may causeundesired operation.EMCEN61326-1:2012EN61326-2-3:2012EMC Directive2014/30/EU Electrical SafetyEN62133:2002LV Directive2014/35/EURoHSRoHS Directive2011/65/EU Hazardous Area ApprovalsFor the detailed listing of country andproduct specific approvals,refer tothe Approvals Quick Reference Guide(108M1756)available from .CSA/NRTL/C(Approval Option01)Class I,Division2,Groups A,B,C,DOrdering InformationFor the detailed listing of country andproduct specific approvals,refer tothe Approvals Quick Reference Guide(108M1756)available from . VB5-AAA:Agency Approval01CSABasic KitWe offer the vb5Portable Data Collector instrument in a basic kit with the option to purchase the System1software and license separately.*Kit items with multiple part numberslisted have limited regional availabilitydue to certification requirements.Metrology certification can be requested when an order is placed,however this service is charged.Standard test data can be requested for free,but is not evidence of calibration.To request a periodic metrology calibration,contact Bently Nevada Tech Suppport.Additional Accessories SoftwareHardwareCopyright2021Baker Hughes Company.All rights reserved.Bently Nevada,Keyphasor,SCOUT,System1and Orbit Logo are registered trademarks of Bently Nevada,a Baker Hughes Business,in the United States and other countries.The Baker Hughes logo is a trademark of Baker Hughes Company.All other product and company names are trademarks of their respective e of the trademarks does not imply any affiliation with or endorsement by the respective holders.Baker Hughes provides this information on an“as is”basis for general information purposes.Baker Hughes does not make any representation as to the accuracy or completeness of the information and makes no warranties of any kind,specific,implied or oral,to the fullest extent permissible by law,including those of merchantability and fitness for a particular purpose or use.Baker Hughes hereby disclaims any and all liability for any direct,indirect, consequential or special damages,claims for lost profits,or third party claims arising from the use of the information,whether a claim is asserted in contract,tort,or otherwise.Baker Hughes reserves the right to make changes in specifications and features shown herein,or discontinue the product described at any time without notice or obligation.Contact your Baker Hughes representative for the most current information.The information contained in this document is the property of Baker Hughes and its affiliates;and is subject to change without prior notice.It is being supplied as a service to our customers and may not be altered or its content repackaged without the express written consent of Baker Hughes.This product or associated products may be covered by one or more patents.See /legal.1631Bently Parkway South,Minden,Nevada USA89423Phone:1.775.782.3611(US)or /support。
数字 模拟 电子技术基础 课后练习题 答案
7、三极管的三个工作区域是
截止 ，
饱和 ， 放大
。
发射结正偏、 8、三极管实现放大的外部条件是：发射结正偏、集电结反偏 。 某放大电路中的三极管，测得管脚电压Va = -1V， Vb=-3.2V, Vc =-3.9V, 这是 硅 管（硅、锗）， 型，集电极管脚是 。 NPN a
9、某放大电路中的三极管，在工作状态中测得 它的管脚电压Va = 1.2V， Vb= 0.5V, Vc = 3.6V, 试问该三极管是 硅 管（材料）， NPN 型的 三极管，该管的集电极是a、b、c中的 C 。
3、PN结反向偏置时，PN结的内电场 增强 。 PN结具有 具有单向导电 特性。
4、二极管的最主要特性是 单向导电性 。ＰＮ结外 加正向电压时，扩散电流 大于 漂移电流，耗尽层 变窄 。 5、在常温下，硅二极管的门槛电压约为0.5V，导通 后在较大电流下的正向压降约为0.7V；锗二极管的 门槛电压约为 _0.1_V，导通后在较大电流下的正 向压降约为_0.2_V。 6、三极管放大电路的三种基本组态是 共集 、 共基 、ET 和 MOSFET 两大类 型，它属于电压 控制型器件。 11、场效应管属于 电压控制电流 型器件，而双 极型半导体三极管则可以认为是 电流控制电流 型器件。 12、场效应管是 单极型 器件，只依靠 多数载流 子 导电。 13、根据场效应管的输出特性，其工作情况可以分为 可变电阻区 、恒流区、 击穿区 和截止区四个区域。 14、当栅源电压等于零时，增强型FET 无 导电沟道， 结型FET的沟道电阻 最小 。 15、场效应管有 共源 、 共栅 、 共漏 三种组态。
6三极管放大电路的三种基本组态是1vvb32vvc39v这是截止饱和放大发射结正偏集电结反偏9某放大电路中的三极管在工作状态中测得它的管脚电压va12vvb05vvc36v试问该三极管是管材料npn10场效应管从结构上分成jfetmosfet两大类型它属于电压控制型器件
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
06年秋：1．单击命令按钮Command1，窗体上输出的结果是（）Private Sub Command1_Click()x = 3y = 4Call Test(x, y)Print x; yEnd SubPrivate Sub Test(var1, var2)var1 = var1 ^ 2var2 = var2 ^ 2var3 = Sqr(var1 + var2)Print var3;End SubA．5 3 4B．5 9 16C．25 3 4D．25 9 16 2．执行下面程序，单击窗体后，窗体上显示的内容是（）Private Sub Form_Click()Dim aa = Array("Mon", "Tue", "Wed", "Thu", "Fri", "Sat", "Sun")Print a(5), LBound(a), UBound(a)End SubA．Fri 1 7 B．Fri 0 6 C．Sat 1 7 D．Sat 0 6 3．执行下面程序，单击窗体后，窗体上显示的内容是（）Private Sub Form_Click()For I = 0 To 10 Step -2I = I + 2NextPrint IEnd SubA.10B. -2C. 0D. 2 4．下述程序运行时，单击窗体，窗体上显示的图形是（）Private Sub Form_Click()str1 = "Microsoft Visual Basic version 6.0"degree = 3.14159 / 180For i = 1 To Len(str1)CurrentX = i * 100CurrentY = 1000 - 600 * Sin(i * 10 * degree)Print Mid(str1, i, 1)Next iEnd SubA．B．C．D．5. 运行下面程序，单击窗体后，窗体上显示的图形是（）Private Sub Form_Click()Me.Height = 2000Me.Width = 2000Me.DrawWidth = 5Me.DrawStyle = 0End WithMe.Line (0, 500)-(2000, 500)Me.Line (1000, 500)-(1000, 2000)End SubA. B. C. D.07年春：1．执行下面的程序后，变量i 的值为（）Private Sub Command1_Click()Dim B(10)B(0) = 10For i = 1 To 10B(i) = i * iIf B(i) > 50 Then Exit ForNextPrint iEnd Sub(A) 2 (B) 8 (C) 4 (D) 52．下述程序的运行结果为（）Private Sub Command1_Click()a = Array(33, 76, 89, 21, 10, 44, 57, 69, 28, 71)b = Array(25, 45, 89, 90, 16, 27, 83, 62, 83, 75)For i = UBound(a) To LBound(a) Step -1If a(i) <> b(i) Then c = c + 1Next iPrint cEnd Sub（A）6(B)7（C）8（D）93．运行下列程序，单击命令按钮Command1，在窗体上输出的结果是（）Private Sub Command1_Click()For K = 1 To 4For N = 0 To KPrint Chr(65 + K);Next NPrintNext KEnd Sub(A)(B)(C)(D)A AAB BBBB BBB CC CCC CCC CCCC DDD DDDD DDDD DDDDD EEEE EEEEE 4．下列程序运行后，窗体上显示的图形为（）Private Sub Form_Click()Dim CenterX As Integer, CenterY As IntegerCenterY = Form1.ScaleHeight / 2CenterX = Form1.ScaleWidth / 2PSet (0, CenterY)For i = 1 To 10Line -Step(500, -500)Line -Step(0, 500)Next iEnd Sub（A）（B）（C）（D）5．下面程序运行后，与窗体上显示的结果最接近的数值是（）Private Sub Form_Click()s = 1000For i = 1 To 1000a = Rnd * 100 - 49s = s + aNext iPrint s / 1000End Sub（A）0 （B）1 （C）49 （D）100007年秋：1、程序运行后，m和n的关系为（）Private Sub Command1_Click()m = 0 : n = 0For i = 1 To 20X = Sqr(2) + Rnd * 3Y = Sqr(3) + Rnd * 2If X > Y Thenm = m + 1Elsen = n + 1End IfNext iPrint m, nEnd Sub（A）m一定大于n （B）m一定小于n （C）m一定等于n （D）不确定2、下述程序运行时，在文本框Text1中输入字符串“ABCD”，单击命令按钮Command1后，Label1中显示内容为（）Private Sub Command1_Click()X = Text1.TextL = Len(X)W1 = ""For k = L To 1 Step -1W1 = W1 + Mid(X, k, 1)Next kLabel1.Caption = W1End Sub（A）ABCD （B）BCDA （C）CDAB （D）DCBA3、运行下列程序，单击Command1后，窗体上显示的计算结果为（）。
Private Sub Command1_Click()Dim X As IntegerX = 5Print "计算结果="; AX(X) + 2End SubPublic Function AX(Y)AX = Y Mod 2End FunctionA．7 B．5 C．3 D．14、下列程序运行后，单击窗体，在窗体上显示的图形为（）Private Sub Form_Click()For i = 7 To 1 Step -1Print Tab(20 - i);For j = 1 To iPrint " *";Next jPrintNext iEnd Sub（A）（B）（C）（D）5、执行下面的程序后，单击命令按钮Command1，窗体上显示的结果为（）Private Sub Command1_Click()Dim B(10)For i = 1 To 10B(i) = i * iIf B(i) > 50 Then Exit ForNextPrint iEnd Sub(A) 8 (B) 9 (C) 10 (D) 1108年春：1、程序运行后，单击窗体，则在窗体上显示的结果为（）Private Sub Form_Click()For i = 1 To 4num = Int(Rnd + i)Select Case numCase 4p = "W"Case 3p = "X"Case 2p = "Y"Case 1p = "Z"End SelectNext iPrint pEnd Sub（A）W （B）X （C）Y （D）Z2、下述程序运行时，单击窗体，在窗体上显示的内容为（）Private Sub Form_Click()Dim a As Varianta = Array(37, 58, 69, 22, 84, 93, 77, 62)For i = UBound(a) To LBound(a) Step -5Print Trim(Str(a( i)));Next iEnd Sub（A）3784 （B）6269 （C）3758 （D）62773、运行下列程序，图片框Picture1中显示的内容为（）。
Dim i As LongPrivate Sub Form_Load()Timer1.Enabled = TrueTimer1.Interval = 50End SubPrivate Sub Timer1_Timer()Picture1.Clsx = Picture1.ScaleWidth \ 2y = Picture1.ScaleHeight - i + 1000Picture1.Circle (x, y), 500i = i + 10End SubA．一个圆形从Picture1的底边出现，逐渐上移并最终消失在Picture1的顶部边缘B．一个圆形从Picture1的顶边出现，逐渐下移并最终消失在Picture1的底部边缘C．一个圆形从Picture1的左边出现，逐渐右移并最终消失在Picture1的右边D．一个圆形从Picture1的右边出现，逐渐右移并最终消失在Picture1的左边4、下面程序运行后，在文本框Text1中输入6，然后单击命令按钮Command1，窗体上显示的计算结果是（）Private Sub Command1_Click()n = Val(Text1.Text)If n \ 2 = n / 2 Thenf = f1(n)Elsef = f2(n)End IfPrint f; nEnd SubPublic Function f1(ByRef x) As Integerx = x * xf1 = x + xEnd FunctionPublic Function f2(ByVal x) As Integerx = x * xf2 = x + x + xEnd Function（A）18 6 （B）18 36 （C）24 6 （D）72 365、执行下面的程序后，单击窗体（Form），窗体上显示的结果为（）Private Sub Form_Click()For i = 50 To 100k = TrueFor j = 2 To Sqr(i)If i Mod j = 0 Then k = FalseNext jIf k = True ThenPrint iExit ForEnd IfNext iEnd Sub(A) 50 (B) 51 (C) 53 (D) 10008年秋：mark1．运行程序后，单击窗体，窗体上输出的结果是（）Private Sub Form_Click()Dim s As String, t As Strings = ""st = Text1.TextFor k = Len(st) To 1 Step -1If k = Len(st) Thens = s + Mid(st, k, 1)Elses = s + "_" + Mid(st, k, 1)End IfNext kLabel1.Caption = sEnd Sub（A）（B）（C）（D）2．在窗体上画一个命令按钮，然后编写如下事件过程，运行后,单击命令按钮，输出结果为（）Sub S(x As Single, y As Single)t = xx = t / yy = t Mod yEnd SubPrivate Sub Command1_Click()Dim a As SingleDim b As Singlea = 5b = 2Call S(a, b + 2)Print a, bEnd Sub（A）5 4 （B）1 1 （C）1.25 4 （D）1.25 2 3．对窗体编写如下事件过程，程序运行后，单击鼠标右键，则输出结果为（）Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 2 ThenPrint "AAAAA"End IfEnd SubPrivate Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Print "BBBBB"End Sub（A）AAAAABBBBB （B）BBBBBAAAAA（C）AAAAA （D）BBBBB4．下面程序运行后输出的图形是（）Private Sub Form_Click()Const angle = 3.14159 / 180For i = 0 To 360 Step 30X1 = 1000 + 900 * Cos(angle * I)Y1 = 1000 + 900 * Sin(angle * I)X2 = 1000 + 500 * Cos(angle * I)Y2 = 1000 + 500 * Sin(angle * I)Line (X1, Y1)-(X2, Y2)Next iCircle (1000, 1000), 480End Sub（A）（B）（C）（D）5．单击命令按钮Command1之后，窗体上显示的运行结果为（）Private Sub Command1 _ Click()Dim a(10) As Integer, p(3) As Integerk=5For i=1 To 10a(i)=iNext iFor i=1 To 3p(i)=a(i*i)Next iFor i=1 To 3k=k+p(i)*2Next iPrint kEnd Sub（A）35 （B）33 （C）31 （D）29 09年春：1．下面的程序运行后，单击窗体，窗体上输出的结果是（）Private Sub Form_Click()k = 15If k <= 10 Then a = 2 * k + 100If k <= 20 Then a = 2 * k + 200If k <= 30 Then a = k + 10Print k; aEnd Sub（A）15 130 （B）15 230 （C）15 25 （D）25 152．下列程序运行后，单击窗体，输出结果为（）Private Sub Form_Click()Dim s As Integer, i As IntegerDo While i <= 100s = s + iLoopPrint sEnd Sub（A）100 （B）5050 （C）5500 （D）溢出错误3．运行下列程序，单击窗体，在窗口上显示的结果为（）Private Sub Form_Click()Dim a As Integera = 4Print a = 3 + 2End Sub（A）4 （B）5 （C）True （D）False4．下面程序运行后在窗体上显示的结果是（）Private Sub Form_Click ( )For k = 1 To 7For j = 1 To 7If k < j Then Print 1; Else Print 0;Next jPrintNext kEnd Sub（A）（B）（C）（D）5．在VB程序的窗体上添加定时器Timer1，然后书写下述代码，程序启动运行1分钟之后，窗体上显示的最后结果为（）Private Sub Form_Load()i = 0Timer1.Enabled = TrueTimer1.Interval = 1000End SubPrivate Sub Timer1_Timer()Me.Clsi = i + 1Print iEnd Sub（A）0 （B）1 （C）60 （D）1000 09年秋：1．下列程序运行后，窗体上显示的图形为（）Private Sub Form_Click()Dim CenterX As Integer, CenterY As IntegerCenterY = Form1.ScaleHeight / 2CenterX = Form1.ScaleWidth / 2PSet (0, CenterY)For i = 1 To 10Line -Step(500, -500)Line -Step(0, 500)Next iEnd Sub（A）（B）（C）（D）2．运行下面程序，单击窗体后，输出的结果是（）。