Private Sub RunScript(ByVal x As List(Of Double), ByVal y As List(Of Double), ByRef A As Object)
'your code goes here…
Dim Points As New List( Of On3dPoint )
For Each xx As Double In x
For Each yy As Double In y
Dim newPt As New On3dPoint()
newpt.x = xx
newpt.y = yy
newpt.z = 0
points.Add(newpt)
Next
Next
A = points
End Sub作者: attention412 时间: 2010-4-12 20:44
恩,,如何写循环数列呢?能给个VB的例子啊?比如An=(An-1)+2作者: attention412 时间: 2010-4-12 20:45
恩,,如何写循环数列呢?能给个VB的例子啊?比如An=(An-1)+2作者: wikii 时间: 2010-4-13 06:38
Private Sub RunScript(ByVal x As Integer, ByVal y As Integer, ByRef A As Object)
'your code goes here…
Dim n As Int16
Dim re As Int64
Dim lst As New List(Of Int64)
re = x
For n = 0 To y - 1
lst.add(x)
x = (x - 1) * 2
Next
a = lst
End Sub作者: marcowoo 时间: 2010-6-2 01:20 本帖最后由 marcowoo 于 2010-6-2 01:31 编辑