vb选择语句

第1篇：vb选择语句

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。

第2篇：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:vbiblio.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 不可能包含用户自定义类型。

第3篇：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