Question

VB程序求解!!

Private Sub Command1_Click()
aa = 20
aaa = aa * 3.141592654 / 180
hax = 1
q = (2 * hax) / (Sin(aaa) ^ 2)
If z1 <= 17 Then
x1 = z1
x2 = -x1
End If
End Sub
以上程序当Z1为1到17时都能运行.可将z1 <= 17改成z1 <= Q时(程序如下)
Private Sub Command1_Click()
aa = 20
aaa = aa * 3.141592654 / 180
hax = 1
q = (2 * hax) / (Sin(aaa) ^ 2)
If z1 <= q Then
x1 = z1
x2 = -x1
End If
End Sub
这个程序在Z1为1到9进不能运行,在Z1=10到17时能运行,
请高手帮助,谢谢!
该程序有3个“TEXT”文本框，一个是输入Z1，两个分别是得出结论X1和X2，另再设一个“Command1”执行按键。z1的输入值大于等于1

Answer 1

从上面来看，肯定是你对Z1赋值的问题了，按你上面说的，Q是大于17的，只要是1-17内的数字都是没有问题的。程序如下：

并没有出现你说的在Z1为1到9进不能运行,在Z1=10到17时能运行,
可见还是出在你如何对Z1进行赋值的问题上。

要用VAL，STR对字符和数字间转换一下的。

如下，测试没有问题：

Answer 2

你的程序中变量z1并没有被赋值啊