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

来源：学生作业帮编辑：拍题作业网作业帮分类：综合作业时间：2024/05/25 14:19:58

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 NextEnd Sub

求一个vb绘图程序,将一个圆周16等分,每个等分点标记成数字0-16,具体联系594227686 将圆周分成11等分和10等分,根据圆的特点可以知道,在这些等分点中,任取三个点都能构成一个三角形, 一个圆分成16等分,求快在一个圆周上有7个点,正好将圆周七等分,以这些点为顶点,作等腰三角形,一共可以做几个? 在一个圆周上有7个点，正好将圆周七等分，以这些点为顶点作三角形，可以作______个等腰三角形．在一个圆周上有6个点,正好将圆周6等分.以这些顶点作三角形,可以做出多少个等腰三角形? 用等分圆周的方法画一个正五角星形利用圆规做一个圆,再将圆周六等分,其六等分点依次为A、B、C、D、E、F,得△ABC与△BDF,并写出图中平行的线段. 将1、2、3、4、5、6、7、8这八个数字分别填于一个圆周八等分点上,使得圆周上任两个相邻位置的数字之和为质数,如果圆周有关算法程序将区间[0,10]五等分,求函数f(x)=2x-1在区间端点以及各等分点处的函数值.写出算法程序. 将1，2，3，4，5，6，7，8，这八个数分别填写于一个圆周的八等分点上，使得圆周上任意两个相邻位置的数之和为质数，如果已知一圆,周长650CM,现将其圆周13等分,也就是说,在圆周上画13个点,求两点之间的直线距离.