利用For循环结构显示1000以内的所有能被37整除的自然数。设计步骤如下：(1)窗体界面的设计与属性设置。(2)编写代码。编写命令按钮的Click事件代码：PrivateSubCommand1_Click()a=""Forn=1To1000IfnMod37=0Thena=a&Str(n)&vbCrLfEndIfNextText1.Text=aEndSubDo…Loop结构当不知道循环的次数的时候，或者在循环次数不确定的情况下，就不能再用For循环结构来实现程序的设计了，VisualBasic中提供了一个这样的结构，这就是Do…Loop结构。这种结构有两种不同的形式，下面分别讲解。DoWhile…Loop结构这种形式是首先判断条件是否满足，然后根据条件来决定是否执行后面的语句（循环体）。这种结构的语法形式为：循环结构程序设计的概念Do…Loop语句前测型Do…Loop循环其语法为Do[{While|Until}〈条件〉][〈语句列1〉][ExitDo][〈语句列2〉]Loop求累加和1+2+3+…+100（如）。后测型Do…Loop循环其语法为Do[〈语句列1〉][ExitDo][〈语句列2〉]Loop[{While|Until}〈条件〉]输入有效数字的位数，利用下述公式计算圆周率π的近似值：F设计步骤如下：(1)建立应用程序用户界面与设置对象属性。(2)编写程序代码。根据流程图，可以写出命令按钮Command1的Click事件代码为PrivateSubCommand1_Click()DimmAsIntegerm=Val(Text1.Text)p=0#:s=2#:e=0.1^mDot=s:p=Sqr(2+p):s=s*2/pLoopUntilAbs(t–s)<0.1^mf=String(m–1,"#")Text2.Text=Format(s,"0."&f)Text1.SetFocusEndSub文本框Text1的GotFocus事件代码：PrivateSubText1_GotFocus()Text1.SelStart=0Text1.SelLength=Len(Text1.Text)EndSub循环的嵌套在循环结构中的循环体是一个循环结构时，就称这种结构是一个循环的嵌套结构，循环的嵌套结构一共有下列几种：Do…Loop循环结构中嵌套Do…Loop循环结构，Do…Loop循环结构中嵌套For循环结构，For循环结构中嵌套Do…Loop循环结构，For循环结构中嵌套For循环结构。对于Do…Loop循环结构来说又有四种结构，也就是说嵌套结构中可以进行多次嵌套，并且各种不同的嵌套结构都可以出现在循环体中。至于各种循环嵌套结构的程序流程图，这里不再给出，实际上就是几种循环结构的单个流程图的组合，将原来的流程图中的循环体语句块改成一个或几个循环结构就可以了。利用两个For循环的嵌套结构来实现该程序。下面是该程序的代码和运算界面：PrivateSubForm_Click()ClsPrintFori=1To9Forj=1Toim=i*jPrintSpace(3);i;"*";j;"=";Ifm<10Then‘这一段是为了使程序能够打印出整齐的表来Print"";m;ElsePrintm;EndIfNextjPrintNextiEndSub几个辅助控制语句在VisualBasic中还提供了一些辅助控制语句，这些辅助控制语句有：GoTo语句：GoTo语句是一个无条件转移语句，使程序无条件地转移到指定的位置，其语法结构如下：GoTo{行号|标号}注意：GoTo语句只能在同一事件过程或同一个函数，过程（函数和过程的概念在第十章中介绍）中进行转移，而不能在不同的事件过程或函数中转移，而且只能转移到行号或者标号处，标号是一个字符序列，首字符必须为字母，大小写无关，任何一个转移到的标号后面必须要有冒号（：），行号则是一个数字序列，在过去的Basic中常用行号，在VisualBasic中，很少使用行号了。以前的Basic中，GoTo语句使用的频率很高，编制出来的程序称为是BS程序（BowlofSpaghettiProgramming），由于这种程序结构不很清晰，所以可读性很差。在现在的结构化程序设计中，尽量不用这种结构，尽可能地用循环结构或者选择结构来代替。这样可以增强程序的可读性。求100以内的素数。下面是计算按钮的代码：PrivateSubCommand1_Click()DimiAsIntegerStaticmAsIntegerForm=2To100Fori=2Tom–1‘从2开始进行整除运算