Question

用VB编写立方根计算器，“计算”按钮的触发事件代码怎么编写？

用VB编写立方根计算器，“计算”按钮的触发事件代码怎么编写？
界面是由一个被开方数输入框(名称：bkfs）、一个“计算”按钮（名称：js）和一个运算结果输入框（名称：ysjg）组成。

Answer 1

Private Sub js_Click()
Dim a As Single
Dim n As Single
a = Val(Text1.Text)
n = a ^ (1 / 3)
Label1.Caption = "(" + CStr(n) + ")"

Answer 2

Private Sub js_Click()
ysjg = Val(bkfs) ^ (1 / 3)
End Sub