VB系列代码.pptVIP

求和 Private Sub Command1_Click()Dim i As Integer, s As IntegerFor i = 1 To 100s = s + 1Next iText1.Text = sEnd Sub 《循环语句一，for》 显示100 求和 Private Sub Command1_Click() Dim i As Integer, s As IntegerFor i = 1 To 100s = s + i Next i Text1.Text = sEnd Sub 《循环语句一，for》 显示5050 求和 Private Sub Command1_Click()Dim i As Integer, s As IntegerWhile i = 100??? s = s + i??? i = i + 1????Wend Text1.Text = sEnd Sub 循环语句二 while wend 求和 Private Sub Command1_Click()Dim i As Integer, s As IntegerDo Until i 100??? s = s + i??? i = i + 1Loop Text1.Text = sEnd Sub 循环语句三 do until loop 求阶乘 Priv