VB学习资料(10)

VB入门必备,初学者也能看懂,这篇主要是VB入门基础,但却对你深入学习理解VB有很大的帮助,10个财富值,你不亏。

While 条件 语句块 Wend

功能：当条件为真时执行循环。

【例】计算1+2+3+ +100

Private Sub Command1_Click()

Dim n As Integer, s As Integer s=0 n =1

While n<=100 s=s+n n=n+1 Wend

Lable1.Caption=“1+2++3+ +100=”& s End Sub

3．Do-Loop循环 Do 语句块 [Exit Do]

Loop [While|Until 条件]

Do [While|Until 条件] 语句块

[ Exit Do ] Loop

功能：

While 条件——当“条件”为True执行循环体。 Until 条件——“条件”为False执行循环体。 如无条件，则为死循环。 说明：

格式1：“先循环，后判断”，至少执行一次循环。

格式2：“先判断，后循环”，如条件不满足，则一次循环也不执行。 【例】计算1+2+3+ +100 s=0 n =1

Do while n<=100 s=s+n n=n+1

Loop