practice8_4.bas

来自「深圳大学的vb上机与教学的课件」· BAS 代码 · 共 17 行

Attribute VB_Name = "Module1"
Public Function f(x, y)
  f = Sqr(x ^ 2 + y ^ 2)
End Function
Public Sub s(a() As Integer, n)
  For i = 1 To n - 1
    For j = i + 1 To n
      If a(i) < a(j) Then
        t = a(i)
        a(i) = a(j)
        a(j) = t
      End If
    Next j
  Next i
End Sub