43 语句循环语句 课件（59张幻灯片）

Do while num<=10

Print num

Num=num+1

Loop End subPrivate sub Form_click()

num=1

Do

Print num

Num=num+1

Loop while num<=10 End subS=1+2+3+……+100Private Sub Form_Click() Dim i As Integer ‘i为累加数 Dim sum As Integer ‘sum为累加和 i =1 sum = 0 Do While i <= 100 sum = sum + i i = i + 1 Loop Print sum End SubS=1+2+3+……+100Private Sub Form_Click() Dim i As Integer Dim sum As Integer i = 1 sum = 0 Do sum = sum + i i = i + 1 Loop While i <= 100 Print sum End SubDo Loop之“直到”循环形式1:

转载请注明出处！本文地址：https://www.docer.com/preview/23165302