求一个vb绘图程序,将一个圆周16等分,每个等分点标记成数字0-16,具体联系594227686

来源:学生作业帮助网 编辑:六六作业网 时间:2024/11/17 13:45:34
求一个vb绘图程序,将一个圆周16等分,每个等分点标记成数字0-16,具体联系594227686求一个vb绘图程序,将一个圆周16等分,每个等分点标记成数字0-16,具体联系594227686求一个v

求一个vb绘图程序,将一个圆周16等分,每个等分点标记成数字0-16,具体联系594227686
求一个vb绘图程序,将一个圆周16等分,每个等分点标记成数字0-16,具体联系594227686

求一个vb绘图程序,将一个圆周16等分,每个等分点标记成数字0-16,具体联系594227686

Private Sub Command2_Click()

 Dim x As Double, y As Double, ang     As Double

 Dim i As Integer, r As Integer

 Const Pi As Single = 3.14

 Me.ScaleMode = vbPixels

 x = (Me.ScaleWidth - 20) / 2

 y = (Me.ScaleHeight - 20) / 2

 r = (Me.ScaleHeight - 40) / 2

 Circle (x, y), r

 

 For i = 1 To 16 Step 1

  ang = (i / 16) * 2 * Pi '转换成弧度

  Line (x, y)-(x + r * Cos(ang), y + r * Sin(ang)), vbRed

  Me.Print i

 Next

End Sub

求一个vb绘图程序,将一个圆周16等分,每个等分点标记成数字0-16,具体联系594227686 仅用圆规将一个圆周四等分 将一个圆沿着它的半径分成16等分,可以拼成一个近似的三角形.如果将这个圆沿着它的半径分成64等分,此时拼成的近似三角形的底相当于这个圆周长的( ) 把一个圆周16等分,每份是一个多少度的角? 怎么将圆周十二等分 用等分圆周的方法画一个正五角星形 一个圆分成16等分,求快 在一个圆周上有6个点,正好将圆周6等分.以这些顶点作三角形,可以做出多少个等腰三角形? 在一个圆周上有7个点,正好将圆周七等分,以这些点为顶点,作三角形,一共可以做几个等腰三角形?急 如何将一个角五等分 用VB编一个程序,求从1至100的自然数的和 编写一个vb程序,输入两个正整数,求他们的最大公约数和最小公倍数,谢谢! 将一圆周长光用圆规分成4等分..郁闷.想了一天.仅剩的脑细胞也不见了..中国就这么少了一个栋梁之才啊~... 要把一个圆周n等分,只要把周角n等分即可,每一个圆心角的度数是? 一个圆周长分成五等分,那么他每一等分的弧所对的弦长度是多少? VB 编写程序,请用户输入一个自然数N,求前N个质数,并将其存放一个数组中(质数是除了1和本身之外没有其他约数的数,第一个质数是2) VB 编写程序,请用户输入一个自然数N,求前N个质数,并将其存放一个数组中.(质数是除了1和本身之外没有其他约数的数,第一个质数是2) 求VB小程序!设计一个VB小程序,给定三角形任意两边的长度,和夹角的度数,求三角形的面积.S=absinα求VB小程序!设计一个VB小程序,给定三角形任意两边的长度,和夹角的度数,求三角形的面积.S=absin