VB中使用水晶报表编程的一种简单方
法
下载本文源代码
水晶报表（Crystal Report）是业内最专业、功能最强的报表系统，它除了强大的报表功能外，最大的优势是实现了与绝大多数流行开发工具的集成和接口。在https://www.doczj.com/doc/e710498188.html,平台做过报表开发的程序员，一定都对水晶报表强大、高效、集成等特性留下了深刻印象。除了开发新程序外，在工作中我们常需要接触到很多较早的软件系统报表功能升级的需求，如果能结合水晶报表这一强大的工具，往往能事半功倍。
VB是以前流行的数据库开发平台，用其开发的C/S系统在社会上有非常大的保有量，但VB超弱的报表功能往往让程序员面对客户的升级要求一筹莫展。本文并不做水晶报表的使用和编程教学，实际上水晶报表本身的使用方法和https://www.doczj.com/doc/e710498188.html,平台并没有太大的差别，我主要是和大家探讨一下VB和水晶报表的一种较方便的接口方式。我的开发测试平台是Windows2003 Standard简体中文版、VB6.0+sp5英文版、
Crystal 9.０简体中文开发版。
关于在水晶报表中制作报表模板的方法，并非本文的探讨范围，读者可以参考Crystal Report的帮助文件和官方网站的技术资料。简单得说，首先要通过水晶报表的数据库引擎手动连接相应的表结构，制作报表模板，并保存为rpt文件，该项操作和利用VB自带的报表工具制作报表大同小异。
简单地说，用VB调用水晶报表进行报表开发的简单接口方法就是，在水晶报表中用"仅字段定义"来获得字段分布文件，用虚拟的文件创建表字段，用CRAXDRT对象来强制改变数据源（ADO.recordset），其效果相当于在VB中调用了rpt文件。下面分步骤介绍编程方法。
第一步：
在VB工程中Project菜单加入"Add Crystal Report 9"，报表名使用默认即可。这时Form2（Crystal Rerport自动添加的Form，假设名为Form2）被自动分配了如下代码：
第二步：
点击Crystal Report设计器的"数据库字段"，选定"数据库专家…"，然后点"创建新连接"，再点"仅字段定义"，创建"数据库定义"文件，字段名和宽度和原数据库表保持一致。最后，在数据库字段中获得了相应字段，将其置于报表上，按水晶报表的要求配置。
第三步：
该步骤非常关键，添加一个Modual到工程文件中，定义全局的ADODB变量，实现数据库和水晶报
表的动态连接。代码如下：
第四步：
关于VB程序的ADO数据库连接注意事项，请看下面的打印按钮例程。
需要提请大家注意的是，上面代码中的Report.Database.SetDataSource rs, 3, 1是初用水晶报表的程序员容易犯的错误，使用该语句后将造成数据库和水晶报表的连接失败。如何动态调用水晶报表
呢？请看第四步。
第五步：
创建水晶报表和数据库数据源的连接，需要修改上面Form2的代码。
上面介绍了在VB中使用水晶报表进行报表开发的一种方法，该方法简单易用，适合初学者上手。大家熟悉以后，还可以继续学习Crystal Report提供的API函数（Lib库Crpe32.dll）进行水晶报表
开发，可以获得更大的灵活性。
南京工程学院 课程设计说明书（论文）题目打字练习 课程名称VB语言课程设计 院(系、部、中心) 专业 班级 学生姓名 学号 设计地点图书馆基础教学机房 指导教师 设计起止时间：201x年x月x日至201x年x月x日 目录
一、设计任务 (3) 二、方法原理 (3) 三、总体设计思路 (3) 四、程序调试和解决问题 (4) 五、完善及存在的问题 (4) 六、收获体会 (4) 七、意见建议 (4) 八、示例截图 (5) 九、附录1（代码） (6) 十、附录2（主要参考资料） (10) 一、设计任务 1.题目介绍
在计算机及其他数码产品日益普及的今天，人们使用键盘应像用笔写字一样熟练。进行打字练习时熟悉键盘并提高打字速度的好方法。本体要求编制一个打字练习游戏程序，使用户在游戏过程中进行打字练习。 2.功能要求 （1）启动界面如图1 （2）选择难度和速度后，单击“开始”按钮，界面如图1。若选择简单，则落下字母；若选择复杂，单击开始后出现对话框，如图 2.单击确定，开始练习，落下单词。 （2）若用户在字符落到屏幕底部之前敲击了相应的键盘键，则该字符被“击中”然后消失。根据程序速度和难度的设置自动进行积分，实时分数时间正确率掉落个数显示在窗体的上部。 积分规则：正确击中一个字母或一个单词，加一分；反之，不得分，亦不扣分。（4）当游戏者单击“暂停”按钮时，程序停止运行，在单击“开始”按钮，程序继续运行；当单击“退出”按钮时，则弹出对话框（如截图示例3），单击“取消”按钮，程序继续运行，单击“确定”按钮，则弹出对话框（如截图4），此时对话框显示分数，单击“确定”按钮，退出程序。 （5）为了增加视觉效果，每个掉落的字符的颜色随机产生。 二、方法原理 根据题目要求，使用控件数组，用标签标题表示字符，键盘事件的处理判断打字正确与否，随机值的产生方法随机产生字符，用Timer控件属性反映时间、控制字符下落速度。 三、总体设计思路 首先在窗体上画出三个按钮标题分别为开始、暂停、退出。画六个标签分别表示已落字母个数、已花时间、得分与正确率。 画出一个含有五个元素的标签控制数组用以显示字符。 画出两个时间控件，一个用来返回已用时间，一个控制字符下落。 最后编写相关代码
基于VB实现复杂报表设计 xx [摘要] 本文介绍了报表设计的几种方法和以往报表设计所存在的问题，并以实例介绍自动生成复杂报表的方法。实例基于VB软件开发，并以word为模板，通过调用access数据库数据自动生成复杂报表。 [关键词]VB;数据库;Word; 复杂报表 The Design Of Complex Reports Based VB [Abstract] This paper reports detailed description of several common methods, previous reports of the existence of the problem, and makes use of example to achieve a complex reporting by using of software. The example based on VB software and used word template, to achieve the common complex reporting software through reallocating database. [Key words] VB; Database; Word; Complex Statements
1引言 报表是人们在日常生活中对某类相关信息进行集中处理的重要手段，是企业信息化不可缺少的部分。报表在各行各业中应用广泛，是信息浏览、分析和打印的有力工具。传统报表系统均以国外简单报表模型为基础设计，不能适应复杂报表的开发。特别是在处理复杂数据源报表时，常常需要编写代码准备数据或进行子报表拼接才能实现。 1．1传统报表系统存在的问题 目前，国内外的报表系统种类繁多，功能界面各具特色，对这些报表系统的比较研究，有助于我们设计出更好的报表系统。国外的报表系统的技术都比较成熟，适合制作样式简单的报表，但一般都为高端产品，价格不菲，并且在处理具有强烈中国特色的报表时，国外产品不仅报表处理能力相当不适应，甚至某些技术也略显落后，例如部分产品不能稳定地在UNIX上部署，只能支持IE浏览器，统计图输出仍采用原始的CGl方式等。国内的传统报表系统更适合制作复杂的中国式报表，在报表设计和价格等方面国内报表系统也具有一些优势，但国内的报表系统在服务质量和产品本身的品质等方面还存在着一些不足和缺陷，有待进一步的改进和完善。无论是国外的高端报表系统，还是国内的传统报表系统，每一种报表系统都有各自的优点和缺点，都有各自擅长的领域，在实际工作中应该根据需要选择合适的报表系统。面对日益复杂的报表开发需求，尤其是复杂的中国式报表，这些报表系统或多或少都有些力不从心，其主要问题表现在以下三个方面： (1) 复杂数据源的处理能力不足。报表需要从复杂的数据源或者多个不同类型的数据源中获得数据，获得的数据还可能需要统计，格式转换或其他处理，这些需求都是传统报表系统难于实现的。 (2) 报表的可维护性差。传统的报表系统生成报表的种类固定，使用方便，但很多软件系统无论在实施还是在维护阶段，报表都会进行频繁的新增和修改，而传统的报表系统缺乏无编码定制能力，系统扩展网难。一旦用户对报表样式的需求发生改变，就会给软件维护带来许多不必要的麻烦。 (3) 报表保存格式的通用性较差。报表保存格式不统一，保存格式理解困难，各种报表工具各自为政，报表模板无法兼容，行业也没有形成统一的标准，一旦用户选定了某一报表工具就意味着要一直使用。如果不幸选择失误，已经做的工作都要重新再来。 总之，利用传统的报表系统制作报表维护量相当大，一个需求对应一个报表文件，不同的组合要求制作大量的报表文件，使得开发过程变得极为繁琐，难以实现用户的需求。在设计复杂数据源的报表时，或者需要人工转换数据格式，或者要编写大量代码将多个数据源运算成为一个数据源再使用，或者使用拼接子报表的方式来实现，但都没有从根本上解决问题，严重影响报表的设计和使用效率。因此如何快速制作符合多层结构特点的复杂数据源报表，减轻开发工作量，已经成为报表系统开发的重要问题。
Option Explicit Private Sub Command1_Click() Dim i%, j%, r! i = Val(Text1.Text) j = Val(Text2.Text) Picture1.Print i; j; Call gysh(i, j) Picture1.Print "最大公约数是" & i r = Val(InputBox("输入半径")) Call S(r) End Sub Public Function gysh(m As Integer, n As Integer) As Integer Dim t% Do t = m Mod n: m = n: n = t Loop While t <> 0 End Function Public function S(r!) Const pi = 3.1415926 S = pi * r ^ 2 MsgBox "圆面积为：" & S End function Public Function 定积分() End Function
Dim a() As Integer, i%, j%, n%, t% Private Sub Command1_Click() Picture1.Print "排序前的数组为：" n = V al(InputBox("请输入一个3到100的整数")) ReDim a(1 To n) Randomize For i = 1 To n a(i) = Int(Rnd * 100) + 1 Picture1.Print Tab(((i - 1) Mod 5) * 6); a(i); Next i End Sub Private Sub Command2_Click() Picture1.Print Picture1.Print "排序后的数组为：" For i = 1 To n - 1 For j = i + 1 To n If a(i) > a(j) Then t = a(i) a(i) = a(j) a(j) = t End If Next Next For i = 1 To n Picture1.Print Tab(((i - 1) Mod 5) * 6); a(i); Next End Sub
索引 一、在窗体上画一个文本框，其名称为Text1，Text属性为空白。再画一个命令按钮，其名称为C1，Visible属性为False。编写适当的事件过程。程序运行后，如果在文本框中输入字符，则命令按钮出现。 二、计算圆的周长和面积：在窗体中添加一个文本框（Text1）和一个对应的标签（Label1），再添加两个命令按钮（Command1和Command2）和一个图片框（Picture1）。程序运行时，当单击Command1按钮后，计算圆的周长；当单击Command2按钮后，计算圆的面积；计算结果输出在图片框中。（要求在未输入半径前两个按钮呈灰色不可用。） 三、在窗体上添加三个文本框和对应的三个标签，标签的标题分别是“个位”、“十位”、“百位”。程序运行时，当单击窗体后，随机产生一个【100，999】区间内的整数，将它的个位、十位、百位数字分别显示在对应的文本框中。 四、设计一个计算程序：在窗体上添加四个文本框和四个对应的标签，标签的标题分别是“语文”、“数学”、“外语”、“平均成绩”，三个命令按钮，标题分别为“清除”、“计算”、“退出”。程序运行后，用户按“清除”按钮，则清除文本框中显示的内容，按“计算”按钮，则计算三科平均成绩，将计算结果显示在第四个文本框中（计算结果保留小数点后一位）。单击退出按钮则程序退出。 五、某税务部门征收所得税，规定如下：（1）收入200元以内，免征。（2）收入在200~400元，超过200元的部分纳税3%。（3）收入超过400元的部分，纳税4%。（4）当收入达5000元或超过时，将4%税金改为5%。编程序实现上述操作。 六、给定三角形的三条边的边长，计算三角形的面积。编写程序，首选判断给出的三条边能否构成三角形，如可以构成，则计算并输出该三角形的面积，否则要求重新输入。当输入-1时结束程序。 七、编程求100以内的全部素数。 八、编程打印钻石图案。 九、输出杨辉三角形。 十、有一个数组，包含了10个不同的随机整数（20~90），要求计算出它们的平均值，并输出这个数组中最接近于平均值的数。 十一、在一个窗体上建有包含三个命令按钮的控件数组和一个文体框。编程实现当按下标题不同的命令按钮时，使文体框中文字的字体发生相应的变化。 十二、编程求1000以内的完全数。所谓完全数是指这样的自然数：它的各个约数（不包括该数本身）。如28=1+2+4+7+14就是一个完全数。
在VB中用数据报表设计器创建报表 数据环境设计器（Data Environment designer）与数据报表设计器（Data Report designer）均是Visual Basic 6.0的新增功能，它们的出现大大增强了Visual Basic处理数据的能力。在以往的Visual Basic版本中，制作报表都是通过第三方产品来完成并通过ActiveX控件输出的。这两种设计器的出现，使得Visual Basic程序员再也不用考虑选择一个什么样的第三方工具设计报表了，所有的设计全部在Visual Basic内部完成，再加上Visual Basic 6.0新增的开发IIS应用程序和开发DHTML应用程序功能，使得Visual Basic 6.0是一个名副其实的装备齐全的集成开发环境了。下面我们以一个比较简单的报表为例，详细阐述如何使用数据环境设计器和数据报表设计器来设计一个数据报表。 一、数据环境设计器与数据报表设计器 数据环境设计器提供了一个交互式的设计环境。通过设置Connection对象和Command 对象的属性，可以快速完成到一个数据源的连接。对于设置好的数据环境设计器，可以将它的对象拖放到表单上或是报表上，它会自动创建并完成数据绑定控件的设置。 数据报表设计器是一个极为灵活的设计报表的工具。它以数据环境设计器作为数据源，能创建有层次的、汇总若干个关系型数据表数据的复杂报表。除了像传统的报表设计工具那样能将报表通过打印机输出以外，数据报表设计器还能以HTML或文本文件的格式输出报表。 二、数据环境对象 数据环境设计器包含以下几个对象： 1. 数据连接（Connection）对象：连接对象表示到一个作为数据源的远端数据库或本地数据库的连接。在数据环境中必须至少包含一个连接对象，要使用数据环境存取数据，必须首先创建连接对象。 2. 数据命令（Command）对象：命令对象定义了从数据库连接中将取回什么数据的详细信息。命令对象可基于任何一个数据库对象（表、视图、存储过程或同义字）或是一个SQL 查询。 三、数据报表对象 数据报表设计器包括以下几个对象： 1. 数据报表（Data Report）对象：类似于Visual Basic表单，它包含一个可视化设计器和一个代码模块。设计器用来创建报表的布局，也可以往设计器的代码模块里添加代码，用程序对包含在设计器里的控件或区域进行控制。 2. 区域（Section）对象：数据报表设计器的每一个区域均由一个区域集对象中的一个区域对象来表示。在设计阶段，每一个区域都有一个标题，若要选择区域，只需用鼠标选择标题即可，并且在区域内可布置控件。在报表建立之前，使用区域对象及其属性调整报表。使用过报表的人都知道，报表可分为报头、报脚、页头、页脚、组头、组脚和细节等部分，在区域内也是一样的。
'以下程序段用于输出杨辉三角:结果样式如图1 ' Private Sub Form_Click() Const n = 10 Dim arr(n, n) As Integer For I = 1 To n arr(I, I) = 1 '**********SPACE********** 【arr(I, 1) = 1】 Next I For I = 3 To n For j = 2 To I - 1 '**********SPACE********** arr(i, j) =arr(i-1,j-1)+arr(i-1,j) Next j Next I For I = 1 To n For j = 1 To I '**********SPACE********** 【print arr(I,j)】 Next j Print Next I End Sub Option Explicit '------------------------------------------------ '【程序改错】 '------------------------------------------------ '题目：用自定义函数的方法求sum（x），求当-1≤x≤1时，' sum（x）=x/2！+x^2/3!+x^3/4!+……+x^n/(n+1)!， ' 当x〉1或x〈-1时，函数值为0。当n〈=0时，输入数' 据错误。X、N都是由用户输入。 '------------------------------------------------ '注意：不可增加或删除程序行，也不可以更改程序结构 '------------------------------------------------ Private Sub Command1_Click() Dim s As Single Dim n As Integer, x As Single, k As Integer n = Val(InputBox("Please input a integer value:"))
VB可视化程序设计实例——小时钟 本例专门针对程序设计初学者而设计，尤其适合第一次接触VB的学生学习。通过用VB来设计如图3.39所示的时钟程序，初步感受一下可视化和面向对象的程序设计过程。 图3.39 时钟程序运行效果 小时钟程序中包含窗体控件、标签控件和计时器控件等3个控件。窗体控件是小时钟程序运行时的窗口，标题栏上的标题是“时钟”，在右上角有最小化、最大化和关闭按钮。标签控件可以用来显示文本，本例中用来显示时间，如“9:48:57”。计时器控件每秒一次把计算机的当前系统时间显示到标签控件中，使得小时钟不停地运行。Array启动VB，首先显示“新建工程”对话框（图3.40），在选择“新建”选项卡中的“标 准EXE”项后，单击“打开”按钮，进入VB编程环境，如图3.41所示。 图3.40 “新建工程”对话框
图3.41 VB 可视化编程环境 除了标题栏、菜单栏和标准工具栏外，编程环境中还有工具箱、窗体和属性等窗口。 双击工具箱（图3.42）中的标签控件，在窗体Form1中放置可以显示文本信息的标签控件Label1，见图3.43。时钟的时、分和秒以后就显示在Label1中。拖曳Label1可以移动它，拖曳它的八个控制点，可以改变它的大小。 图3.42 工具箱 图3.43 label1控件 图3.44 计时器控件 双击工具箱中的计时器控件，在窗体Form1中放置计时器控件Timer1，见图3.44。计时器控件以一定的时间周期，调用一个事件。计时器控件只有在设计阶段出现在窗体上，程序运行时是不可见的，它的位置和大小无关紧要。 到目前为止，已经建立了窗体Form1、标签控件Label1和计时器控件Timer1等3个对象。下面，将设置它们的属性。 窗体窗口
第六节报表设计 对一个完整的数据库应用程序来说，制作并打印报表是不可缺少的环节。6.0 提供了对象作为数据报表设计器（），对象除了具有强大的功能外，还提供了简单易操作的界面。 对象可以从任何数据源包括数据环境创建报表，数据报表设计器可以联机查看、打印格式化报表或将其导出到正文或页中。 一、报表设计器 数据报表设计器由对象、对象和控件组成。 1对象 对象与的窗体相似，同时具有一个可视的设计器和一个代码模块，可以使用设计器创建报表的布局，也可以在代码模块中添加代码。 在“工程”菜单上，单击“添加”命令，将数据报表设计器添加到工程中，则出现如图5-6-1所示的1对象，由“报表标头”、“页标头”、“细节”、“页注脚”和“报表注脚”组成。 图5-6-1 ·报表标头：指显示在一个报表开始处的文本，例如用来显示报表标题、作者或数据库名。 ·页标头：指在每一页顶部出现的信息，例如用来显示每页的报表标题。
·分组标头、注脚：指数据报表中的“重复”部分。每一个分组标头与一个分组注脚相匹配，用于分组。 ·细节：指报表的最内部的“重复”部分（记录），与数据环境中最低层的子对象相关联。 ·页注脚：指在每一页底部出现的信息，例如，用来显示页码。 ·报表注脚：指报表结束处出现的文本，例如，用来显示摘要信息或一个地址或联系人姓名。报表注脚出现在最后一个页注脚之前。 2对象 数据报表设计器的每一个部分由对象表示，如图5-6-1中的1～5。设计时，每一个由一个窗格表示，可以单击窗格以选择页标头，编程改变其外观和行为，也可以在窗格中放置和定位控件，对对象及其属性进行动态重新配置，更改每一个对象的布局来设计报表。 3控件 当一个新的数据报表设计器被添加到工程时，在窗体上控件箱出现“数据报表”和“”（通用）选项卡，如图5-6-2所示。但在数据报表设计器上不能使用的控件，即内部控件或控件。数据报表选项卡中的控件仅包含可在数据报表设计器上工作的特殊控件。 图5-6-2 数据报表选项卡有下列控件： ·控件（）：文本框用于在报表上设置规定文本格式，或指定一个。 ·控件（）：用于在报表上放置标签、标识字段或。
《VB程序设计》 课程设计报告 （2016 —2017 学年第1学期） 题目：______________ 排序演示_____________________________ 学院： _______ 经济与管理学院_________________ 班级： __________ 物流管理1502 __________________ 学号： ____________________________________ 姓名：_________________________________ 指导教师： __________ 阮冰_______________________ 时间：起2017年1月3日止1月6日
一、课程设计基本信息 课程代码： 课程名称：计算机基础课程设计 课程英文名称：Computer-based Course Design 课程所属单位（院（系）、教研室）：数学与计算机学院计算机基础课程群 课程面向专业：生物科学类、制药工程、制药工程（生物制药卜药物制剂、物流管理 课程类型：必修课 先修课程：大学计算机基础通识选修课程、Visual Basic程序设计课程 学分：1 总学时：16 二、课程设计目标 掌握所学语言程序设计的方法，熟悉所学语言的开发环境及调试过程，熟悉所学语言中 的数据类型，数据结构、语句结构、运算方法，巩固和加深对理论课中知识的理解，提高学生对所学知识的综合运用能力。通过综合设计要求达到下列基本技能： 1 ?培养查阅参考资料、手册的自学能力，通过独立思考深入钻研问题，学会自己分析、解决问题。 2 ?通过对所选题目方案分析比较，确立方案，编制与调试程序，初步掌握程序设计的方法，能熟练调试程序。 3?系统设计编程简练，可用，功能全面，并有一定的容错能力。用户界面良好，有较好的输出功能。在完成课题基本要求后，具有创新型设计，具有一定的实用价值。 4 ?根据个人的设计调试过程，撰写设计报告。 三、课程设计内容 利用已掌握的VB程序设计语言基础，以及面向对象的程序设计方法、事件驱动的编程方式，进行应用程序和系统的开发设计。在强化巩固已有编程知识基础之上，训练新的设计 与编程思路，通过综合应用所学知识设计、编制、调试实用的Visual Basic程序。 四、课程设计要求 1. 要求每个同学都要认真对待，积极参与。 2. 课程设计结束时，提交完成的所有源程序、相关文件和可执行文件。同时填写并完成《课程设计报 告册》。 3. 不符合要求的程序、设计报告、抄袭的设计报告或源程序代码、在设计中完全未参 与的将作不及格处理。 五、考核方式 指导老师负责验收程序的运行结果，并结合学生的工作态度、实际动手能力、创新精神 和设计报告等进行综合考评，百分制计算，具体考核标准主要包含以下几个部分： 1. 程序运行情况20分 2. 程序功能的完善程度10分 3. 程序结构的合理性10分 4. 对问题的答辩情况20分
vb程序设计实例 2009-5-22 15:37 提问者：淘淘的某在|悬赏分：20 |浏览次数：1688次 编写程序，设银行定期存款的年利率为：1年期2.25%，2年期2.43%，3年期为2.70%，5年期为2.88%（不记复利）。今有X元，5年以后使用，共有如下6中存法： ①存一次5年期； ②存一次3年期，一次2年期； ③存一次3年期，两次1年期； ④存两次2年期，一次1年期； ⑤存一次2年期，三次1年期； ⑥存五次1年期. 分别计算各种存法5年后到期的本息合计，如图所示 2009-5-22 17:06 最佳答案 Private Sub Form_Activate() '1年期2.25%，2年期2.43%，3年期为2.70%，5年期为2.88%（不记复利）。今有X元，5年以后使用，共有如下6中存法： Const x1 As Double = 0.0225, x2 As Double = 0.0243, x3 As Double = 0.027, x5 As Double = 0.0288 Dim x As Double x = Val(InputBox("")) Print "①存一次5年期,5年后到期的本息合计"; ss(x, 5, x5) Print "②存一次3年期，一次2年期,5年后到期的本息合计"; ss(ss(x, 3, x3), 2, x2) Print "③存一次3年期，两次1年期,5年后到期的本息合计"; ss(ss(ss(x, 3, x3), 1, x1), 1, x1) Print "④存两次2年期，一次1年期,5年后到期的本息合计"; ss(ss(ss(x, 2, x2), 2, x2), 1, x1) Print "⑤存一次2年期，三次1年期,5年后到期的本息合计"; ss(ss(ss(ss(x, 2, x2), 1, x1), 1, x1), 1, x1) Print "⑥存五次1年期,5年后到期的本息合计"; ss(ss(ss(ss(ss(x, 1, x1), 1, x1), 1, x1), 1, x1), 1, x1) End Sub Private Function ss(ByVal a As Double, b As Integer, c As Double) As Double ss = a + a * c * b End Function Private Sub Form_Load()
VB通用数据表格输出程序的设计 做为一种简捷、系统的Windows应用程序开发工具，Visual Basic具有强大的数据处理能力，提供了多种数据访问方法，可以方便地存取Microsoft SQL Server、Oracle、XBase等多种数据库，被广泛应用于建立各种信息管理系统。但是，VB缺乏足够的、符合中文习惯的数据表格输出功能。虽然使用Crystal Report控件及Crystal Reports程序可以输出报表，但操作很麻烦，中文处理能力也不理想，特别是不能够用来制作不确定内容的表格。笔者在用VB开发淮北市医疗保险信息管理系统时，需要对任意的查询结果进行表格输出，为此，编制了一个通用的数据表格输出控件，能够根据查询的结果自动生成二维中文表格，并打印输出，在此介绍给大家，共同探讨。 一．VB中的结果集 VB提供的数据访问方法有数据询问对象(DAO)、Data控件、远程数据对象(RDO)、RemoteData控件(RDC)、ODBC API、VB SQL等，其中ODBC API比较复杂，开发、调试和支持非常困难；VB SQL是针对Microsoft SQL Server的，这两种方法使用的比较少，这里不做讨论。比较常用的方法是DAO、Data控件、RDO、RDC，其中DAO和Data控件使用的结果集(又叫纪录集) 包含在Recordset 对象中，RDO和RDC使用的结果集包含在rdoResultset对象中。通用表格输出的实现方法就是根据任意的Recordset对象或rdoResultset对象自动生成表格并输出。 二．表格的自动生成 1. Recordset对象 下面以Data控件为例，介绍Recordset对象的表格自动生成方法。 假设有Data控件名称为MyData，首先说明相关的内容及用法： (1) Data控件的结果集包含在它的Recordset对象中，引用方法为: MyData.Recordset。 (2) Recordset 对象的RecordCount属性为结果集的行数，它决定了表格的长度，该属性引用方法为: MyData.Recordset.RecordCount。 (3) Recordset 对象包含一个Fields集合，通过Fields集合的Count属性可以得到结果集中字段的个数，用做表格的列数，该属性引用方法为: MyData.Recordset.Fields.Count。 (4) Fields集合包括结果集合全部Field对象，这些Field对象引用方法为：MyData.Recordset.Fields(i)，其中i是该Field对象在中的位置序号，从0开始计数。 (5) Field 对象的Name属性是该字段的名称，用做表格对应列的名称，引用方法为：MyData.Recordset.Fields(i).Name。 (6) Field 对象的Size属性是该字段数据的最大尺寸，引用方法为：MyData.Recordset.Fields(i).Size。 (7) Field 对象的Type属性是该字段数据的类型，引用方法为：MyData.Recordset.Fields(i).Type。 用Field 对象的Size和Type属性可以计算出表格对应列的宽度。 (8) Field 对象的Value属性是该字段的值，这是表格对应列的内容，引用方法为：MyData.Recordset.Fields(i).Value。
ExcelVBA编程实例（150例） 主要内容和特点 《ExcelVBA编程入门范例》主要是以一些基础而简短的VBA实例来对ExcelV BA中的常用对象及其属性和方法进行讲解，包括应用程序对象、窗口、工作簿、工作表、单元格和单元格区域、图表、数据透视表、形状、控件、菜单和工具栏、帮助助手、格式化操作、文件操作、以及常用方法和函数及技巧等方面的应用。这些例子都比较基础，很容易理解，因而，很容易调试并得以实现，让您通过具体的实例来熟悉ExcelVBA编程。 ■分16章共14个专题，以具体实例来对大多数常用的ExcelVBA对象进行讲解； ■一般而言，每个实例都很简短，用来说明使用VBA实现Excel某一功能的操作； ■各章内容主要是实例，即VBA代码，配以简短的说明，有些例子可能配以必要的图片，以便于理解； ■您可以对这些实例进行扩充或组合，以实现您想要的功能或更复杂的操作。VBE编辑器及VBA代码输入和调试的基本知识 在学习这些实例的过程中，最好自已动手将它们输入到VBE编辑器中调试运行，来查看它们的结果。当然，您可以偷赖，将它们复制/粘贴到代码编辑窗口后，进行调试运行。下面，对VBE编辑器界面进行介绍，并对VBA代码输入和调试的基本知识进行简单的讲解。 激活VBE编辑器 一般可以使用以下三种方式来打开VBE编辑器： ■使用工作表菜单“工具——宏——Visual Basic编辑器”命令，如图00-01所示；■在Visual Basic工具栏上，按“Visual Basic编辑器”按钮，如图00-02所示；■按Alt+F11组合键。
图00-01：选择菜单“工具——宏——Visual Basic编辑器”命令来打开VBE编辑器 图00-02：选择Visual Basic工具栏上的“Visual Basic编辑器”命令按钮来打开VBE编辑器 此外，您也可以使用下面三种方式打开VBE编辑器： ■在任一工作表标签上单击鼠标右键，在弹出的菜单中选择“查看代码”，则可进入VBE编辑器访问该工作表的代码模块，如图00-03所示； ■在工作簿窗口左上角的Excel图标上单击鼠标右键，在弹出的菜单中选择“查看代码”，则可进入VBE编辑器访问活动工作簿的ThisWorkbook代码模块，如图00-04所示； ■选择菜单“工具——宏——宏”命令打开宏对话框，若该工作簿中有宏程序，则单击该对话框中的“编辑”按钮即可进行VBE编辑器代码模块，如图00-05所示。
VB程序设计期末模拟试题及答案 《VB》期末复习题及答案 综合复习题 一、填空题 1．创建一个VB应用程序三个主要的步骤是_创建应用程序界面_、_设置属性_和_编写代码_。 2．当程序运行时，要求窗体中的文本框呈现空白，则在设计时，应当在此文本框的_属性__窗口中，把此文本框的_text_属性设置成空白。 3．Label和TextBox控件用来显示和输入文本，如果仅需要让应用程序在窗体中显示文本信息，可使用__Label___控件；若允许用户输入文本，则应使用 _TextBox__控件。 4．窗体的常用方法有__Load方法__、_show方法_、 Hide方法__和_Unload方法_。 5．要想在代码中给名为txtshow的文本框赋予文本：GOOD WORK ，应当编写的语句是_Txtshow.Text="GOOD WORK"_。 6．若命令按钮的名称为Cmdopen，程序要求单击该命令按钮时，打开一个窗口frm1，请对以下事件过程填空。 Private Sub Cmdopen_ Click()___ __Frm1.show__ End Sub 7．Visual Basic 6种类型的表达式是_数算表达式____、__字符串表达式_、__关系表达式__、 __布尔表达式__、___日期表达式__、___对象表达式_。Visual Basic根据表达式的__运算符_来确定表达式的类型。 8．表达式93 \ 7 Mod 2 ^ 2 的值是______1_____。 9．已知a=3，b=4，c=5，表达式a>b and Not c>a Or c>b And c VB程序设计练习题 第一题、 题目：（事件）单击窗体 （响应）求50以内所有偶数的和，并在窗体上输出来。 将结果存入变量S中。 代码：Dim I As Integer For i = 2 To 50 If (i Mod 2)=0 Then S=s+i End If Next Print (CStr(s)) 第二题 题目：（事件）双击窗体 （响应）求s=1+1*2+1*2*3+….+1*2*3*….*10并将结果存入变量S中代码：Dim i,j As Integer Dim k As Long k=1 s=0 For i =1To 10 For j=1 To i k=k*j Next s=s+k k=1 Next Print(CStr(s)) 第三题 题目：（事件）单击窗体 （响应）求100以内偶数的和，并将结果输出在窗体上。 将结果存入变量SUM中 代码：Dim i As Integer For i =1 To 100 If i Mod 2 =0 Then Sum=sum+i End If Next Print sum 第四题题目：（事件）单击窗体 （响应）编写程序求10*11*12+11*12*13+….+15*16*17的结果并将结果输出到窗体上。将结果存入变量M中。 代码：Dim i,j As Integer Dim s As Long For i =10 To 15 s=1 For j = i To i +2 s=s*j Next m=m+s Next Print (CStr(m)) 第五题 题目：（事件）双击窗体 （响应）求100以内奇数的和，并将结果输出在窗体上。 将结果存入变量SUM中。 代码：Dim i As Integer For i=1 To 100 If i Mod 2 = 1 Then sum = sum + i End If Next Print sum 第六题 题目：（事件）单击窗体 （响应）已知S=1+1/4+1/9+1/16+1/25+…+1/100, 结果输出在窗体上 代码：Dim s As Single For i=1 To 10 a=i*i Sum =1/a + Sum Next Print Sum 第八题 题目：（事件）单击窗体 （响应）求1—1/2+1/3—1/4+….+1/99—1/100的值。 将结果存入变量J中 代码：Dim j As Single VB 程序设计过程 程序设计——编程人员使用程序设计语言设计一个计算机程序。 【引例】简单VB程序设计实例。功能要求：单击←、→、↑、↓中的任何一个命令按钮，红色小球就会向相应方向移动一定距离。 1、分析问题 根据程序的功能要求，可见程序必须具有以下具体功能。 （1）程序必须能够接收程序用户输入的小球移动方向，即原始数据输入。本例使用4个“命令按钮”向程序用户提供给方向数据输入平台。 （2）当程序用户输入一个方向数据后，程序必须能够立即自动计算小球新的位臵，即数据处理。本例对于4个不同的移动方向分别计算新的位臵数据。 （3）程序必须能够向程序用户展示小球的移动效果，即输出结果数据。本例使用一个红色小球图形向程序用户实时展示移动效果。 2、建立一个VB应用程序工程 启动VB6.0 IDE后会弹出“新建工程”对话框，在“新建” 选项卡中选择“标准.EXE”图标，单击“打开”命令按钮，或双击“标准.EXE”图标，即可新建一个默认名为“工程1” 的应用程序设计工程项目。 ?【问1-3-3】什么是工程？ 【答1-3-3】用来建造VB应用 程序的设计文件集合。 在新建一个工程时后，VB6.0 IDE会根据设计内容自动建立一系列设计文件。 第一个设计文件就是VB6.0 IDE 自动新建一个默认名为“Form1”的窗体对象，这个窗体对象就是程序界面的设计平台。 在命令行操作系统下运行应用程序（例如DOS），程序用户需要在按照操作系统规则输入相应的命令行使用应用程序。 在图形界面操作系统（例如Windows）下运行应用程序，程序用户使用鼠标和键盘通过对图形界面的操作使用应用程序。可见，应用程序用户图形界面（简称程序界面）是用户使用应用程序的一个图形化控制平台，程序界面的设计是设计Windows应用程序的基础。 【设计程序界面的方法】使用VB6.0 IDE工具箱中提供的控件类，在窗体对象上创建需要的控件对象。 习题一 习题二 .对象指现实世界中的实体。每个对象有自己的特征(属性)、行为(方法)和发生在该对象上的活动(事件)。 类是对同一种对象的集合与抽象。类包含所创建对象的属性数据，以及对这些数据进行操作的方法。封装和隐藏是类的重要特性，将数据结构和对数据的操作封装在一起，类的内部实现细节对用户来说是透明的。 VB工具箱中的可视图标是VB系统设计好的标准控件类。通过将控件类实例化，得到真正的控件对象。在窗体上画一个控件，就将类转换为对象，创建了一个控件对象。 VB中常用的对象是控件。此外，VB还提供了系统对象。窗体是个特例，它既是类也是对象。当向一个工程添加一个新窗体时，实质就由窗体类创建了一个窗体对象。 对象的三要素：属性、事件和方法。 属性：存放对象的数据(决定对象外观及功能)对象属性的设置方法：在设计阶段，利用属性窗口直接设置属性值；程序运行时，通过语句[对象名.]属性名=属性值。若属性只能在设计阶段设置，在程序运行阶段不可改变，称为只读属性。 事件：发生在对象上的事情。同一事件，对不同的对象，会引发不同的反应。 事件过程：应用程序处理事件的步骤。应用程序设计的主要工作就是为对象编写事件过程的代码。 方法：面向对象的程序设计语言，为程序设计人员提供了一种特殊的过程和函数。方法是面向对象的，调用时一定要指明对象。 2.窗体和控件具有的基本属性“ (1) Name属性：名称 所创建的对象名称,在程序中引用。 (2) Caption属性：标题 该属性决定了对象上显示的内容。 (3) Height、Width、Top和Left属性 决定对象的大小和位置。 (4) Enabled 属性：对象是否允许操作 (5) Visible 属性：对象是否可见 (6) Font 属性组：文本的外观 FontName字体、FontSize大小 FontBold粗体、FontItalic斜体 FontStrikethru 删除线 FontUnderline 下划线 (7) ForeColor属性：前景颜色 (8) BackColor属性：背景颜色 (9) MousePointer属性：鼠标指针类型, 设置值范围0～15，由系统指定。若为99，由用户提供的图形文件定义鼠标指针形状。 (10) MouseIcon属性：在MousePointer属性值为99时，存放自定义的鼠标图标文件（.ico 或.cur）。图标库在Graphics目录下。 3.窗体的事件：Load事件是在窗体被装入工作区时触发的事件。当应用程序启动，自动执行该事件，该事件通常用来在启动应用程序时对属性和变量进行初始化。 '------------------------------------------------- '【程序设计】 '------------------------------------------------- '题目：(事件)单击窗体。 ' (响应)我国现有人口为13亿，设年增长率为1%，' 计算多少年后增加到20亿。并将结果输出' 在窗体上。将结果存入变量year中。 ' 使用do while ...loop语句完成程序。 '------------------------------------------------- Private Sub Form_Click() Dim year As Integer, sum As Single '***************** Begin ************** Dim p as double Dim r as single P=1300000000 r=0.01 Do while p<2000000000 P=p+p*r n=n+1 Loop Print “n=”,n Year=n '*************** End ************************* '------------------------------------------------- '题目：(事件)单击窗体。 ' (响应)求从100到1000之间所有是3的倍数的数之' 和，当和大于3000时，停止计算并输出和。请将结果输' 出到窗体上,并存入所给变量SUM中。使用for...next语 ' 句完成程序 '------------------------------------------------- Private Sub Form_Click() Dim sum As Integer '***************** Begin ************** sum = 0 Dim i As Integer For i = 100 To 1000 If i Mod 3 = 0 Then sum = sum + i If sum > 3000 Then Exit For End IfVB程序设计题库(全)
一个简单VB程序设计过程
VB程序设计教程课后答案
VB程序设计经典案例
相关主题
文本预览