code237a.txt

来自「VB大全（精华版）源代码」· 文本 代码 · 共 39 行

Public Type Shape
  ShapeType As Integer
  Color As Integer
  Radius As Single
  Area As Single
  Perimeter As Single
End Type

Public Sub Change_Structure(ByRef ChgShape As Shape)
 ChgShape.ShapeType = 0
 ChgShape.Color = 1
 ChgShape.Radius = 5#
 ChgShape.Area = 22# / 7# * ChgShape.Radius * ChgShape.Radius
 ChgShape.Perimeter = 2# * 22# / 7# * ChgShape.Radius
End Sub

Public Sub Main()
  Dim myShape As Shape

  myShape.ShapeType = 1
  myShape.Color = 2
  myShape.Radius = 0
  myShape.Area = 40
  myShape.Perimeter = 26
  Debug.Print "Before Subroutine:"
  Debug.Print "shape.type: ", myShape.ShapeType
  Debug.Print "shape.color: ", myShape.Color
  Debug.Print "shape.radius:", myShape.Radius
  Debug.Print "shape.area: ", myShape.Area
  Debug.Print "shape.perimeter:", myShape.Perimeter
  Change_Structure myShape
  Debug.Print "After Subroutine:"
  Debug.Print "shape.type: ", myShape.ShapeType
  Debug.Print "shape.color: ", myShape.Color
  Debug.Print "shape.radius:", myShape.Radius
  Debug.Print "shape.area: ", myShape.Area
  Debug.Print "shape.perimeter:", myShape.Perimeter
End Sub