vb课后习题答案华中科技大学(独家).docxVIP

A5 Private Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Click TextBox1.Text = Val(TextBox1.Text) + 1 End Sub B1 Module Module1 Sub Main() Dim a As Boolean Dim b As Boolean a = True b = False Console.WriteLine({0} {1} {2} {3}, a, True, b, False) Console.WriteLine({0} {1} {2} {3} {4}, a, AND, b, 为a, a And b) Console.WriteLine({0} {1} {2} {3} {4} {5}, a, AND, Not, b, 为a, a And Not b) Console.WriteLine({0} {1} {2} {3} {4} {5} {6} , a, , b, OR, b, 为a, a b Or b) Console.ReadLine() End Sub End Module B2 Module Module2 Sub main() Dim x As Integer Dim y As Integer Console.Write(Input x =) x = Console.ReadLine Console.Write(Input y =) y = Console.ReadLine Console.WriteLine({0} {1}, 表达式1的结果为, Math.Sin(x) + Math.Cos(y)) Console.WriteLine({0} {1}, 表达式2的结果为, ((x ^ 2 + y ^ 2) / Math.Abs(y)) ^ (1 / 3)) Console.WriteLine({0} {1}, 表达式3的结果为, x + y x ^ 2 - 10 * x) Console.ReadLine() End Sub End Module B3 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click TextBox1.Text = Int(Rnd() * 100 + -49) End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click TextBox1.Text = Int(Rnd() * 9998 + 1) * 0.01 End Sub B4 Randomize() Label1.Text = Int(Rnd() * 9000 + 1000) Dim a, b, c, d As Integer a = Label1.Text \ 1000 b = (Label1.Text Mod 1000) \ 100 c = (Label1.Text Mod (a * 1000 + b * 100)) \ 10 d = (Label1.Text Mod 10) Label2.Text = c * 1000 + a * 100 + d * 10 + b B5 Dim a As Double a = TextBox1.Text Label1.Text = Format(a, ##,###.0000) Label2.Text = a B10 TextBox1.Text = UCase(TextBox1.Text) TextBox1.SelectionStart = Len(TextBox1.Text) B6