VB的关键字
VB关键字大总结
1.编译命令关键字总结
作用关键字
定义编译常数。 #Const
编译程序码中的选择区块。 #If...Then...#Else
2.变量与常数关键字总结
作用关键字
指定值。 Let
声明变量或常数。 Const, Dim, Private, Public, New, Static
声明模块为私有。 Option Private Module
判断 Variant。 IsArray, IsDate, IsEmpty, IsError, IsMissing, IsNull, IsNumeric, IsObje TypeName, VarType
引用当前对象。 Me
变量须明确声明。 Option Explicit
设置缺省数据类型。 Deftype
3.运算符关键字总结
作用关键字
算术。 ^, -, *, /, \, Mod, +, &
比较。 =, <>, <, >, <=, >=, Like, Is
逻辑运算。 Not, And, Or, Xor, Eqv, Imp
4.错误关键字总结
作用关键字
产生运行时错误。 Clear, Error, Raise
取得错误信息。 Error
提供错误信息。 Err
返回 Error 变体。 CVErr
运行时的错误处理。 On Error, Resume
１
型确认。 IsError
Collection 对象关键字总结
用关键字
立一个 Collection 对象。 Collection
加对象到集合对象中。 Add
集合对象中删除对象。 Remove
用集合对象中的项。 Item
金融关键字总结
用关键字
算折旧率。 DDB, SLN, SYD
算未来值。 FV
算利率。 Rate
算本质利率。 IRR, MIRR
算期数。 NPer
算支付。 IPmt, Pmt, PPmt
算当前净值。 NPV, PV
控制流关键字总结
用关键字
支。 GoSub...Return, GoTo, On Error, On...GoSub, On...GoTo
出或暂停程序。 DoEvents, End, Exit, Stop
环。 Do...Loop For...Next, For Each...Next, While...Wend, With 断。 Choose, If...Then...Else, Select Case, Switch
用过程。 Call, Function, Property Get, Property Let, Property Set, Sub 目录和文件关键字总结
用关键字
变目录或文件夹。 ChDir
变磁盘。 ChDrive
制文件。 FileCopy
建目录或文件夹。 MkDir
除目录或文件夹。 RmDir
新命名文件、目录或文件夹。 Name
２
返回当前路径。 CurDir
返回文件的日期、时间。 FileDateTime
返回文件、目录及标签属性。 GetAttr
返回文件长度。 FileLen
返回文件名或磁盘标签。 Dir
设置有关文件属性的信息。 SetAttr
9.日期与时间关键字总结
作用关键字
设置当前日期或时间。 Date ,Now, Time
计算日期。 DateAdd, DateDiff, DatePart
返回日期。 DateSerial, DateValue
返回时间。 TimeSerial, TimeValue
设置日期或时间。 Date, Time
计时。 Timer
10.输入与输出关键字总结
作用关键字
访问或创建文件。 Open
关闭文件。 Close, Reset
控制输出外观。 Format, Print, Print #, Spc, Tab, Width #
复制文件。 FileCopy
取得文件相关信息。 EOF, FileAttr, FileDateTime, FileLen, FreeFile, GetAttr, Loc, LOF, Seek
文件管理。 Dir, Kill, Lock, Unlock, Name
从文件读入。 Get, Input, Input #, Line Input #
返回文件长度。 FileLen
设置或取得文件属性。 FileAttr, GetAttr, SetAttr
设置文件读写位置。 Seek
写入文件。 Print #, Put, Write #
11.数据类型关键字总结
作用关键字
数据类型变换。 CBool, CByte, CCur, CDate, CDbl, CDec, CInt, CLng, CSng, CStr, CVar, CVErr, F Int
３
置数据类型。 Boolean, Byte, Currency, Date, Double, Integer, Long, Object, Single, String, Variant efault)
查数据类型。 IsArray, IsDate, IsEmpty, IsError, IsMissing, IsNull, IsNumeric, IsObject
.数学关键字总结
用关键字
角函数。 Atn, Cos, Sin, Tan
般计算。 Exp, Log, Sqr
生随机数。 Randomize, Rnd
得绝对值。 Abs
得表达式的正负号。 Sgn
值变换。 Fix, Int
.数组关键字总结
用关键字
认一个数组。 IsArray
立一个数组。 Array
变缺省最小值。 Option Base
明及初始化数组。 Dim, Private, Public, ReDim, Static
断数组下标极限值。 LBound, UBound
新初始化一个数组。 Erase, ReDim
.注册关键字总结
用关键字
除程序设置。 DeleteSetting
入程序设置。 GetSetting, GetAllSettings
存程序设置。 SaveSetting
.变换关键字总结
用关键字
SI 值变换为字符串。 Chr
小写变换。 Format, LCase, UCase
期变换为数字串。 DateSerial, DateValue
字进制变换。 Hex, Oct
４
数值变换为字符串。 Format, Str
数据类型变换。 CBool, CByte, CCur, CDate, CDbl, CDec, CInt, CLng, CSng, CStr, CVar, CVErr, F Int
日期变换。 Day, Month, Weekday, Year
时间变换。 Hour, Minute, Second
字符串变换为 ASCII 值。 Asc
字符串变换为数值。 Val
时间变换为数字串。 TimeSerial, TimeValue
16.字符串处理关键字总结
作用关键字
比较两个字符串。 StrComp
变换字符串。 StrConv
大小写变换。 Format, LCase, UCase
建立重复字符的字符串。 Space, String
计算字符串长度。 Len
设置字符串格式。 Format
重排字符串。 LSet, RSet
处理字符串。 InStr, Left, LTrim, Mid, Right, RTrim, Trim
设置字符串比较规则。 Option Compare
运用 ASCII 与 ANSI 值。 Asc, Chr
17.其他关键字总结
作用关键字
处理搁置事件。 DoEvents
运行其他程序。 AppActivate, Shell
发送按键信息给其他应用程序。 SendKeys
发出警告声。 Beep
系统。 Environ
提供命令行字符串。 Command
Macintosh。 MacID, MacScript
自动。 CreateObject, GetObject
色彩。 QBColor, RGB
５
vb报表设计
第六节报表设计 对一个完整的数据库应用程序来说，制作并打印报表是不可缺少的环节。VB 6.0 提供了DataReport 对象作为数据报表设计器（DamReport designer），DataReport对象除了具有强大的功能外，还提供了简单易操作的界面。 DataReport对象可以从任何数据源包括数据环境创建报表，数据报表设计器可以联机查看、打印格式化报表或将其导出到正文或HTML页中。 一、报表设计器 数据报表设计器由DataReport对象、Section对象和DataReport控件组成。 1.DataReport对象 DataReport对象与VB的窗体相似，同时具有一个可视的设计器和一个代码模块，可以使用设计器创建报表的布局，也可以在代码模块中添加代码。 在“工程”菜单上，单击“添加DataReport”命令，将数据报表设计器添加到工程中，则出现如图5-6-1所示的DataReport1对象，由“报表标头”、“页标头”、“细节”、“页注脚”和“报表注脚”组成。 图5-6-1 ·报表标头：指显示在一个报表开始处的文本，例如用来显示报表标题、作者或数据库名。
·页标头：指在每一页顶部出现的信息，例如用来显示每页的报表标题。 ·分组标头、注脚：指数据报表中的“重复”部分。每一个分组标头与一个分组注脚相匹配，用于分组。 ·细节：指报表的最内部的“重复”部分（记录），与数据环境中最低层的Command 子对象相关联。 ·页注脚：指在每一页底部出现的信息，例如，用来显示页码。 ·报表注脚：指报表结束处出现的文本，例如，用来显示摘要信息或一个地址或联系人姓名。报表注脚出现在最后一个页注脚之前。 2.Section对象 数据报表设计器的每一个部分由Section对象表示，如图5-6-1中的Section1～Section5。设计时，每一个Section由一个窗格表示，可以单击窗格以选择页标头，编程改变其外观和行为，也可以在窗格中放置和定位控件，对Section对象及其属性进行动态重新配置，更改每一个Section对象的布局来设计报表。 3.DataReport控件 当一个新的数据报表设计器被添加到工程时，在窗体上控件箱出现“数据报表”和“General”（通用）选项卡，如图5-6-2所示。但在数据报表设计器上不能使用General的控件，即内部控件或ActiveX控件。数据报表选项卡中的控件仅包含可在数据报表设计器上工作的特殊控件。 图5-6-2
VB期末考试试题及答案
二、选择题 1、菜单控件只包括一个事件，即 C ，当用鼠标单击或键盘选中后按“回车”键时触发该事件，除分隔条以外的所有菜单控件都能识别该事件。 A、GotFocus B、Load C、Click D、KeyDown 2、滚动条控件(如图所示)的Max属性所设置的是 A 。 A、滚动框处于最右位置时，一个滚动条位置的Value属性最大设置值 B、单击滚动条和滚动箭头之间的区域时，滚动条中滚动块的最大移动量 C、单击滚动条的箭头区域时，滚动条中滚动块的最大移动量 D、滚动条控件无该属性 3、SQL 语句 Select * Form student 中的 *表示 B 。 A、所有记录 B、所有字段 C、所有表 D、都不对 4、以下选项中，不属于标签的属性是 C 。 A、Enabled B、Caption C、Default D、Font 5、要求改命令按钮显示的文本，应当在属性窗口中改变的属性是 A 。 A、Caption B、Name C、Text D、Label 6、设置一个单选按钮(OptionButton)所代表选项的选中状态，应当在属性窗口中改变的属性是 D 。 A、Caption B、Name C、Text D、Value
7、允许在菜单项的左边设置打勾标记，下面哪种论述是正确的 D 。 A、在标题项中输入&，然后打勾 B、在索引项中打勾 C、在有效项中打勾 D、在复选项中打勾 8、当执行以下过程时，在窗体上将显示 A 。 Private Sub Command1_Click( ) Print "VB"; Print "Hello! "; Print "VB" End Sub A、 VBHello!VB B、 VB Hello!VB C、 VB D、 VB Hello! VB Hello! VB 9、语句Print "The answer is:";20/4-2的结果为 B 。 A、The answer is 20/4-2 B、The answer is 3 C、The answer is "20/4-2" D、非法语句 10、下列哪个控件是容器控件 B 。 A、Image B、Picture C、ComboBox D、FileListBox 11、若要将窗体从内存中卸载出去，其实现的方法是 D 。 12、以下选项中，不是 Visual Basic控件的是 A 。 A.窗体 B.定时器 C.单选框 D.命令按钮 13、双击窗体中的对象后，Visual Basic将显示的窗口是 A 。 A.代码窗口 B．工具箱 C．项目（工程）窗口 D．属性窗口 14、可决定窗体的左上角是否有控制菜单的属性是 A 。 15、设有如下语句： Strl＝InputBox（"输人"，""，"练习"） 从键盘上输人字符“示例”后，Strl的值是 D 。 A．“输入” B．“” C．“练习” D．“示例” 16、窗体Form1的Name属性是Frm1,它的单击事件过程名是 C 。 A. Form1_Click C. Frm1_Click D. Me_Click 17、窗体的hide属性的含义是 A 。 A.隐藏 B.展现 C.装入 D.卸载 18、若要设置定时器控件的定时时间，需设置的属性是 C 。 A．Enabled B．Value C．Interval D．Text 19、能够改变复选框中背景颜色的属性是 C 。
VBProject代码操作代码之常用语句
一、增加模块 1．增加一个模块，命名为“我的模块” ThisWorkbook.VBProject.VBComponents.Add(vbext_ct_StdModule).Name = "我的模块" 系统常量vbext_ct_StdModule=1 2．增加一个类模块，命名为“我的类” ThisWorkbook.VBProject.VBComponents.Add(vbext_ct_ClassModule).Name = "我的类" vbext_ct_ClassModule=2 3．增加一个窗体，命名为“我的窗体” ThisWorkbook.VBProject.VBComponents.Add(vbext_ct_MSForm).Name = "我的窗体" vbext_ct_MSForm=3 二、删除模块 1．删除“模块1” ThisWorkbook.VBProject.VBComponents.Remove hisWorkbook.VBProject.VBComponents("模块1") 2．删除窗体“UserForm1” ThisWorkbook.VBProject.VBComponents.Remove ThisWorkbook.VBProject.VBComponents("UserForm1") 3．删除类模块“类1” ThisWorkbook.VBProject.VBComponents.Remove ThisWorkbook.VBProject.VBComponents("类1") 4.删除所有的窗体 Sub RmvForms() Dim vbCmp As VBComponent For Each vbCmp In ThisWorkbook.VBProject.VBComponents If vbCmp.Type = vbext_ct_MSForm Then ThisWorkbook.VBProject.VBComponents.Remove vbCmp Next vbCmp End Sub 相关： 工作表和ThisWorkbook的模块类型为vbext_ct_Document=100 三、增加代码 1.在“模块1”中插入代码 如果需要在“Sheet1”、“Thisworkbook”、或“Userform1”中操作，用只需将下面的“模块1”换成相应的名称即可。 方法1： 在模块的开始增加代码，增加的代码放在公共声明option,全局变量等后面。 Sub AddCode1() ThisWorkbook.VBProject.VBComponents("模块1").CodeModule.AddFromString _ "sub aTest()" & Chr(10) & _ "msgbox ""Hello""" & Chr(10) & _ "end sub" End Sub
vb代码大全
用VB5实现窗口图象缩放、滚动技巧 成都理工学院计算机工程系 洪志全 ---- Visual Basic 是Windows 平台中最常用的应用软件开发语言, 窗口图像缩放、滚动是图像处理、多媒体数据库等应用软件开发中的基本功能。本文将介绍如何用VB 5.0 实现地窗口图像缩放和滚动技巧, 供读者在各种语言系统开发中参考。 ---- 一、获取图像 ---- 本文所介绍的图像缩放并没有对真正的图像进行缩放, 而是复制一幅窗口图像的真实画面, 对这个窗口图像附本进行局部缩放和滚动, 获取窗口图像可使用Windows 的API 函数来实现。具体来说, 实现窗口图像缩放、滚动需要用GetDeskTopWindow() 函数获取桌面窗口句柄, 再通过GetDC() 函数转换为描述表句柄, 则用BitBlt() 函数把桌面图像复制到任意图形容器控件中, 桌面图像复制完成后, 再用ReleaseDC 释放窗口描述表, 各API 函数的具体使用方法参见本文的例子程序。 ---- 本文所用的API 函数包含在WIN95/98 的GDI32.DLL 和USER32.DLL 动态链接库中, 在使用时可通过VB5.0 的TEXT VIEWER 复制到所开发的应用程序中。 ---- 二、图像缩放 ---- 图像缩放显示的基本原理就是把原图像的一部分缩放后再送入窗口的图形容器控件中, 在VB 中可用内部命令PaintPicture 来进行, 语法格式为: PaintPicture Pic,DestX,DestY,DestWidth, DestHeight,ScrX,ScrY,ScrWidth,ScrHeight ---- 其中,Pic 为图片对象, 如图形控件对象等; DestX,DestY为目标图像起始坐标; DestWidth,DestHeight为目标图像幅面尺寸; ScrX,ScrY为源图像起始坐标; ScrWidth,ScrHeight为源图像剪裁尺寸。 ---- 该命令就是把一个源图像资源任意复制到指定的区域, 其功能相当于API 函数的BitBlt, 但使用更简单, 若复制时改变源图像的ScrWidth,ScrHeight 或目标图像的DestWidth,DestHeight 可使复制后的图像尺寸发生变化, 实现窗口图像的缩放显示。若ScrWidth,ScrHeight 或
基于VB实现复杂报表设计
基于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) 报表保存格式的通用性较差。报表保存格式不统一，保存格式理解困难，各种报表工具各自为政，报表模板无法兼容，行业也没有形成统一的标准，一旦用户选定了某一报表工具就意味着要一直使用。如果不幸选择失误，已经做的工作都要重新再来。 总之，利用传统的报表系统制作报表维护量相当大，一个需求对应一个报表文件，不同的组合要求制作大量的报表文件，使得开发过程变得极为繁琐，难以实现用户的需求。在设计复杂数据源的报表时，或者需要人工转换数据格式，或者要编写大量代码将多个数据源运算成为一个数据源再使用，或者使用拼接子报表的方式来实现，但都没有从根本上解决问题，严重影响报表的设计和使用效率。因此如何快速制作符合多层结构特点的复杂数据源报表，减轻开发工作量，已经成为报表系统开发的重要问题。
九江学院VB期末考试题目及详细答案
九江学院期末考试复习题（政法A1111）第一套 一、判断题 1、Visual Basic?序开发的特点是面向对象的事件驱动。（J 2、Print_Text 是一个不合法的变量名。（为 3、窗体的AutoRedraw属性实现了屏幕图像的重建。（翌 4、设置字体大小应使用Font属性（为 5、Sub过程可以实现嵌套调用（寸 6、IIF函数中的三个参数都不能省略。（寸 7、块结构条件语句以End If结束，而单行结构条件语句没有End旧（明 8、当终值小于初值时，步长为负数。（5 9、执行While-Wend循环时，如果一开始条件就不成立，则语句块一次也不会执行。（寸 10、关于数组的引用，在程序中，凡是简单变量可以出现的地方都可以出现数组元素的引用（/） 二、单项选择题 1. Print Format （123, ” ###说执行之后的结果为 A）# 123B） 123C） 123# D） # # # # 【答案】B 2. 下面可以表示注释语句开头的为 A）R e B R C Rem。dim 【答案】C 3. 下列选项中窗体载入事件为 A) Load 事件B) Click事件C) DblClick事件D) Unload 事件
【答案】A 4. Timer控件可以使用下列哪种事件 A) Click事件B) Timer 事件C) Dblclick 事件D) Change事件 【答案】B 5. 在InputBox函数中哪一个参数是必须的 A) Prompt B) Buttons C) Title D) Context 【答案】A 6. 以下叙述中错误的是： A)如果过程被定义为Static类型，则该过程中的局部变量都是Static类型 B) Sub过程中不能嵌套定义Sub过程 C) Sub过程可以嵌套调用Sub过程 D) 事件过程可以像通用过程一样由用户定义过程名 【答案】C 乙要填加一个标准模块，可使用“ 单中的添加模块”命令。 A)文件B)视图C)工程D)工具 【答案】C 8 .在块结构条件语句If-Then / Endif中 (A) 必须至少有一个Elseif语句 (B )可以有任意多个ElseIf-Then语句 (C)如果没有Else语句，运行时将出现错误
Excel之VBA编程常用语句300句汇总
Excel之VBA编程常用语句300句 时间:2009-11-27 21:12:21 来源:本站作者:未知我要投稿我要收藏投稿指南 定制模块行为 (1) Option Explicit '强制对模块内所有变量进行声明 Option Private Module '标记模块为私有，仅对同一工程中其它模块有用，在宏对话框中不显示 Option Compare Text '字符串不区分大小写 Option Base 1 '指定数组的第一个下标为1 (2) On Error Resume Next '忽略错误继续执行VBA代码,避免出现错误消息 (3) On Error GoTo ErrorHandler '当错误发生时跳转到过程中的某个位置 (4) On Error GoTo 0 '恢复正常的错误提示 (5) Application.DisplayAlerts=False '在程序执行过程中使出现的警告框不显示 (6) Application.ScreenUpdating=False '关闭屏幕刷新 Application.ScreenUpdating=True '打开屏幕刷新 (7) Application.Enable.CancelKey=xlDisabled '禁用Ctrl+Break中止宏运行的功能 工作簿 (8) Workbooks.Add() '创建一个新的工作簿 (9) Workbooks(“book1.xls”).Activate '激活名为book1的工作簿 (10) ThisWorkbook.Save '保存工作簿 (11) ThisWorkbook.close '关闭当前工作簿 (12) ActiveWorkbook.Sheets.Count '获取活动工作薄中工作表数 (13) https://www.360docs.net/doc/ac6835992.html, '返回活动工作薄的名称 (14) https://www.360docs.net/doc/ac6835992.html, ‘返回当前工作簿名称 ThisWorkbook.FullName ‘返回当前工作簿路径和名称 (15) ActiveWindow.EnableResize=False ‘禁止调整活动工作簿的大小 (16) Application.Window.Arrange xlArrangeStyleT iled ‘将工作簿以平铺方式排列 (17) ActiveWorkbook.WindowState=xlMaximized ‘将当前工作簿最大化 工作表 (18) https://www.360docs.net/doc/ac6835992.html,edRange.Rows.Count ‘当前工作表中已使用的行数 (19) Rows.Count ‘获取工作表的行数(注：考虑向前兼容性) (20) Sheets(Sheet1).Name= “Sum” '将Sheet1命名为Sum (21) ThisWorkbook.Sheets.Add Before:=Worksheets(1) '添加一个新工作表在第一工作表前 (22) ActiveSheet.Move After:=ActiveWorkbook. _
(完整word版)VB语言基础
V B语言基础 一、数据类型 1、数值型：取值范围：Byte(字节型)━占1字节； 0～255无符号 Integer(整型)━占2字节； -32768～32767 long(长整型)━占4字节； -2147483648～2147483647 single(单精度浮点)━占4字节；略 Double(双精度浮点)━占4字节；略 Currency(货币型)━占8字节小数点左15位，右4位 （精确定点数据类型） 2、逻辑型： Boolean(布尔型)━占2字节； true或false 3、字符串型： String?a?a定长型占字符串长度，变长型再加10 4、日期型： Date(日期型)━占8字节 100-1-1～9999-12-31 5、对象型： Object━占4字节；任何Object引用 6、变体型： Variant━变体型数字占16字节，变体型字符占22字节＋字符串长 注：此类型还包含三种特定值：
Empty；Null；Error； ?7、用户定义的数据类型： ?用户可以利用Type语句定义自己的数据类型。格式如下?Type 数据类型名 ?数据类型元素名As 类型名 ?…… ?End Type ?用Type可定义类似于C语言中的结构体类型。例如：?Type Date_Rec ?RYear As Integer ?RMonth As String*3 ?RDay As Integer ?End Type ?注：记录类型中的元素可以是字符串，但必须是定长字符串，其长度由类型名加上一个星号和常数指明。 ?数据类型转换函数： ?函数名及书写格式转换结果 ?CBool（表达式）布尔型 ?CCur（表达式）货币型 ?CByte（表达式）字节型 ?CDate（表达式）日期型 ?CDbl（表达式）双精度
VB期末考试试题
第一部分：客观题 1、 单项选择题 1、在窗体模块的通用段中声明变量时，不能使用的关键字是（ ） A、 Dim B、 Public C、Private D、 Static 2、在设计阶段，当双击窗体上的某个控件时，所打开的窗口是 （ ） A、工程资源管理器窗口 B、工具箱窗口 C、 属性窗口 D、代码窗口 3、若要使某可见控件获得焦点，可使用（ ）方法来实现。 Ａ、Refresh Ｂ、Setfocus Ｃ、Gotfocus Ｄ、Value 4、下列不可作为VB变量名的是（ ） A、ABT1 B、Alpha C、ABC D、4*Delta 5、表达式 5 Mod 3+3\5*2的值是 （ ） A、 0 B、 6 C、4 D、 2 6、下列语句中，正确的赋值语句是（ ） A、 i + j = 10 B、 2i = j C、 j = i + j D、 i * j = 0 7、执行下列程序段后，x的值是（ ）。 n = 4: x = 1: i = 1 Do x = x * i i = i + 1 Loop While i < n A、 2 B、 6 C、 10 D、 14 8、当用户在窗体上单击鼠标时，不会触发的事件是（ ） Ａ、Click Ｂ、MouseDown Ｃ、MouseUp Ｄ、DblClick 9、下列为整型变量的是（ ） A、 x! B、 x# C、x$ D、 x% 10、要从For循环中直接退出循环，可使用的语句( )。 A、Exit Do B、Exit Loop C、Exit For D、Stop 11、下列逻辑表达式中，能正确表示条件“x，y都是奇数”的是 （ ） A、x Mod 2 =1 Or y Mod 2 =1 B、x Mod 2 =0 Or y Mod 2=0
初三_vb期末考试试卷+答案
九年级期末VB 考试试卷 班级：学号：姓名： 123456789101112131415 一、选择题（每题两分，共十五题） 1.下列叙述中正确的是 (c) A. 只有窗体才是VB中的对象 B.只有控件才是VB中的对象 C. 窗体和控件都是VB中的对象 D.窗体和控件不是VB中的对象 2. 下列可以激活属性窗口的操作是(D) A. 用鼠标双击窗体的任何部位 B.执行“工程”菜单中的“工具箱”命令 C. 按 Ctrl+F4 键 D.按F4键 3. 下列不能打开工具箱窗口的操作是(B) A. 执行“视图”菜单中的“工具箱”命令 B.按 Alt+F8键 C. 单击工具栏上的“工具箱”按钮 D.按 Alt+V键，然后按 Alt+X键 4.假定已在窗体上画了多个控件，并有一个控件是活动的，为了在属性窗口中设置窗体的属性，预先 应执行的操作是 (A) A. 单击窗体上没有控件的地方 B.单击任一个控件 C. 不执行任何操作 D.双击窗体的标题栏 5. 为了把窗体上的某个控件变为活动的，应执行的操作是(C) A. 单击窗体的边框 B.单击该控件的内部 C. 双击该控件 D.双击窗体 6. 确定一个控件在窗体上的位置的属性是(D) A. Width 或 Height B. Width和 Height C. Top 或 Left D. Top和 Left 7. 确定一个窗体或控件的大小的属性是(B) A. Width 或 Height B. Width和 Height C. Top 或 Left D. Top和 Left 8. 为了同时改变一个活动控件的高度和宽度，正确的操作是( B) A. 拖拉控件 4 个角上的某个小方块 B.只能拖拉位于控件右下角的小方块 C. 只能拖拉位于控件左下角的小方块 D.不能同时改变控件的高度和宽度
VB语句集200句
VB语句集200句.txt人生重要的不是所站的位置，而是所朝的方向。不要用自己的需求去衡量别人的给予，否则永远是抱怨。VB语句集200句 VB所有语句总结（包括简单功能介绍） 下面对VB的几乎所有语句进行简单的分类和介绍。 需要注意的是这里介绍的几乎都是语句，而不是函数，请大家注意VB语句和函数的区别。 一.数据类型、变量、常量类 Dim 模块级或过程级中声明变量 Global 模块级中声明全局变量， private 功能与Dim相同 Static 过程级中声明静态变量 Deftype 设置变量缺省类型 Let或= 赋值 Type …End Type 自定义类型 Enum 定义枚举类型 Lset、Rset 左或右对齐变量中的一字符串 Const 声明用于代替文字量的常数 二.程序控制类 End 结束程序运行 Stop 暂停程序执行进入中断模式 Goto 无条件转移 If then else 根据条件选择执行某一分支语句块 Select case 情况选择控制，选择执行某一语句块 Do…loop 循环控制 While wend 循环控制 For…next 计数循环控制 Exit for\exit do 退出循环控件 三.过程类 Declare 语句用于在模块级中声明外部过程的引用 Function 函数过程，文件名可带返回值 Sub 过程 Call 将控制权转移到一个 Sub 过程， Exit function 退出Funtion过程 Exit sub 退出Sub过程 四.对象操作类 Load 把窗体或控件加载到内存中 Unload 从内存中卸载窗体或控件 Show/Hide 显示或隐藏窗体 With 在一个单一对象或一个用户定义类型上执行一系列的语句 Redim 重新声明数组 五.数组类 Erase 重新初始化数据 Option base 设置数组默认值为0或1 Open 打于或建立文件
vb报表分组
在VB中使用动态分组报表 在使用VB自带的报表过程中，我遇到了处理动态分组报表的问题。一般要使用分组报表要在VB中建立一个DataEnvironment，并在其中建立数据库联接和命令对象，在命令对象中设置分组字段，最后将这些分组字段加入到报表中。但是这种方法只能适应静态的数据源，当遇到数据表中的字段不固定，或数据表不能预先知道的情况时，这种方法就无能为力了。经过查阅各种资料，发现我们可以通过使用Data Shaping来动态创建分组信息。下面就详细介绍一下如何动态创建分组信息，并应用于VB报表。 要使用Data Shaping，程序必须使用ActiveX Data Object (ADO)连接数据库，解决问题的关键是使用Data Shaping的驱动程序代替通常使用的各种OLE DB的驱动程序，它的用法跟使用其它驱动程序类似，对于已有的数据访问代码不用作任何修改，只是简单的修改一下连接代码就可以支持Data Shaping了。具体做法如下： 将连接参数中的 Provider设置成"MSDataShape" 即 ConnectionString = "Provider=MSDataShape;Data Provider=通常的驱动程序;Data Source=…;其它的参数" 然后就可以和平常一样进行数据连接和各种数据操作了。如此连接的数据源出了具有用普通方法的所有特性以外，同时具有了我们即将使用的Data Shaping功能，下面就可以建立自己的分组信息了： 将用于打开记录集的SQL语句写成如下形式： SHAPE {select 字段1, 字段2, 字段3,…, 字段n from 现有的表} AS 新的名称1 COMPUTE新的名称1 AS新的名称2 BY 分组字段1, 分组字段2,…, 分组字段n 上面的语句中，需要注意的是分组字段必须同时在Select 中出现，否则运行时将报错。用该SQL语句打开的记录集中包含若干个字段，它们是：新的名称2、分组字段1-n。在使用时，将打开的记录集rs作为报表的DataSource，在报表的分组部分可以直接且只能使用
大一VB期末考试试卷及答案
大一VB期末考试试卷及答案 1．在代码中引用一个控件时，应使用控件的（ b ）属性。 A．Caption B．Name C．Text D．Index 2．设变量x = 4，y = -1，a = 7，b = -8,下面表达式（ a ）的值为“假”。 A．x+a <= b-y B． x > 0 AND y < 0 C．a = b OR x>y D． x+y > a+b AND NOT (y < b) 3．表达式Int(Rnd*71)+10产生的随机整数范围是（ c ）。 A．（10，80） B．（10，81） C．[10，80] D．[10，81] 4．函数Sgn(3.1416)的返回值是（ c ）。 A．-1 B．0 C．1 D．以上都不对 5．67890属于（ d ）类型数据。 A．整型 B．单精度浮点数 C．货币型 D．长整型 6．下列变量名中正确的是（ d ）。 A．3S B．Print C．Select My Name D．Select_1 7．下列赋值语句（ a ）是有效的。 A．sum = sum -sum B．x+2 = x + 2 C．x + y = sum D．last = y / 0 8．以下的控件或方法具有输入和输出双重功能的为（ b ）。 A．Print B．Textbox C．Optionbutton D．Checkbox 9．若要获得列表框中被选中的列表项的内容，可以通过访问（ d ）属性来实现。 A．Name B．ListIndex C．ListCount D．Text 10．下列代码的运行结果为（ b ）。 Private Sub command1_click() Dim m(10)
vb常用语句
1.選取list控件的多個選項 Dim k As Integer Dim msql As String SQL = "select sn from gm1_carton_log where batch_no='" & Trim(Text1.Text) & "' and wo_no in " For k = 0 To List2.ListCount - 1 msql = msql & "'" & Trim(List2.List(k)) & "'," Next k msql = Left(msql, Len(msql) - 1) SQL = SQL & "(" & msql & ")" 2.自動執行程式 Timeleft=autoclose Autoclose=5 Private Sub Timer1_Timer() TimeLeft = TimeLeft - 1 lblTimeRemaining.Caption = TimeLeft If TimeLeft = 0 Then Timer1.Enabled = False Call OKButton_Click End If End Sub https://www.360docs.net/doc/ac6835992.html,box控件的用法 With Combo1 SQL = "" SQL = "select distinct(b.invoice_no) from gm1_ship_invoice a,gm1_ship_ms b where a.invoice_no=b.invoice_no and b.ship_fg='OPEN' " Set rs = DB.Execute(SQL) If Not rs.EOF Then rs.MoveFirst Do While Not rs.EOF Combo1.AddItem Trim(rs!invoice_no) rs.MoveNext Loop End If End With 2.MsflexGrid的用法
VB期末试卷(A卷带答案 )
高级语言程序设计（VB）试卷（A卷） 注意事项：1、本试卷共页，满分为100 分，考试时间为110 分钟。 2、标准答题卡使用2B铅笔涂写；文字题答题时请使用蓝、黑钢笔或圆珠笔， 不得使用红颜色墨水笔。 一、单项选择题（每空1分，共30分） （请将答案按照题干上【】内的序号涂写“标准答题卡”，否则不得分） 1．在VB 6.0中，扩展名为.vbp的文件称为【1】。 A) 工程文件B) 窗体文件C) 类模块文件D) 标准模块文件 2．在VB 6.0集成开发环境的设计模式下，用鼠标双击窗体上的某个对象后，打开的窗口是【2】。 A) 代码窗口B) 窗体设计窗口 C) 属性窗口D) 工程资源管理器窗口 3．设有变量定义语句Dim a%，则变量a的数据类型是【3】。 A) 整型B) 单精度类型C) 双精度类型D) 字符串类型4．下列表达式中，值为False的是【4】。 A) "AB"<"abc" B) "ABC" = UCase("abc") C) "ABCD"<"abc" D) Mid("ABCD",3,1)=Left("ABCD",3) 5．函数InStr("ABCDEF", "CD")的值是【5】。 A) 2 B) 3 C) True D) CDEF 6．下列程序运行后，单击窗体，输出结果是【6】。 Private Sub Form_Click() Dim a As Integer, b As Integer a = 3 b = 5 Print a + b; a & b
End Sub A) 8 8 B) 35 35 C) 8 35 D) 35 8 7．下列程序运行后，单击窗体，输出结果是 【7】 。 Private Sub Form_Click() a = 3: b = 7 a = a + b : b = a – b : a = a - b Print a; b End Sub A) 4 3 B) 7 3 C) 3 7 D) 10 7 8．下面程序段所表示的数学关系式是 【8】 。 If (a < b) Then If d = c Then x = 1 Else x = 2 End If A) ?? ?≠≥=<=) (2) c (1 d c b a d b a x 且且 B) ?? ?≠<=<=)(2) c (1 d c b a d b a x 且且 C) ? ? ?≥=<=)(2) c (1b a d b a x 且 D) ? ? ?≠=<=)(2) c (1 d c d b a x 且 9．下列程序运行后，单击窗体，输出结果是 【9】 。 Private Sub Form_Click() s = 0: k = 1 Do s = s + k: k = k + 1 Loop Until k <= 5 Print s End Sub A) 15 B) 10 C) 1 D) 0 10．下列程序段的输出结果是 【10】 。 For k = 4 To 2 Step -2 m = k Next k Print m; k; A) 2 2 B) 2 0 C) 2 1 D) 0 0
VB内置函数详细解释大全
VB内置函数大全 Abs(number) 返回参数的绝对值，其类型和参数相同。 必要的 number 参数是任何有效的数值表达式，如果 number 包含 Null，则返回 Null，如果 number 是未初始化的变量，则返回 0。 一个数的绝对值是将正负号去掉以后的值。例如，ABS(-1) 和 ABS(1) 都返回 1。 Array(arglist) 返回一个包含数组的 Variant。 所需的 arglist 参数是一个用逗号隔开的值表，这些值用于给 Variant 所包含的数组的各元素赋值。如果不提供参数，则创建一个长度为 0 的数组。 用来表示数组元素的符号由变量名、圆括号以及括号中的所需元素的索引号组成。在下面的示例中，第一条语句创建一个 Variant 的变量 A。第二条语句将一个数组赋给变量 A。最后一条语句将该数组的第二个元素的值赋给另一个变量。Dim A As Variant A = Array(10,20,30) B = A(2) 使用 Array 函数创建的数组的下界受 Option Base 语句指定的下界的决定, 除非 Array 是由类型库（例如 VBA.Array )名称限定。如果是由类型库名称限定，则 Array 不受 Option Base 的影响。 注意没有作为数组声明的 Variant 也可以表示数组。除了长度固定的字符串以及用户定义类型之外，Variant 变量可以表示任何类型的数组。尽管一个包含数组的 Variant 和一个元素为 Variant 类型的数组在概念上有所不同，但对数组元素的访问方式是相同的。 Asc(string) 返回一个 Integer，代表字符串中首字母的字符代码。 必要的 string 参数可以是任何有效的字符串表达式。如果 string 中没有包含任何
在VB中用数据报表设计器创建报表
在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）对象：数据报表设计器的每一个区域均由一个区域集对象中的一个区域对象来表示。在设计阶段，每一个区域都有一个标题，若要选择区域，只需用鼠标选择标题即可，并且在区域内可布置控件。在报表建立之前，使用区域对象及其属性调整报表。使用过报表的人都知道，报表可分为报头、报脚、页头、页脚、组头、组脚和细节等部分，在区域内也是一样的。
vb6常用的sql语句
一、引言 SQL Server是微软推出的中小型网络数据库系统，是目前最常用的数据库系统之一。随着SQL Server网络数据库应用程序日益增多，这种Web数据库应用系统的正常运行一般依赖于已存在的用户数据库。创建维护数据库的工作可用SQL Server提供的SQL Enterprise Manager工具来进行，如能提供一种定制的数据库管理工具，通过管理应用程序来管理数据库及其设备，对用户来说无疑是最理想的。 Visual Basic作为一种面向对象的可视化编程工具，具有简单易学，灵活方便和易于扩充的特点。而且Microsoft为其提供了与SQL Server通信的API函数集及工具集，因此它越来越多地用作大型公司数据和客户机—服务器应用程序的前端，与后端的Microsoft SQL Server 相结合，VB能够提供一个高性能的客户机—服务器方案。 二、VB访问SQL Server数据的常用方法 使用Visual Basic作为前端开发语言，与SQL Server接口有几种常用的方法，即： ①数据访问对象/Jet ②为ODBC API编程 ③使用SQL Server的Visual Basic库(VBSQL)为DB库的API编程 ④RDO 远程数据对象(RemoteData Objects) ⑤ADO 数据对象(Active Data Objects) 1、数据访问对象/Jet VB支持Data Access Objects(DAOs)的子集。DAO的方法虽然不是性能最好的管理客户机—服务器之间的对话方式，但它的确有许多优点。DAO/Jet是为了实现从VB访问Access 数据库而开发的程序接口对象。使用DAOs访问SQL Server的过程如下：应用程序准备好语句并送至Jet，Jet引擎(MASJT200.DLL)优化查询，载入驱动程序管理器并与之通讯，驱动程序管理器(ODBC.DLL)通过调用驱动器(SQLSRVR.DLL)的函数，实现连接到数据源，翻译并向SQL Server提交SQL语句且返回结果。下面是一个用DAOs访问SQL Server的VB 实例。 注释：Form Declarations Dim mydb As Database Dim mydynaset As Dynaset Private Sub Form_Load() Set mydb = OpenDatabase("", False, False, "ODBC; DSN=Myserver; WSID=LCL; DA TABASE = sales") Set mydynaset = mydb CreateDynaset("Select*from Customers") End Sub 上述例子是以非独占、非只读方式打开sales数据库，并检索Customers表中的所有字段。OpenDatabase函数的最后一个参数是ODBC连接字符串参数，它指明了Microsoft Access 连接到SQL Server所需要知道的一些内容。其中“DSN”为数据源名，“WSID”为工作站名，“DATABASE”为所要访问的数据库名。 2、利用ODBC API编程