问题：急！！
Private Sub Form_Load()
Dim s As String
Dim d As Integer
Dim c As String
s = "1"
d = 1
For i = 2 To 100
If i Mod 2 = 0 Then c = "-" Else c = "+"
s = s & c & i
d = d + i * (-1) ^ (i - 1)
Next
MsgBox "s=" & s & vbCrLf & "s=" & d
'显示结果：s=1-2+3-...-100
'计算结果:s=-50
End Sub
实测通过
如果你对急！！这个问题有好的意见或
建议，请留言
|
您当前的位置：
百科371 → 电脑/网络 → VB → 电脑/网络内容
退出登录 
减小字体
增大字体