小菜求助程序

Question

ft...两个循环体？
Private Sub Command1_Click()
   Dim d As Integer, s As Integer, n As Integer, i As Integer
   n = CInt(Text2.Text)
   d = 1
   s = 0
   For i = 1 to n
      s = s + n * d
      d = - d
   Next i
   Text1.Text = s
End Sub

Answer 1

Private Sub Command1_Click()
Dim i As Integer, s As Integer
'    Text1.Text = 3
    For i = 1 To Val(Text1.Text)
        s = s + i * (-1) ^ (i + 1)
    Next i
    Text2.Text = s
End Sub

Answer 2

应该是Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Integer, d As Integer
a = CInt(Text1.Text)
b = 1
Do While c < a
c = c + 1
d = d + b * c
b = -b
Loop
Text2.Text = d
End Sub

Answer 3

二楼的应该是手误吧，应该这样改就对了Private Sub Command1_Click()
   Dim d As Integer, s As Integer, n As Integer, i As Integer
   n = CInt(Text2.Text)
   d = 1
   s = 0
   For i = 1 to n
      s = s + i * d              '原先是 s = s + n * d 错的
      d = - d
   Next i
   Text1.Text = s
End Sub

Answer 4

hehe...的确手误。程序没有上机器调试，惭愧惭愧*^_^*