VB循环结构程序设计

代码如下： Private Sub Command1_Click()

Dim i As Integer

Dim strText As String

Dim Char As String

Dim n1 As Integer, n2 As Integer, n3 As Integer

strText = Text1.Text

For i = 1 To Len(strText)

Char = Mid$(strText, i, 1)

If "0" <= Char And Char <= "9" Then

n1 = n1 + 1

ElseIf ("A" <= Char And Char <= "Z") Or ("a" <= Char And Char <= "z") Then

n2 = n2 + 1

Else

n3 = n3 + 1

End If

Next

Text2.Text = n1

Text3.Text = n2

Text4.Text = n3

End Sub

do while i>1          '当i>1的时候，循环体开始执行

i=i+1                    ‘每次让i增加一个单位

if i>20 then          ’增加i后判断i是否大于20

exit do                 ‘如果大于20，则跳出循环（exit do)

end if                  '不是，则绕出判断语句，继续执行循环

loop                    ’循环往复

Visual Basic（简称VB）是Microsoft公司开发的一种通用的基于对象的程序设计语言，为结构化的、模块化的、面向对象的、包含协助开发环境的事件驱动为机制的可视化程序设计语言。是一种可用于微软自家产品开发的语言。

“Visual” 指的是开发图形用户界面 (GUI) 的方法——不需编写大量代码去描述界面元素的外观和位置，而只要把预先建立的对象add到屏幕上的一点即可。“Basic”指的是 BASIC (Beginners All-Purpose Symbolic Instruction Code) 语言，是一种在计算技术发展历史上应用得最为广泛的语言。

Visual Basic源自于BASIC编程语言。VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建Active X控件，用于高效生成类型安全和面向对象的应用程序。程序员可以轻松的使用VB提供的组件快速建立一个应用程序。

For...Next 语句

描述

以指定次数重复执行一组语句。

语法

For counter = start To end [Step step]

[statements]

[Exit For]

[statements]

Next

For...Next 语句的语法包含以下部分：

部分 描述

counter 用做循环计数器的数值变量。这个变量不能是数组元素或用户自定义类型的元素。

start counter 的初值。

end counter 的终值。

step counter 的步长。如果没有指定，则 step 的默认值为 1。

statements For 和 Next 之间的一条或多条语句，将被执行指定次数。

说明

step 参数可以是正数或负数。step 参数值决定循环的执行情况，如下所示：

值 如果 ... 则循环执行

正数或 0 counter <= end

负数 counter >= end

当循环启动并且所有循环中的语句都执行后，step 值被加到 counter 中。这时，或者循环中的语句再次执行（基于循环开始执行时同样的测试），或者退出循环并从 Next 语句之后的语句继续执行。

--------------------------------------------------------------------------------

提示 在循环中改变 counter 的值，将会使程序代码的阅读和调试变得更加困难。

--------------------------------------------------------------------------------

Exit For 只能用于 For Each...Next 或 For...Next 结构中，提供另一种退出循环的方法。可在语句中的任意位置放置任意个 Exit For 语句。Exit For 经常和条件判断语句一起使用（例如 If...Then），并立即将控制权转移到 Next 之后的语句。

可以将一个 For...Next 循环放置在另一个 For...Next 循环中，组成嵌套循环。每个循环中的 counter 要使用不同的变量名。下面的结构是正确的：

For I = 1 To 10

For J = 1 To 10

For K = 1 To 10

. . .

Next

Next

Next

---