vb课后（VB after class）.docVIP

vb课后（VB after class） Third chapters 1, the input ladder top length, lower length and height, calculate the trapezoidal area and output, require the use of InputBox function input, using print method output. Private Sub Command1_Click () Dim a As Single, B As Single, H As Single Dim s As Single A = Val (InputBox (please input the ladder on side)) B = Val (InputBox (please input the ladder under the side)) H = Val (InputBox, enter the ladder height) S = (a + b) * H / 2 Print trapezoid area; s End Sub 2, input hours, minutes, seconds, converted them to seconds, and 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 = a * 3600 + b * 60 + C Label4.Caption = the number of seconds corresponding to the input time: S End Sub 3, calculate the perimeter 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 (InputBox (please enter the first side of a right triangle)) B = Val (InputBox (please input the right triangle second side)) Print two right angle sides of a right triangle is: a, B; C = Sqr (a * a + b * b) L = a + B + C S = a * B / 2 Print hypotenuse length: C; Print the perimeter of right triangle is: L Print the area of right triangle is: s End Sub 4, calculating total score and average score 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 (InputBox input data) A2 = Val (InputBox input data) A3 = Val (InputBox input data) A4 = Val (InputBox input data) Sum = a1 + A2 + a3 + A4 AVG = sum / 4 The overall results: MsgBox sum vbCrLf average AVG End Sub 5, absolute value, Private Sub Command1_Click () Dim a As Integer A = Val (Text1) If a 0 Then Text2 = a ElseIf a = 0 Then Text2 = 0 Else Text2 = -a End If End Sub 6. Calculate the value of the piecewise function Private Sub Command1_Click () Dim x As