用VB画出同心圆

来源：学生作业帮助网编辑：六六作业网时间：2025/01/12 07:13:26

用VB画出同心圆用VB画出同心圆用VB画出同心圆OptionExplicitPrivateSubForm_Load()PaintOnFormMeEndSubPublicFunctionPaintOnF

用VB画出同心圆
用VB画出同心圆

用VB画出同心圆
Option Explicit
Private Sub Form_Load()
PaintOnForm Me
End Sub
Public Function PaintOnForm(f As Form)
Dim i As Integer,b As Boolean
i = f.ScaleMode
b = f.AutoRedraw
f.ScaleMode = 3
f.AutoRedraw = True
f.Circle (100,100),50
f.Circle (100,100),80
f.AutoRedraw = b
f.ScaleMode = i
f.Refresh
End Function
Public Function PaintOnPic(p As PictureBox)
Dim i As Integer,b As Boolean
i = p.ScaleMode
b = p.AutoRedraw
p.ScaleMode = 3
p.AutoRedraw = True
p.Circle (100,100),50
p.Circle (100,100),80
p.AutoRedraw = b
p.ScaleMode = i
p.Refresh
End Function
'如果在PictureBox上画就用第二个函数

用VB画出同心圆 vb同心圆要求：15个同心圆同心圆家谱好不好用? ps中怎么画出两个同心圆,我想选区同心圆外围的圆环怎么在word里面画出两个或者多个同心圆? 请问怎样在PS中画出两个同心圆? 用VB怎么根据函数画出图形?VB上我们想根据已有函数画出图形基本上有点像一个圆又不是想画出来各位哥哥姐姐仁兄阿姨帮帮忙了啊! 用visio如何画同心圆? 怎么用matlab画同心圆椭圆用不同的画法,如同心圆法或四心近似发,画出的同一长轴与短轴的椭圆是否一致? 如何用VB画出二次函数图像和波长图像 VB编程:利用circle方法绘随机产生颜色各异的同心圆,最大圆半径不超过1000 一个物体的俯视图是两个同心圆,说出物体的一种可能形状,并画出图 VB 用*表示金字塔 vb怎么用单引号 word中,如何画两个同心圆与三个同心圆word中,如何画两个距离相等的同心圆与三个距离相等的同心圆,且两个图形的最外圈相等,而且“同心圆”的心也画出来.使用ppt,excel,画图软件也可以. 如何在C和VB中实现智能读取用户输入的数学函数表达式并画出函数图我是一个C语言和VB的初学者,我想用C和VB分别做一个画数学函数的程序,但是总是没办法让程序智能的把用户输入的函数表 VB:A大于等于C 用VB布尔表达式表示~