文档库 最新最全的文档下载
当前位置:文档库 › VB常用语句

VB常用语句

VB常用语句
VB常用语句

True的结果为-1,False的结果为0

Clipboard.SetText Text1.SelText (复制你所选中的文字)

Text1.SelText = Clipboard.GetText (粘贴你所选中的文字)

Text1.Font = "隶书" (设置字体类型)

Text1.FontSize = 20 (设置字体大小)

Text1.FontBold = True (设置字体粗细)

Text1.FontItalic= True (设置斜体)

Text1.ForeColor = &HFF& (设置字体颜色)

Command1.Width (设置控件宽度)

Command1.Height (设置控件高度)

Text文本框:

Text1.Locked=False (文本框可用)

Text1.Locked=Ture (文本框不可用)

MultiLine (设置自动换行)MaxLength (设置字体数量)CommandX:

Enabled 选择(Turs)(控件有用)

选择(false)(控件无用)

Visible 选择(Turs)(文本框可见)

选择(False)(文本框不可见)

Check1:

Value 选择(0)(默认不选中)

选择(1)(默认选中)

选择(2)(默认不可用)

显示文本的时候(&" "&) (表示显示中间的文字)

List:

List1.ListCount (显示列表框中有几项)

List1.ListIndex=?(选择List中的第?项)

Style 选择(0)(不可选择)默认选择(1)(类似于复选框,可选择)Form2.Show (显示Form2窗口)

Form2.Hide (隐藏Form2窗口)Combo:

Combo1.Text (选中Combo1中的文字)Style (0或1)(选择样式不同)

Index (控件组的选择)

Combo1.Listindex=0 (选中第一项)RecordSource (选择数据源)

Enabled true (表示窗体或控件可用)False (表示窗体或控件不可用)Picture (为窗体指定一副背景图片)Backcolor (设置窗体或控件的背景颜色)Click (表示单击事件)

DblClick (表示双击事件)

" _" (空格加下划线表示续行)

&O (加前缀表示8进制)

&H (加前缀表示16进制)queding.Caption = "退出(&T)" (设置快捷键为Alt+T)

Style (0)(默认)

(1)(可以为控件添加背景图片)Visible False (运行之后控件不可见)Default Ture (按下回车键就激发该命令的Click事件)

Cancel Ture (按下Ese键就激发该命令的Click事件)

vbCrLf (回车换行)CommonDialog1.ShowOpen (打开文件夹)OpenFileName = CommonDialog1.FileName (提取文件夹名称)

Const (定义常量)

Integer (整数型变量)

Long (长整型变量)

FreeFile (空闲的文件号)

Columns("A:A").ColumnWidth = 17.25 ' (设置Excel列宽)

VBNET各种常用函数

(1) https://www.wendangku.net/doc/0813844281.html,函数库的名称空间和模块 Conversion 转换函数 DateAndTime 日期和时间函数 Strings 字符串函数 VbMath 随机函数 (2) 基础类库中的名称空间和类 引用名称空间的方法: 项目引用新建一个项目时,https://www.wendangku.net/doc/0813844281.html,根据所建项目类型,自动导 入部分名称空间的引用 直接引用给出名称空间的全名,就可访问其中的任一个类及其 各项内容 例使用Math类开方函数sqrt: Label1.Text = system.Math.sqrt(100) Imports语句导入在代码中就可直接使用名称空间的类或成员。 导入语句的格式:Imports 名称空间

数学函数 .NET中的数学函数包含在Math类。使用前在模块的开头用语句Imports System.Math导入 Rnd函数返回0和1(包括0但不包括1)之间的双精度随机数. 每次运行时,要产生不同序列的随机数,先执行Randomize 语句。产生a~b的之间的随机整数:Int(Rnd *(b-a)+a)

(1) Chr和Asc函数互为反函数。 (2) Str函数将非负数值转换成字符类型后,会在转换后的字符串左边增加一空格。 (3) Val将数字字符串转换为数值类型,当字符串中出现数值类型规定的字符外的字符,则停止转换,函数返回的是停止转换前的结果。例如表达式: Val("-123.45ty3")结果为-123.45。 (4) CDdate函数将以日期型表达式转换成日期类型。例如表达式:CDate("2005/5/12")结果为日期类型 https://www.wendangku.net/doc/0813844281.html,中还有其他类型转换函数,例如,CInt、CBool、CSng、CStr等,详细例子查阅帮助功能。 日期函数 计算从当前日期到2007年6月30日有多少天?表达式为: DateDiff("d", Now, #6/30/2007#)

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程序if语句选择

一、有如下程序段: x=7 If x>5 Then y=11-2*x Else y=10+x^2 End If 该程序段运行后,变量y 的值是() ZR_A=-3 ZR_B=5 ZR_C=10 ZR_D=59 —————————————————————————————————————————二、如图所示算法的功能是() ZR_A=按从小到大的顺序输出两个变量的值 ZR_B=按从大到小的顺序输出两个变量的值 ZR_C=交换两个变量的值 ZR_D=找出两个变量中的较小者————————————————————————————————————————— 三、有如下程序段: t=5 If t<>5 Then f=10 Else f=10+(t-3)*2 End IF 该程序段运行后,变量f的值是() ZR_A=5 ZR_B=10 ZR_C=14 ZR_D=20 —————————————————————————————————————————

四、流程图如图所示,若输入x的值为0,则输出结果是() ZR_A=10 ZR_B=16 ZR_C=4 ZR_D=-4 —————————————————————————————————————————五、淄博市规定60岁及以上老年人可以办理老年证,办证的流程如下图,这属于()。 ZR_A=双路径决策ZR_B=多路径决策ZR_C=计数循环ZR_D=变量—————————————————————————————————————————六、某商场香蕉每斤1.5元,为了促销,规定购买4斤或4斤以上打八折,不足4斤的按原价格销售。下面是用VB编写的程序,红线上应填入的语句是()。 ZR_A=y = 1.5 * x * 0.8 ZR_B=y = 1.5 * x /4 ZR_C=y = 4 * x * 0.8 ZR_D=y = 1.5 * x * 0.2 —————————————————————————————————————————

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.wendangku.net/doc/0813844281.html, '返回活动工作薄的名称 (14) https://www.wendangku.net/doc/0813844281.html, ‘返回当前工作簿名称 ThisWorkbook.FullName ‘返回当前工作簿路径和名称 (15) ActiveWindow.EnableResize=False ‘禁止调整活动工作簿的大小 (16) Application.Window.Arrange xlArrangeStyleT iled ‘将工作簿以平铺方式排列 (17) ActiveWorkbook.WindowState=xlMaximized ‘将当前工作簿最大化 工作表 (18) https://www.wendangku.net/doc/0813844281.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常用函数表

ASP纯ASP VBscript常用函数: 1.数值型函数: abs(num): 返回绝对值 sgn(num): num>0 1; num=0 0; num<0 -1;判断数值正负 hex(num): 返回十六进制值直接表示:&Hxx 最大8位 oct(num): 返回八进制值直接表示:&Oxx 最大8位 sqr(num): 返回平方根num>0 int(num): 取整int(99.8)=99; int(-99.2)=100 fix(num): 取整fix(99.8)=99; fix(-99.2)=99 round(num,n): 四舍五入取小数位round(3.14159,3)=3.142 中点数值四舍五入为近偶取整round(3.25,1)=3.2 log(num): 取以e为底的对数num>0 exp(n): 取e的n次幂通常用num^n sin(num): 三角函数,以弧度为值计算(角度*Pai)/180=弧度con(num); tan(num); atn(num) 2.字符串函数: len(str):计算字符串长度中文字符长度也计为一! mid(str,起始字符,[读取长度]):截取字符串中间子字符串 left(str,nlen):从左边起截取nlen长度子字符串 right(str,nlen):从右边起截取nlen长度子字符串 Lcase(str):字符串转成小写 Ucase(str):字符串转成大写 trim(str):去除字符串两端空格 Ltrim(str):去除字符串左侧空格 Rtrim(str):去除字符串右侧空格 replace(str,查找字符串,替代字符串,[起始字符,替代次数,比较方法]):替换字符串 注:默认值:起始字符1;替代次数不限;比较方法区分大小写(0)

OFFICE VB 语句

定制模块行为 (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.wendangku.net/doc/0813844281.html, ''返回活动工作薄的名称 (14) https://www.wendangku.net/doc/0813844281.html, ‘返回当前工作簿名称 ThisWorkbook.FullName ‘返回当前工作簿路径和名称 (15) ActiveWindow.EnableResize=False ‘禁止调整活动工作簿的大小 (16) Application.Window.Arrange xlArrangeStyleTiled ‘将工作簿以平铺方式排列 (17) ActiveWorkbook.WindowState=xlMaximized ‘将当前工作簿最大化 工作表 (18) https://www.wendangku.net/doc/0813844281.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. _

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 打于或建立文件

vb6常用函数

字符函数 函数名 功能 示例 ASC 返回一个Integer,代表字符串中首字母的字符代码。 Asc(string) CHR 返回String,其中包含有与指定的字符代码相关的字符 Chr(charcode) Format 返回Variant (String),其中含有一个表达式,它是根据格式表达式中的指令来格式化的。 Format(expression[, format[, firstdayofweek[, firstweekofyear]]]) Hex 返回代表十六进制数值的String。 Hex(number) InStr 返回Variant (Long),指定一字符串在另一字符串中最先出现的位置。 InStr([start, ]string1, string2[, compare]) InstrRev 返回一个字符串在另一个字符串中出现的位置,从字符串的末尾算起。 InstrRev(string1, string2[, start[, compare]]) Join 返回一个字符串,该字符串是通过连接某个数组中的多个子字符串而创建的。 Join(list[, delimiter]) LCase 返回转成小写的String。 LCase(string) Left 返回Variant (String),其中包含字符串中从左边算起指定数量的字符。 Left(string, length) Len 返回Long,其中包含字符串内字符的数目,或是存储一变量所需的字节数。

Len(string | varname) Ltrim Rtrim Trim 返回Variant (String),其中包含指定字符串的拷贝,没有前导空白(LTrim)、尾随空白(RTrim) 或前导和尾随空白(Trim)。 LTrim(string)RTrim(string)Trim(string) Mid 返回Variant (String),其中包含字符串中指定数量的字符。 Mid(string, start[, length]) Partition 返回一个Variant (String),指定一个范围,在一系列计算的范围中指定的数字出现在这个范围内。 Partition(number, start, stop, interval) Replace 返回一个字符串,该字符串中指定的子字符串已被替换成另一子字符串,且替换发生的次数也是指定的。 Replace(expression, find, replacewith[, start[, count[, compare]]]) Right 返回Variant (String),其中包含从字符串右边取出的指定数量的字符。 Right(string, length) Space 返回特定数目空格的V ariant (String)。 Space(number) Split 返回一个下标从零开始的一维数组,它包含指定数目的子字符串。 Split(expression[, delimiter[, count[, compare]]]) StrComp 返回Variant (Integer),为字符串比较的结果。 StrComp(string1, string2[, compare]) String 返回Variant (String),其中包含指定长度重复字符的字符串。 String(number, character) StrReverse 返回一个字符串,其中一个指定子字符串的字符顺序是反向的。 StrReverse(string1)

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.wendangku.net/doc/0813844281.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函数大全

VB函数大全 Calendar 常数 可在代码中的任何地方用下列常数代替实际值: 常数值描述 vbCalGreg 0 指出使用的是阳历。 vbCalHijri 1 指出使用的是伊斯兰历法。 -------------------------------------------------------------------------------- Color 常数 可在代码中的任何地方用下列常数代替实际值: 常数值描述 vbBlack 0x0 黑色 vbRed 0xFF 红色 vbGreen 0xFF00 绿色 vbYellow 0xFFFF 黄色 vbBlue 0xFF0000 蓝色 vbMagenta 0xFF00FF 紫红色 vbCyan 0xFFFF00 青色 vbWhite 0xFFFFFF 白色 -------------------------------------------------------------------------------- Comparison常数 下列常数由 Visual Basic for Applications 中的类型库定义,可用来在代码中的任何地方代替实际值: 常数值描述 VbUseCompareOption -1 使用Option Compare语句的设置进行比较。VbBinaryCompare 0 进行二进制的比较。 VbTextCompare 1 进行文字的比较。 vbDatabaseCompare 2 用于 Microsoft Access(仅限于Windows),进行以数据库所含信息为基础的比较。 -------------------------------------------------------------------------------- Compiler 常数

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中的常用内部函数。 重点与难点: 1、学会调用内部函数进行各种运算。 2、掌握调用各种函数时需要的参数、函数的参数类型和函数返回值类型,这也是本章的难点。 主要外语词汇: ANSI 、function randomize、 format 授课内容: 1、函数的分类:(1)内部函数 (2)外部函数(用户自定义函数、函数过程) 2、VB常用的内部函数有:数学函数、字符串函数、转换函数、日期与时间函数、其他函数。 3、函数的一般调用格式为:函数名([参数表]) 注:参数的类型和个数。 若参数类型或个数不匹配,则提示出错信息。 4、方法与函数的区别: (1)方法可以单独作为语句使用,函数不可以。 (2)方法没有返回值,函数有返回值。 (3)方法的格式:[对象名.]方法 [参数列表] 函数的格式:①变量名=函数名([参数列表]) ②[对象名.]属性=函数名([参数列表]) 5、一般将函数值进行输出或赋值给某个变量。 第一节常用函数 一、数学函数: 1、利用Log(N)/Log(10)得到Lg(N)的值。 2、注意函数Int(N)、Fix(N)、Cint(N)和Round(N)之间的区别。 例1:05_1.vbp 二、字符串函数: 1、常用的字符串函数: (1)Len(S):测试字符串S的字符个数,中西文字符均算1个字符。 (2)LenB(S):测试字符串S的字节数,中西文字符均占2个字节。

LenB(S)=2*Len(S) (3)Ucase(S):将字符串S中的小写字母改为大写字母。 (4)Lcase(S):将字符串S中的大写字母改为小写字母。 (5)String(N,S):重复输出N个S单个字符 例:Print String(5,“a”) Print String(5,“abcd”) 结果相同 2、在字符串函数名后面可以加“$”符号。 例:Print String(5,“*”) Print String$(5,“*”) 等价 3、字符串的编码方案: (1)ANSI方式: 美国国家标准协会制定,西文字符占用1个字节,汉字占用2个字节。(2)UniCode方式: 国际标准化组织ISO制定,西文字符和汉字统一进行编码,占用2个字节。VB6.0内部采用UniCode编码形式来存储字符串。 4、字符处理函数:针对字符数,中西文字符均算1个字符。 字符处理函数+B:针对字节数,中西文字符均占2个字节。 5、StrConv函数: 格式:StrConv( S,指定格式 ) (1)S:要转换的字符串表达式。 (2)指定格式: ① vbUnicode(64):ANSI格式 -> UniCode格式 ② vbFromUnicode(128):UniCode格式 -> ANSI格式 ③ vbUpperCase(1):将字符串S文字转换成大写 ④ vbLowerCase(2):将字符串S文字转换成小写 ⑤ vbProperCase(3):将字符串S每个字的开头字符转换成大写 总结: 1、小写 -> 大写 2、大写 -> 小写 (1)UCase(S) (1)LCase(S) (2)StrConv(S,vbUpperCase) (2)StrConv(S,vbLowerCase) 例:Private Sub Command1_Click( ) Dim x As String ,y As String x = Text1.Text y = UCase(x) ‘ y = StrConv(x,vbUpperCase) Text2.Text = y End Sub

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编程

vb选择与判断

VB 编程基础判断题(0错误 1正确) 1. Excel 可以处理电子表格数据,所以它是程序设计语言。答案: 0 2. 每种程序设计语言都有自己的语法和规则。答案:1 3. 使用VB 设计程序时,可以不用创建工程。答案:0 4. 通常状况下,我们会通过两种方法修改对象属性,一种是利用属性窗口,另一种是利用代码。答案:1 5. 在 VB 开发环境中,如果对象窗口工具箱工程资源管理器属性窗口和窗体布局窗口等被关闭,可以通过“视图”菜单再次打开。答案:1 6. 在VB 窗体中添加第一个标签控件后,该标签控件的Caption 标题属性设置的默认值是“command1”。答案:答案:0 7. 在VB 中,可以借助键同时选中多个对象。答案:1 8. 在VB 中,调整选中的多个控件的大小和位置时,要最后选中作为调整依据的控件。答案:1 9. 在VB 中,一个程序可能包含若干个不同的文件,但一定不包括工程文件和窗体文件。答案:0 10. 在VB 中,一个程序中的工程文件扩展名为vbp ,窗体文件扩展名为frm。答案:1 11. 在VB 中,要想让同一窗体上的3 个按钮控件的大小相同,可以使用“格式”菜单中的“统一尺寸”子菜单的“两者都相同”命令。答案:1 12. 在VB 中,标签一般用来显示信息,文本框用来接受用户输入的信息。答案:1 13. 在VB 程序中,被使用的窗体和控件统称为对象。答案:1 14. 在VB 中,属性窗口通常显示的是当前被选中的对象的具体属性。答案:1 15. 在VB 中,对象的“名称”和“Caption”是两种相同的属性。答案:0 16. 在VB 中,标签和命令按钮显示的文字由其“Text”属性确定,文本框中显示的文字由其“Caption”属性确定。答案:0 17. 在VB 中我们可以接触两种程序界面,一种是窗体中不带网格点的设计界面,另一种是带网格点的运行界面。答案:0 18. 属性窗口有两个选项卡,一个是按字母排序别一个是按类进行排,但都是用来显示某一对象的各种属性的。答案:1 19. 在VB 中,语句命令中的符号,都必须是英文字符。答案:1 20. 在VB 中,一个对象只能响应一种事件。答案:0 21. VB 的代码窗口包括对象名框事件过程名框和代码编辑区3 部分。答案:1 22. 在VB 中,125 是数值型数据,"125"也是数据型数据。答案:0 23. 在VB 中,可以使用“User & name”作为变量名。答案:0 24. 在VB 程序中,使用Option Explicit 后,如果再使用未加声明的变量,运行程序时会出现错误提示。答案:1 25. 在VB 中CStr 函数可以将数值型表达式的值转换成对应的字符串。答案:1

VB语法基础

VB语言概述 1、编码规则 2、数据类型 3 、变量与常量 4 、运算符和表达式 5、函数

编码规则 1 . VB 代码中不区分字母的大小写 ( l )为了提高程序的可读性,VB 对用户程序代码进行自动转换。( 2 )对于VB 中的关键字,首字母总被转换成大写,其余字母被转换成小写。 ( 3 )若关键字由多个英文单词组成,自动将每个单词首字母转换成大写。 ( 4 )对于用户自定义的变量、过程名,VB 以第一次定义的为准,以后输入的自动向首次的定义转换。

2 .语句书写自由 ( l )在同一行上可以书写多条语句,语句间用冒号“: ”分隔。( 2 )单行语句可分若干行书写,在本行后加入续行符(空格和下划线“_”)。 ( 3 )一行允许多达255 个字符。

3 .注释有利于程序的维护和调试 ?( l )注释以Rem 开头,也可以用撇号“’”,引 导注释内容,用撇号引导的注释可以直接出现在语句后面。 ?( 2 )在VB5 . 0 中新增了“块注释/取消块注释” 功能块,使得将若干行语句(或文字)设置为注释或取消注释十分方便。 ?设置注释块操作:选中要加注释的语句行,单击编辑 工具栏的“设置注释块”按钮。取消注释块操作:选中欲取消注释块的注释行,单击编辑工具栏的“解除注释块”按钮。

2 数据类型 数据类型关键字类型 符 占字节数范围 字节型Byte无10~ 255 逻辑型Boolean无2True 与False 整型Integer%2-32768 到32767 长整型Long&4-2,147,463,648 到2,147,463,647 单精度型Single!4-3.402823E38到3.402823E38 双精度型Double#8双精度实型数能够表达的数的范围是绝对值 小于10308的数,它有15 位有效数字 日期型Date无801,01,100到12,31,9999 字符型String$字符串0 一65535 个字符

vb语句大全

VisualBasic是微软公司推出的简单易学、功能强大编程工具,是一种可视化的、面向对象和采用事件驱动方式的结构化高级程序设计语言,使用VB能轻而易举地开发适合在Windows 环境下各类应用程序。 语句是程序的基本功能单位,每条语句都有确切的含义,能完成一定的任务。熟练掌握语句,是开发应用程序的基础。VB共有语句77个,这里给出72个,另外5个由于很少用到没有给出,它们是Width#语句,设置文件的输出行宽度。Implements语句,指定要在包含该语句的类模块中实现的接口或类。其余3个用于声明Property过程的名称,参数以及构成其主体的代码,PropertyGet语句,该Property过程获取一个属性的值;PropertyLet语句,该Property过程给一个属性赋值;PropertySet语句,该Property过程设置一个对象引用。点击相关语句看详细内容 语句描述 AppActivate语句激活其它应用程序。 Beep语句通过计算机喇叭发出声音。 Call语句调用一个子程序或函数。 ChDir语句改变当前的路径(目录或文件夹)。 ChDrive语句改变当前的驱动器。 Close语句关闭用Open语句打开的文件。 Const语句声明常量。 Date语句设置当前系统日期。 Declare语句用于在模块或窗体中声明对动态链接库(DLL)中外部过程的引用,在引用API函数时经常用到。 Deftype语句在模块或窗体,为变量和传给过程的参数,设置缺省数据类型,以及为其名称以指定的字符开头的Function和PropertyGet过程,设置返回值类型。 DeleteSetting语句删除指定的Windows注册表的子键。Dim语句声明局部变量并分配存储空间。 Do...Loop语句循环语句,有两种变形,一种是当条件为True时,重复执行一个语句块中的命令。另一种重复执行一个语句块中的命令,直到条件变为True时。 End语句结束程序、过程或语句。 Enum语句定义枚举类型。 Erase语句重新初始化大小固定的数组的元素,以及释放动态数组的存储空间。Error语句模拟错误的发生。 Event语句定义用户自定义的事件。 Exit语句提前退出控制结构、循环或过程的语句体。 FileCopy语句复制一个文件。 For...Next语句以指定次数来重复执行一组语句。 ForEach...Next语句针对一个数组或集合中的每个元素,重复执行一组语句。 Function语句声明Function过程的名称,参数以及构成其主体的代码。 Get语句将一个已打开的磁盘文件读入一个变量之中。 GoSub...Return语句在一个过程中跳到另一个子程序中执行,执行后再返回。 GoTo语句无条件地转移到过程中指定的行。 If...Then...Else语句条件语句,根据表达式的值有条件地执行一组语句。 Input#语句从已打开的顺序文件中读出数据并将数据指定给变量。

相关文档