早教吧作业答案频道 -->数学-->
在vb中将一个圆分成60份画出他的节点帮忙看下那错了最好有一个给过的结果PrivateSubFormActivate()Dimr,x,y,x0,y0,x2,y2DimnAsIntegerx=3480:y=2640Forn=0To59Line(1500*Sin(6*n)+x,1500*Cos(6*n)+y)
题目详情
在vb中将一个圆分成60份 画出他的节点 帮忙看下那错了 最好有一个给过的结果
Private Sub Form_Activate()
Dim r,x,y,x0,y0,x2,y2
Dim n As Integer
x = 3480:y = 2640
For n = 0 To 59
Line (1500 * Sin(6 * n) + x,1500 * Cos(6 * n) + y)-(1400 * Sin(6 * n) + x,1400 * Cos(6 * n) + y)
Next n
End Sub
Private Sub Form_Activate()
Dim r,x,y,x0,y0,x2,y2
Dim n As Integer
x = 3480:y = 2640
For n = 0 To 59
Line (1500 * Sin(6 * n) + x,1500 * Cos(6 * n) + y)-(1400 * Sin(6 * n) + x,1400 * Cos(6 * n) + y)
Next n
End Sub
▼优质解答
答案和解析
三角函数用的是弧度
Private Sub Form_Activate()
Dim r,x,y,x0,y0,x2,y2
Dim n As Integer
x = 3480:y = 2640
Dim pi As Double
pi = 3.14159265 / 180
For n = 0 To 59
Line (1500 * Sin(6 * n * pi) + x,1500 * Cos(6 * n * pi) + y)-(1400 * Sin(6 * n * pi) + x,1400 * Cos(6 * n * pi) + y)
Next n
End Sub
Private Sub Form_Activate()
Dim r,x,y,x0,y0,x2,y2
Dim n As Integer
x = 3480:y = 2640
Dim pi As Double
pi = 3.14159265 / 180
For n = 0 To 59
Line (1500 * Sin(6 * n * pi) + x,1500 * Cos(6 * n * pi) + y)-(1400 * Sin(6 * n * pi) + x,1400 * Cos(6 * n * pi) + y)
Next n
End Sub
看了在vb中将一个圆分成60份画出...的网友还看了以下:
f(1,1)=1f(m,n)=N*(m,n)=N*任意m,n=N*有f(m,n+1)=f(m,n)+ 2020-03-30 …
,;定义在正整数集f(x)对任意m,n,都有f(m+n)=f(m)+f(n)+4(m+n)-2,且 2020-05-13 …
定义映射f:A→B,其中A={(m,n)|m,n∈R}接着 B=R,已知对所有的有序正整数对(m, 2020-05-16 …
已知函数f(x)的定义域为R,对任意实数m,n,满足f(1/2)=2,且f(m+n)=f(m)+f 2020-06-03 …
一道高一水平的数学体,具体如下:函数y=f(x)定义在R上,当x>0时,f(x)>1,且对任意m, 2020-06-05 …
设函数y=f(x)定义在R上,当x>0时,f(x)>1,且对任意m,n∈R,有f(m+n)=f(m 2020-06-16 …
不等式的证明设m,n为正整数,f(n)=1+1/2+1/3+.+1/n,证明(1)若n>m,则f( 2020-07-16 …
在f(m,n)中,.m.n.f(m,n)均为非负整数且对任意的m,n有f(0,n)=n+1,f(m 2020-07-31 …
定义在R上的函数f(x)满足:f(m+n)=f(m)+f(n)-2对任意m,n∈R恒成立,当x>0时 2020-12-08 …
已知函数f(x)的定义域R,对任意实数m,n都有f(m+n)=f(m)×f(n),且当x>0时.0< 2020-12-08 …