Private Sub Form_Load()
q = 123
'平方
MsgBox c(q, 2)
'平方根
MsgBox c(q, 1 / 2) '求2次根一個(gè)數(shù)的1/2次方
'立方
MsgBox c(q, 3)
'立方根
MsgBox c(q, 1 / 3)
End Sub
Function c(d, e)
c = d ^ e
f = a(c)
c = Left(c, f + 3)
End Function
Function a(b)
b = b & ".000"
a = InStr(1, b, ".", 1)
End Function
'----------------------------------------------------------------
'更直接的方法
Private Sub Form_Load()
q = 123
'平方
MsgBox c(q, 2)
'平方根
MsgBox c(q, 1 / 2) '求2次根一個(gè)數(shù)的1/2次方
'立方
MsgBox c(q, 3)
'立方根
MsgBox c(q, 1 / 3)
End Sub
Function c(a, b)
c = Format(a ^ b, "0.000")
End Function有沒有更簡(jiǎn)單一點(diǎn)的寫法呢，就是不用msgbox,比如說用inputbox輸入一個(gè)數(shù)，然后把結(jié)果打在窗體上就行。。。。。麻煩你了'以這個(gè)為例:Private Sub Form_Load()Me.AutoRedraw = Trueq = InputBox("", "輸入數(shù)字", 123)Print q & ":"c q, 2, "平方"c q, 1 / 2, "平方根"c q, 3, "立方"c q, 1 / 3, "立方根"End SubFunction c(a, b, e)Print e & Format(a ^ b, "0.000")End Function