程序有什么问题

dongdonggege · 发表于 2016-9-18 23:29

请问，这个程序什么问题？

Private Sub CommandButton4_Click()
Dim i As Long, x As Long, y As Long
a = 5
For i = 1 To 5
x = Sqr(2 * a * Cos(i))
y = Sqr(2 * a * Sin(i))
Next
End Sub

复制代码

无效的过程调用或参数！哪里有问题？请帮忙修改，谢谢大侠！

dafanshu1 · 发表于 2016-9-19 13:34

本帖最后由 dafanshu1 于 2016-9-19 13:37 编辑

数学问题：1弧度=180/pi 度
vba中cos和sin的参数是弧度为单位，所以cos(2)、cos(3)、cos(4)都是负数，负数的平方根当然出错了。

彩蛮蛮 · 发表于 2016-9-19 13:59

在VBA当中，所有的三角函数的参数，都是以弧度形式存在的，需要进行换算，才能够计算出正确结果的·~~

dongdonggege · 发表于 2016-9-19 21:46

本帖最后由 dongdonggege 于 2016-9-19 21:48 编辑

dafanshu1 发表于 2016-9-19 13:34
数学问题：1弧度=180/pi 度
vba中cos和sin的参数是弧度为单位，所以cos(2)、cos(3)、cos(4)都是负数，负数 ...

请问：i在什么范围内，cos(i)的值是正的，且sin(i)的值也是正的？请给你实例，谢谢！

dongdonggege · 发表于 2016-9-19 22:05

彩蛮蛮发表于 2016-9-19 13:59
在VBA当中，所有的三角函数的参数，都是以弧度形式存在的，需要进行换算，才能够计算出正确结果的·~~

请教大侠，这个程序如何改，才能正常运行，谢谢！

dafanshu1 · 发表于 2016-9-19 22:55

dongdonggege 发表于 2016-9-19 21:46
请问：i在什么范围内，cos(i)的值是正的，且sin(i)的值也是正的？请给你实例，谢谢！

哈哈！楼主在考我初中数学是吧，我所学的都给回数学老师了[偷笑]
要使cos和sin同时为正，那角度须在第一区间，即0~90度的区间，以弧度单位，就是2kpi~ (2k+0.5)pi 范围内，其中k为整数。
例如分别取k从0~5，则所得区间为（仅保留小数点后两位）：
0~1.57、6.28~7.85、12.56~14.13、18.84~20.42、25.13~26.70、31.41~32.98
如果楼主的cos(i)和sin(i)中的 i 只能取正整数，则 i 就只能取1、7、13、14、19、20、26、32……

彩蛮蛮 · 发表于 2016-9-20 10:29

dafanshu1 发表于 2016-9-19 22:55
哈哈！楼主在考我初中数学是吧，我所学的都给回数学老师了[偷笑]
要使cos和sin同时为正，那角度须在第一 ...

+1，赞，就是初中老师教的~~

彩蛮蛮 · 发表于 2016-9-20 10:30

dafanshu1 发表于 2016-9-19 22:55
哈哈！楼主在考我初中数学是吧，我所学的都给回数学老师了[偷笑]
要使cos和sin同时为正，那角度须在第一 ...

+1，赞，就是初中老师教的~~

彩蛮蛮 · 发表于 2016-9-20 10:32

dongdonggege 发表于 2016-9-19 22:05
请教大侠，这个程序如何改，才能正常运行，谢谢！

角度转弧度 π/180×角度
弧度变角度 180/π×弧度

VBA中，举例，计算：sin30°，应该写为：sin(pi()/180*30)

彩蛮蛮 · 发表于 2016-9-20 15:38

dongdonggege 发表于 2016-9-19 22:05
请教大侠，这个程序如何改，才能正常运行，谢谢！

角度转弧度 π/180×角度
弧度变角度 180/π×弧度

VBA中，举例，计算：sin30°，应该写为：sin(pi()/180*30)

		自动登录	找回密码
密码			免费注册

[求助] 程序有什么问题