1、 1 Label1 100 100 Private Sub Form_Click() Dim i As Integer i Dim s As Integer s 100 100 s = 0 For i = 2 To 100 Step 2 s = s+i Next i Label1.Caption = Str(s) End Sub 2 Text1 “ “ Text2 Private Sub Command1_Click() Const pi = 3.14 Dim c As Single c Dim r As Single r r = Val(text1.text) c = pi *2*r tex
2、t2.text = c End Sub s=1!+2!+3!+8! Private Sub Form_Click() Dim s As Single s Dim p As Single Dim i As Integer s s = 0 p p = 1 For i = 1 To 8 p = p * i s =s+p Next i Print “s=“; s End Sub 1+2+3+N500 N Text1 Private Sub Form_Click() Dim s As Integer s Dim n As Integer s s = 0 n n =0 Do n = n + 1 s = s
3、 + n Loop While s Then Label1.Caption = “ “ Else Label1.Caption = “ “ End if End Sub 1+2+3+N= 60 And Cj = 85 Then Label1.Caption = “ “ End If End Sub 2005 2000 5% Private Sub Form_Click() Dim p As Single p Dim n As Integer n P=2000 n = 0 Do While p 0 Then s = s + 1 / i Else s = s-1/i End If Next i P
4、rint “s=“; s End Sub 1+1/2+1/3+1/4.+1/99+1/100 Private Sub Form_Click() Dim s As Single s Dim i As Integer s = 0 For i = 1 To 100 Step 1 s = s +1/ i Next i Print “s=“; s End Sub “ 1+2+3+100“ Text1 1+2+3+100 Private Sub Command1_Click() Dim a As Integer Dim i As Integer a =0 For i = 1 To 100 Step 1 a
5、 = a+i Next i Text1.Text = Str(4) End Sub “ “ 10 0 100) a 10 Private Sub Command1_Click() Dim a(9) As Integer Dim s As Single Dim i As Integer Me.Cls s = 0 Randomize For i = 0 To 9 Step 1 a(i) = Int(Rnd * 100) Print a(i) Next i For i = 0 To 9 s = s+a(i) Next i Print “ 10 =“; s / 10 End Sub * * * * P
6、rivate Sub Form_Click() Dim i As Integer Dim j As Integer For i = 4 To 1 Step -1 For j = 1 To i Step 1 Print “*“; Next j print Next i End Sub 100 40 ? Private Sub Form_Click() Dim Ji As Integer Ji Dim Tu As Integer Tu Dim Leg As Integer Leg For Ji = 1 To 40 Tu = 40-ji Leg = ji*2 + Tu * 4 100 If Leg
7、= 100 Then Print “ =“; Ji; “ “, “ =“; Tu; “ “ End If Next Ji End Sub “ “ Private Sub Command1_Click() Dim i As Integer i Dim j As Integer j For i = 1 To 6 Step 1 For j = 1 To I Step 1 Print “ ; Next j Print Next i End Sub “ “ Text1 Text2 x y Private Sub Command1_Click() Dim x, y As Integer x = 10 y
8、= 100 If x 0 Then a 0 d =b2-4*a*c If d = 0 Then x1 = (-b + Sqr(d) / (2 * a) x2 = (-b - Sqr(d) / (2 * a) Label1.Caption = Str(x1) Label2.Caption = Str(x2) Else Label3.Caption = ” ” End If End If End Sub * * * * * Private Sub Form_Click() Dim i As Integer i Dim j As Integer j For i = -2 To 2 For j = 1
9、 To 3 - abs(i) Print “*”; Next j Print Next i End Sub s=1!+2!+3!+8! Private Sub Form_Click() Dim s As Single s Dim p As Single Dim i As Integer s s =0 p p =1 For i = 1 To 8 p = p * i s =s+p Next i Print “s=“; s End Sub “ 1+2+3+100“ Text1 1+2+3+100 Private Sub Command1_Click() Dim a As Integer Dim i As Integer a = 0 For i = 1 To 100 Step 1 a = a+i Next i Text1.Text = Str(a) End Sub
