3道大学VB题求大神解答^_^

1.

Private Sub Form_Click()

  Dim n As Integer

  n = InputBox("n=")

  For i = 0 To n

    s = s + 1 / 2 ^ i

  Next i

  Print "Sum(1 To " n & ")=" s

End Sub

2.

Private Sub Form_DblClick()

  Dim n As Integer

  n = InputBox("n=")

  For i = 1 To n

    s = s + 1 / 2 ^ i

  Next i

  Print "Sum(1 To " n & ")=" s

End Sub

3.

Dim a(1 To 30) As Integer

Private Sub Command1_Click()

  Randomize (Timer)

  For i = 1 To 30

    a(i) = Int(Rnd(i) * 200 + 1)

    Text1.Text = Text1.Text + CStr(a(i)) + Space(1)

  Next i

End Sub

Private Sub Command2_Click()

  For i = 1 To 30

    If a(i) Mod 2 = 1 Then

      k = k + 1

      Text2.Text = Text2.Text + CStr(a(i)) + Space(1)

    End If

  Next i

End Sub

Private Sub Command3_Click()

  End

End Sub

1： A

2：BCD

3：B

4：ABC

5：ABCDE

6：ABD

7：ACD

8：AD

9：AC

10：BCD

---