用VB画出同心圆

来源：学生作业帮助网 编辑：作业帮 时间：2024/05/02 19:22:37
用VB画出同心圆

用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布尔表达式表示~