VB课后答案资料.docVIP

通过文本框TextBook1舒服一个实数，单击计算按钮，在TextBook2-6中分别输出该数的相反数，平方，绝对值平方根，立方以及绝对值的立方根。需要在文本框前添加注释文本框内的数据。 Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim x As Single x = TextBox1.Text TextBox2.Text = -x TextBox3.Text = x ^ 2 TextBox4.Text = System.Math.Sqrt(System.Math.Abs(x)) TextBox5.Text = x ^ 3 TextBox6.Text = (System.Math.Abs(x)) ^ (1 / 3) End Sub End Class 2.使用文本框Textbook1和Textbook2分别输入两个数，给变量X和Y赋值，单击交换按钮变换按钮，交换extbook1和Textbook2中的内容。 Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim x, y, t As Integer x = TextBox1.Text y = TextBox2.Text t = x x = y y = t TextBox1.Text = x TextBox2.Text = y End Sub End Class 3.输入一元二次方程ax^2+bx+c=0的系数a.b.c计算并输出方程的两个根X1和X2。创图界面如图所示 Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load Dim a, b, c As Integer, x1 As Single, x2 As Single a = TextBox1.Text b = TextBox2.Text c = TextBox3.Text x1 = (-b + (b ^ 2 - 4 * a * c) ^ (1 / 2)) / (2 * a) x2 = (-b - (b ^ 2 - 4 * a * c) ^ (1 / 2)) / (2 * a) TextBox4.Text = x1 TextBox5.Text = x2 End Sub End Class 4使用输入对话框输入球的半径，计算。然后在两个文本框中分别输入球的体积和表面积 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim r, s, v As Single Const pi = 3.14 r = InputBox(请输入球的半径) Label1.Text = 球的半径是 r s = 4 * pi * r ^ 2 v = 4 / 3 * pi * r ^ 3 TextBox1.Text = s TextBox2.Text = v End Sub 5.用输入对话框inputbox输入一个正整数，判断其能是否同时被3和17整除，如能则用标签输出xxx能同时被3和17整除，否则输出不能同时被3和17整除。其中标签中的xxx应显示为实际输出数据。Pri