📄 code236a.txt
字号:
Public Type Shape
ShapeType As Integer
Color As Integer
Radius As Single
Area As Single
Perimeter As Single
End Type
Public Sub Show_Structure(InShape As Shape)
Debug.Print "shape.type: ", InShape.ShapeType
Debug.Print "shape.color: ", InShape.Color
Debug.Print "shape.radius:", InShape.Radius
Debug.Print "shape.area: ", InShape.Area
Debug.Print "shape.perimeter:", InShape.Perimeter
End Sub
Public Sub Main()
Dim myCircle As Shape
myCircle.ShapeType = 0
myCircle.Color = 1
myCircle.Radius = 5#
myCircle.Area = 22# / 7# * myCircle.Radius * myCircle.Radius
myCircle.Perimeter = 2# * 22# / 7# * myCircle.Radius
Show_Structure myCircle
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -