本文目录
VB语言编程的格式及代码
Visual Basic是它源自于BASIC编程语言。VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统。
VB编程有结构化的、模块化的、面向对象的、包含协助开发环境的事件驱动为机制的可视化程序设计语言。
在 Visual Basic 中，可通过属性、方法和事件来说明和衡量一个对象的特征。
Msgobx “HelloWorld“ ’VB最简单的输出代码
vb基础代码
form1.show打开窗口1
form2.hide隐藏窗口2
unload form2 关闭窗口2
MsgBox(prompt[, buttons] [, title] [, helpfile, context])对话框
prompt为内容
buttons（看下面的图）
title消息框标题
Helpfile 可选的。字符串表达式，识别用来向对话框提供上下文相关帮助的帮助文件。如果提供了 helpfile，则也必须提供 context。
Context 可选的。数值表达式，由帮助文件的作者指定给适当的帮助主题的帮助上下文编号。如果提供了 context，则也必须提供 helpfile。
常用高中VB代码
代码就太多了 函数还差不多 Abs(number) 返回绝对值。 Array(arglist) 创建一个数组。 Asc(string) 返回字符串第一个字符的ANSI码。 Atn(number) 返回反正弦值。 CBool (expression) 转换成Boolean数据类型变量。 CByte (expression) 转换成Byte数据类型变量。 CCur (expression) 转换成Currency数据类型变量。 CDate (expression) 转换成Date数据类型变量。 CDbl (expression) 转换成Double数据类型变量。 Chr(charcode) 把ANSI 码转换成相应的键盘字符。 CInt (expression) 转换成Integer数据类型变量。 CLng (expression) 转换成Long数据类型变量。 CreateObject(servername.typename) 创建一个自动对象。 CSng (expression) 转换成Single数据类型变量。 CStr (expression) 转换成String数据类型变量。 Date 根据所用的系统返回时间。 DateAdd(interval,number,date) 向date对象添加指定的时间间隔。其中参数interval 接受下表所示的值。 设定值 描述 yyyy 年 q 季度 m 月份 y 一年的第几天 d 天 w 星期几 ww 一年的第几个星期 h 小时 m 分钟 s 秒钟 DateDiff(interval,date1,date2[,firstdayofweek[,firstweekofyear]]) DateSerial(year,month,day) 转换成Date数据子类型变体值。 DateValue(date) 转换成Date数据子类型变体值。 Day(date) 根据参数date返回该天在一个月中的号数。 Exp(number) 返回e的number次方的值。 Filter(InputStrings,Value[,Include[,Compare]]) 根据筛选条件创建一个新的数组。关于Compare的值，请参看后面“比较常数”一节。 Fix(number) 转换成一个整数（对于负数，只入不舍）。 FormatCurrency(Expression[,NumDigitsAfterDecimal [,IncludeLeadingDigit[,UseParensForNegativeNumbers [,GroupDigit]]]]) 格式化成currency形式。关于IncludeleadingDigit,UseParensForNegativeNumbers及GroupDigit的值请参看后面“三态常数”一节。 FormatDateTime(Date[,NamedFormat]) 对日期及时间进行格式化输出。关于NamedFormat的值请参看后面“日期格式常数”一节。 FormatNumber(Expression[,NumDigitsAfterDecimal [,IncludeLeadingDigit[,UseParensForNegativeNumbers [,GroupDigit]]]]) 对数字进行格式化。关于IncludeleadingDigit,UseParensForNegativeNumbers及GroupDigit的值请参看后面“三态常数”一节。 FormatPercent(Expression[,NumDigitsAfterDecimal [,IncludeLeadingDigit[,UseParensForNegativeNumbers [,GroupDigit]]]]) 对百分数进行格式化。关于IncludeleadingDigit,UseParensForNegativeNumbers及GroupDigit的值请参看后面“三态常数”一节。 GetObject([pathname][,class]) 从指定的文件中返回指定的动态对象。 Hex(number) 返回数number的十六进制的值。 Hour(time) 根据参数time的值返回小时。 InputBox(prompt[,title][,default][,xpos][,ypos][,helpfile,context]) 显示一个临时的输入框，并且返回用户的输入。 InStr([start,]string1,string2[,compare]) 返回字符串string2在字符串string1中第一次出现的位置。关于compare的值请参看后面的“比较常数”一节。 InStrRev(string1,string2 [start [,compare]]) 返回字符串string2在字符串string1中最后出现的位置。关于compare的值请参看后面的“比较常数”一节。 Int(number) 返回一个整数(负数只舍不入)。 IsArray(varname) 确定变量是否是一个数组。 IsDate(expression) 确定表达式expression能否转换成日期格式。 IsEmpty(varname) 确定变量是否已经初始化了。 IsNull(expression) 确定表达式expression是否为空。 IsNumberic(expression) 确定表达式expression的结果是否是一个数。 IsObject(expression) 确定表达式expression是否是一个自动对象。 Join(list,[,delimiter]) 把一个数组中的所有子字符串连接起来，连接所用的分隔符由delimiterd的值设定。 LBound(arrayname[,dimension]) 返回数组某维的最低界限。在当前的VBScript版本中，该函数总是返回值0。 Lcase(string) 以小写字符格式化。 Left(string,length) 返回指定长度的字符串string左部分。 Len(string|varname) 返回字符串string的长度或变量varname的字节长度。 LoadPicture(pitcurename) 载入一个图片对象。 Log(number) 返回数number的自然对数值。 Ltrim(string) 删除字符串string左边多余的空格。 Mid(strin,start[,length]) 返回指定长度的字符串string的子串。 Minute(time) 根据参数time的值返回分钟的值。 Month(date) 返回以数字表示的月份。 MonthName(month[,abbreviate]) 返回以名称表示的月份。 MsgBox(prompt[,buttons][,title][helpfile,context]) 显示一个消息框，要求用户选择一个按钮，返回能指明用户所做选择的值。关于button的值和返回值请参看后面“消息框常数”一节。 Now 根据系统，返回当前的日期和时间。 Oct(number) 返回数number的八进制值。 Replace(expression,find,replacewith[,start[,count[,compare]]]) 用指定的子字符串replacewith替换指定的子字符串find指定的次数。关于参数compare的值请参看后面“比较常数”一节。 Right(string,length) 返回指定长度的字符串string的右部分子串。 Rnd([number]) 产生一个随机数。 Round(number[,numdecimalplaces]) 根据指定的十进制位数对数number进行四舍五入。 RTrim(string) 删除字符串string右边多余的空格。 ScriptEngine 返回使用的脚本语言的名称。 ScriptEngineBuildVersion 返回使用的脚本引擎版本。 ScriptEngineMaorVersion 返回使用的脚本引擎的大版本号。 Second(time) 根据参数time的值返回该分的第几秒。 Sgn(number) 返回数number的正负号。 Sin(number) 返回数number的正弦值。 Space(number) 用指定数量的空格创建字符串。 Split(expression[,delimiter[,count[,compare]]]) 把一个字符串分割并转换成数组。关于compare的值请参看后面“比较常数”一节。 Sqr(number) 返回数number的平方根值。 StrComp(string1,string2[,compare]) 字符串比较。关于compare的值请参看后面“比较常数”一节。 StrReverse(string1) 对字符串string1进行倒序。 String(number,character) 用number个字符character创建字符串。 Tan(number) 返回数number的正切。 Time 根据系统返回当前时间。 TimeSerial(hour,minute,second) 返回Date变量体。 TimeValue(time) 返回包含时间的Date变量体。 Trim(string) 删除字符串string两边的多余空格。 TypeName(varname) 返回子类型的名称。关于返回值请参看后面“变量类型常数”一节。 UBound(arrayname[,dimension]) 返回数组某维的上边界。缺省维数时，为第一维。 Ucase(string) 用大写字母格式格式化字符串string。 VarType(varname) 返回子类型的值。关于返回值请参看后面“变量类型常数”一节。 Weekday(date,[firstdayofweek]) bbs.so1234.com 用数字形式返回星期几。关于参数firstdayofweek的值请参看后面“变量类型常数”一节。 WeekDayName(weekday,abbreviate,firstdayofweek) 用名称形式返回星期几。关于参数firstdayofweek的值请参看后面“变量类型常数”一节。 Year(date) 根据参数date返回年份。
-vb语言基本代码
VB语言 基本语句（会数学的也可以)
If...Then判断语句
If..Then判断语句属于一种单行假设判断语句，它会按照用户所给定的比较或逻辑表达式。
进行判断。当判断结果为“True”也就是真时，则执行Then后的程序代码块，否则跳过该块的执行步骤。
使用语法的方法如下：
If 判断式 Then 执行语句
或
If 判断式 Then
执行语句1
执行语句2
End If
其实上述的两种语法并不相同的，主要差异在于第一种写法是使用在处理程序部分的源代码较短，
无需分段的时候：
If a 》 b Then Print “a 》 b“
而当处理程序部分需要分段时，则必须使用第二种写法将执行语句包括在“If...Then...End If“范围中：
If a 》 b Then
c = a + b
Print “a + b = “& c
End If
而If...Then...Else...End If语句则可以将不符合条件式的情况，交给Else后所接的程序代码来处理：
例如：
If a 《 b Then
c = a + b
Else
c = a - b
End If
Print c
在上面程序片段中，变量C的数值会由条件式”a《b“成立与否而有不同的输出结果。
至于ElseIf的语法也是和If搭配来使用，它主要是用来进行多重逻辑判断。
If...ElseIf...Else...End If使用语法的方法如下：
If 判断式1 Then //当判断式1成立时，执行以下语句
程序语句 甲
ElseIf 判断式2 Then //当判断式1不成立，但判断式2成立时执行以下语句
程序语句乙
ElseIf 判断式3 //当判断式1和2都不程序，但判断式3成立时执行以下语句
程序语句 丙
Else //当上面所有判断式都不成立时，执行下面的语句
程序语句 丁
End If
★Select Case判断语句
Select Case流程控制语句可以根据判断式的返回值来执行不同程序代码片段。
Select Case语法如下：
Select Case 参数
Case 条件1 //当判断式满足条件1时就执行以下的语句
程序语句1
程序语句2
Case 条件2 //当判断式满足条件2时就执行以下的语句
程序语句1
程序语句2
Case Else //当判断式无满足任何条件时就执行Case Else标签后的语句
程序语句1
End Select
由于Select Case仅能传入一个参数，也就是说它无法执行“比较”与“判断”的操作，并且Case
仅能是数值而不能是表达式。
以下这个是个错误程序的片段：
Select Case A 》 B //错误！！！仅能传送一个参数
或是
Select Case A
Case A 《 C //错误！！！Case只能接受数值
★循环语句
当程序需要执行重复性工作时，可以使用循环控制语句连续执行某段程序代码，直到满足特定条件为
止。
VB提供了Fot...Next、While...Wend与Do...Liio三种循环控制语法。
For...Next循环语句
For...Next属于先测试循环控制语句，属于基本的循环控制语法。它按照用户所赋予的初值、终值
与步长表达式来重复执行某一特定程序区段。在每次执行前，系统会先检查目前初值状态是否符合
终值条件，如果不符合终值条件的话则执行增量运算后，再执行循环语句：反之如符合终值条件，则
跳出循环。
For 循环语法如下：
For 初值 to 终值 Step 步长
程序语句
Next
VB编程用的代码是什么代码
vb用basic语言
先从VB6.0开始学起,vb6.0简单,先看书，重在语法与算法。然后看小例子，理解一下。再试着设计窗体，进行小的编程
vb6语言以及基本语句
VB 就是 Visual Basic 的意思，是一种常用的编程开发工具。它的基础是编程语言Basic ，Visual Basic 简单点来说就是微软为了更好的让人们学习编程，应用上 Basic 开发语言的一套工具，简称就是 VB。VB 的面世使原本极其复杂困难的编程、软件开发的工作变得简单。最初的编程工作都是依靠全套的代码去进行的，工程量极大。Microsoft 就是看准了这个人们渴求快速发展软件开发行业的商机，利用自己的技术实力研发出 VB 这么一套完善的编程工具。VB 把过往的纯代码编程过度到可视化编程，将一些经常要使用到的功能以一个个的控件的形式出现，例如 Label（标签）、TextBox（文本框）等等的。他们在以前的编程工作中需要在使用时重复多次的输入同样的代码去实现这个功能，而这些代码却不是小工程，耗费了很大的人力物力和很多的时间。所以有了 VB 之后，编程的工作也就可以普及啦，可以免去了机械的重复的代码的输入，又可以一面编辑核心功能一面进行界面优化美化，一劳多得啊。
VB 是 Basic 语言软件开发者的首选编译器，是学习 Basic 语言编程必须要接触而且是经常接触的一款整合型技术编译器。
语言特性
VB的中心思想就是要便于程序员使用，无论是新手或者专家。VB使用了可以简单建立应用程序的GUI系统，但是又可以开发相当复杂的程序。VB的程序是一种基于窗体的可视化组件安排的联合，并且增加代码来指定组建的属性和方法。因为默认的属性和方法已经有一部分定义在了组件内，所以程序员不用写多少代码就可以完成一个简单的程序。过去的版本里面VB程序的性能问题一直被放在了桌面上，但是随着计算机速度的飞速增加，关于性能的争论已经越来越少。
窗体控件的增加和改变可以用拖放技术实现。一个排列满控件的工具箱用来显示可用控件（比如文本框或者按钮）。每个控件都有自己的属性和事件。默认的属性值会在控件创建的时候提供，但是程序员也可以进行更改。很多的属性值可以在运行时候随着用户的动作和修改进行改动，这样就形成了一个动态的程序。举个例子来说：窗体的大小改变事件中加入了可以改变控件位置的代码，在运行时候每当用户更改窗口大小，控件也会随之改变位置。在文本框中的文字改变事件中加入相应的代码，程序就能够在文字输入的时候自动翻译或者阻止某些字符的输入。
VB的程序可以包含一个或多个窗体，或者是一个主窗体和多个子窗体，类似于操作系统的样子。有很少功能的对话框窗口（比如没有最大化和最小化按钮的窗体）可以用来提供弹出功能。
VB的组件既可以拥有用户界面，也可以没有。这样一来服务器端程序就可以处理增加的模块。
VB使用引用计数的方法来进行垃圾收集，这个方法中包含有大量的对象，提供基本的面向对象支持。因为越来越多组建的出现，程序员可以选用自己需要的扩展库。和有些语言不一样，VB对大小写不敏感，但是能自动转换关键词到标准的大小写状态，以及强制使得符号表入口的实体的变量名称遵循书写规则。默认情况下字符串的比较是对大小写敏感的，但是可以关闭这个功能。
VB使得大量的外界控件有了自己的生存空间。大量的第三方控件针对VB提供。VB也提供了建立、使用和重用这些控件的方法，但是由于语言问题，从一个应用程序创建另外一个并不简单。
术语
在讨论 Visual Basic（不包含 .NET）时，经常可以听到以下这些术语，因此掌握这些术语的基本理解对初学者十分有帮助。
控件：简单的说，控件就是构成或者说建造 Visual Basic 应用程序的图形化工具，包括窗体、按钮、复选框、列表框、数据控件、表格控件和图片控件等等……
事件：由用户或操作系统引发的动作，例如击键、单击鼠标（Click）、双击鼠标（DblClick）、一段时间的限制，或从端口接收数据。
方法：嵌入在对象定义中的程序代码，它定义对象怎样处理信息并响应某事件。例如，数据库对象有打开记录集并从一个记录移动到另一个记录的方法程序的基本元素，它含有定义其特征的属性，定义其任务和识别它可以响应的事件的方法。控件和窗体是Visual Basic中所有对象的示例。
物件：一个控件、窗体等都可被看作一个物件。
过程：为完成某些特定的任务而编写的代码段，过程通常用于响应特定的事件，也可以当作应用程序的用户自定义函数来使用。
属性：属性是组成用户界面的各对象的性质的具体描述。例如上述“物件”中所提到的尺寸、位置、颜色、宽度、高度等等都称为控件的属性。属性决定物件的外观，有时也决定物件的行为。物件的属性绝大部分是VB中已经事先定义好的，但也有的属性是需要在应用过程中才去定义的。属性即可为物件提供数据，也能从物件取回信息。
·窗体的常用属性
现在，我列举出了一些窗体的常用属性，请你对它们先进行一下感性认识。
名称是窗体的标识名，代码中称它为Name。
BackColor：设置窗体背景颜色。
BorderStyle：设置窗体的边框风格。
要请注意的是，属性值为1 - Fixed Single 与 3 - Fixed Dialog 时，窗体外观相同，但功能却不同。
当属性为1 - Fixed Single 时，MaxButton与MinButton这两个属性可以起作用。MaxButton为True时窗体上具有了最大化按钮。MinButton为True时最小化按钮也有效了。
而当属性为3 - Fixed Dialog时，MaxButton与MinButton属性不起作用。此时MaxButton与MinButton为True，但最大化、最小化按钮均为出现。
Caption：设置窗体标题栏上的文字。
ControlBox：设置窗体标题栏上是否具有控制菜单栏及按钮。
Enabled：决定运行时窗体是否响应用户事件。在程序运行时可以看到改变 Enabled属性的效果。此时Enabled已设为False，所以点击按钮不会有反应。
Height：设置窗体的高度。
Width：设置窗体的宽度。
Left：设置程序运行时窗体的水平位置
Top：设置程序运行时窗体的垂直位置
Visible：设置程序运行时窗体是否可见。当Visible为False时，窗体是不可见的。将值改为为True。运行时窗体就是可见的了。
WindowsState：设置程序运行中窗体的最小化、最大化和原形这三种状态。程序运行时的最小化状态。
Icon：设置窗体标题栏上的图标。
Picture：给窗体配上漂亮的位图。
最后要说明的是：窗体的Name和Caption属性，虽然缺省值相同，都是Form1，但实际意义却不一样。Caption指的窗体标题栏上的文字，Name指这个窗体的对象名,千万不能混淆。
-vb语言基本代码
VB常用代码
form
窗体的意思，像form和command这样的单词是控件的名称，名称是控件的属性之一，可以在屏幕右侧的属性列表中加以修改，找到name这一行，在右侧键入自己想要的名字即可，不必记忆，至于LostFocus..MouseUp是一些事件的名称，有必要记忆。下面写一些常用的。
lostfocus失去焦点
getfocus得到焦点
load装载
unload卸载
mousedown按下鼠标
mouseup松开鼠标
mousemove移动鼠标
dragover拖拽鼠标
dragdrop拖拽后松开鼠标
click单击
dblclick双击
keydown键盘按下
keyup键盘松开
keypress按键盘顶敞侈缎侬等畴劝川滑
change变换
key的那三个的区别你以后会学的。
建议你去买本书看看吧
那个比较专业一点
-vb语言基本代码
VB用的基本语句有哪些
VB程序中的一行代码称为一条程序语句，简称为语句。语句是构成程序的基本单位，是执行具体操作的指令，每条语句以ENTER键结束。基本语句有：
1、 注释语句
注释不仅仅是对程序的解释，有时它对于程序的调试也非常有用，譬如说可以利用注释屏蔽一条语句以观察变化，发现问题和错误。注释语句是我们在编程里最经常用到的语句之一。
在VB里，注释语句有两种，一种是用“Rem”关键字，这跟DOS里的批处理文件的用法一样，还有一种是利用单引号“’”，例如：‘Dim a As String与Rem Dim a As String的作用是一致的。-vb语言基本代码
2、长语句的分行
在比较早的版本中，因为没有象C等语言用“；”隔开语句与语句，VB的语句是必须写在一行里的，不过在VB之后的版本里可以用分行符“_”把一个长语句分成若干行来存放。
3、条件语句
VB的条件语句更符合英语的语法，如果Then后面所跟的语句只有一条，可以写成：
条件1
True/False
语句1
条件2
True/False
语句2
条件3
True/False
…
…
…
条件N
True/False
语句N
4、循环语句
循环结构是计算机语言里一种重要的结构，它的应用广泛，最简单的例子是累加器的作用，还可以用于穷举法，更直观的例子是把某件事重复指定的次数，这样就不用把要重复的语句输入多次，而通过循环结构完成，非常方便。-vb语言基本代码
C语言里有一个“for”循环语句，VB里也有“For”关键字，作用也差不多，只是VB的“For”语句更容易理解。它的格式是：
For《循环变量》=《初赋值》To《终值》[Step《步长》]
Next《循环变量》
在默认情况下，Step被设为“1”，可以省略，Step也可以设为负值，例如：
Dim a=0
For I=1 To10
a=a+ I
Next I
5、While语句
While后面都跟逻辑条件判断，“Do While……Loop语句”和“While……Wend语句”作用相似，都是先判断While后面的条件是否为“真”，如果为“真”则执行里面的语句，如果为“假”，则退出循环，循环直至条件为“假”终止。-vb语言基本代码
“Do……Loop While”与前两者的区别在于，它不管条件的真假，都会先执行“Do”后面的语句，也就是说，它至少执行语句一次。
6、Until语句，它是直至条件为真则终止循环，句式把While上述三个语句的While换成Until即可，但是因为容易记混，所以我建议只用While即可。Until《条件》可以相当于While Not《条件》。-vb语言基本代码
For循环和Whlie循环应当根据适当的环境使用，它们有时也可替换。
求VB中最最基本的几句代码
Dim
conn
As
OleDbConnection
Dim
da
As
OleDbDataAdapter
Dim
ds
As
New
DataSet
Dim
ds1
As
New
DataSet
Dim
dt
As
DataTable
Dim
str
As
String
’Dim
cmd
As
OleDbCommand
’Dim
rd
As
OleDbDataReader
conn
=
New
OleDbConnection
conn.ConnectionString
=
“Provider=Microsoft.Jet.OleDb.4.0;Data
Source=d:\\第一步\\user.mdb“
conn.Open()
str
=
“select
*
from
reg
where
userid=’“
&
yonghu.Text
&
“’
“
’cmd
=
New
OleDbCommand(str,
conn)
’rd
=
cmd.ExecuteReader()
’If
rd.Read()
Then
’
End
If
da
=
New
OleDbDataAdapter(str,
conn)
da.Fill(ds)
’Dim
i
As
Integer
’i
=
ds.Tables(0).Rows.Count
’MsgBox(i)
If
ds.Tables(0).Rows.Count
=
0
Then
MsgBox(“你还没有注册，请先注册会员“)
Else
Dim
str2
As
String
str2
=
“select
*
from
reg
where
userid=’“
&
yonghu.Text
&
“’
and
password=’“
&
password.Text
&
“’“
da
=
New
OleDbDataAdapter(str2,
conn)
da.Fill(ds1)
If
ds1.Tables(0).Rows.Count
=
0
Then
MsgBox(“密码错误“)
Else
’window.top.document.location.href
=
“../huiyuah.aspx“
Session.Add(“yonghuming“,
yonghu.Text)
Response.Redirect(“huiyuan.aspx“)
End
If
End
If
conn.Close()
-vb语言基本代码
