关于VB的编程题、、、求一个实数的平方根,平方,立方,立方根,每个数保留3位小数谢谢啦
3人问答
问题描述：
关于VB的编程题、、、求一个实数的平方根,平方,立方,立方根,每个数保留3位小数谢谢啦
金玉回答：
PrivateSubForm_Load()
q=123
'平方
MsgBoxc(q,2)
'平方根
MsgBoxc(q,1/2)'求2次根一个数的1/2次方
'立方
MsgBoxc(q,3)
'立方根
MsgBoxc(q,1/3)
EndSub
Functionc(d,e)
c=d^e
f=a(c)
c=Left(c,f+3)
EndFunction
Functiona(b)
b=b&".000"
a=InStr(1,b,".",1)
EndFunction
'----------------------------------------------------------------
'更直接的方法
PrivateSubForm_Load()
q=123
'平方
MsgBoxc(q,2)
'平方根
MsgBoxc(q,1/2)'求2次根一个数的1/2次方
'立方
MsgBoxc(q,3)
'立方根
MsgBoxc(q,1/3)
EndSub
Functionc(a,b)
c=Format(a^b,"0.000")
EndFunction
金玉回答：
'以这个为例:PrivateSubForm_Load()Me.AutoRedraw=Trueq=InputBox("","输入数字",123)Printq&":"cq,2,"平方"cq,1/2,"平方根"cq,3,"立方"cq,1/3,"立方根"EndSubFunctionc(a,b,e)Printe&Format(a^b,"0.000")EndFunction
八字精批
八字合婚
八字起名
八字财运
2024运势
测终身运
姓名详批
结婚吉日
其它推荐
其它推荐
最新更新
精品分类
优秀其它推荐
热门其它
邮箱： 
