第2个回答 2008-04-27
Private Sub Command1_Click()
Dim i As Integer, a(9), x, y, z, w
y = 1
For i = 0 To 9
a(i) = Rnd
x = x + a(i)
y = y * a(i)
z = z + a(i) * a(i)
Next
w = x * x
MsgBox "和=" & x & vbCrLf & "积=" & y & vbCrLf & "平方和=" & z & vbCrLf & "和平方=" & w
End Sub