求的和。
For语句实现
Private Sub Command1_Click() Dim s As Long n = Val(Text1.Text) s = 0 For i = 1 To n s = s + i Next i Label4.Caption = Str(s) End Sub
Do While语句实现
Private Sub Command1_Click() Dim s As Long, i As Integer, n As Integer n = Val(Text1.Text) s = 0 i = 1 Do While i <= n s = s + i i = i + 1 Loop Label4.Caption = Str(s) End Sub
时间: 2024-12-06 00:47:10