新VisualBasic 程序设计 vb7教程.pptVIP

Sub S(x As Single,y As single) t=x x=t/y y=t Mod y End Sub Private Sub Command1_Click() Dim a As Single Dim b As single A=5: B=4 Call S(a,b) Print a,b End Sub 程序运行后，单击命令按钮，输出结果为（ ） A．5 4 B．1 1 C． 1.25 4 D．1.25 1 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