VB学习第五周--数学函数应用

最新推荐文章于 2024-04-28 07:45:00 发布

Digital2Slave

最新推荐文章于 2024-04-28 07:45:00 发布

阅读量1.2k

点赞数

分类专栏： VB VB实践学习文章标签： Visual Basic

本文链接：https://blog.csdn.net/tianzhaixing2013/article/details/8769371

版权

VB 同时被 2 个专栏收录

14 篇文章 2 订阅

订阅专栏

VB实践学习

14 篇文章 0 订阅

订阅专栏

数学函数应用

Public Class Form1

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        TextBox3.Text = Math.Sqrt(Val(TextBox1.Text) + Val(TextBox2.Text))
        TextBox4.Text = Fix(TextBox3.Text)
        TextBox5.Text = Math.Round(Val(TextBox3.Text), 2)
    End Sub

    Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
        TextBox3.Text = Math.Sqrt(Val(TextBox1.Text) + Val(TextBox2.Text))
        TextBox4.Text = Fix(TextBox3.Text)
        TextBox5.Text = Math.Round(Val(TextBox3.Text), 2)
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class