从品牌网站建设到网络营销策划,从策略到执行的一站式服务
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
成都网站建设公司地址:成都市青羊区太升南路288号锦天国际A座10层 建设咨询028-86922220
成都快上网科技有限公司-四川网站建设设计公司 | 蜀ICP备19037934号 Copyright 2020,ALL Rights Reserved cdkjz.cn | 成都网站建设 | © Copyright 2020版权所有.
专家团队为您提供成都网站建设,成都网站设计,成都品牌网站设计,成都营销型网站制作等服务,成都建网站就找快上网! | 成都网站建设哪家好? | 网站建设地图