VB工程--百例47--球体.

概述Option Explicit Private Sub Form_Activate()         pic1.Circle (pic1.ScaleWidth / 2, pic1.ScaleHeight / 2), _         pic1.ScaleHeight / 2         园         pic1.Circle (pic1.ScaleWidth / 2, pic1.Sca

Option Explicit

Private Sub Form_Activate()
pic1.Circle (pic1.ScaleWIDth / 2,pic1.ScaleHeight / 2),_
pic1.ScaleHeight / 2 园
pic1.Circle (pic1.ScaleWIDth / 2,_
pic1.ScaleHeight / 2, 0.5水平椭圆
pic1.Circle (pic1.ScaleWIDth / 2,1.5垂直椭圆

End Sub

成品图

总结

以上是内存溢出为你收集整理的VB工程--百例47--球体.全部内容，希望文章能够帮你解决VB工程--百例47--球体.所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。