请高手帮忙编个程序！！

Question

for k=0 to 1 step 0.1
  y=2*k*k-k
next k再用排序方法,然后取最大值

Answer 1

dim y(10)as singlefor k=0 to 1 step 0.1
  y(k)=2*k*k-k
next k将Y排序

Answer 2

Dim x As Single, y As Single, Miny As Single, Maxy As SingleFor x = 0 To 1 Step 0.1
    y = 2 * x * x - x
    If x = 0 Then
        Miny = y
        Maxy = y
    Else
        If y > Maxy Then Maxy = y
        If y < Miny Then Miny = y
    End If
Next x
Me.Print "Maxy="; Maxy
Me.Print "Miny="; Miny

Answer 3

Dim x As Single, y As Single, Min As Single, Max As SingleMax=-3.402E38
Min=3.402E38
 
For x = 0 To 1 Step 0.1
    y = 2 * x * x - x
        If y > Maxy Then Maxy = y
        If y < Miny Then Miny = y
Next x
Me.Print "Max ="; Max
Me.Print "Min ="; Min 

Answer 4

If y > Maxy Then Maxy = y
If y < Miny Then Miny = y
sorry
这两句应该是：
If y > Max Then Max = y
        If y < Min Then Min = y

Answer 5

快速排序算法（以前看一本《数据结构》的书，看到个C++的递归程序，顺手就就改成VB的了，连注释也懒得写：）：
Function Kspxd(r() As Integer, t As Integer, w As Integer)
Dim i As Long, j As Long, k As Long
i = t
j = w
x = r(i)
Do
  Do While (r(j) >= x) And (j > i)
    j = j - 1
    DoEvents
  Loop
  If i < j Then
    r(i) = r(j)
    i = i + 1
  End If
  Do While (r(i) <= x) And (j > i)
    i = i + 1
    DoEvents
  Loop
  If i < j Then
    r(j) = r(i)
    j = j - 1
  End If
  DoEvents
Loop While i < j
r(i) = x
If j - 1 > t Then Kspxd r, t, j - 1
If j + 1 < w Then Kspxd r, j + 1, w
End Function
--------------------------------------------------------------------
欢迎使用Fantasia Photo(http://3rdapple.51.net/FantasiaPhoto.htm)
--------------------------------------------------------------------Made by Thirdapple's Studio(http://3rdapple.51.net/)