VB怎么画圆？怎么求半径和面积？

Question

别说太复杂，因为我刚学！谢谢

Answer 1

一）vb画圆首先是确定两个点，1为中心点，2点和中心点组成一个逻辑的线段，而2点围绕1点画圆。之所以说是逻辑线段，因为没有线，只是两点距离一定。

二）2点如何画圆呢？就是利用一个循环语句，其中包括一点点画圆的语句。

三）如何一点点的画圆呢？利用数学三角函数运算。你先要学习sin csin函数。
此函数可以为1，2点以及电脑初始点3（3点应该是0度点）。123点构成了逻辑三角行。通过循环语句，利用逐步增加内部夹角从0-360°不停确定2点位置，在每次确定后print输出此点。以点成线逐步完成画圆过程。

我觉得我已经很细致的说明了，万一你还觉得太复杂，我只能说发射卫星也不是一两句话能说明白的。

Answer 2

VB提供了Circle可以用来画圆或椭圆。
如：
Private Sub Command1_Click()
Me.Circle (Me.Width / 2, Me.Height / 2), Me.Width / 4, RGB(255, 0, 0)
End Sub

知道了圆的半径相信你能求出圆的面积吧，别搞成圆的周长了哦！

Answer 3

form1.show
circle(x,y)-r 'x,y坐标，r半径
print "半径" & r
print "面积" & r^2*3.14