vb编程实2013.docxVIP

实验30(1) Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim a As String, b As String, c As String Dim x1 As Single, x2 As Single a = InputBox(输?入?A, 输?入?数簓据YY, , 500, 500) b = InputBox(输?入?B, 输?入?数簓据YY, , 500, 500) c = InputBox(输?入?C, 输?入?数簓据YY, , 500, 500) x1 = -b + Math.Sqrt(b ^ 2 - 4 * a * c) / 2 / a x2 = -b - Math.Sqrt(b ^ 2 - 4 * a * c) / 2 / a MsgBox(x1= Format(x1, ###.###) x2= Format(x2, ###.###)) End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Dim x As Single Dim y As Single x = InputBox(输?入?x) y = Math.Log(20) + Math.Abs(x - 16) MsgBox(Math.Log(20) + Math.Abs(x - 16)= y) End Sub 计算落体 Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click Const g As Single = 9.81 Dim v As Single, o As Single, t As Single, s As Single v = InputBox(输?入?初?速ù度è) o = InputBox(输?入?角?度è) t = 2 * v * Math.Sin(o * Math.PI / 180) / g s = v * Math.Sin(2 * o * Math.PI / 180) / g MsgBox(落?地?所ù需è时骸?间? t 落?地?时骸?运?动ˉ的?射?程ì s) End Sub End Class 实验30 (2) 随机产生奇偶数并输出 Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim x As Integer x = Int(Rnd() * 100) If x Mod 2 = 0 Then MsgBox(x 是?偶?数簓) Else MsgBox(x 是?奇?数簓) End If End Sub 比较三个数的大小并输出 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim a As Single, b As Single, c As Single, x As Single, y As Single a = InputBox(请?输?入?a) b = InputBox(请?输?入?b) c = InputBox(请?输?入?c) If a b Then