Question

vb编程题目 设计一个计算器，求平方，开方，绝对值 详细编程

Answer 1

平方用 A^ 2
开方sqr(A)
绝对值ABS(A)

Answer 2

Dim res, a As Double
Private Sub Command1_Click()
a = CDbl(Text1.Text)
res = a * a
Label1.Caption = res
End Sub
Private Sub Command2_Click()
a = CDbl(Text1.Text)
If a >= 0 Then
res = Sqr(a)
Label1.Caption = res
Else
res = Sqr(Abs(a))
Label1.Caption = res & "i"
End If
End Sub
Private Sub Command3_Click()
a = CDbl(Text1.Text)
res = Abs(a)
Label1.Caption = res
End Sub