code238a.txt

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

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

Public Sub Main()
  Dim MyCircle As Shape

  MyCircle.ShapeType = 0
  MyCircle.Color = 1
  MyCircle.Radius = 5.0
  MyCircle.Area = 78.37
  MyCircle.Perimeter = 31.42
  Debug.Print "shape.type: ", MyCircle.ShapeType
  Debug.Print "shape.color: ", MyCircle.Color
  Debug.Print "shape.radius:", MyCircle.Radius
  Debug.Print "shape.area: ", MyCircle.Area
  Debug.Print "shape.perimeter:", MyCircle.Perimeter
End Sub