VisualBasic程序设计vb7教程课件教学.pptVIP

Private Sub form_click() Dim x As Integer, y As Integer, z As Integer x = 1: y = 2: z = 3 Call procl(x, y, z) Call procl(x, y, z) End Sub Private Sub procl(x As Integer, y As Integer, z As Integer) x = 3 * x : y = 2 * z : z = x + y Print x; y; z End Sub A．6 6 12 B. 9 6 15 6 10 10 6 10 10 C. 3 6 9 D. 9 10 10 9 18 27 9 10 15 例如： Function Fun(x as integer ,y as integer) as integer x=x+y If x0 Then Fun=x El