UC知道vb解方程 高手帮分下下那段错了!
来源：百度知道 编辑：UC知道 时间：2024/06/28 16:36:35
Private Sub Form_Click()
Dim a As Integer
a = (2.8 * a - 0.23) / a
Print a
End Sub
为什么不出结果呢? 那里出错了?
Dim a As Integer
a = (2.8 * a - 0.23) / a
Print a
End Sub
为什么不出结果呢? 那里出错了?
Private Sub Form_Click()
Dim a As Integer
a = InputBox("输入A的值")
If a = 0 Then
MsgBox "除数不能为0"
End
Else
a = (2.8 * a - 0.23) / a
Print a
End If
End Sub
因为a是系统元素，改成其它字母就行了。如：i,j
a没有付值
a的整型,系统默认的初始值是0,所以 = (2.8 * a - 0.23) / a 就算不出来.
上面的兄弟说得很对,不过解题的逻辑不是很清楚,下面是我的修改意见,供参考:
Private Sub Form_Click()
Dim a As Integer
a = InputBox("输入A的值")
If a = 0 Then
MsgBox "除数不能为0"
exit sub
Else
a = (2.8 * a - 0.23) / a
End If
Print a
End Sub
这样得到是个整数,因为a定义的就是个整型的