
Private Sub Command3_Click()
Dim s As String
s = ""
For i = 1 To 100
s = s & i & "^2=" & i ^ 2 & " sqrt(" & i & ")=" & Sqr(i) & " e^" & i & "=" & Exp(i) & vbCrLf
Next i
Text1Text = s
End Sub
VB可使用^运算符来实现一个数的任意次方:
^运算符
用来求一个数字的某次方,次方数为 exponent值。
Private Sub Form_Load()
Text1 = 2 ^ (1 / 3)
End Sub
Private Sub Command1_Click()
Dim i!
Do
i = Val(InputBox("输入一个正实数"))
Loop While i <= 0
Print "数字"; i
Print "平方"; Round(i ^ 2, 3)
Print "平方根"; Round(Sqr(i), 3)
Print "立方"; Round(i ^ 3, 3)
Print "立方根"; Round(i ^ (1 / 3), 3)
End Sub
以上就是关于VB程序 打印1~100所有数的平方,平方根,自然对数,e指数的数学用表在文本框中全部的内容,包括:VB程序 打印1~100所有数的平方,平方根,自然对数,e指数的数学用表在文本框中、vb计算器如何实现开多次方根、vb表达式:用inputbox输出一个正实数,用print方法在一行上显示出他的平方和平方根,立方和立方根等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
微信扫一扫
支付宝扫一扫
评论列表(0条)