用VB画一个球

来源：百度知道 编辑：UC知道 时间：2024/06/23 23:00:43
画一个半径为3cm的球 要求有编程，过程最好简单点
老师的要求就是要编程序然后运行得到一个球，而不是载入一张图片

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Cls
FillStyle = 0
FillColor = &H333333
Form1.Circle (X + 520, Y + 470), 600, , , , 0.3
FillColor = &HF466C4
Form1.Circle (X, Y), 500
FillColor = &HFBF7F7
Form1.Circle (X - 250, Y - 270), 80
End Sub

画一个球还不如直接载入一幅图片简单。

"画圆简单画球难
从圆到球路茫茫
程序一写一大段
过程半点不简单"

一楼的诗不错,呵呵~~

画圆简单画球难
从圆到球路茫茫
程序一写一大段
过程半点不简单