Mylab,i work in a small lab...

Welcome to my lab ,but you should be careful,when you come in.

Subscribe to RSS feed

简易求根工具2.1

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

求根简易工具2.0

今天终于把“求根简易工具2.0”做出来了,比原计划晚了4天,但总体来说,还是有很大改进的。
加入了Try 语句,还有对字体的美化。
1sqrt1.exe

简易求根工具

做了个简易的求根工具,作为下个星期回去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:可能在运行的过程中你的杀毒软件会提示有病毒,不要理它!还有就是如果出现死机现象,那么你的这台机可以扔了!

开学了!

明天就开学了,博客的更新会比较的慢,希望大家继续关注,谢谢!

测试你的门萨成绩