急!高分求救数组排序问题!!请高手帮忙!

Question

x=1 to 100
y=2*x*sinx
z=2*x*cosx
将Y,Z的所有(非分别)结果按照从小到大的顺序排列,并去掉超过X的部分后显示到TEXT1.TEXT中.

Answer 1

Private Sub Command1_Click()
Dim all(1 To 200), y, z, Temp As Double'求值
Dim s As String
For x = 1 To 100
y = 2 * x * Sin(x)
z = 2 * x * Cos(x)
all(x) = y
all(x + 100) = z
Next'冒泡排序
For i = 1 To 199
    For j = i + 1 To 200
        If all(i) > all(j) Then
        Temp = all(j)
        all(j) = all(i)
        all(i) = Temp
        End If
    Next
Next
    
'生成文本
For k = 1 To 200
s = s + Str(all(k)) + ","
Next
Text1.Text = sEnd Sub