📄 code238a.txt
字号:
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
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -