VB课后（国外英文资料）.doc

VB课后（国外英文资料） The third chapter 1, the upper side of the input trapezoid, the length and height below, the area of the trapezoid and the output, require the InputBox function input, and the print method output. Private Sub Command1_Click () Dim a As Single, b As Single, h As Single Dim s As Single A = Val ( please put in the edge of the trapezoid )) B = Val ( please put in the bottom of the trapezoid ) H = Val ( please enter the height of trapezoid )) S is equal to a plus b times h over 2 The area of Print trapezoid; s. End Sub Enter hours, minutes, seconds, convert them into seconds, then output, Private Sub Command1_Click () Dim a As Single, b As Single, c As Single A = Val (Text1) B = Val (Text2) C = Val (Text3) S is equal to a times 3600 plus b times 60 plus c Label4.caption = the number of seconds in the input time is: s End Sub Calculate the length and area of the hypotenuse of a right triangle Private Sub Command1_Click () Dim a As Integer, b As Integer Dim c As Single, l As Single, s As Single A = Val ( please input the first side of the right triangle ) B = Val ( please enter the second side of the right triangle ) The two corners of the right triangle are: Type a, b, C = Sqr (a * a + b * b) L = a + b + c S = a * b / 2 Print the hypotenuse of a right triangle is:; c The perimeter of the right triangle is: l Print the area of a right triangle is:; s. End Sub Calculate the overall grade and average scores Private Sub Command1_Click () Dim a1 As Integer, a2 As Integer, a3 As Integer, a4 As Integer Dim sum As Integer, avg As Single A1 = Val ( please enter the data )) A2 = Val ( please enter the data )) A3 = Val ( please enter the data )) A4 = Val ( please enter data ) Sum is a1 plus a2 plus a3 plus a4 Avg = sum / 4 MsgBox score is: sum vbCrLf average score: avg End Sub 5, the absolute value, Private Sub Command1_Click () Dim a, As an Integer A = Val (Text1) If a 0 Then Text2 = a ElseIf a = 0 Then Text2 = 0 The Else Text2 = - a End the If End Sub Calculate