重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
Private Sub Form_click()
我们提供的服务有:网站制作、网站设计、微信公众号开发、网站优化、网站认证、市北ssl等。为超过千家企事业单位解决了网站和推广的问题。提供周到的售前咨询和贴心的售后服务,是有科学管理、有技术的市北网站制作公司
n = Val(InputBox(""))
s = 2
For i = 1 To n - 1
s = s * 2
Next
MsgBox s
End Sub
2的多少次方,就是指几个2相乘,
2的2次方,即2×2=4
2的3次方,即2×2×2=8
。。。
(-b+(b^2-4ac))/(2a) (-b+(b^2-4ac))/(2a) 是2个根
Delta = b * b - 4 * a * c '求得b*b-4*a*c并存放在变量Delta中
If Delta = 0 Then '如果Delta的值为0
Re = -b / (2 * a)
b * b - 4 * a * c=b^2-4ac=0
-b/(2a)是唯一解
额,我可以用vb6.0的语句回答您,给您参考,就是不知道您可以转化成.net语句与否。
'添加text1,text2,text3用于记录a,b,c的值
Private Sub Command1_Click()
On Error GoTo check
Dim a, b, c, result1, result2
a = Text1.Text
b = Text2.Text
c = Text3.Text
result1 = (((-1) * b) + Sqr(b ^ 2 - 4 * a * c)) / 2 * a
result2 = (((-1) * b) - Sqr(b ^ 2 - 4 * a * c)) / 2 * a
MsgBox "x1= " result1 " x2= " result2
Exit Sub
check:
MsgBox "error!please check your number!"
End Sub