累加求和1到100 Priv ate Su b Command1_Click() Dim i As Integer, su m As Integer su m = 0 For i = 1 To 100 su m = su m + i Nex t Tex t1.Tex t = su m End Su b Priv ate Su b Command2_Click() End End Su b 1到100的奇数和 Priv ate Su b Command1_Click() Dim i As Integer, su m As Integer su m = 0 For i = 1 To 100 step 2 su m = su m + i Nex t Tex t1.Tex t = su m End Su b Priv ate Su b Command2_Click() End 求n! Private Sub Command1_Click() Dim fact As Double, n As Integer, i As Integer n = Val(Text1.Text) fact = 1 For i = 1 To n fact = fact * i Next Text2.Text = fact End Sub 计算人口 Private Sub Label1_Click() Dim p As Single, r As Single, i As Single p = 14 r = 0.012 i = 0 While p <= 20 p = p * (1 + r) i = i + 1 Wend Print: Print Print i; "年后，我国人口将达到"; p; "亿 " End Sub 累加求和1到 100 （Do while） Private Sub Command1_Click() Dim i As Integer, sum As Integer sum = 0 i = 1 Do While i <= 100 sum = sum + i i = i + 1 Loop Text1.Text = sum End Sub Private Sub Command2_Click() End End Sub （Do Until） Private Sub Command1_Click() Dim i As Integer, sum As Integer sum = 0 i = 1 Do until i >100 sum = sum + i i = i + 1 Loop Text1.Text = sum End Sub Private Sub Command2_Click() End End Sub 求平均成绩 Private Sub Command1_Click() Dim a As Single, b As Single, c As Single, d As Single Dim pj As Single a = 60: b = 70: c = 80: d = 90 pj = (a + b + c + d) / 4 Text1.Text = Str(pj) End Sub 成绩鉴定 Private Sub Command1_Click() Dim x As Single x = Text1.Text If x >= 90 Then Text2.Text = "优秀" ElseIf x >= 80 Then Text2.Text = "良好" ElseIf x >= 70 Then Text2.Text = "中 " ElseIf x >= 60 Then Text2.Text = "及格" Else...
