VB编写程序 用来计算m的n次方

新建工程,添加command1控件。vb6。0+xp调试成功代码如下：Dim n As IntegerPrivate Sub Command1_Click()m = InputBox("请输入底数m")n = InputBox("请输入指数n")Print Js(m,n)End SubPrivate Function Js(a As Double,b As Integer)Js = a ^ bEnd Function