7,762
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
resumestd 2005-10-28
- 打赏
- 举报
问题的关键在与 用什么函数 来实现在指定的 位置输出*
请教！！
请教！！
resumestd 2005-10-28
- 打赏
- 举报
楼上的兄弟强啊 ，
对啊 用 currentx, currenty 就可以了
对啊 用 currentx, currenty 就可以了
resumestd 2005-10-28
- 打赏
- 举报
楼上的兄弟强啊 ，
对啊 用 currentx, currenty 就可以了
对啊 用 currentx, currenty 就可以了
northwolves 2005-10-28
- 打赏
- 举报
Private Sub Form_Load()
Dim i As Integer
Dim degree As Single
Me.Move 0, 0, 5000, 6000
Me.AutoRedraw = True
Me.Scale (-1.1, -1.1)-(1.1, 1.1)
degree = Atn(1) / 45
For i = 1 To 360 Step 3
CurrentX = Cos(i * degree)
CurrentY = Sin(i * degree)
Print "*"
Next
End Sub
Dim i As Integer
Dim degree As Single
Me.Move 0, 0, 5000, 6000
Me.AutoRedraw = True
Me.Scale (-1.1, -1.1)-(1.1, 1.1)
degree = Atn(1) / 45
For i = 1 To 360 Step 3
CurrentX = Cos(i * degree)
CurrentY = Sin(i * degree)
Print "*"
Next
End Sub
jack20042005 2005-10-27
- 打赏
- 举报
那是角度
需要循环给值 从0到360
需要循环给值 从0到360
chenyanlin 2005-10-27
- 打赏
- 举报
兄弟 没搞出来， 能不能在详细点呀 我菜鸟哦
alpha 什么东西来得 我还没看见过呢
alpha 什么东西来得 我还没看见过呢
sjtuyjc 2005-10-27
- 打赏
- 举报
x=x0+R*cos(alpha)
y=y0+R*sin(alpha)
form.print
y=y0+R*sin(alpha)
form.print
