Vb常用语句

第一篇：Vb常用语句

Vb常用语句

语句

1．赋值语句

 变量的赋值

格式：

[Let] <变量> ＝ <表达式>

 功能：先计算赋值号右边表达式的值，然后将值赋值给变量。

注意：

 “=” 意义是“赋值”而不是“等于”，x = y和y = x不等价。

 “=”左边只能是变量，不能是数值或表达式，下面语句是错误的：

 4 = x+y

 a + b/2 = 6

 一次只能给一个变量赋值，如果要给多个变量赋相同的值，只能使用多个赋值语句。

 例如：sum = 0 : i = 0不能写成：sum = i = 0

 对象属性的动态设置、对象属性值的返回

 对象属性的动态设置

 格式：对象名.属性名 = <属性值>

 例如：

Command1.Caption = “计算”

Text2.Text=Str(c)

 注意：Name属性只能在属性窗口赋值

 对象属性值的返回

 例如：

R = Val(Text1.Text)

(2)Print语句

[<对象名>.]Print［<表达式表>］[，|；]

功能：在指定的对象上输出<表达式表>中各元素的值。

例

Private Sub Command1_Click()

a = 123: b = 456: c = 789

Form1.Print a;b;c'输出在窗体Form1上

Print “中华”, “天下”, a + b + c„输出在窗体Form1上

Picture1.Print “中华”, “天下”, a + b + c'输出在图片框Picture1上Debug.Print “中华”, “天下”, a + b + c'输出在立即窗口上

End Sub

注意：

只能在窗体、图片框、打印机、立即窗口上输出内容

Print的相关函数

①Tab()函数

Tab(N)

功能：把光标移到由N确定的位置。

②Spc()函数

Spc(N)

功能：光标移到N个空格之后的位置。

③Cls方法

[<对象名>.]Cls

功能：清除由Print方法显示的信息。

④Format$函数

Format$（表达式，格式字符串）

功能：将数值、字符串或日期等数据按照指定的格式生成字符串

3.注释语句

Vb中添加注释语句的方法为在字符“‟”(即单引号)后加注释内容或采用Rem 注释内容的形式

参照print语句中的例子

4..结束语句

语法格式：end

功能：强制程序结束运行

练习：

1.用vb语言编程序，分别为每个基本数据类型声明一个变量，给变量赋一个合适的值，使用print语句输出变量值

2.上机编写如下代码

Private Sub Form_Click()

Print “北京”,“奥运”

Print“北京”；“奥运”

表达式列表各输出项之间有分隔符。运行上面的程序说出逗号分隔符和分号分隔符的不同 采用逗号分隔符各输出项

采用分号分隔符各输出项

3.编写一个程序，用end语句结束这个程序，体会一下end语句的用法。

综合练习：

新建一工程，在窗体中有两个命令按钮，通过代码使一按钮显示“输出”，另一按钮显示“结束”。定义一变量a，类型为数值型且赋值123。定义一变量s, 类型为字符型且赋值为I am a student.要求当点击输出按钮时，用print语句输出“I am a student 学号位123”。点击结束按钮时，结束本程序。

选择：

1、在VB应用程序中，修改控制代码，使Command1按钮显示“end”，正确的设置是（）。

A.Command1.Text=“end”B.Command1.Caption=“end”

C.Command1.Name＝endD.Command1.Caption=end2、在VB程序中，当变量H的值等于8时，执行“IF H>8 then R=10 else R=20”语句后，R值为（）。

A．5B．10C．20D．10或20

3．下列句子中，（）不是赋值语句。

A．A=”123” +”456”B．Label1.Captin=”你好！”

C．r=Val(Text1.Text)D．x+1=y

4.下列程序运行后，变量s=（）。

Dim a,b,c,s As Integer

a=9

b=41

c=2*(a+b)

s=a*c

A．100B．50C．900D．300

4.VB的注释语句是以（）开始的？

（A）Rem或'（B）Rem或;（C）Note或*（D）Note或!

5.针对下面的赋值语句，哪个叙述是正确的？

HA123=&HA456

（A）“=”左右两边的都是变量（B）“=”左边的是变量，右边是常量

（C）“=”左边的是常量，右边是变量（D）“=”左右两边的都是常量

6.下列哪个是结束程序的语句

（A）End（B）Stop（C）Exit（D）Pause

第二篇：VB循环语句

注：被中括号(“[”、“]”)括起来的都是可选参数！

For Each...Next 语句： 语句格式

For Each Variant In Collection Or Array

[Statement(s)]

[Exit For]

[Statement(s)] Next [Variant] 参数解释

Variant: 如果In后面是一个集合(Collection)，Variant可以是任何数据类型的一个变量；如果In后面是一个数组(Array)，Variant就只能是一个Variant变量。

Collection: 可以是任何一个对象集合。Array: 可以是任何一个数组(Type数组除外)。Statement(s): 可以是任何一句或多句语句。

Exit For: 可以强制退出循环体。For Each...Next 语句的作用

集合/数组里面有多少对象/多少维，For Each...Next 语句就会执行多少次Statement(s)。

Do...Loop 语句： 语句格式

Do [{While | Until} Condition]

[Statement(s)]

[Exit Do]

[Statement(s)] Loop [{While | Until} Condition] 参数解释

While: 如果While在Do后面，那么循环体一开始就会检查Condition的值，如果Condition的值为False，就退出循环体；否则，执行Statement(s)；如果While在Loop后面，则在执行完第一次Statement(s)时才检查Condition的值，如果Condition的值为False，就退出循环体；否则，继续循环。

Until: 如果Until在Do后面，那么循环体一开始就会检查Condition的值，如果Condition的值为True，就退出循环体；否则，执行Statement(s)；如果Until在Loop后面，则在执行完第一次Statement(s)时才检查Condition的值，如果Condition的值为True，就退出循环体；否则，继续循环。

Condition: 可以是任何一个表达式。Statement(s): 可以是任何一句或多句语句。

Exit Do: 可以强制退出循环体。Do...Loop 语句的作用

重复循环Statement(s)，直到Condition为True或False(在指定了While或Until的情况下)。

For...Next 语句： 语句格式

For Counter = Start To End [Step Step]

[Statement(s)]

[Exit For]

[Statement(s)] Next [Counter] 参数解释

Counter: 可以是任何一个变量(但不能是Boolean或者是数组)，用来做计数器。Start: Counter的初值。End: Counter的终值。

Step: Counter一次增加多少，默认为1。1次增加n: For...=...To...Step n；1次减n: For...=...To...Step-n。

Statement(s): 可以是任何一句或多句语句。

Exit For: 可以强制退出循环体。For...Next 语句的作用

重复执行((End-Counter)Step)次Statement(s)。

While...Wend 语句： 语句格式

While Condition

[Statement(s)] Wend 参数解释

Condition: 可以是任何一个表达式。Statement(s): 可以是任何一句或多句语句。

While...Wend 语句的作用

重复执行语句，直到Condition不为True。

第三篇：VB循环语句的用法

1.While...Wend 语句

只要指定的条件为 True，则会重复执行一系列的语句。语法

While condition [statements]..Wend 2.Do...Loop 2.1 第一种用法

用 Do 循环重复执行一语句块，且重复次数不定。Do...Loop 语句有几种演变形式，但每种都计算数值条件以决定是否继续执行。如同 If...Then condition 必须是一个数值或者值为 True（非零）或 False（零）的表达式。

在下面的 Do...Loop 循环中，只要 condition 为 True 就执行 statements。

Do While condition statements..Loop 2.2 第二种用法

Do...Loop 语句的另一种演变形式是先执行语句，然后在每次执行后测试 condition。这种形式保证 statements 至少执行一次：

Do statements Loop While condition 注:其它两种演变形式类似于前两个，所不同的是，只要 condition 为 False 而不是 True，它们就执行循环。循环零次或多次

Do Until condition statements Loop

至少循环一次

Do statements Loop Until condition 3.For...Next 在不知道循环内需要执行多少次语句时，宜用 Do 循环。但是，在知道要执行多少次时，则最好使用 For...Next 循环。与 Do 循环不同，For 循环使用一个叫做计数器的变量，每重复一次循环之后，计数器变量的值就会增加或者减少。For 循环的语法如下：

For counter = start To end [Step increment] statements Next [counter] 参数 Counter、Start、end 和 increment 都是数值型的。

注意 increment 参数可正可负。如果 increment 为正，则 Start 必须小于等于 end，否则不能执行循环内的语句。如果 increment 为负，则 Start 必须大于等于 end，这样才能执行循环体。如果没有设置 Step，则 increment 缺省值为 1。实例：

以下代码打印出所有有效的屏幕字体名：

Private Sub Form_Click()Dim I As Integer For i = 0 To Screen.FontCount

Print Screen.Fonts(i)Next End Sub 4.For Each...Next For Each...Next 循环与 For...Next 循环类似，但它对数组或对象集合中的每一个元素重复一组语句，而不是重复语句一定的次数。如果不知道一个集合有多少元素，For Each...Next 循环非常有用。

For Each...Next 循环的语法如下：

For Each element In group statements Next elementt 例如，下面的子过程打开 Biblio.mdb，把每一个表的名字加到列表框中。

Sub ListTableDefs()Dim objDb As Database

Dim MyTableDef as TableDef Set objDb = OpenDatabase(“c:vbbiblio.mdb”, _ True, False)For Each MyTableDef In objDb.TableDefs()

List1.AddItem MyTableDef.Name Next MyTableDef End Sub 请记住使用 For Each...Next 时的几点限制：

对集合，element 只能是 Variant 变量，或一般的 Object 变量，或“对象浏览器”中列出的对象。

对数组，element 只能是 Variant 变量。

For Each...Next 不能与用户自定义类型的数组一起使用，因为 Variant 不可能包含用户自定义类型。

第四篇：VB数据库SQL语句学习

1.Select * from student查询所有原始记录

2.Select StudentID, StudentName from student 只查询学号和姓名

3.Select StudentID as 学号, StudentName as 姓名, Sex as 性别，Class as 班级,NormalScore as平时成绩，ExperimentScore as 实验成绩, ExaminationScore as 考试成绩 from student

4.Select * from student where sex=’男’只需要查看男生的成绩

5.Select * from student where NormalScore>80只需要查看平时成绩大于80分的记录

6.Select * from student where studentname like ‘陈%’查询姓陈的同学的记录

7.Select * from student order by examinationScore根据考试成绩排序

8.Select * from student order by examinationScore排序---降序

9.Select Sum(examinationScore)as 总成绩 from student求总成绩

10.Select Avg(examinationScore)as平均成绩 from student求平均成绩

11.Select count(*)as 总记录数 from student求总记录数

12.Select Max(ExaminationScore)as 最高分 from student求最高分

13.Select Min(ExaminationScore)as 最高低分 from student求最低分

14.Select Class as 班级, Avg(ExaminationScore)as平均成绩 from student group by class各班级成绩的分类汇总

Public Class frmMain

Private ObjCnn As New OleDbConnection

Private ObjCmd As OleDbCommand

Private StrDir As String = “D:MIS1025StudentMgr.accdb”

Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As

System.EventArgs)Handles MyBase.Load

ObjCnn.ConnectionString = “Provider=Microsoft.ACE.OLEDB.12.0;Data Source=” & StrDir

ObjCnn.Open()

ObjCmd = New OleDbCommand

ObjCmd.Connection = ObjCnn

End Sub

Private Sub FindRecord(ByVal StrSQL As String)

ObjCmd.CommandText = StrSQL

Dim rd As OleDbDataReader = ObjCmd.ExecuteReader

Dim tbl As New DataTable

tbl.Load(rd)

DataGridView1.DataSource = tbl

End Sub

Private Sub CmdFind_Click(ByVal sender As System.Object,System.EventArgs)Handles CmdFind.Click

FindRecord(txtSQL.Text)

End Sub ByVal e As

第五篇：vb错误处理

Vb错误处理 出错处理

（1）设置错误陷阱

On Error Resume Next

若出现错误，则将当前错误语句忽略，执行下条语句。

On Error GoTo 语句标号

On Error GoTo 0 不进行任何处理

（2）编写错误处理程序

Resume：接着错误的地方执行，重试。

Resume Next：类似On Error Resume Next，忽略当前错误语句，执行下一语句Resume <标号>：到标号那里去处理。

过程级、模块级

节选：

Onerrorgoto标签是放在错误发生之前，有效范围是到此事件的结束，包括错误处理时发生的错误。（此时的错误一般是没有想到的，故也没有处理）所以要保证不要在错误处理的代码中写复杂的代码。

OnErrorGotoErr_Normal

'一般代码

sql= “insertinto......”

OnErrorGotoErr_Roll

adocn.BeginTrans

adocn.Executesqladocn.CommitTrans

OnErrorGotoErr_Normal

....Exitsub

Err_Normal:

'正常错误处理

ExitSub

vb6.0 遇到错误能不退出吗

2012-1-25 20:04提问者： 咫·尺 | 浏览次数：278次

比如遇到数据溢出啊等，弹出错误以后，就直接把程序关闭了，数据都没保存，能弹出错误后，不关闭程序吗？

满意回答

插入以下代码：

On Error Resume Next

即可。意思是，程序遇到错误不理会，继续执行。

或者使用GoTo，比如下面的代码计算肯定是溢出的，但程序不会退出，不过会提示： On Error GoTo ToExit

Dim g, ErrNum As Boolean

g = 1

Do Until ErrNum

g = g * 1024

Loop

ToExit:

If Err.Number = 6 Then

Print “程序溢出，计算结果不准确”, g

Exit Sub

End If

或者使用以下代码，可以完全显示计算过程：

Dim WithEvents List As ListBox

Private Sub Form_Load()

On Error GoTo ToExit

Dim g, ErrNum As Boolean

g = 1

Set List = Me.Controls.Add(“VB.ListBox”, “List”)

With List

.Left = 0

.Top = 0

.Width = Form1.Width490

.Visible = True

End With

Do Until ErrNum

g = g * 1024

List.AddItem g

Loop

ToExit:

If Err.Number = 6 Then

List.AddItem “程序溢出，计算结果不准确” & g

Exit Sub

End If

End Sub

追问

是不是要在每一个容易出错的sub里面都要这样加一下？有没有整体设置一下或者写代码的？每个sub都写一下也挺麻烦的回答

首先，第一行是每个里边都需要有的，有了这一行，才会执行错误跳转。

比如上边的第二段代码也可以这样写：这样在每段容易出错的过程中，加上第一个的On Error GoTo ToExit和最后一行的ToExit: MsgBox “程序出现错误！” & Chr(10)& “错误类型：” & Error(Err.Number), 16即可。当然，你需要在Esub这个子过程中，把所有可能会涉及到的错误代码都添加上。如果只想知道哪里错了，也可以直接提醒，出错也是可以的Private Sub Form_Load()

On Error GoTo ToExit

Dim g, ErrNum As Boolean

g = 1

Do Until ErrNum

g = g * 1024

Loop

ToExit: MsgBox “程序出现错误！” & Chr(10)& “错误类型：” & Error(Err.Number), 16

End Sub