Question

以下vb程序有什么错误Private Sub Form_Load()

Private Sub Form_Load()
'
'程序说明
'输入一个值
'单击相应按钮
'得到结果
'
Private sub
a = Val(Text1.Text) '请输入值
If command1
Then a＝Abs(A)
End If
End SubEnd sub

Answer 1

Private Sub Form_Load()
'
'程序说明
'输入一个值
'单击相应按钮
'得到结果
'
End sub

Private sub Command1_Click()
a = Val(Text1.Text) '请输入值
If a<0 then
a＝Abs(A)
End If
End Sub