《学习VB循环语句之我见》由会员分享，可在线阅读，更多相关《学习VB循环语句之我见（43页珍藏版）》请在金锄头文库上搜索。
1、文档供参考，可复制、编制，期待您的好评与关注！ 学习VB循环语句之我见VB 的循环语句有 4 大类，共 8 个小类，要全部掌握这些语句，可不是简单的事。实际上，只需要掌握其中两个小类，就足够对付任何循环的情况了。下面用计算 1+2+3+.+100 来看看这 8 个循环小类的特点：Private Sub Command1_Click() Dim I As Long, S As Long 一、例子 ：For.Next 循环 For I = 1 To 100 S = S + I Next MsgBox For.Next：1+2+3+.+100 = & S二、 Do.Loop 循环例子： 在 Do 和
2、 Loop 后面不使用任何关键字，在循环体内加入判断语句退出循环 I = 0: S = 0 Do I = I + 1 If I 100 Then Exit Do S = S + I Loop MsgBox Do.Loop：1+2+3+.+100 = & S例子：在 Do 后面使用 While 关键字I 小于 100 就进入循环 I = 0: S = 0 Do While I 100 I = I + 1 S = S + I Loop MsgBox Do While：1+2+3+.+100 = & S例子：在 Loop 后面使用 While 关键字I 不是小于 100 就退出循环（不论 I 的值是
3、多少，循环体至少会执行一次） I = 0: S = 0 Do I = I + 1 S = S + I Loop While I 100 S = S + I I = I + 1 Loop MsgBox Do Until：1+2+3+.+100 = & S例子：在 Loop 后面使用 Until 关键字I 大于 100 就退出循环（不论 I 的值是多少，循环体至少会执行一次） I = 0: S = 0 Do S = S + I I = I + 1 Loop Until I 100 MsgBox Loop Until：1+2+3+.+100 = & S三、While.Wend 循环例子：I 小于 1
4、00 就执行循环，与例子 Do While I 100 完全相同 I = 0: S = 0 While I 100 I = I + 1 S = S + I Wend MsgBox While.Wend：1+2+3+.+100 = & S四、例子：Goto 语句 I = 0: S = 0Mark1: I = I + 1 S = S + I If I = B + 0.5 Then B = B + 1 Text2.Text = BEnd Sub2. VB如何在自己的程序中弹出新网页用 WebBrowser 做的浏览器，当使用右键菜单“在新窗口中打开”，或单击网页链接弹出新网页时，不是弹出自己程序的浏
5、览器窗口，而是一个新的IE窗口。如何在自己的程序中弹出新网页，下面的方法能解决这个问题。在菜单“工程部件”中勾选： Microsoft Internet Controls，然后在控件工具栏中找到控件 WebBrowser（图标像一个地球），在窗体放一个控件：WebBrowser1，将下面代码复制到 Form1 中。方法1：Private WithEvents V1 As WebBrowser_V1Private Sub Form_Load() Set V1 = WebBrowser1.Object WebBrowser1.Navigate http:/End SubPrivate Sub V1
6、_NewWindow(ByVal URL As String, ByVal Flags As Long, ByVal TargetFrameName As String, PostData As Variant, ByVal Headers As String, Processed As Boolean) 注意：WebBrowser1_NewWindow2 过程中不能放任何代码，否则不会触发此事件 Dim NewWin As New Form1 注意浏览器主窗口名称，我用的是默认名称：Form1 Processed = True 阻止弹出 IE NewWin.Show NewWin.WebBr
7、owser1.Navigate URL 在自己的程序中的新窗口显示弹出网页End Sub方法2：Private Sub Form_Load() WebBrowser1.Navigate http:/End SubPrivate Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean) Dim NewWin As New Form1 Cancel = True 表示取消弹出新窗口 DSet ppDisp = NewWin.WebBrowser1.Object NewWin.ShowEnd Sub方法 2 的缺点是：当单击右键菜
8、单“打开”，希望在本窗口打开网页时，仍然会弹出新窗口3. 清除列表框的重复数据首先，在属性窗口设置 List1 的 Sorted 属性为 True，即 List1 是自动排序的。 Private Sub Command1_Click() Dim nStr As String nStr = List1.List(List1.ListCount - 1) For I = List1.ListCount - 2 To 0 Step -1 If List1.List(I) = nStr Then List1.RemoveItem I Else nStr = List1.List(I) End If N
9、extEnd SubForm 窗体对象、Forms() 集合 Forms 集合在所有装载的窗体之间迭代 Forms(index) index 所在处是一个整数，变化范围从 0 到 Forms.Count - 1。 =form的属性= ActiveControl 活动控件（只读） 无论窗体是否是活动的 ？如果在窗体上的所有控件都是不可见的或不可使用的，那么将产生一个运行时错误。 Appearance 绘图风格（只读） 0 平面， 1（缺省值） 3D AutoRedraw 自动重绘tf - BackColor 背景颜色 当BackStyle 属性的设置值为 0（透明）时有效 ForeColor 前
10、景颜色 BorderStyle 边框样式，对 Form 对象和 Textbox 控件在运行时是只读的。 vbBSNone 无（没有边框或与边框相关的元素）。 vbFixedSingle 固定单边框。可以包含控制菜单框，标题栏 ，最大化按钮，和最小化按钮。 ？只有使用最大化和最小化按钮才能改变大小。 vbSizable 可调整的边框。可以使用设置值1列出的任何可选边框元素重新改变尺寸。（缺省） vbFixedDouble 固定。可以包含控制菜单框和标题栏，不能包含最大化和最小化按钮，不能改变尺寸 vbFixedToolWindow 固定。显示关闭按钮并用缩小的字体显示标题栏。任务条中不显示。 v
11、bSizableToolWindow 可变大小。显示关闭按钮并用缩小的字体显示标题栏。任务条中不显示。 ？将 BorderStyle 设置为0就会删除边框。如果希望窗体有边框而没有标题栏、控制菜单框、最大 化按钮和最小化按钮，则应从窗体 Caption 属性中删除任何文本，同时将窗体的 ControlBox、 MaxButton 和 MinButton 属性设置为 False。 MaxButton 是否有最大化按钮 （BorderStyle 属性非值有效） MinButton 是否有最小化按钮。（BorderStyle 属性非值有效） ControlBox 控制菜单框是（T缺省值）否在窗体中显示。在运行时为只读。 ShowInTask
