Mylab,i work in a small lab...

前几天发布了"简易求根工具2.0",但因为服务器的问题,大家一直不能下载,而且大家也没能见到2.0的真面目.
今天回到家里,什么都方便多了,就做了另外一个升级版--2.1版.
求方根简易工具.rar

做了个简易的求根工具,作为下个星期回去VB的作业,现在先让大家看一下先!
欢迎指教喔~
原代码:

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
MsgBox("欢迎你的使用！")
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim x As Double
Dim y As Double
x = TextBox1.Text
x = val (textbox1.Text)
y = Math.Sqrt(x)
TextBox2.Text = y
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

End Sub
End Class

求方根简易工具.exe]点击下载!
看一下界面吧!


现在推出的是1.0版,相信明天回学校之前可以推出2.0版.
在1.0里出现的问题是:还没有加入程序高度和异常处理,还有就是对”退出”按键还没有定义,还有就是对界面的美还要继续美观一下.
在2.0里会把这些BUG加以修正,到时欢迎大家继续关注!

PS:可能在运行的过程中你的杀毒软件会提示有病毒,不要理它!还有就是如果出现死机现象,那么你的这台机可以扔了!

mensa[1].swf